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

ick (Sender: TObject); SpeedButton3Click (Sender: TObject); SpeedButton1Click (Sender: TObject ); SpeedButton4Click (Sender: TObject); FormCreate (Sender: TObject);

{Private declarations}

{Public declarations} ;: TmainForm; Sotrudniki, Unit2, Unit3, Unit4, Unit9, Unit10;

{$ R * .dfm} TmainForm.SpeedButton2Click (Sender: TObject) ;. Hide; .Show ;; TmainForm.SpeedButton3Click (Sender: TObject) ;. Hide; .Show ;; TmainForm.SpeedButton1Click (Sender: TObject) ;. Hide; .Show ;; TmainForm.SpeedButton4Click (Sender: TObject) ;. Hide; .Show ;; TmainForm.FormCreate (Sender: TObject);:=ExtractFilePath (Application.ExeName) + help sberm raquo ;;;. Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, ShellAPI, ComObj;=class (TForm): TDBGrid ;: TButton ;: TButton ;: TButton ;: TLabel ;: TLabel ;: TComboBox ;: TButton ;: TButton ;: TLabel ;: TButton ;: TButton ;: TLabel ;: TLabel ;: TButton; Button6Click (Sender: TObject); Button3Click (Sender:TObject); Button4Click (Sender: TObject); Button2Click (Sender: TObject); FormShow (Sender: TObject); Button1Click (Sender: TObject); Button5Click (Sender: TObject); Button7Click (Sender: TObject); Button8Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm1; mainDataModuleUnit, mainUnit, Unit5, Unit4, Unit11, Unit6;

{$ R * .dfm} TForm1.Button6Click (Sender: TObject) ;. Hide; .Show ;; TForm1.Button3Click (Sender: TObject) ;. Query1.SQL.Clear; .Query1. SQL.Add ( SELECT (SELECT SUM (Prixod) FROM Vkladu WHERE N_cheta= + form1.ComboBox1.Text + ) - (SELECT SUM (Rasxod) FROM Vkladu WHERE N_cheta= + form1.ComboBox1.Text + ) FROM Vkladu ) ;. Query1.Open; .Caption:=mainDataModule.Query1.Fields [0] .AsString + руб. raquo ;;. Query1.SQL.Clear; .Query1.SQL.Add ( SELECT * FROM Vkladu ) ;. Query1.SQL.Add ( WHERE N_cheta= + form1.ComboBox1.Text + ) ;. Query1.Open; .DBGrid1.DataSource:=mainDataModule.DataSource5;.Edit1.Text:=mainDataModule.Query1.Fields[1].AsString;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.Button4Click(Sender: TObject) ;. Show ;; TForm1.Button2Click (Sender: TObject) ;. Query2.Active:=False;.Query2.SQL.Clear;.Query2.SQL.Add(laquo;SELECT * FROM Klientu ) ;. Query2. SQL.Add ( WHERE N_cheta= + ComboBox1.Text + ) ;. Query2.Open; .DBGrid1.DataSource:=mainDataModule.DataSource6 ;; TForm1.FormShow ( Sender: TObject) ;. Items.Clear; not mainDataModule.Query2.Eof do.Items.Add(mainDataModule.Query2.Fields.FieldByName(laquo;N_chetaraquo;).AsString);.Query2.Next;;;TForm1.Button1Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button5Click(Sender: TObject) ;. Show ;; TForm1.Button7Click (Sender: TObject); messageDlg ( Видалити запис? Raquo; ,, [mbYes, mbNo], 0)=mrYes then mainDataModule.Table5.Delete ;; TForm1.Button8Click (Sender:TObject); i, j, index: byte ;, sheet: Variant;:=createOleObject ( Excel.Application ) ;. Visible:=True; .WorkBooks.Add (- 4167);.WorkBooks[1].WorkSheets[1].Name:=laquo;счетаraquo;;:=ExcelApp.WorkBooks[1].WorkSheets[laquo;счетаraquo;];:=2;.dbgrid1.DataSource.DataSet.First;i:=1 to form1.dbgrid1.DataSource.DataSet.RecordCount do beginj:=1 to form1.dbgrid1.FieldCount do.cells [index, j]:=form1.dbgrid1.Fields [j - 1] .AsString; (index) ;. dbgrid1.DataSource.DataSet.Next ;;;. Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, DB, DBTables ,, RpDefine, RpCon, RpConDS;= class (TForm): TDBGrid ;: TButton ;: TRadioGroup ;: TCheckBox ;: TCheckBox ;: TEdit ;: TEdit ;: TButton ;: TButton ;: TButton; Button5Click (Sender: TObject); Button1Click (Sender: TObject); Button3Click ( Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm2; mainUnit, mainDataModuleUnit, Unit6, Unit9;

{$ R * .dfm} TForm2.Button5Click (Sender: TObject) ;. Hide; .Show ;; TForm2.Button1Click (Sender: TObject); KeyFields: string ;: variant ;: TLocateOptions; not (CheckBox1.Checked or CheckBox2.Checked) then ( Чи не задані умови пошуку! , mtInformation, [mbOK], 0) ;;; CheckBox1.Checked and CheckBox2.Checked then:= Kod_vklada;% _ stavka ;:=VarArrayOf ([Edit1.Text, Edit2.Text]); CheckBox1.Checked then:= Kod_vklada raquo ;;:=Edit1.Text ;; CheckBox2.Checked then:=% _ stavka raquo ;;:=Edit2. Text ;;;:=[loCaseInsensitive, loPartialKey]; not mainDataModule.Table4.Locate (KeyFields, KeyValues, Options) then; ( Запис не знайдено! , mtInformation, [mbOK], 0) ;;;; TForm2.Button3Click (Sender: TObject) ;. QuickRep1.Preview ;;. Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, ExcelXP, ComObj ,, Ser...