📄 ufangwuquery.pas

📁 Delphi实战演练一书的配套光盘
💻 PAS
字号:
unit UFangWuQuery;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp, Db, DBTables, DBWeb;

type
  TFangWuWebModule = class(TWebModule)
    FangWuRoot: TPageProducer;
    FangWuQuery: TQuery;
    FangWuDetailQuery: TQuery;
    ChaXuncsT: TTable;
    procedure FangWuWebModuleRootAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    procedure FangWuWebModuleInfoQueryAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    procedure FangWuWebModuledetailqueryAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

var
  FangWuWebModule: TFangWuWebModule;

implementation

{$R *.DFM}

procedure TFangWuWebModule.FangWuWebModuleRootAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
 response.content:=FangWuRoot.content;
end;

procedure TFangWuWebModule.FangWuWebModuleInfoQueryAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  var
  i:integer;
  CaptionStr,colstr1,colstr2,colstr3:string;
  begin
    i:=0;
    //为了减少程序的壅余、对与房屋有关的所有查询都采用同一个查询组件
    //，实现动态查询和动态生成响应客户请求的HTML表格
    if Request.query='fwz' THEN  i:=0;
    if Request.query='XZL' THEN  i:=1;
    FangWuQuery.close;
    FangWuQuery.sql.clear;
    ChaXuncsT.open;
    //打开记载访问次数的表
    ChaXuncsT.edit;
    //设置访问次数的表为编辑状态
    case i of
      0:begin
        //修改房屋租赁的访问次数(客户每访问一次,访问次数加1)
        ChaXuncsT.fields[10].value:=ChaXuncsT.fields[10].value+1;
//        Footstr:='您是第'+IntToStr(ChaXuncsT.fields[10].value)+'个来访者.';
        CaptionStr:='　　　　　　房屋租赁';
        FangWuQuery.sql.add('select * from Fwzl where 编号 like '''+'fwz%''');
        colstr1:='楼盘名称';
        colstr2:='区域';
        colstr3:='地址';
        end;
      1:begin
        ChaXuncsT.fields[11].value:=ChaXuncsT.fields[11].value+1;
//        Footstr:='您是第'+IntToStr(ChaXuncsT.fields[11].value)+'个来访者.';
        CaptionStr:='　　　　　　写字楼租赁';
        colstr1:='名称';
        colstr2:='区域';
        colstr3:='地址';
        FangWuQuery.sql.add('select * from Xzlz where 编号 like '''+'XZL%''');
        end;
      end;
    ChaXuncsT.post;
    ChaXuncsT.close;
    FangWuQuery.open;
    //形成HTML表的标题和表头信息，在该表中有四列信息，前三列为基本信息，第四列用于
    //形成完成显示详细信息而必须的超级链接和条件，此处的条件是完成查询当前记录的
    //信息后部分
    Response.content:='<HTML><HEAD><TITLE>房屋信息</TITLE></HEAD><BODY>'#13+
      '<H1>'+CaptionStr+'</H1>'#13+'<table border>'#13;
    Response.content:=Response.content+'<TR BgColor="White"><TH>'+colstr1+
      '</TH><TH>'+colstr2+'</TH><TH>'+colstr3+'</TH><TH>其它</TH></TR>';
    while not FangWuQuery.EOF do
    //当表的记录指针不在末尾时，获取当前表的所有前三个字段
    begin
      Response.content:=Response.content+Format(
      '<tr><td>%s</td><td>%s</td><td>%s</td><td><a HREF="%S/rundetail?%s">%s</a></td></tr>'#13,
      [FangWuQuery.fields[1].AsString,FangWuQuery.fields[2].AsString,FangWuQuery.fields[3].AsString,Request.ScriptName,FangWuQuery.fields[0].AsString,'更多信息见...']);
      FangWuQuery.Next;
      //获取下一个记录
    end;
    Response.content:=Response.content+'</table></BODY></HTML>'#13;
//    Response.content:=Response.content+'<TFOOT><TR>'+Footstr+'</TR></table></BODY></HTML>'#13;
    //最终完成响应客户请求的HTML表格
  end;

procedure TFangWuWebModule.FangWuWebModuledetailqueryAction(
  Sender: TObject; Request: TWebRequest; Response: TWebResponse;
  var Handled: Boolean);
  var
    i:integer;
    CaptionStr:string;
  begin
    i:=0;
    //IF语句根据客户请求参数判别下一步应执行的查询。
    if pos('fwz',Request.query)>0 THEN  i:=0;
    if pos('XZL',Request.query)>0 THEN  i:=1;
    FangWuDetailQuery.close;
    FangWuDetailQuery.SQL.clear;
    case i of
      0:begin
        CaptionStr:='　　　　　　房屋租赁';
        FangWuDetailQuery.sql.add('select * from Fwzl where 编号='''+Request.Query+'''');
        end;
      1:begin
        CaptionStr:='　　　　　　写字楼租赁';
        FangWuDetailQuery.sql.add('select * from Xzlz where 编号='''+Request.Query+'''');
        end;
    end;
    FangWuDetailQuery.open;
    response.content:=
        '<html><body><head<title>'+CaptionStr+'</title></head>'#13+
        '<table border><center>'#13;
    //信息分成两屏显示,在第一屏中显示三个字段内容,而第二屏是从第四个字段开始显示.
    //表格显示形式为字段名和字段值，每个字段显示一行，
    //用字段的总数（RenCaiDetailQuery.fieldcount）控制循环次数
    for i:=1 to FangWuDetailQuery.fieldcount-3 do
      response.content:=response.content+
        '<tr><td>'+FangWuDetailQuery.fields[i].fieldname+'</td>'#13+'<td>'+
        FangWuDetailQuery.fields[i].asstring+'</td></tr>'#13;
    response.content:=response.content+
         '</center></table><hr>'#13+'</body></html>'#13;
   //最终完成响应客户请求的HTML表格
   End;
end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -