Реферат Програмний продукт АІС &Облік робочих вакансій&

yleSingle;

//Скидання параметрів параграфа.

wdRng.ParagraphFormat.Reset;

//Вирівнювання всієї таблиці - по лівому краю..ParagraphFormat.Alignment:=wdAlignParagraphLeft;

//Оформлення шапки.:=wdTable.Rows.Item (1) .Range;// Діапазон першого рядка.

wdRng.ParagraphFormat.Alignment:=wdAlignParagraphCenter; .Font.Size:=10;

wdRng.Font.Bold:=True;

//Оформлення першого рядка даних - це другий рядок у таблиці.

//При додаванні наступних рядків, їх оформлення буде копіюватися з цього рядка.:=wdTable.Rows.Item (2) .Range;// Діапазон другого рядка.

wdRng.ParagraphFormat.Alignment:=wdAlignParagraphLeft; .Font.Size:=10; .Font.Bold:=False;

//Записуємо шапку табліци.i:=0 to qry1.Fields.Count - 1 do.Cell (1, i + 1) .Range.Text:=qry1.Fields [i] .DisplayName ;

//Записуємо дані табліци..DisableControls;

Bm:=qry1.GetBookMark; .First;

i:=1;// Поточний рядок в таблиці MS Word.

while not qry1.Eof do begin

Inc (i);

//Якщо потрібно, додаємо новий рядок в кінець таблиці.

if i gt; 2 then wdTable.Rows.Add;

//Записуємо дані в рядок таблиці MS Word.

for j:=0 to qry1.Fields.Count - 1 do.Cell (i, j + 1) .Range.Text:=qry1.Fields [j] .AsString; .Next ;;.GotoBookMark (Bm) ;. EnableControls;

//Включення перемальовування вікна MS Word. У випадку, якщо wdApp.Visible:=True..ScreenUpdating:=True ;;. DisplayAlerts:=False;// Відключаємо режим показу предупрежденій..SaveAs (FileName:=Sd.FileName);// Запис документа в файл..DisplayAlerts:=True;// Включаємо режим показу попереджень.

end; .Activate ;; TForm1.NaklRep (vrab: string; vvak: string; vsum: string);=1;=0;=2;=1 ;, wdDoc, wdRng, wdTable: Variant ;, j, Res: Integer ;: TDateTime ;: TBookMark ;: TSaveDialog;

//{:=SaveDialog1; Sd.InitialDir= then Sd.InitialDir:=ExtractFilePath (ParamStr (0));

//Запуск діалогу збереження файла.not Sd.Execute then Exit;

//Якщо файл із заданим ім'ям існує, то запускаємо діалог з користувачем.

if FileExists (Sd.FileName) then begin

Res:=MessageBox (0, Файл із заданим ім'ям вже існує. Перезаписати?

, Увага! raquo ;, MB_YESNO + MB_ICONQUESTION + MB_APPLMODAL);

if Res lt; gt; IDYES then Exit;

end;

//Спроба запустити MS Word.

try:=CreateOleObject ( Word.Application );

except (0, Не вдається запустити MS Word. Дія відмінена.

, Увага! raquo ;, MB_OK + MB_ICONERROR + MB_APPLMODAL) ;;;. Visible:=True;

//Створюємо новий документ.:=wdApp.Documents.Add; .ScreenUpdating:=False;:=wdDoc.Content;// Діапазон, що охоплює весь вміст документа.

//Параграф 1. Тема звіту.

//Тема звіту і переклад рядка.:=Now; .InsertAfter ( Акт прийому на роботу від + FormatDateTime ( dd.mm.yyyy raquo ;, D) + # 13 # 10);

//Вирівнювання по центру..ParagraphFormat.Alignment:=wdAlignParagraphLeft;

//Параметри шріфта..Font.Name:= Times New Roman raquo ;;. Font.Bold:=True; .Font.Size:=14;

//Параграф 2. Загальні відомості.

//Формуємо діапазон нового параграфа безпосередньо за поточним діапазоном.

wdRng.Start:=wdRng.End; .InsertAfter (# 13 # 10);

wdRng.InsertAfter ( Видана: _______________________ + # 13 # 10);

//Скидання параметрів параграфа..ParagraphFormat.Reset;

//Вирівнювання по лівому краю..ParagraphFormat.Alignment:=wdAlignParagraphLeft; .Font.Reset;// Скидання параметрів шрифту.

wdRng.Font.Size:=12; .Font.Bold:=True;

//Параграф 4. Табліца..Start:=wdRng.End;

//Додаємо таблицю MS Word. Поки створюємо таблицю з двома рядками.

wdTable:=wdDoc.Tables.Add (wdRng.Characters.Last, 2, 3);

//Параметри ліній табліци..Borders.InsideLineStyle:=wdLineStyleSingle; .Borders.OutsideLineStyle:=wdLineStyleSingle;

//Скидання параметрів параграфа.

wdRng.ParagraphFormat.Reset;

//Вирівнювання всієї таблиці - по лівому краю..ParagraphFormat.Alignment:=wdAlignParagraphLeft;

//Оформлення шап...