主从表的添加保存处理实现方法

发布日期：2018/8/1

首先设置AQmain datasource

AQDetail Datasource

AQDetaildatasource := Datasource

AQDetaillocktype := ltBatchOptimistic

procedure TFormFormCreate(Sender: TObject);

begin

if not AQMainactive then AQMainopen;

if not AQDetailActive then AQDetailOpen;

end;

procedure TFormButtonClick(Sender: TObject);

begin

AQMainPost;

end;

procedure TFormAQMainAfterPost(DataSet: TDataSet);

begin

AQDetailUpdateBatch();

AQDetailDataSource := DataSource ;

end;

procedure TFormButtonClick(Sender: TObject);

begin

AQMainAppend ;

AQMainFieldByName(Adate)value := datetostr(date());

end;

procedure TFormAQMainAfterInsert(DataSet: TDataSet);

begin

AQDetailDataSource := nil;

end;

procedure TFormAQDetailAfterInsert(DataSet: TDataSet);

begin

AQDetailFieldByName(mgrno)value:=AQMainFieldByName(mgrno)value;

end;