cformlogin.pas

人力资源的信息。其他人不需帐号就可自由下载此源码

{-----------------------------------------------------------------------------
 Unit Name: CFormLogin
 Author:    hubdog(陈省)
 Purpose:   登陆界面
 BeginDate  2002-7-8
 History:
-----------------------------------------------------------------------------}


unit CFormLogin;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWCompLabel, Classes, Controls,
  IWControl, IWCompEdit, IWCompButton, SysUtils, Variants;

type
  TformLogin = class(TIWAppForm)
    iweUser: TIWEdit;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    iwePass: TIWEdit;
    iwbConfirm: TIWButton;
    iwbClear: TIWButton;
    procedure iwbConfirmClick(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController, DatamoduleUnit, CWebUtils, CHR;

procedure TformLogin.iwbConfirmClick(Sender: TObject);
begin
  if (trim(iweUser.Text)='') or (trim(iwePass.Text)='') then
  begin
    WebApplication.ShowMessage('必须输入用户名和密码');
    Exit;
  end;
  //
  with dmHR do
  begin
    badoOperator.Active:=True;
    if not badoOperator.Locate('OperName;Password', VarArrayOf([trim(iweUser.Text), trim(iwePass.Text)]), []) then
    begin
      WebApplication.ShowMessage('无效的用户名或口令，请重新输入');
      Exit;
    end;
    Move(Tformmain);
  end;
end;

end.