: TObject); FormDestroy (Sender: TObject); N5Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1; Unit2, Unit3, Unit4, Unit5;
{$ R * .dfm} TForm1.N2Click (Sender: TObject) ;. Visible:=True ;; TForm1.N3Click (Sender: TObject) ;. Visible:=True ;; TForm1.FormCanResize (Sender: TObject; var NewWidth ,: Integer; var Resize: Boolean) ;. DBGrid1.Height:=Form1.Height - 249; .DBGrid1.Width:=Form1.Width; .Top:=Form1.Height - 234 ;. Top:=Form1.Height - 234; .Top:=Form1.Height - 234 ;;
TForm1.Timer1Timer (Sender: TObject) ;. Caption:=TimeToStr (Time) ;; TForm1.N4Click (Sender: TObject); i: integer; .Combobox1.Items.Clear; i:= 0 to Form1.DBGrid1.Columns.Count - 1 do.ComboBox1.Items.add (Form1.DBGrid1.Columns [i] .Title.Caption) ;. Show ;; TForm1.FormDestroy (Sender: TObject); ( looool raquo ;) ;; TForm1.N5Click (Sender: TObject) ;. Show ;; TForm1.FormCreate (Sender: TObject);
begin;.
Форма «Таблиця» Unit3;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Unit1, DBCtrls;=class (TForm): TButton ;: TButton ;: TComboBox; Button1Click (Sender: TObject) ; Button2Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3;
{$ R * .dfm} TForm3.Button1Click (Sender: TObject); Form3.ComboBox1.Text= customer then begin.Table1.Active:=False;.Table1.TableName:=laquo;customer.dbraquo;;.Table1.Active:=true;.DataSource1.DataSet:=Form1.Table1;end;Form3.ComboBox1.Text=laquo;employeeraquo; then begin.Table1.Active:=False;.Table1.TableName:=laquo;employee.dbraquo;;.Table1.Active:=true;.DataSource1.DataSet:=Form1.Table1;end;Form3.ComboBox1.Text=laquo;ordersraquo; then begin.Table1.Active:=False;.Table1.TableName:=laquo;orders.dbraquo;;.Table1.Active:=true;.DataSource1.DataSet:=Form1.Table1;end;;TForm3.Button2Click(Sender: TObject) ;. Close ;; TForm3.FormCreate (Sender: TObject);
begin;.
Форма «SQL» Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TButton ;: TButton ;: TMemo; Button1Click (Sender: TObject); Button2Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm2; Unit1;
{$ R * .dfm} TForm2.Button1Click (Sender: TObject);.Query1.Active:=False;.Query1.Sql.Clear;.Query1.Sql:=Form2.Memo1.Lines;.Query1.Active:=True;.DataSource1.DataSet:=Form1.Query1;;TForm2.Button2Click(Sender: TObject) ;. Close ;; TForm2.FormCreate (Sender: TObject);
begin;.
Форма «Пошук» Unit4 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, DB, DBTables;=class (TForm): TLabel ;: TComboBox ;: TEdit;:TButton ;: TButton ;: TMemo ;: TButton ;: TCheckBox ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit; Button2Click (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender:TObject); Edit1KeyPress (Sender: TObject; var Key: Char); ComboBox1KeyUp (Sender: TObject; var Key: Word ;: TShiftState); ComboBox1Select (Sender: TObject); CheckBox1Click (Sender: TObject); Edit7KeyPress (Sender: TObject ; var Key: Char); Edit6KeyPress (Sender: TObject; var Key: Char); Edit5KeyPress (Sender: TObject; var Key: Char); Edit4KeyPress (Sender: TObject; var Key: Char); Edit3KeyPress (Sender: TObject; var Key: Char); Edit2KeyPress (Sender: TObject; var Key: Char); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm4; perem: integer; Unit1;
{$ R * .dfm} TForm4.Button2Click (Sender: TObject) ;. Close ;; TForm4.Button1Click (Sender: TObject); 2; i: integer; Form1.Table1.FieldByName (Form4.ComboBox1.Text) .DataType=ftString then begin.Query1.SQL.Clear; .Memo1.Lines.Clear; .Memo1.Lines.Add ( Select * from + Form1.Table1.TableName +
where raquo;+Form4.ComboBox1.Text+laquo;=raquo;+#39+Form4.Edit1.Text+#39+laquo;;raquo;);.Query1.Active:=False;.Query1.SQL.Add(laquo;Select * From + Form1.Table1.TableName +
where raquo;+Form4.ComboBox1.Text+laquo;=raquo;+#39+Form4.Edit1.Text+#39+laquo;;raquo;);.Query1.Active:=True;.DataSource1.DataSet:=Form1.Query1;goto 2; endForm1.Table1.FieldByName (Form4.ComboBox1.Text) .DataType in [ftSmallint, ftInteger, ftFloat] begin.Query1.SQL.Clear; .Memo1.Lines.Clear; .Memo1.Lines.Add ( Select * from + Form1.Table1.TableName +
where raquo;+Form4.ComboBox1.Text+laquo;=raquo;+#39+Form4.Edit1.Text+#39+laquo;;raquo;);.Query1...
