这是数据remote data module的一个方法.....运行后.弹出错误... invalid pointer opertaion的错误.....求求我了啊.....
function Tserver3536.compname(const name,
password: WideString): OleVariant;
begin
try
adoquery1.Close ;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from ximintable');
adoquery1.open;
except
showmessage('服数库出错');
end;
result:=false;
while not adoquery1.eof do
begin
if (jiemi(trim(adoquery1.FieldValues['password']))=password) and (trim(adoquery1.FieldValues['name'])=name) then
begin
result:=true;
showmessage('为真');
break;
end;
adoquery1.Next;
showmessage(jiemi(trim(adoquery1.FieldValues['password']))) ;
end;
end ;
function Tserver3536.compname(const name,
password: WideString): OleVariant;
begin
try
adoquery1.Close ;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from ximintable');
adoquery1.open;
except
showmessage('服数库出错');
end;
result:=false;
while not adoquery1.eof do
begin
if (jiemi(trim(adoquery1.FieldValues['password']))=password) and (trim(adoquery1.FieldValues['name'])=name) then
begin
result:=true;
showmessage('为真');
break;
end;
adoquery1.Next;
showmessage(jiemi(trim(adoquery1.FieldValues['password']))) ;
end;
end ;
解决方案 »
- 关于硬盘频繁访问
- 关于连接数据库的问题
- 遇上怪事,为什么为什么为什么
- 如何处理TidFtp控件编程时出错问题
- 急!intraweb使用service application 没有debug screen 你是怎么解决的!!!
- ★学汇编(delphi用的那种)应该看什么书?请推荐几本,谢谢!
- adoquery1怎样判断一个表是否存在
- 有哪位朋友能帮忙破译一下。谢谢了!
- 象我这样的能找到工作吗?
- delphi idhttp控件的问题 急急.............
- DBGRID中显示四个字段只对应数据库中的一个字段 如何实现?(着急ing)!
- 关于delphi组件,简单问题,不过比较急!不知道今天能不能解决,帮忙啊
另外,用Select count(*) from xxx where user = 'xxx' and pass= 'xxx'来判断结果是否为0来做这个比较简单
從代碼看不出問題, 檢查是不是你沒有初始化DataModule, or 有沒有創建 adoquery1??
我太菜了.你有没有中文的资料啊!那个工具我也没找到在那儿下!
我找了你那个工具.可安装过后.设置也设置了一下.好像根据没有.根本没有报错啊!
各位大侠:
对于这总类型的问题你们有没有什么好的调式方法.或调式工具!谢谢