TObject); Button8Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1 ;: string; Unit2, Unit3;
{$ R * .dfm} TForm1.Button1Click (Sender: TObject);.show;.button1.Visible:=true;.button2.Visible:=true;.button3.Visible:=False;.ADOQuery1.insert;;TForm1.Button3Click(Sender: TObject) ;. Delete ;; TForm1.Button2Click (Sender: TObject);.show;.button1.Visible:=true;.button2.Visible:=true;.button3.Visible:=False;.TForm1.Button4Click(Sender: TObject) ;. Active:=False; .SQL.Clear; .SQL.Add ( SELECT * ) ;. SQL.Add ( FROM таблица1 ) ;. SQL.Add ( WHERE Прізвище LIKE + # 39 + dbEditeh4.Text + % + # 39 + AND ) ;. SQL.Add ( Професія LIKE + # 39 + dbEditeh5.Text + % + # 39 + AND ) ;. SQL.Add ( Табномер LIKE + # 39 + dbEditeh6.Text + % + # 39) ;. Active:=True ;; TForm1.Button5Click (Sender: TObject ) ;. show ;; TForm1.Button6Click (Sender: TObject);.text:=laquo;raquo;;.text:=laquo;raquo;;.text:=laquo;raquo;;Click(Sender);.Columns[0].Visible :=False; .Columns [1] .Visible:=true; .Columns [2] .Visible:=true; .Columns [3] .Visible:=true; .Columns [4] .Visible:=true; .Columns [5] .Visible:=true; .Columns [6] .Visible:=true; .Columns [7] .Visible:=true; .Columns [8] .Visible:=true ;; TForm1.Button7Click (Sender: TObject ); OpenDialog1.Execute then.Close; .Active:=False; OpenDialog1.Execute then.ConnectionString:= Data Source= + OpenDialog1.FileName; .Open; .ConnectionString:= Provider=Microsoft.Jet. OLEDB.4.0; Data Source= + OpenDialog1.FileName; .Active:=true; ( Помилка підключення! ) ;;. Connected:=true; .columns [0] .Visible:=false ;;. TForm1.FormCreate (Sender: TObject);.DBGrideh1.Columns[1].Width:=65;.DBGrideh1.Columns[2].Width:=65;.DBGrideh1.Columns[3].Width:=65;.DBGrideh1.Columns[4].Width:=65;.DBGrideh1.Columns[5].Width:=65;.DBGrideh1.Columns[6].Width:=40;.DBGrideh1.Columns[7].Width:=50;.DBGrideh1.Columns[8].Width:=65;;TForm1.Button8Click(Sender: TObject) ;. show; .button1.Visible:=False; .button2.Visible:=False; .button3.Visible:=True ;;.
unit Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Mask, DBCtrls, ComObj;=class (TForm): TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TButton ;: TButton ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TLabel ;: TButton; Button1Click (Sender:TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm2; Unit1, Unit4;
{$ R * .dfm} TForm2.Button1Click (Sender: TObject) ;. ADOQuery1.Post ;;; TForm2.Button2Click (Sender: TObject) ;. hide; .TForm2.Button3Click (Sender: TObject) ;. show ;;.
unit Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, PrnDbgeh;=class (TForm): TCheckBox ;: TCheckBox ;: TCheckBox ;: TCheckBox ;: TCheckBox ;: TCheckBox ;: TCheckBox ;: TCheckBox ;: TButton ;: TPrintDBGridEh; btn1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3; Unit1;
{$ R * .dfm} TForm3.btn1Click (Sender: TObject);.DBGrideh1.Columns[0].Visible:=False;.DBGrideh1.Columns[1].Visible:=False;.DBGrideh1.Columns[2].Visible:=False;.DBGrideh1.Columns[3].Visible:=False;.DBGrideh1.Columns[4].Visible:=False;.DBGrideh1.Columns[5].Visible:=False;.DBGrideh1.Columns[6].Visible:=False;.DBGrideh1.Columns[7].Visible:=False;.DBGrideh1.Columns[8].Visible:=False;Chk1.Checked=True then begin.dbgrideh1.Columns [1] .Visible:=True ;; Chk2.Checked=True then begin.dbgrideh1.Columns [2] .Visible:=True ;; Chk3.Checked=True then begin.dbgrideh1.Columns [3 ] .Visible:=True ;; Chk4.Checked=True then begin.dbgrideh1.Columns [4] .Visible:=True ;; Chk5.Checked=True then begin.dbgrideh1.Columns [5] .Visible:=True ;; Chk6.Checked=True then begin.dbgrideh1.Columns [6] .Visible:=True ;; Chk7.Checked=True then begin.dbgrideh1.Columns [7] .Visible:=True ;; Chk8.Checked=True then begin.dbgrideh1.Columns[8].Visible:=True;;.SetSubstitutes([laquo;%[Today]raquo;,DateToStr(Now)]);.Preview;;.Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ComObj;=class (TForm): TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TButton ;: TLabel ;: TEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TLabel ;: TLabel ;: TLabel ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit;:TEdit ;: TEdit ;: TButton; FormCreate (Sender: TObject); btn1Click (Sender: TObject); btn2Click (Sender: TObject);
{Private declarations}
