with I_test do
begin
close;
ParamByName('allow').AsString:=sIP;
prepare;
try
execsql;
except
showmessage('ERROR!');
exit;
end;
end;
with Qry_ip do
begin
close;
ParamByName('allow').AsString:=sIP;
Open;
if recordcount=0 then
begin
showmessage('本机不允许执行这个程序!');
Application.Terminate;
end;
end;
这是我程序中的的一段,本意只是用Qry_ip查询本机ip是不是在表table1的allow这个列中,如果在其中,则允许执行,不在其中则不允许。但无论如何就是查询不出结果,所以无奈之下加了个I_test,用于测试一下数据是否准确。
qry_ip和I_test的语句是这样的
qry_ip:
select *
from table1 a
where a.program='ABC'
and a.allow=:allowI_test:
insert into table1
select 'ABC',null,:allow,null
from dual
执行以后,I_test执行成功,table1里面多了一条正确的纪录,里面的allow也是本机地址,但是Qry_ip这里通不过了,recordcount=0,不知道这是怎么回事,各位大大指点指点?
begin
close;
ParamByName('allow').AsString:=sIP;
prepare;
try
execsql;
except
showmessage('ERROR!');
exit;
end;
end;
with Qry_ip do
begin
close;
ParamByName('allow').AsString:=sIP;
Open;
if recordcount=0 then
begin
showmessage('本机不允许执行这个程序!');
Application.Terminate;
end;
end;
这是我程序中的的一段,本意只是用Qry_ip查询本机ip是不是在表table1的allow这个列中,如果在其中,则允许执行,不在其中则不允许。但无论如何就是查询不出结果,所以无奈之下加了个I_test,用于测试一下数据是否准确。
qry_ip和I_test的语句是这样的
qry_ip:
select *
from table1 a
where a.program='ABC'
and a.allow=:allowI_test:
insert into table1
select 'ABC',null,:allow,null
from dual
执行以后,I_test执行成功,table1里面多了一条正确的纪录,里面的allow也是本机地址,但是Qry_ip这里通不过了,recordcount=0,不知道这是怎么回事,各位大大指点指点?
解决方案 »
- 我数据库里面的值都是一些整数,我想把这些数在取出时,转成带小数点形式的,怎么转呢
- 日文显示问题,急
- 请问一个简单的老问题???
- 有高手吗?高分求解一个常见报表的问题?
- 怎样动态的向imagelist中添加图片(bitmap)?
- 小弟初学DELPHI,请问各位学DELPHI有什么方法?
- 如何使用fastreport打印stringgrid时,强制换页(up有分)?
- 在Delphi5中filelistbox表示item总个数filelistbox的参数是什么?
- 帮助文件
- 请问怎样才能把IE6从Win2000上卸载掉,改装IE5.X?
- 在sql中查找表名可以,在delphi中用query查找却是空数据,为什么?
- 能不能用qreport做出这样的表格
肯定使你处理的有不对的地方
你把 with Qry_ip do
begin
close;
ParamByName('allow').AsString:=sIP;
Open;
if recordcount=0 then
begin
showmessage('本机不允许执行这个程序!');
Application.Terminate;
end;
拿到with Itest外部