home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / unity / d5 / DBGCGI.ZIP / TESTCGI / Unit1.pas < prev   
Pascal/Delphi Source File  |  2001-03-05  |  1KB  |  44 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, HTTPApp, Db, DBTables, DBWeb;
  7.  
  8. type
  9.   TWebModule1 = class(TWebModule)
  10.     DataSetTableProducer1: TDataSetTableProducer;
  11.     Table1: TTable;
  12.     Table1Name: TStringField;
  13.     Table1Capital: TStringField;
  14.     Table1Continent: TStringField;
  15.     Table1Area: TFloatField;
  16.     Table1Population: TFloatField;
  17.     procedure WebModule1WebActionItem1Action(Sender: TObject;
  18.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   WebModule1: TWebModule1;
  27.  
  28. implementation
  29. {$R *.DFM}
  30.  
  31. procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  32.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  33. var c:string;
  34. begin
  35.   c:=Request.QueryFields.Values['Continent'];
  36.   if c<>'' then
  37.     Table1.Filter:='Continent='''+c+'''';
  38.   Table1.open;
  39.   Response.Content:=DataSetTableProducer1.Content;
  40.   Table1.close;
  41. end;
  42.  
  43. end.
  44.