Реферат Інтеграція інформаційних програмних модулів для страхової компанії

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 raquo ;;: ButtonName:= nbPrior raquo ;;:ButtonName:= nbNext raquo ;;: ButtonName:= nbLast raquo ;;: ButtonName:= nbInsert raquo ;;: ButtonName:= nbDelete raquo ;;: ButtonName:= nbEdit raquo ;;: ButtonName:= laquo ; nbPost raquo ;;: ButtonName:= nbRefresh raquo ;;;; 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 raquo ;;: ButtonName:= nbPrior raquo ;;:ButtonName:= nbNext raquo ;;: ButtonName:= nbLast raquo ;;: ButtonName:= nbInsert raquo ;;: ButtonName:= nbDelete raquo ;;: ButtonName:= nbEdit raquo ;;: ButtonName:= laquo ; nbPost raquo ;;: ButtonName:= nbRefresh raquo ;;;; 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(laquo;Excel.Applicationraquo;);.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(laquo;Excel.Applicationraquo;);.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(laquo;Word.Applicationraquo;);.Create(laquo;Errorraquo;);;.Documents.Add('C:Program Files

(x86) Borland Delphi7 Projects kyrsovoy doverennost.doc ');

//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(laquo;Excel.Applicationraquo;);.Visible:=false;.workbooks.Add;.workbooks.open('C:Program Files

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