把数据库“长期客户管理”表中的相关信息显示在图中各个edit之后,再更改信息,
然后点击保存,就可以修改到数据库中的。以下是保存的程序:
在程序中主要出现的问题是:“adoquerycq parameter 'b' not found”,我大概是觉得cqcph赋值上出了问题,
因为在edit1.text中有赋值,而在cqcph:=g中又有赋值的,不知道是不是这个错的,
想请朋友们帮我看看,如果是的话,可以教我改下吗?谢谢了
begin
adoquerycq.Close;
adoquerycq.SQL.Clear;
adoquerycq.SQL.Add('select * from 长期客户管理');
adoquerycq.Close;
adoquerycq.SQL.Clear;
adoquerycq.SQL.Add('update 长期客户管理 set cqkhid=:a,cqbkh:=b,cqkhxm:=c,'
+'cqtel:=d,cqkhzz:=e,cqtype:=f,cqcph:=g,cqckh:=h,cqckqx:=i,cqvalue:=j,'
+'cqrktime:=k,cqcktime:=l where cqcph=:cqcph');
adoquerycq.Parameters.ParamByName('cqcph').Value:=edit1.Text;
adoquerycq.Parameters.ParamByName('a').Value:=editcqkhid.Text;
adoquerycq.Parameters.ParamByName('b').Value:=editcqbkh.Text;
adoquerycq.Parameters.ParamByName('c').Value:=editcqkhxm.Text;
adoquerycq.Parameters.ParamByName('d').Value:=editcqtel.Text;
adoquerycq.Parameters.ParamByName('e').Value:=editcqkhzz.Text;
adoquerycq.Parameters.ParamByName('f').Value:=combobox1.Text;
adoquerycq.Parameters.ParamByName('g').Value:=editcqcph.Text;
adoquerycq.Parameters.ParamByName('h').Value:=editcqckh.Text;
adoquerycq.Parameters.ParamByName('i').Value:=editcqckqx.Text;
adoquerycq.Parameters.ParamByName('j').Value:=editcqvalue.Text;
adoquerycq.Parameters.ParamByName('k').Value:=editcqrktime.Text;
adoquerycq.Parameters.ParamByName('l').Value:=editcqcktime.Text;
adoquerycq.ExecSQL;
showmessage('修改保存成功');
end;