Реферат Розробка програмного додатка &Автоматизація обліку клієнтів відділу позавідомчої охорони&

Object) ;, Doc: variant;

//Vrem: Word;

//i: Integer;:=CreateOleObject ( Word.Application ); ( Word не встановлено! ) ;;;. Visible:=false;:=Wordapp.Documents.Add; .show; .Button1.Click;

//WordApp.Selection.TypeParagraph;.Selection.Paragraphs.Alignment:=1;.Selection.Font.Size:=11;.Selection.Font.Bold:=true;.Selection.TypeText(laquo;Договор № + DBEdit1.Text + # 13 + # 10) ;. Selection.TypeText ( на охорону об'єктів, підключених на пульт централізованого спостереження + # 13 + # 10);

WordApp.Selection.TypeText ( і на технічне обслуговування технічних засобів охорони + # 13 + # 10);

WordApp.Selection.Font.Size:=11;.Selection.Paragraphs.Alignment:=3;.Selection.Font.Bold:=False;.Selection.TypeText ( ___________________ + DBEdit12.Text + # 13 +#10);.Selection.Font.Size:=7;.Selection.Paragraphs.Alignment:=0;.Selection.Font.Bold:=False;.Selection.TypeText(laquo; (населений пункт) + # 13 +#10);.Selection.Font.Size:=11;.Selection.Paragraphs.Alignment:=3;.Selection.Font.Bold:=False;.Selection.TypeText(laquo; Відділ позавідомчої охорони при відділі внутрішніх справ Борівського району, за адресою м Боровськ вул. Леніна, буд. 10, телефон 4-41-61, в особі начальника ОВО при ОВД Борівського району підполковника міліції С.І. Лузгачев );

WordApp.Selection.TypeText ( діє на підставі Положення, іменований (е) надалі Охорона raquo ;, з одного боку, Федеральне державне унітарне підприємство Охорона МВС Росії в особі директора Філії Федерального державного );

WordApp.Selection.TypeText ( унітарного підприємства Охорона МВС Росії по Калузькій області + DBEdit15.Text);

WordApp.Selection.TypeText ( діє на підставі Статуту, Положення про філію та генеральної довіреності № + DBEdit17.Text);

WordApp.Selection.TypeText ( іменоване надалі ФГУП raquo ;, з другої сторони і + DBEdit2.Text + DBEdit15.Text);

//WordApp.Selection.TypeText ( ???????????????? ) ;. Selection.TypeText ( іменований (е) в Надалі Клієнт raquo ;, з третього боку, надалі разом іменовані Сторони raquo ;, уклали цей договір про наступне: + # 13 + # 10 + # 13 + # 10);

WordApp.Selection.Paragraphs.Alignment:=1;.Selection.Font.Size:=11;.Selection.Font.Bold:=true;.Selection.TypeText(laquo; 1. Предмет договору + # 13 +#10);.Selection.Font.Size:=11;.Selection.Paragraphs.Alignment:=3;.Selection.Font.Bold:=false;.Selection.TypeText(laquo; 1.1. Охорона надає послуги з централізованої охорони шляхом прийому на пульт централізованого спостереження (далі - ПЦС) і реагування допомогою груп затримання (далі - ГЗ) на тривожні повідомлення, що надходять з об'єктів );

WordApp.Selection.TypeText ( Клієнта (далі - Об'єкт), в дні та години, зазначені в Переліку об'єктів, що охороняються (далі - Перелік), який є невід'ємною частиною цього договору (Додаток № 1) відповідно до Інструкції про порядок користування );

WordApp.Selection.TypeText ( засобами Комплексу ТСО (далі - Інструкція), що є невід'ємною частиною цього договору (Додаток № 2) + # 13 + # 10);

WordApp.Selection.TypeText ( 1.2. ФГУП приймає на себе зобов'язання виконувати планове (регламентне) технічне обслуговування, непланове технічне обслуговування та усувати несправності спільно діючих технічних засобів охоронної );

WordApp.Selection.TypeText ( сигналізації, встановлених на Об'єкті та об'єднаних системою інженерних мереж та комунікацій (далі - Комплекс ТСО). + # 13 + # 10);

WordApp.Selection.Paragraphs.Alignment:=1;.Selection.Font.Size:=11;.Selection.Font.Bold:=true;.Selection.TypeText(laquo;2. Загальні положення + # 13 + # 10) ;. Selection.Font.Size:=11; .Selection.Paragraphs.Alignment:=3; .Selection.Font.Bold:=false;

/////////////////////////////// Таблица.Selection.TypeParagraph;.Selection.Paragraphs.Alignment:=0;.Selection.Font.Size:=10;.Selection.Font.Color:=ClBlack;

//WordApp.Selection.Paragraphs.FirstlineIndent:=2;.ActiveDocument.Tables.Add(range:=WordApp.Selection.Range,NumRows:=1, NumColumns:=1, DefaultTablebehavior:=1, AutoFitBehavior:=0);/// рядки, стовпці.

/////////// Заповнюю шапку таблицы.Selection.Font.Bold:=False;.Selection.Paragraphs.Alignment:=0;.Selection.typetext(laquo;УФХ по калузької області (405038103703 при ОВС по Боровському району л/ся 03371751790) );

//WordApp.Selection.moveright(12,1);.Selection.TypeParagraph;.Selection.Paragraphs.Alignment:=0;.Selection.Font.Size:=10;.Selection.Font.Italic:=False;.Selection.Font.Color:=ClBlack;

//WordApp.Selection.Paragraphs.FirstlineIndent:=2;.ActiveDocument.Tables.Add(range:=WordApp.Selectio...