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

n.Range,NumRows:=2, NumColumns:=3, DefaultTablebehavior:=1, AutoFitBehavior:=0);/// рядки, столбци..Selection.typetext ( Юридична адреса: ) ;. Selection.moveright (12,1); .Selection.typetext ( ІПН ) ;. Selection.moveright (12,1 ); .Selection.Font.Bold:=true; .Selection.typetext ( 400300341 ) ;. Selection.moveright (12,1); .Selection.Font.Bold:=false; .Selection.typetext ( Калузька обл., Борівський р-н., Леніна - 10 ) ;. Selection.moveright (12,1); .Selection.typetext ( БИК ) ;. Selection.moveright (12,1); .Selection.Font.Bold:=true; .Selection.typetext ( 32452345 ) ;. Selection.Font.Bold:=False; .Selection.moveright (12,1); .Selection.typetext ( Поштова адреса: raquo ;) ;. Selection.moveright (12,1); .Selection.typetext ( РС ) ;. Selection.moveright (12,1); .Selection.typetext ( 4050381000001000244 ) ;. Selection.moveright ( 12,1); .Selection.typetext ( Борівський р-н., Леніна - 10 ) ;. Selection.moveright (12,1); .Selection.typetext ( Кс ) ;. Selection.moveright (12,1); .Selection.typetext ( );.Selection.move(5,1);.Selection.move(1,1);.Selection.Font.Bold:=true;.Selection.Paragraphs.Alignment:=0;.Selection.Paragraphs.Alignment:=0;.Selection.Font.Size:=10;.Selection.Font.Italic:=False;.Selection.Font.Color:=ClBlack;.Selection.Font.Bold:=False;.ActiveDocument.Tables.Add(range:=WordApp.Selection.Range,NumRows:=1, NumColumns:=2, DefaultTablebehavior:=1, AutoFitBehavior:=0);/// рядки, столбци..Selection.typetext ( ) ;. Selection.moveright (12,1); .Selection.typetext ( Найменування банку: ГРКЦ ГУ Банк Росії по калузької області м Калуга ) ; .Selection.move (5,1) ;. Selection.move (1,1) ;. Selection.Font.Bold:=true;

//WordApp.Selection.Font.Color:=ClRed;

//WordApp.Selection.TypeText ( Підпис замовника ______________ Підпис постачальника ______________ + # 13 + # 10);

//WordApp.Selection.TypeParagraph; .Selection.Paragraphs.Alignment:=0;

//WordApp.Selection.TypeParagraph;.Selection.Paragraphs.Alignment:=0;.Selection.Font.Size:=10;.Selection.Font.Italic:=False;.Selection.Font.Color:=ClBlack;.Selection.Font.Bold:=False;

//WordApp.Selection.Paragraphs.FirstlineIndent:=2;.ActiveDocument.Tables.Add(range:=WordApp.Selection.Range,NumRows:=1, NumColumns:=7, DefaultTablebehavior:=1, AutoFitBehavior:=0);/// рядки, столбци..Selection.typetext ( Телефон ) ;. Selection.moveright (12,1); .Selection.typetext ( 4-40-40 ) ;. Selection.moveright (12, 1); .Selection.typetext ( Факс ) ;. Selection.moveright (12,1); .Selection.typetext ( 6-58-98 ) ;. Selection.moveright (12,1);. Selection.typetext ( Начальник ОВО ) ;. Selection.moveright (12,1) ;. Selection.typetext ( ) ;. Selection.moveright (12,1); .Selection.typetext ( Лузгачев С.І. );

/////////.Selection.move(5,1);.Selection.move(1,1);.Selection.Font.Bold:=true;.Selection.Paragraphs.Alignment:=0;.Selection.move(5,1);.Selection.move(1,1);.Selection.Font.Bold:=true;.Selection.Paragraphs.Alignment:=0;.Selection.TypeText(laquo; + # 13 + # 10 + # 13 + # 10 + # 13 + # 10 + # 13 + # 10 + # 13 + # 10 + # 13) ;. Selection.Paragraphs.Alignment:=0; .Selection. TypeText ( ФГУП laquo;Охранаraquo;raquo;);.Selection.Font.Size:=11;.Selection.Paragraphs.Alignment:=0;.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);/// рядки, стовпці.

Form Obect

unit Unit5 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ComCtrls, XPMan, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB ,, StdCtrls, Mask, Menus, Spin;=class (TForm): TDBGrid ;: TDBNavigator ;: TDBEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBComboBox ;: TDBComboBox ;: TDBComboBox ;: TLabel ;: TLabel ;: TSpeedButton ;: TEdit ;: TLabel ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TDBComboBox ;: TButton ;: TMenuItem ;: TDataSource ;: TComboBox ;: TComboBox ;: TComboBox ;: TLabel ;: TEdit ;: TDBText ;: TDBEdit ;: TADOTable ;: TSpeedButton; _: TAutoIncField; _2: TWideStringField; DSDesigner: TWideStringField; _3: TWideStringField; DSDesigner1: TWideStringField; DSDesigner2: TWideStringField; DSDesigner3: TWideStringField; Edit1Change (Sender: TObject); DBComboBox4Change (Sender: TObject); N2Click (Sender: TObject); SpeedButton1Click (Sender: TObject); Button1Click (Sender: TObject); N3Click (Sender: TObject); Button2Click (Sender: TObject); SpeedButton2Click (Sender: TObject); FormCreate (Sender: TObject);

//procedure N2Click (Sender: TObject);

{Private declarations}

{Publ...