【控件功能】我来做练习-第23课-表格联动，汇总，打印

表格联动，汇总，打印

提示：数据库的连接部分都要active，全部汇集到一起，快速开发

核心源码

`
procedure TForm1.ADOTable2AfterPost(DataSet: TDataSet);
begin
ADOQuery1.Close;
ADOQuery1.Open;
ADOQuery2.Close;
ADOQuery2.Open;
end;

procedure TForm1.ADOTable2CalcFields(DataSet: TDataSet);
begin
ADOTable2.FieldByName(‘smalltotal’).AsFloat :=
ADOTable2.FieldByName(‘quantity’).AsFloat * ADOTable2.FieldByName
(‘unitprice’).AsFloat;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if ADOTable1.RecordCount > 0 then
Form3.ShowModal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if ADOTable1.RecordCount > 0 then
if MessageDlg(‘Are you sure you want to delete this Invoice:’ + sLineBreak +
ADOTable1.Fields[1].AsString + ‘?’, mtCustom, [mbOK, mbCancel], 0,
mbCancel) = mrOK then
ADOTable1.Delete;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if ADOTable1.RecordCount > 0 then
Form4.ShowModal
else
ShowMessage(‘Prvo kreirati fakturu i potom unositi stavke.’);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if ADOTable2.RecordCount > 0 then
Form5.ShowModal;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if ADOTable2.RecordCount > 0 then