Курсовая работа: Создание базы данных "РЭО-ГАИ"

ADOTable1. Active: =true;

StatusBar1. SimpleText: =n12. Caption;

end;

procedure TForm1. N13Click (Sender: TObject);

begin

ADOTable1. Active: =false;

ADOTable1. TableName: ='Движение';

ADOTable1. Active: =true;

StatusBar1. SimpleText: =n13. Caption;

end;

procedure TForm1. N14Click (Sender: TObject);

begin

ADOTable1. Active: =false;

ADOTable1. TableName: ='Владельцы';

ADOTable1. Active: =true;

StatusBar1. SimpleText: =n14. Caption;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, Mask, Buttons;

type

TZaprosy = class (TForm)

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Label1: TLabel;