//我想对增加一批数据后再进行保存,这个方法怎么不行。
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQUery1.close;
ADOQUery1.SQL.Clear;
ADOQUery1.SQL.Add('select * from gj');
ADOQUery1.Open;
end;procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ADOQUery1.Edit;
ADOQUery1.Last;
ADOQUery1.Append;
end;procedure TForm1.BitBtn3Click(Sender: TObject);
begin
ADOQUery1.edit;
ADOQUery1.Post;
DBGrid1.Refresh;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
ADOQUery1.LockType:=ltBatchOptimistic ;
end;end.
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQUery1.close;
ADOQUery1.SQL.Clear;
ADOQUery1.SQL.Add('select * from gj');
ADOQUery1.Open;
end;procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ADOQUery1.Edit;
ADOQUery1.Last;
ADOQUery1.Append;
end;procedure TForm1.BitBtn3Click(Sender: TObject);
begin
ADOQUery1.edit;
ADOQUery1.Post;
DBGrid1.Refresh;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
ADOQUery1.LockType:=ltBatchOptimistic ;
end;end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货