我现在执行这个代码,输入一个数据库有的字段走物流商已经存在,输入一个没有的也走物流商已经存在,
if(querywl.Eof)这个总是返回false,
这是我的代码,请帮忙瞧下
var
S:String;
S1:String;
begin
if (Length(Ewls.Text)=0) then
begin
ShowMessage('物流商名称不能为空!');
exit;
end;
S1:='select count(*) c from WMS_U_LOGISTICS where LOGISTICS_NAME='''+Trim(Ewls.Text)+'''';
querywl.DisableControls;
querywl.Close;
querywl.SQL.Clear;
querywl.SQL.Add(S1);
querywl.Open;
querywl.First;
if(querywl.Eof) then
begin
S:='insert into WMS_U_LOGISTICS(LOGISTICS_NAME) values ('''+ Trim(Ewls.Text)+''')';
querywl.Close;
querywl.SQL.Clear;
querywl.SQL.Add(S);
querywl.ExecSQL;
querywl.EnableControls;
end
else
begin
ShowMessage('物流商已经存在!');
end;end;
if(querywl.Eof)这个总是返回false,
这是我的代码,请帮忙瞧下
var
S:String;
S1:String;
begin
if (Length(Ewls.Text)=0) then
begin
ShowMessage('物流商名称不能为空!');
exit;
end;
S1:='select count(*) c from WMS_U_LOGISTICS where LOGISTICS_NAME='''+Trim(Ewls.Text)+'''';
querywl.DisableControls;
querywl.Close;
querywl.SQL.Clear;
querywl.SQL.Add(S1);
querywl.Open;
querywl.First;
if(querywl.Eof) then
begin
S:='insert into WMS_U_LOGISTICS(LOGISTICS_NAME) values ('''+ Trim(Ewls.Text)+''')';
querywl.Close;
querywl.SQL.Clear;
querywl.SQL.Add(S);
querywl.ExecSQL;
querywl.EnableControls;
end
else
begin
ShowMessage('物流商已经存在!');
end;end;
解决方案 »
- 同一个工程中能创建几个 .INI 文件
- 如何在WINDOWS2000下快速打印发票!
- 创建ACCESS数据库问题,紧急
- 关于分布式开发的小问题!!!!!!!!!!!!!!!
- 如何判断用户是否按下ENTER键
- 关于delphi的前途问题!!!!(来者有分!)
- 为什么在用DBImage,用BlobStream,TBlobField向SqlServer中添加Image时有的Bmp可以,有的却不行
- 数学建模:谁有没有传统型,乐透型彩票的算法,我给300分!!!
- Delphi 中可以操纵 SHEll 吗?
- ----------挑战极限3--《有关资源文件的问题》---挑战极限3
- xml做配置文件,如何保证数据同步?
- 关于下拉列表的一个小问题
没有满足的,也是返回一条记录的:字段内容为0而已
改为
if(querywl.fields[0].asinteger<1) then