y1. SQL. Clear;. ADOQuery1. SQL. Text: = ('select Id, FIO from Pozarnie');. DataSource1. DataSet: = form6. ADOQuery1;. ADOQuery1. Active: = true;. DBGrid1. DataSource: = form6. DataSource1;. show;. Hide;; TForm1. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;. Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids; = class (TForm): TDBGrid;: TDBNavigator;: TButton;: TADOConnection;: TADOQuery;: TDataSource; Button2Click (Sender: TObject); FormShow (Sender: TObject );
{Private declarations}
{Public declarations};: TForm2; Unit1;
{$ R *. dfm} TForm2. Button2Click (Sender: TObject);. Hide;. show;. ADOQuery1. Active: = false;; TForm2. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;. Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids; = class (TForm): TDBGrid;: TDBNavigator;: TButton;: TADOConnection;: TADOQuery;: TDataSource; Button2Click (Sender: TObject); FormShow (Sender: TObject );
{Private declarations}
{Public declarations};: TForm3; Unit1;
{$ R *. dfm} TForm3. Button2Click (Sender: TObject);. Hide;. show;. ADOQuery1. Active: = false;; TForm3. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;. Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids; = class (TForm): TDBGrid;: TDBNavigator;: TButton;: TADOConnection;: TADOQuery;: TDataSource; Button2Click (Sender: TObject); FormShow (Sender: TObject );
{Private declarations}
{Public declarations};: TForm4; Unit1;
{$ R *. dfm} TForm4. Button2Click (Sender: TObject);. Hide;. show;. ADOQuery1. Active: = false;; TForm4. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;. Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids; = class (TForm): TDBGrid;: TDBNavigator;: TButton;: TADOConnection;: TADOQuery;: TDataSource; Button2Click (Sender: TObject); FormShow (Sender: TObject );
{Private declarations}
{Public declarations};: TForm5; Unit1;
{$ R *. dfm} TForm5. Button2Click (Sender: TObject);. Hide;. show;. ADOQuery1. Active: = false;; TForm5. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;. Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids...
