source: trunk/Modules/ZdechovNET/ProjectsPage.pas

unit ProjectsPage;

interface

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

type

  { TProjectsPage }

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

var
  ProjectsPage: TProjectsPage;


implementation

{$R *.lfm}

uses
  Core, WebSession;

{ TProjectsPage }

procedure TProjectsPage.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
      try
        DbRows := TDbRows.Create;
        Text := '<strong>Projekty:</strong><br />' +
          '<table class="WideTable">' +
          '<tr><th>Čas vytvoření</th><th>Čas dokončení</th><th>Popis</th><th>Veřejné</th></tr>';
        Database.Query(DbRows, 'SELECT * FROM `Plans` ORDER BY `TimeCreate` DESC');
        for I := 0 to DbRows.Count - 1 do begin
          Text := Text + '<tr><td>' + DbRows[I].Items['TimeCreate'] + '</td>' +
            '<td>' + DbRows[I].Items['TimeFinished'] + '</td>' +
            '<td>' + DbRows[I].Items['Description'] + '</td>' +
            '<td>' + DbRows[I].Items['Public'] + '</td></tr>';
        end;
        Text := Text + '</table>';
      finally
        DbRows.Free;
      end;
    end;
    GeneratePage(Self);
  end;
end;

end.