【求助】用DBEdit对数据库进行修改，还没有点确定，数据就已修改 - delphi吧

level 2

阿呆🌈✨ 楼主

我的“添加数据”按钮代码是这样的
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOTable1.Edit;
ADOTable1['编号']:=DBEdit1.Text;
ADOTable1['名称']:=DBEdit2.Text;
If messageDlg('确定修改数据？',mtconfirmation,[mbYes,mbNo],0)=mrYes then
ADOTable1.Post
Else
ADOTable1.Cancel;
end;

2017年12月13日 07点12分 1

level 11

dong211112

改下顺序就是了
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOTable1.Edit;
If messageDlg('确定修改数据？',mtconfirmation,[mbYes,mbNo],0)=mrYes then
ADOTable1['编号']:=DBEdit1.Text;
ADOTable1['名称']:=DBEdit2.Text;
ADOTable1.Post
Else
ADOTable1.Cancel;
end;

2017年12月13日 12点12分 2

阿呆🌈✨

我试过，效果一样的，如果不点Yes或者点No，最终数据就不会变，但是改的时候在GBGrid里显示出来的数据是实时更新的

2017年12月13日 15点12分

阿呆🌈✨

我猜想是不是要在那个属性或者控件里改一下，但是我不会改 [泪]

2017年12月13日 15点12分

level 11

dong211112

ADOTable1['编号']:=DBEdit1.Text;
ADOTable1['名称']:=DBEdit2.Text;
这2句改成下面语句看下
ADOTable1.fieldbyname['编号'].astring:=DBEdit1.Text;
ADOTable1.fieldbyname['名称'].astring:=DBEdit2.Text;

2017年12月14日 01点12分 3

阿呆🌈✨

感谢回复，我找到解决方法了，用Edit就行了，不会像DBEdit一样和数据库的数据实时连通，把数据赋值给Edit就能显示数据库内容了

2017年12月14日 16点12分

level 1

华为TD_全球

你会修改数据库，可以的话私聊

2018年01月08日 16点01分 4

吧务

level 14

BambooCaep

可能dbgrid失去焦点的时候自动保存了。先dialog再决定是否要edit

2018年01月09日 00点01分 5