source: trunk/Modules/ZdechovNET/HistoryPage.pas

unit HistoryPage;

interface

uses
  Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, SqlDatabase,
  ModuleUser;

type

  { THistoryPage }

  THistoryPage = class(TWebPage)
    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
  end;

var
  HistoryPage: THistoryPage;


implementation

{$R *.lfm}

uses
  Core, Utils, WebSession;

{ THistoryPage }

procedure THistoryPage.DataModuleProduce(HandlerData: THTTPHandlerData);
var
  DbRows: TDbRows;
  I: Integer;
  ModuleUser: TModuleUser;
begin
  with TWebSession(HandlerData) do begin
    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    if Request.Path.Count > 1 then begin
      PageNotFound;
      Exit;
    end;

    ModuleUser.LoadUserInfo;
    with HtmlDocument.Body, SubItems.AddString do begin
      Text := '<table>';
      try
        DbRows := TDbRows.Create;
        Database.Query(DbRows, 'SELECT * FROM History ORDER BY Date DESC');
        for I := 0 to DbRows.Count - 1 do begin
          Text := Text + '<tr><td style="text-align: right; vertical-align: top;">' +
            HumanDate(SQLToDateTime(DbRows[I].Items['Date'])) + '&nbsp;- </td><td>' +
            DbRows[I].Items['Text'] + '</td></tr>';
        end;
      finally
        DbRows.Free;
      end;
      Text := Text + '</table>';
    end;
    GeneratePage(Self);
  end;
end;

end.