k (Sender: TObject); BitBtn2Click (Sender: TObject); N2Click (Sender: TObject) ;
{Private declarations}
{Public declarations};
: TForm1;
Unit2, Unit3;
{$ R *. dfm}
TForm1.BitBtn1Click (Sender: TObject);. Show;. ADOTable2.Insert;;
TForm1.BitBtn3Click (Sender: TObject);. ADOTable2.Delete;;
TForm1.BitBtn2Click (Sender: TObject);. Show;;
TForm1.N2Click (Sender: TObject);;;
.
Unit2;
, Classes, DB, ADODB;
= class (TDataModule): TADOConnection;: TADOTable;: TADOTable;: TADOTable;: TDataSource;: TDataSource;: TDataSource;
{Private declarations}
{Public declarations};
: TDataModule2;
Unit1;
{$ R *. dfm}
.