Материал: Интеграция информационных программных модулей для страховой компании

end;: TForm1;Unit3, Unit5, Unit4, Unit6, Unit7, Unit8, Unit9, Unit10;

{$R *.dfm}TForm1.N5Click(Sender: TObject);.Hide;.show;;TForm1.N7Click(Sender: TObject);.Hide;.show;;TForm1.N6Click(Sender: TObject);.Hide;.show;;TForm1.N8Click(Sender: TObject);.Hide;.show;;TForm1.N4Click(Sender: TObject);.Close;;TForm1.N9Click(Sender: TObject);.show;.Hide;;TForm1.N10Click(Sender: TObject);.Show;.Hide;;TForm1.N11Click(Sender: TObject);.Show;.Hide;;TForm1.N12Click(Sender: TObject);.Show;.Hide;;TForm1.FormCreate(Sender: TObject);;.Unit2;, Classes, DB, ADODB;= class(TDataModule): TADOConnection;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TDataSource;: TDataSource;: TDataSource;: TDataSource;

{ Private declarations }

{ Public declarations };: TDataModule2;

{$R *.dfm}.Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;= class(TForm): TDBGrid;: TDBNavigator;: TButton;: TLabel;DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm3;Unit1, Unit2, Unit4, Unit5, Unit6;

{$R *.dfm}TForm3.DBNavigator1Click(Sender: TObject; Button: );:string;Button of: ButtonName:= 'nbFirst';: ButtonName:= 'nbPrior';: ButtonName:= 'nbNext';: ButtonName:= 'nbLast';: ButtonName:= 'nbInsert';: ButtonName:= 'nbDelete';: ButtonName:= 'nbEdit';: ButtonName:= 'nbPost';: ButtonName:= 'nbRefresh';;;TForm3.Button1Click(Sender: TObject);.Hide;.Show;;.Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;= class(TForm): TDBGrid;: TDBNavigator;: TButton;: TLabel;DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm4;Unit1, Unit2, Unit3, Unit5, Unit6;

{$R *.dfm}TForm4.DBNavigator1Click(Sender: TObject; Button: );:string;Button of: ButtonName:= 'nbFirst';: ButtonName:= 'nbPrior';: ButtonName:= 'nbNext';: ButtonName:= 'nbLast';: ButtonName:= 'nbInsert';: ButtonName:= 'nbDelete';: ButtonName:= 'nbEdit';: ButtonName:= 'nbPost';: ButtonName:= 'nbRefresh';;;TForm4.Button1Click(Sender: TObject);.Hide;.Show;;.Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;= class(TForm): TDBGrid;: TDBNavigator;: TButton;: TLabel;DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm5;Unit1, Unit2, Unit3, Unit4, Unit6;

{$R *.dfm}TForm5.DBNavigator1Click(Sender: TObject; Button: );:string;Button of: ButtonName:= 'nbFirst';: ButtonName:= 'nbPrior';: ButtonName:= 'nbNext';: ButtonName:= 'nbLast';: ButtonName:= 'nbInsert';: ButtonName:= 'nbDelete';: ButtonName:= 'nbEdit';: ButtonName:= 'nbPost';: ButtonName:= 'nbRefresh';;;TForm5.Button1Click(Sender: TObject);.Hide;.Show;;.Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;= class(TForm): TDBGrid;: TDBNavigator;: TButton;: TLabel;DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm6;Unit1, Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}TForm6.DBNavigator1Click(Sender: TObject; Button: );:string;Button of: ButtonName:= 'nbFirst';: ButtonName:= 'nbPrior';: ButtonName:= 'nbNext';: ButtonName:= 'nbLast';: ButtonName:= 'nbInsert';: ButtonName:= 'nbDelete';: ButtonName:= 'nbEdit';: ButtonName:= 'nbPost';: ButtonName:= 'nbRefresh';;;TForm6.Button1Click(Sender: TObject);.Hide;.Show;;.Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, OleServer, ExcelXP, ComObj;= class(TForm): TLabel;: TButton;: TExcelApplication;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm7;:olevariant;Unit1;

{$R *.dfm}TForm7.Button1Click(Sender: TObject);.hide;.Show;;TForm7.Button2Click(Sender: TObject);:=CreateOleObject('Excel.Application');.Visible:=false;.workbooks.Add;.workbooks.open( 'C:\Program Files

(x86)\Borland\Delphi7\Projects\kyrsovoy\proect.xls');.Visible:=true;;.Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComObj;= class(TForm): TLabel;: TButton;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm8;:olevariant;Unit1;

{$R *.dfm}TForm8.Button1Click(Sender: TObject);.Hide;.show;;TForm8.Button2Click(Sender: TObject);:=CreateOleObject('Excel.Application');.Visible:=false;.workbooks.Add;.workbooks.open('C:\Program Files

(x86)\Borland\Delphi7\Projects\kyrsovoy\proect2.xls');.Visible:=true;;.Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComObj, OleServer, WordXP;= class(TForm): TLabel;: TButton;: TButton;: TWordApplication;Button1Click(Sender: TObject);Button2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm9;:olevariant;Unit1;

{$R *.dfm}TForm9.Button1Click(Sender: TObject);.Hide;.show;;TForm9.Button2Click(Sender: TObject);MsWord:Variant;:= CreateOleObject('Word.Application');.Create('Error');;.Documents.Add('C:\Program Files

// MsWord.Application.Open('C:\Program Files

(x86)\Borland\Delphi7\Projects\kyrsovoy\doverennost.doc');.Visible := True;

//msWord.Visible:=Visible;;.Unit10;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComObj, OleServer, ExcelXP;= class(TForm): TLabel;: TButton;: TButton;: TExcelApplication;Button1Click(Sender: TObject);Button2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm10;:olevariant;Unit1;

{$R *.dfm}TForm10.Button1Click(Sender: TObject);.Hide;.show;;TForm10.Button2Click(Sender: TObject);:=CreateOleObject('Excel.Application');.Visible:=false;.workbooks.Add;.workbooks.open('C:\Program Files

(x86)\Borland\Delphi7\Projects\kyrsovoy\schet.xls');.Visible:=true;;.