DELPHI基础:主从表的添加保存处理实现方法

2009-03-28 19:22:47 作者：网络搜集 来源：网络搜集 文字大小：【大】【中】【小】首先设置AQmain datasource1　　AQDetail Datasource2　　AQDetail.datasource := Datasource1　　AQDetail.locktype := ltBatchOptimistic　　procedure TForm1.FormCreate(Sender: TObject);　　begin ...


首先设置AQmain datasource1
AQDetail Datasource2
　　AQDetail.datasource := Datasource1
　　AQDetail.locktype := ltBatchOptimistic
　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　if not AQMain.active then AQMain.open;
　　if not AQDetail.Active then AQDetail.Open;
　　end;
　　procedure TForm1.Button2Click(Sender: TObject);
　　begin
　　AQMain.Post;
　　end;
　　procedure TForm1.AQMainAfterPost(DataSet: TDataSet);
　　begin
　　AQDetail.UpdateBatch();
　　AQDetail.DataSource := DataSource1 ;
　　end;
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　AQMain.Append ;
　　AQMain.FieldByName(’Adate’).value := datetostr(date());
　　end;
　　procedure TForm1.AQMainAfterInsert(DataSet: TDataSet);
　　begin
　　AQDetail.DataSource := nil;
　　end;
　　procedure TForm1.AQDetailAfterInsert(DataSet: TDataSet);
　　begin
　　AQDetail.FieldByName(’mgrno’).value:=AQMain.FieldByName(’mgrno’).value;
　　end;