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

TypeText ( + # 13 + # 10 + # 13 + # 10 + # 13 +#10);.Selection.Paragraphs.Alignment:=1;.Selection.Font.Size:=14;.Selection.TypeText(laquo;Заявлениеraquo;+#13 + # 10) ;. Selection.Paragraphs.Alignment:=0; .Selection.Font.Size:=12; .Selection.Font.Bold:=false;

WordApp.Selection.TypeText ( Прошу Вас провести обстеження і видати висновок на предмет оснащеності + Edit2.Text); .Selection.TypeText ( розташований за адресою: + Edit3. Text) ;. Selection.TypeText ( засобами охоронної сигналізації. + # 13 + # 10 + # 13 + # 10 + # 13 + # 10);

//WordApp.Selection.TypeText ( Оплату гарантую. + # 13 + # 10 + # 13 + # 10 + # 13 + # 10 + # 13 + # 10);

WordApp.Selection.Paragraphs.Alignment:=2; .Selection.TypeText ( _______________ _____________ + # 13 + # 10) ;. Selection.TypeText ( підпис ПІБ + # 13 + # 10 + # 13 + # 10) ;; Tzayav.N7Click (Sender: TObject) ;, Doc: variant;

//Vrem: Word;:=CreateOleObject ( Word.Application ); ( Word не встановлено! ) ;;;. Visible:=true;:=Wordapp.Documents.Add;

//WordApp.Selection.TypeParagraph;.Selection.Paragraphs.Alignment:=2;.Selection.Font.Size:=13;

//WordApp.Selection.Font.Bold:=true; .Selection.TypeText ( Директору ФФГУП Охорона + # 13 + # 10 + МВС РФ по Калузької області raquo ; + # 13 + # 10 + Шіхіріну Г.В. + # 13 + # 10) ;. Selection.TypeText ( від + Edit1.Text + # 13 + # 10) ;. Selection. TypeText (Edit3.Text + # 13 + # 13 + # 10 + # 13 + # 10 + # 13 +#10);.Selection.Paragraphs.Alignment:=1;.Selection.Font.Size:=13;.Selection.TypeText(laquo;Заявлениеraquo;+#13 + # 10) ;. Selection.Paragraphs.Alignment:=0; .Selection.Font.Size:=13; .Selection.Font.Bold:=false;

WordApp.Selection.TypeText ( Прошу Вас укласти договір на обслуговування комплексу технічних засобів охорони об'єкта + Edit2.Text + сигналізації в приміщенні ); .Selection.TypeText ( розташований по адресою: + Edit3.Text) ;. Selection.TypeText ( з + DateToStr (DateTimePicker2.Date) + року. + # 13 + # 10 + # 13 + # 10 + # 13) ; .Selection.TypeText ( Оплату гарантую. + # 13 + # 10 + # 13 + # 10 + # 13 + # 10 + # 13 + # 10);

WordApp.Selection.Paragraphs.Alignment:=2;

//WordApp.Selection.TypeText (DBEdit12.Text + _____________ + # 13 + # 10) ;. Selection.TypeText ( _______________ _____________ + # 13 + # 10);.Selection.TypeText ( підпис ПІБ + # 13 + # 10 + # 13 + # 10); Tzayav.N8Click (Sender: TObject) ;, Doc: variant;

//Vrem: Word;:=CreateOleObject ( Word.Application ); ( Word не встановлено! ) ;;;. Visible:=true;:=Wordapp.Documents.Add;

//WordApp.Selection.TypeParagraph;.Selection.Paragraphs.Alignment:=2;.Selection.Font.Size:=13;

//WordApp.Selection.Font.Bold:=true; .Selection.TypeText ( Директору ФФГУП Охорона + # 13 + # 10 + МВС РФ по Калузької області raquo ; + # 13 + # 10 + Шіхіріну Г.В. + # 13 + # 10) ;. Selection.TypeText ( від + Edit1.Text + # 13 + # 10 + # 13 + # 10) ;. Selection.TypeText ( + # 13 + # 10 + # 13 + # 10 + # 13 +#10);.Selection.Paragraphs.Alignment:=1;.Selection.Font.Size:=13;.Selection.TypeText(laquo;Заявлениеraquo;+#13 + # 10) ;. Selection.Paragraphs.Alignment:=0; .Selection.Font.Size:=13; .Selection.Font.Bold:=false;

WordApp.Selection.TypeText ( Прошу Вас провести пусконалагоджувальні роботи комплексу технічних засобів охорони об'єкта + Edit2.Text); .Selection.TypeText ( розташований за адресою: + Edit3. Text + # 13 + # 10 + # 13) ;. Selection.TypeText ( Оплату гарантую. + # 13 + # 10 + # 13 + # 10 + # 13 + # 10 + # 13 + # 10);

WordApp.Selection.Paragraphs.Alignment:=2; .Selection.TypeText ( _______________ _____________ + # 13 + # 10) ;. Selection.TypeText ( підпис ПІБ ); ; Tzayav.N10Click (Sender: TObject) ;, Doc: variant;

//Vrem: Word;:=CreateOleObject ( Word.Application ); ( Word не встановлено! ) ;;;. Visible:=true;:=Wordapp.Documents.Add;

//WordApp.Selection.TypeParagraph;.Selection.Paragraphs.Alignment:=2;.Selection.Font.Size:=14;.Selection.Font.Bold:=true;

WordApp.Selection.TypeText ( Начальнику ОВО при + # 13 + # 10 + ОВС по Боровському району + # 13 + # 10 + підполковнику міліції + # 13 + # 10 + Лузгачеву С.І. + # 13 + # 10);

//WordApp.Selection.TypeText ( від + DBEdit15.Text + # 13 + # 10 + # 13 + # 10) ;. Selection.TypeText ( + # 13 + # 10 + # 13 + # 10 + # 13 +#10);.Selection.Paragraphs.Alignment:=1;.Selection.Font.Size:=14;.Selection.TypeText(laquo;Заявлениеraquo;+#13 + # 10) ;. Selection.Paragraphs.Alignment:=0; .Selection.Font.Size:=15; .Selection.Font.Bold:=false;

WordApp.Selection.TypeText ( Прошу Вас розірвати договір про екстрене виїзді наряду міл...