问一个比较菜的问题，如何在adoquery中实现保存和取消功能？(50分)

W

wolf_zj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #1

当用户输入数据以后，按保存键才保存数据，按取消键可以回到原先的状态？

 

雪

雪中漫步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #2

adoquery1.post;保存
adoquery1.cancel;//取消

 

S

sthsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #3

对啊

 

C

CS_AAA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #4

按保存时不提交按取消时回滚窗体退出时再提交

 

W

wolf_zj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #5

那在DBEdit中如何实现此功能呢，谢谢

 

W

wolf_zj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #6

具体如何实现最好能有点例程 谢谢

 

雪

雪中漫步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #7

不会吧，老大， 这也要举例啊

保存按钮的 onclick事件中：adoquery1.post;
取消按钮的onclick事件中：adoquery1.cancel;
dbedit 怎么设置就不用说了吧

 

S

snrmtd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #8

可以以事务的方式加以处理
DBGRID+DataSource+ADOConnect+ADOQuery组件;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
AdoConnection1.BeginTrans;
try
AdoQuery1.Append;
AdoConnection1.CommitTrans;
except
AdoConnection1.RollbackTrans;
end;
end;

 

S

snrmtd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #9

sorry ,题意没看清,下面的才对
procedure TForm1.PostClick(Sender: TObject);
begin
PostData(1);
end;

procedure TForm1.CancelClick(Sender: TObject);
begin
PostData(2);
end;

procedure TForm1.PostData(I: integer);
begin
if I=1 then AdoQuery1.Post;
if I=2 then AdoQuery1.Cancel;
end;

procedure TForm1.AppendClick(Sender: TObject);
begin
AdoQuery1.Append;
end;