unit1.pas

《Delphi案例设计》源代码

unit Unit1;

interface

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

type
  TWebModule1 = class(TWebModule)
    Table1: TTable;
    DataSetTableProducer1: TDataSetTableProducer;
    Session1: TSession;
    Table1StringField: TStringField;
    Table1StringField2: TStringField;
    Table1StringField3: TStringField;
    Table1StringField4: TStringField;
    Table1StringField5: TStringField;
    Table1StringField6: TStringField;
    Table1StringField7: TStringField;
    Table1FloatField: TFloatField;
    Table1StringField8: TStringField;
    Table1CurrencyField: TCurrencyField;
    procedure WebModule1WebActionItem1Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  WebModule1: TWebModule1;

implementation

{$R *.DFM}


procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  with DataSetTableProducer1 do begin
    Dataset.Open;
    Response.Content := Content;
    DataSet.Close
  end;
end;

end.