老
老Q
Unregistered / Unconfirmed
GUEST, unregistred user!
页面上有两个单行文本框和一个下拉列表框,要求根据它们三个的组合
进行查询,如果其中一个不为空,另两个为空,则只根据这一个条件进
行查询;如果两个不为空,一个为空,则根据两个不为空的进行查询;
如果全部为空,则查询全部。代码如下:
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
temp1,temp2,temp3:string;
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from cuoshi.db');
Query1.SQL.Add('Where jh<>''''');
temp1:='"'+Request.QueryFields.Values['jhname']+'"';
temp2:='"'+Request.QueryFields.Values['cslx']+'"';
temp3:='"'+Request.queryFields.values['csdate']+'"';
if temp1<>'' then
Query1.SQL.Add(' and jh= '+temp1);
if temp2<>'' then
Query1.SQL.Add(' and cslx= '+temp2);
if temp3<>'' then
Query1.SQL.Add(' and csdate= '+temp3);
Query1.Prepare;
Query1.Open;
if Query1.RecordCount=0 then begin
DataSetTableProducer1.Footer.Add('<P>对不起,找不到您刚才输入的资料<P>');
DataSetTableProducer1.Footer.Add('请您退回去,再输入条件重新查询<P>')
end;
DataSetTableProducer1.Footer.Add('</HTML>');
Response.Content:=DataSetTableProducer1.Content;
end;
进行查询,如果其中一个不为空,另两个为空,则只根据这一个条件进
行查询;如果两个不为空,一个为空,则根据两个不为空的进行查询;
如果全部为空,则查询全部。代码如下:
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
temp1,temp2,temp3:string;
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from cuoshi.db');
Query1.SQL.Add('Where jh<>''''');
temp1:='"'+Request.QueryFields.Values['jhname']+'"';
temp2:='"'+Request.QueryFields.Values['cslx']+'"';
temp3:='"'+Request.queryFields.values['csdate']+'"';
if temp1<>'' then
Query1.SQL.Add(' and jh= '+temp1);
if temp2<>'' then
Query1.SQL.Add(' and cslx= '+temp2);
if temp3<>'' then
Query1.SQL.Add(' and csdate= '+temp3);
Query1.Prepare;
Query1.Open;
if Query1.RecordCount=0 then begin
DataSetTableProducer1.Footer.Add('<P>对不起,找不到您刚才输入的资料<P>');
DataSetTableProducer1.Footer.Add('请您退回去,再输入条件重新查询<P>')
end;
DataSetTableProducer1.Footer.Add('</HTML>');
Response.Content:=DataSetTableProducer1.Content;
end;