脚
脚码
Unregistered / Unconfirmed
GUEST, unregistred user!
开发一个简单的查询程序,控件用了TQUERY,TQUERYTABLEPRODUCTOR,TSISSION。
根据输入,QUERY只能返回一个记录或空。
想产生如下程序段的效果:
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
query1.open;
if query1.(条件) then
response.content:='<h1>no data</h2>'
else
response.content:=querytableproducer1.Content;
query1.close;
end;
但在(条件)处使用了EOF,RECONDCOUNT,RECNO等都不能正确执行,
具体情况是:EOF总为TRUE,RECONDCOUNT在程序第一次运行时总为0,
以后正常。
注:在其他DB应用中,EOF正确。
WEB SERVER为OMNIHTTPD206(PWS也试过)
说了很多,只想把问题讲清楚,恳请各大款慷慨相助!
根据输入,QUERY只能返回一个记录或空。
想产生如下程序段的效果:
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
query1.open;
if query1.(条件) then
response.content:='<h1>no data</h2>'
else
response.content:=querytableproducer1.Content;
query1.close;
end;
但在(条件)处使用了EOF,RECONDCOUNT,RECNO等都不能正确执行,
具体情况是:EOF总为TRUE,RECONDCOUNT在程序第一次运行时总为0,
以后正常。
注:在其他DB应用中,EOF正确。
WEB SERVER为OMNIHTTPD206(PWS也试过)
说了很多,只想把问题讲清楚,恳请各大款慷慨相助!