iwunit1.pas

来自「这是一个DELPHI7应用案例开发篇有配套程序种子光盘」· PAS 代码 · 共 69 行

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, Controls, Forms, SysUtils, Classes,
  IWControl, IWCompButton;

type
  TformMain = class(TIWAppForm)
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    procedure IWAppFormRender(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
  public
    LeftPanel : TFrame;
  end;

implementation
{$R *.dfm}

uses
  ServerController, Login, Logined, QueryBook, Carter;

procedure TformMain.IWAppFormRender(Sender: TObject);
begin
    if Assigned(LeftPanel) then
        LeftPanel.Free;

    if UserSession.UserName = '' then
    begin
        LeftPanel := TfrmLogin.Create(Self);
        LeftPanel.Parent := Self;
        LeftPanel.Align := alLeft;
    end
    else
    begin
        LeftPanel := TfrmLogined.Create(Self);
        TfrmLogined(LeftPanel).lbUserName.Caption := UserSession.UserName;
        TfrmLogined(LeftPanel).lbLoginTime.Caption :=
            FormatDateTime('yyyy-mm-dd, hh-mm-ss',UserSession.LoginTime);
        LeftPanel.Parent := Self;
        LeftPanel.Align := alLeft;
    end;
end;

procedure TformMain.IWAppFormCreate(Sender: TObject);
begin
    LeftPanel := nil;
    Title := UserSession.UserName;
end;

procedure TformMain.IWButton1Click(Sender: TObject);
begin
    TIWAppForm(WebApplication.ActiveForm).Release;
    TfrmQueryBook.Create(WebApplication).Show;
end;

procedure TformMain.IWButton2Click(Sender: TObject);
begin
    TIWAppForm(WebApplication.ActiveForm).Release;
    TfrmCarter.Create(WebApplication).Show;
end;

end.