高手: 我现在想实现一个这样的功能了!就是我有一个窗体adoquery1.adoconnect.datasoruce,dbgrid1和2个buttionw为一个增加,和一个保存:
连接数据库一个,我想点击增加输入值.保存是能成功!但是我没有点点击增加,直接点击
保存就报错:我也想直接点击保存的话就想没有什么发生了,请帮我解决了,高手!!
我的简单的代码是
procedure Tw_jsgs.tb_addClick(Sender: TObject);
begin
adoquery1.Append ;
end ;
procedure Tw_jsgs.tb_addClick(Sender: TObject);
begin
adoquery1.post;
end ;
连接数据库一个,我想点击增加输入值.保存是能成功!但是我没有点点击增加,直接点击
保存就报错:我也想直接点击保存的话就想没有什么发生了,请帮我解决了,高手!!
我的简单的代码是
procedure Tw_jsgs.tb_addClick(Sender: TObject);
begin
adoquery1.Append ;
end ;
procedure Tw_jsgs.tb_addClick(Sender: TObject);
begin
adoquery1.post;
end ;
解决方案 »
- 怎么把label1.caption的4个数字两两分配到edit1和edit2
- 关于用idtcpclinet和idtcpserver传输数据包的实例
- 数据类型不匹配! 在线等!!
- 各位大侠帮忙答下~~~~填空
- ■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
- 递归列出FTP根目录所有子目录的所有文件和子目录。。。请大家帮忙支个招....
- 请问delphi中如何实现:在数据列表中点一条记录,这条记录下面会显示跟这条记录相关的记录,这些记录插在该记录的下面
- delphi在引用msword9.olb后的调用问题
- 请高手指点:如何利用delphi调用autocad2000中的图形。
- 如果判断网络连接状态?
- 不知道如何实现的问题。高手指路!
- 敬请给予帮助!
begin
adoquery1.edit;
adoquery1.setfield('你要增加的字段名') ;
adoquery1.post;
end ;
保存
begin
if adoquery1.modified then
adoquery1.post;
end;
adoquery1.setfield('你要增加的字段名') ;
adoquery1.post;
当你append时候,把x=2
当你post之前,判断一下,如果x=2 那么post,否则不post!