µ±Ç°Î»Ö㺱à³ÌÎĵµ >> DELPHI >> Ö÷´Ó±íµÄÌí¼Ó±£´æ´¦ÀíʵÏÖ·½·¨

ËùÊôÀà±ð£ºDELPHI
ÍƼöÖ¸Êý£º¡ï¡ï¡ï¡ï¡î
ÎĵµÈËÆø£º1
±¾ÖÜÈËÆø£º1
·¢²¼ÈÕÆÚ£º2008-9-10

Ê×ÏÈÉèÖÃ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;