2,497
社区成员
发帖
与我相关
我的任务
分享delph SQL查询问题，新手请教！谢谢！
问题是这样的，仓库有些条码需要修改为指定的仓库。
在界面添加了两个Edit.一个Button。
Edit1 处由用户输入条码，
Edit2 处由用户输入指定的仓库。
点击Button按钮修改；比如用户需要修改123456的条码是laokuan仓库的；sql 语句是这样的：
update SPTMState set CKDM='laokuan' where SPTM=123456,
请问下Button处的代码要这么写？
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
if sametext(Edit1.Text, '') then
showmessage('条码不能为空')
else
begin
（这里需要怎么写代码呢？）
showmessage('条码设定成功，请再次扫描出库');
end;
end;
end;
end.
在界面添加了两个Edit.一个Button。
Edit1 处由用户输入条码，
Edit2 处由用户输入指定的仓库。
点击Button按钮修改；比如用户需要修改123456的条码是laokuan仓库的；sql 语句是这样的：
update SPTMState set CKDM='laokuan' where SPTM=123456,
请问下Button处的代码要这么写？
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
if sametext(Edit1.Text, '') then
showmessage('条码不能为空')
else
begin
（这里需要怎么写代码呢？）
showmessage('条码设定成功，请再次扫描出库');
end;
end;
end;
end.
...全文
请发表友善的回复…
发表回复
