Реферат Розробка автоматизованої системи обліку вкладів у банку

ame ( Pasport ). AsString; CompareBm (BookmarkName, bdate ) then.Text:=Table1.FieldByName ( DTR ). AsString; CompareBm (BookmarkName, number ) then.Text:=Table1.FieldByName ( telefon ). AsString ;;

end;

//По замовчування вікно Word приховано, робимо його видимим з готовим звітом

WordApp.Visible:=True;

finally

//Необхідно для видалення екземпляра Word.

WordApp:=Unassigned; .Cursor:=crDefault ;;;. Unit7 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Series, TeEngine, ExtCtrls, TeeProcs, Chart, DbChart, BubbleCh;=class (TForm): TDBChart ;: TPieSeries ;: TBarSeries ;: TBubbleSeries; FormCreate (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm7; mainDataModuleUnit;

{$ R * .dfm} TForm7.FormCreate (Sender: TObject) ;. Query3.Active:=true;;.Unit9 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, QRCtrls, QuickRpt, ExtCtrls;=class (TForm): TQuickRep ;: TQRBand ;: TQRBand ;: TQRBand ;: TQRBand ;: TQRBand ;: TQRSysData ;: TQRLabel ;: TQRLabel ;: TQRLabel ;: TQRLabel ;: TQRSysData ;: TQRDBText ;: TQRDBText ;: TQRDBText;

{Private declarations}

{Public declarations} ;: TForm8; mainDataModuleUnit;

{$ R * .dfm} .Unit11 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Mask, DBCtrls, Buttons;=class (TForm): TLabel;:TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TBitBtn ;: TBitBtn;

{Private declarations}

{Public declarations} ;: TForm11;

{$ R * .dfm} .Unit12 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Buttons, Mask, DBCtrls;=class (TForm): TLabel;:TLabel ;: TLabel ;: TBitBtn ;: TBitBtn ;: TLabel ;: TLabel ;: TLabel ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit; BitBtn1Click (Sender: TObject);

//procedure DBEdit1Change (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm12; Unit3, mainDataModuleUnit;

{$ R * .dfm} TForm12.BitBtn1Click (Sender: TObject);.Table2.Insert;.Table2.FieldByName(laquo;Tab_nomerraquo;).AsString:=Edit1.Text;.Table2.FieldByName(laquo;FIOraquo;).AsString:=Edit2.Text;.Table2.FieldByName(laquo;DTRraquo;).AsString:=Edit3.Text;.Table2.FieldByName(laquo;Dolshnostraquo;).AsString:=Edit4.Text;.Table2.FieldByName(laquo;Stashraquo;).AsString:=Edit5.Text;.Table2.FieldByName(laquo;Telefonraquo;).AsString:=Edit6.Text;.Table2.Post;;.AboutBoxUnit;Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls ,, ExtCtrls, jpeg;=class (TForm): TPanel ;: TImage ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TButton; OKButtonClick (Sender: TObject);

{Private declarations}

{Public declarations} ;: TAboutBox;

{$ R * .dfm} TAboutBox.OKButtonClick (Sender: TObject) ;. Close ;;. mainDataModuleUnit;

продовження додатка А

interface

uses, ShellAPI, Classes, Menus, DB, DBTables, Messages, Windows, Forms, ComObj, Dialogs;=class (TDataModule): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem;:TMenuItem ;: TMenuItem ;: TDataSource ;: TMenuItem ;: TDataSource ;: TTable ;: TTable ;: TDataSource ;: TTable ;: TDataSource ;: TTable ;: TMenuItem; N_cheta: TStringField; Data: TDateField; Prixod: TCurrencyField; Rasxod: TCurrencyField ;: TQuery ;: TDataSource ;: TQuery ;: TDataSource; N_cheta: TStringField; FIO: TStringField; DTR: TDateField; Telefon: TStringField; Pasport: TStringField; N_dogovora: TStringField; Kod_vklada: TStringField; Tab_nomer: TStringField; FIO: TStringField; DTR: TDateField; Dolshnost: TStringField; Stash: TStringField; Telefon: TStringField ;: TMenuItem ;: TDataSource ;: TQuery ;: TMenuItem ;: TDataSource ;: TTable ;: TMenuItem ;: TDataSource ;: TQuery ;: TQuery; Kod_vklada: TStringField; Naim_vklada: TStringField; _stavka: TStringField; Status_cheta: TStringField; N: TAutoIncField; N_cheta: TStringField; Data: TDateField; Prixod: TCurrencyField; Rasxod: TCurrencyField; Tab_N_sotr: TStringField; N8Click (Sender: TObject); N11Click (Sender: TObject); N12Click (Sender: TObject); N9Click (Sender: TObject); N5Click (Sender: TObject); N6Click (Sender: TObject); N13Click (Sender: TObject); N14Click (Sender: TObject); N3Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TmainDataModule; AboutBoxUnit, mainUnit, Unit3, Unit9, Unit10, Unit7, Unit4; <...