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

procedure TForm4.Table1CalcFields(DataSet: TDataSet);

begin

//Table1CostSum.Value:=Summ(Table2CostWork.Value);

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm4.Query1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

//Query1.Filter:='OrderNum='+ Form4.Table1OrderNum.AsString;

end;

procedure TForm4.Table1AfterInsert(DataSet: TDataSet);

begin

Form4.Table1ActDate.Value:=Date;

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

Form9.Show;

end;

end.

unit Unit8;

interface

uses