📄 urencaiquery.pas

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

interface

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

type
  TRenCaiWebModule = class(TWebModule)
    RenCaiRoot: TPageProducer;
    RenCaiQuery: TQuery;
    RenCaiDetailQuery: TQuery;
    ChaXuncsT: TTable;
    procedure RenCaiWebModuleRootAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    procedure RenCaiWebModuleInfoQueryAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    procedure RenCaiWebModuledetailqueryAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

var
  RenCaiWebModule: TRenCaiWebModule;

implementation

{$R *.DFM}

procedure TRenCaiWebModule.RenCaiWebModuleRootAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
 response.content:=RenCaiRoot.content;
end;

procedure TRenCaiWebModule.RenCaiWebModuleInfoQueryAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  var
  i:integer;
  CaptionStr,colstr1,colstr2,colstr3:string;
  begin
    i:=0;
    //为了减少程序的壅余、精炼程序，对与人才有关的所有查询都采用同一个查询组件
    //，实现动态查询和动态生成响应客户请求的HTML表格
    if Request.query='Rcz' THEN  i:=0;
    if Request.query='Qiz' THEN  i:=1;
    if Request.query='JLZ' THEN  i:=2;
    RenCaiQuery.close;
    RenCaiQuery.sql.clear;
    ChaXuncsT.open;
    //打开记载访问次数的表
    ChaXuncsT.edit;
    //设置访问次数的表为编辑状态
    case i of
      0:begin
        //修改汽车的访问次数(客户每访问一次,访问次数加1)
        ChaXuncsT.fields[0].value:=ChaXuncsT.fields[0].value+1;
//        Footstr:='您是第'+IntToStr(ChaXuncsT.fields[0].value)+'个来访者.';
        CaptionStr:='　　　　　人才招聘';
        RenCaiQuery.sql.add('select * from RenCaizp where 编号 like '''+'Rcz%''');
        colstr1:='招聘单位';
        colstr2:='地址';
        colstr3:='职位';
        end;
      1:begin
        ChaXuncsT.fields[1].value:=ChaXuncsT.fields[1].value+1;
//        Footstr:='您是第'+IntToStr(ChaXuncsT.fields[1].value)+'个来访者.';
        CaptionStr:='　　　　　求    职';
        colstr1:='姓名';
        colstr2:='所在地区';
        colstr3:='求职意向';
        RenCaiQuery.sql.add('select * from Qiuzhi where 编号 like '''+'Qiz%''');
        end;
      2:begin
        ChaXuncsT.fields[2].value:=ChaXuncsT.fields[2].value+1;
//        Footstr:='您是第'+IntToStr(ChaXuncsT.fields[2].value)+'个来访者.';
        CaptionStr:='　　　　　人才交流中心';
        colstr1:='名称';
        colstr2:='地址';
        colstr3:='联系人';
        RenCaiQuery.sql.add('select * from Jiaoliuzx where 编号 like '''+'JLZ%''');
        end;
     end;
    ChaXuncsT.post;
    ChaXuncsT.close;
    RenCaiQuery.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 RenCaiQuery.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,
      [RenCaiQuery.fields[1].AsString,RenCaiQuery.fields[2].AsString,RenCaiQuery.fields[3].AsString,Request.ScriptName,RenCaiQuery.fields[0].AsString,'更多信息见...']);
      RenCaiQuery.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 TRenCaiWebModule.RenCaiWebModuledetailqueryAction(Sender: TObject;
  Request:TWebRequest; Response: TWebResponse;var Handled: Boolean);
  var
    i:integer;
    CaptionStr:string;
  begin
    i:=0;
    //IF语句根据客户请求参数判别下一步应执行的查询。
    if pos('Rcz',Request.query)>0 THEN  i:=0;
    if pos('Qiz',Request.query)>0 THEN  i:=1;
    if pos('JLZ',Request.query)>0 THEN  i:=2;
    RenCaiDetailQuery.close;
    RenCaiDetailQuery.SQL.clear;
    case i of
      0:begin
        CaptionStr:='　　　　　人才招聘';
        RenCaiDetailQuery.sql.add('select * from RenCaizp where 编号='''+Request.Query+'''');
        end;
      1:begin
        CaptionStr:='　　　　　求    职';
        RenCaiDetailQuery.sql.add('select * from Qiuzhi where 编号='''+Request.Query+'''');
        end;
      2:begin
        CaptionStr:='　　　人才交流中心';
        RenCaiDetailQuery.sql.add('select * from Jiaoliuzx where 编号='''+Request.Query+'''');
        end;
    end;
    RenCaiDetailQuery.open;
    response.content:=
        '<html><body><head<title>'+CaptionStr+'</title></head>'#13+
        '<table border><center>'#13;
    //信息分成两屏显示,在第一屏中显示三个字段内容,而第二屏是从第四个字段开始显示.
    //表格显示形式为字段名和字段值，每个字段显示一行，
    //用字段的总数（RenCaiDetailQuery.fieldcount）控制循环次数
    for i:=1 to RenCaiDetailQuery.fieldcount-3 do
      response.content:=response.content+
        '<tr><td>'+RenCaiDetailQuery.fields[i].fieldname+'</td>'#13+'<td>'+
        RenCaiDetailQuery.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 + -