Реферат Електронний документообіг у системі обліку видачі і повернення книг в бібліотеці

ge.AutoFormat;

end;

Створюємо другу сторінку, на якій розташовується довідка про те, що людина є абонентом бібліотеки і номером книг:

// Вставка тексту - створення типового документа

// Вставка 3 порожніх абзаців, курсор у позиції останнього WordDocument1.Paragraphs.Add (EmptyParam);

WordDocument1.Paragraphs.Add (EmptyParam);. Paragraphs.Add (EmptyParam);

// ---------------------------------------- -------------------

// Приклад застосування діапазону "Range" для вирівнювання двох абзаців з чотирьох раніше введених --------------

Start1: = WordDocument1.Paragraphs.Item (1). Range.start;// початковий абзац: = WordDocument1.Paragraphs.Item (2). Range.end_;// кінцевий абзац.Range ( Start1, End1). Paragraphs.Alignment: = 2;// вирівнювання вправо.Paragraphs.Add (EmptyParam);// додати абзац, курсор в його позіціі.Paragraphs.Item (WordDocument1.Paragraphs.Count). Alignment: = 2; // вирівнювання поточного абзацу вправо.Range.InsertAfter ('Для представлення');// вводимо текст.Paragraphs.Add (EmptyParam);// додати абзац, курсор в його позіціі.Paragraphs.Item (WordDocument1.Paragraphs.Count). Alignment: = 2;// вирівнювання поточного абзацу вправо

WordDocument1.Range.InsertAfter ('Для внутрішнього використання);// вводимо текст

// Вставка 3 порожніх абзаців, курсор у позиції останнього ------

// Вставка 4 порожніх абзаців, курсор у позиції останнього -----

// Вводимо текст після слова "ДОВІДКА". Active: = true ;//звертаємося до бази данних.First;// БД - на першу запісь.MoveBy (NomClient-1);// формуємо документ для обраної записи

WordDocument1.Paragraphs.Item (WordDocument1.Paragraphs.Count). Alignment: = 3;// вирівнювання по шіріне.Paragraphs.Item (WordDocument1.Paragraphs.Count). LineSpacingRule: = 2;// міжрядковий інтервал - подвійний: = 'Абонент' + Query1.FieldByName ('FAMILYA'). Asstring + '' + Query1.FieldByName ('NAME'). Asstring + '' + Query1.FieldByName ('OTCH.'). Asstring + ', проживає за адресою' + Query1.FieldByName ('ADR'). Asstring;. Range.InsertAfter (StrKomb);// вводимо текст: = 'зареєстрований' + Query1.FieldByName ('DATA_REG'). Asstring + 'числа, отримав на руки книгу '+ Query1.FieldByName (' NAME_BOOK '). Asstring +' ';. Range.InsertAfter (StrKomb);. Paragraphs.Add (EmptyParam);// додати абзац, курсор в його позиції: =' Книга під індексом: '+ Query1.FieldByName (' NUMB_BOOK '). Asstring +' ';

// вводимо текст.Range....