webapp2module.pas

《delphi数据库设计与实例开发》随书光盘

unit WebApp2Module;

interface

uses
  SysUtils, Classes, HTTPApp, HTTPProd, DSProd, DBTables, DB;

type
  TWebModule2 = class(TWebModule)
    Table1: TTable;
    Session1: TSession;
    DataSetPageProducer1: TDataSetPageProducer;
    procedure WebModule2WebActionItem1Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModule2: TWebModule2;

implementation

uses WebReq;

{$R *.dfm}

procedure TWebModule2.WebModule2WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Table1.Open;
  if Table1.locate('EmpNo',Request.QueryFields.Values['EmpNo'],[]) then
   try Response.Content:=DataSetPageProducer1.Content;
   finally
   Table1.Close;
   end
   else
  Response.Content:='No Record Found';

end;

initialization
  if WebRequestHandler <> nil then
    WebRequestHandler.WebModuleClass := TWebModule2;

end.