我试过了,现在是这样的问题
try
if not dm.qpro.Active=true then dm.qpro.active:=true;
//******************************************************
if not dm.qpro.Locate('pro_code',edit1.text,[loCaseInsensitive,lopartialkey]) then
// 单步调试,运行到这句时程序没有响应,也没有错误提示,去掉locaseinsensitive正常,这是为何?
//中段程序后,再次运行程序无法运行,然后无法正常退出delphi5.0
//强行关闭,在进入程序,可启动程序,程序运行到这句时出错
//**************************************************************
showmessage('没有查到该数据');
except
showmessage('数据库错误');
end;