Лабораторная работа: База данных "Автосервис" в среде Borland Delphi 6.0.

Label1: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure Table1CalcFields(DataSet: TDataSet);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Query1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

procedure Table1AfterInsert(DataSet: TDataSet);

procedure Button3Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit5, Unit6, Unit9;

{$R *.DFM}

procedure TForm4.FormCreate(Sender: TObject);

begin

Table1.Open;

Table2.Open;

//Edit1.Text:=DateToStr(Date);

Label2.Caption:=DateToStr(Date);