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

graphs.Alignment:=0; .Selection.Font.Size:=13; .Selection.Font.Bold:=false;

WordApp.Selection.TypeText ( Прошу Вас тимчасово призупинити дію договору № + Edit4.Text); .Selection.TypeText ( від + DateToStr (DateTimePicker1.Date) + laquo ; року про екстрене виїзді наряду міліції позавідомчої охорони при спрацювання тривожної сигналізації та на технічне обслуговув директора технічних засобів охорони ) ;. Selection.TypeText ( з _____________ року у зв'язку з відсутністю необхідності + # 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) ;. Selection.TypeText ( ПІБ + # 13 + # 10 + # 13 + # 10); Tzayav.N12Click (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:=13;.Selection.Font.Bold:=false;.Selection.TypeText(laquo; Прошу Вас відновити дію договору № + Edit4.Text);

WordApp.Selection.TypeText ( від + DateToStr (DateTimePicker1.Date) + року на охорону об'єктів, підключених на пульт централізованого спостереження і на технічне обслуговування технічних засобів охорони raquo ;);

WordApp.Selection.TypeText ( з ___________ + # 10 + # 13 + # 10);

//WordApp.Selection.TypeText ( Оплату гарантую. + # 13 + # 10 + # 13 + # 10 + # 13 + # 10 + # 13 + # 10) ;. Selection.Paragraphs.Alignment:=2; .Selection.TypeText ( + # 13 + # 10) ;. Selection.TypeText ( _____________ + # 13 + # 10) ;. Selection.TypeText ( ПІБ + # 13 + # 10 + # 13 + # 10); Tzayav.Button3Click (Sender: TObject);

//Edit1.Text:=DateToStr (DateTimePicker1.Date); .FieldByName ( Дата_заявкі ). AsDateTime:=DateTimePicker2.Date;

//ADOTable1.FieldByName(laquo;Дата_начала_охраныraquo;).AsDateTime:=DateTimePicker1.Date;;

Form Dogowor

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Buttons, Mask, DBCtrls, DB, ADODB, ExtCtrls, Grids ,, WordXP, OleServer, RpDefine, RpRave, ComCtrls, XPMan, Menus ,, DBGrids;=class (TForm): TButton ;: TButton ;: TXPManifest ;: TButton ;: TButton ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TBitBtn;:TPageControl ;: TTabSheet ;: TTabSheet ;: TLabel ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBNavigator ;: TDBEdit ;: TDBEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TTabSheet ;: TLabel ;: TDBEdit ;: TDBComboBox ;: TLabel ;: TDBEdit ;: TDateTimePicker ;: TDateTimePicker ;: TLabel ;: TLabel ;: TDateTimePicker ;: TDBComboBox ;: TLabel ;: TDataSource ;: TDBNavigator;:TButton ;: TDataSource ;: TADOTable ;: TDBNavigator; _: TAutoIncField; _2: TWideStringField; _3: TWideStringField; _4: TBCDField; _5: TDateTimeField; __: TDateTimeField; _6: TDateTimeField; DSDesigner: TWideStringField ;: TDBText ;: TADOTable;:TLabel ;: TDBEdit ;: TDBLookupComboBox ;: TLabel; BitBtn1Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); N1Click (Sender:TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); N5Click (Sender: TObject); Button6Click (Sender: TObject); Button7Click (Sender: TObject); N7Click (Sender: TObject); N8Click (Sender: TObject); N9Click (Sender: TObject); DBEdit15Change (Sender: TObject); DBEdit1Change (Sender: TObject); PageControl1Change (Sender: TObject);

{Private declarations}

{Public declarations} ;: TDogowor; ComObj, Unit2, Unit3, Unit4, Bxod, Unit6, Unit7, zayavlenie, Unit8;

{$ R * .dfm} TDogowor.BitBtn1Click (Sender: TObject) ;;; TDogowor.Button1Click (Sender: T...