u_login.pas

Delphi 应用举例

unit u_login;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWCompLabel, IWCompButton, Classes,
  Controls, IWControl, IWCompEdit, Forms, u_frame3, U_frame_head;

type
  TformMainLogin = class(TIWAppForm)
    IWEditID: TIWEdit;
    IWEditpwd: TIWEdit;
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWLabel2: TIWLabel;
    IWLabel3: TIWLabel;
    IWLblinfo: TIWLabel;
    Frame11: TFrame1;
    IWButton3: TIWButton;
    Frame31: TFrame3;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton3Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController,U_newuser,IWUnit1,SysUtils;

procedure TformMainLogin.IWButton1Click(Sender: TObject);
begin
   IWLblinfo.Visible:=false;
   if userList.checkUser(IWEditId.Text,IWEditPwd.Text) then begin
      userSession.userID:=IWEditId.Text;
      //free;

      TFormMain.Create(webapplication).Show;
   end
   else
      IWLblinfo.Visible:=true;
end;

procedure TformMainLogin.IWButton2Click(Sender: TObject);
begin
   TformMainNewUser.Create(webapplication).Show;
end;

procedure TformMainLogin.IWButton3Click(Sender: TObject);
begin
   Webapplication.Terminate('Bye-bye!');
end;

procedure TformMainLogin.IWAppFormCreate(Sender: TObject);
begin
   Frame31.lbluser.Caption:='当前用户：'+Usersession.userID;
   Frame31.lblCount.Caption:='在线用户数：'+IntToStr(UserOnLine-1);
end;

end.