简单问题，在线等！

rjy2061 2004-10-14 10:22:36

一个dbgrid,它的dataSource为adoquery,我想用一个Button对它进行增加操作，出现一个inputbox提示输入，同时让表中的序号自动增加，代码如下：
procedure TfrmEditColor.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
with dmquery do
begin
qryproject.Close;
qryproject.SQL.Text:='select * from project';
qryproject.Open;
qryproject.Last;
qryproject.Append;
s:=inputbox('输入系统名','请输入系统名:','');
qryproject.FieldByName('proname').AsString:=s;
i := qryproject.FieldByName('proid').AsInteger+1 ;
qryproject.FieldByName('proid').AsInteger := i;
end;
end;
可是有错，谁帮忙解决一下！

...全文

79 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

软件钢琴师 2004-10-14

打赏
举报

多放一个lable1控件
qryproject.Last;
i := qryproject.FieldByName('proid').AsInteger+1 ;
//s:=inputbox('输入系统名','请输入系统名:','');
lable1.caption:=inputbox('输入系统名','请输入系统名:','');

qryproject.Append;
qryproject.FieldByName('proname').AsString:=s;
//这一句可以不要，我要提示又不是把她加进记录集
qryproject.FieldByName('proid').AsInteger := i;
qryproject.Post;
还请三个星的大哥/姐看一下这样行不？

兵兵 2004-10-14

打赏
举报

同意aiirii(ari-爱的眼睛)的，注意顺序问题！

rjy2061 2004-10-14

打赏
举报

to aiirii(ari-爱的眼睛)
问题已解决，谢谢了，确实是顺序有问题

luoming 2004-10-14

打赏
举报

么子问题

pengyan33 2004-10-14

打赏
举报

对要增加记录的字段建个序列.

pengxuan 2004-10-14

打赏
举报

先Post再说吧

aiirii 2004-10-14

打赏
举报

qryproject.Last;
i := qryproject.FieldByName('proid').AsInteger+1 ;
s:=inputbox('输入系统名','请输入系统名:','');

qryproject.Append;
qryproject.FieldByName('proname').AsString:=s;
qryproject.FieldByName('proid').AsInteger := i;
qryproject.Post;

Focus1111 2004-10-14

打赏
举报

你没有POST，没有添加进去啊

xiyi0616 2004-10-14

打赏
举报

我觉得顺序应该这样
qryproject.Last;
s:=inputbox('输入系统名','请输入系统名:','');
qryproject.FieldByName('proname').AsString:=s;
i := qryproject.FieldByName('proid').AsInteger+1 ;
qryproject.Append;
qryproject.FieldByName('proid').AsInteger := i;