Реферат: База данных Бюро знакомств

Dialogs, StdCtrls, Buttons, DBCtrls, ExtCtrls, DB, DBTables, Grids,

DBGrids;

type

TForm5 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Panel1: TPanel;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

close;//закрытие формы Form5

end;

end.