B
bo60503
Unregistered / Unconfirmed
GUEST, unregistred user!
一个dbchenkbox中的信息无法保存,参数为hzbz,我找了好长时间,找不出问题来,大家帮帮忙吧。<br>存贮过程:<br> CREATE PROCEDURE proc_sjb (@jflx char(1),@gggj char(1),@ggdj char(1),@cjm char(1),<br>@pbbh char(6),@ts smallint,@hzbz char(1),@ydglm char(4),@yddw char(40),@ztrl int) AS<br>update df_sjb set jflx=@jflx,gggj=@gggj,ggdj=@ggdj,cjm=@cjm,ts=@ts,<br>hzbz=@hzbz,ztrl=@ztrl where pbbh=@pbbh and ydglm=@ydglm and yddw=@yddw<br>if @@error!=0 <br>begin<br> rollback transaction<br> return<br>end<br>GO<br>代码:<br>procedure Tf_pbcssz.bcbtnClick(Sender: TObject);<br>var pbbhbl,ydglmbl:string;<br>begin //用于调用服务器的proc_sjb过程,给df_sjb修改参数值<br> with datamodule1 do<br> begin<br> fwq_proc1.Parameters.ParamByName('@pbbh').Value:=trim(pbbhedit.text);<br> pbbhbl:=pbbhedit.Text;<br> ydglmbl:=ydglmedit.Text;<br> fwq_proc1.Parameters.ParamByName('@jflx').Value:=inttostr(jflxcombobox.ItemIndex);<br> fwq_proc1.Parameters.ParamByName('@ts').Value:=strtoint(tsedit.text);<br> fwq_proc1.Parameters.ParamByName('@ydglm').Value:=trim(ydglmedit.Text);<br> fwq_proc1.Parameters.ParamByName('@yddw').Value:=trim(yddwedit.Text);<br> fwq_proc1.Parameters.ParamByName('@ztrl').Value:=strtoint(ztrlEdit.text);<br> if gggjdbcheckbox.state=cbchecked then<br> fwq_proc1.Parameters.ParamByName('@gggj').Value:='1'<br> else<br> fwq_proc1.Parameters.ParamByName('@gggj').Value:='0';<br> if ggdjdbcheckbox.state=cbchecked then<br> fwq_proc1.Parameters.ParamByName('@ggdj').Value:='1'<br> else<br> fwq_proc1.Parameters.ParamByName('@ggdj').Value:='0';<br> if cjmdbcheckbox.state=cbchecked then<br> fwq_proc1.Parameters.ParamByName('@cjm').Value:='1'<br> else<br> fwq_proc1.Parameters.ParamByName('@cjm').Value:='0';<br> if hzbzdbcheckbox.state=cbchecked then<br> fwq_proc1.Parameters.ParamByName('@hzbz').Value:='1'<br> else<br> fwq_proc1.Parameters.ParamByName('@hzbz').Value:='0'; <br> <br> fwq_proc1.ExecProc;<br><br> if fwq_proc1.parameters.ParamByName('@return_value').value=0 then //取存储过程的返回值<br> showmessage('保存成功!');<br> qdf_sjb.Close;<br> qdf_sjb.open;<br> QDF_SJB.Locate('PBBH;ydglm',vararrayof([PBBHBL,ydglmbl]),[]);<br> //qdf_sjb.Next;<br> //qdf_sjb.Prior;<br> end;<br>end;