frmlogin.~pas

本文件中还有JSP、php和delphi等源程序

unit frmLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, ExtCtrls,DB, Buttons, Grids, DBGrids;

type
  TLoginForm = class(TForm)
    panWelcome: TPanel;
    grbUserInfo: TGroupBox;
    lblName: TLabel;
    lblPassWord: TLabel;
    lblServer: TLabel;
    txtPassWord: TEdit;
    cboServerName: TComboBox;
    cmdLogin: TButton;
    cmdExit: TButton;
    cboUserName: TComboBox;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdLoginClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginForm: TLoginForm;

implementation

uses mdDataBases, Common, frmMain;

{$R *.dfm}

procedure TLoginForm.cmdExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TLoginForm.cmdLoginClick(Sender: TObject);
var
    strPassWord:string;
begin
  dmDataSource.tblOperator.DisableControls;
  dmDataSource.tblOperator.Locate('OPERATOR_NAME',cboUserName.Text,[loPartialKey]);
  strPassWord:=Base64Decode(dmDataSource.tblOperator['OPERATOR_PASSWORD']);
  dmDataSource.tblOperator.EnableControls;

  if UpperCase(Trim(txtPassword.Text))=UpperCase(Trim(strPassWord)) then
  begin
    MainForm.CurrentUserName:=dmDataSource.tblOperator['OPERATOR_NAME'];
    LoginForm.Close;
  end
  else
  begin
    MessageBox(Application.Handle,'密码错误，请您重新输入。','密码错误',16);
    txtPassWord.Text:='';
    txtPassWord.SetFocus;
  end;
end;

procedure TLoginForm.FormCreate(Sender: TObject);
begin
    dmDataSource.tblOperator.Active := True;
    cboUserName.Clear;
    cboUserName.Items.AddStrings(
        GetFieldValue(dmDataSource.tblOperator,'OPERATOR_NAME'));
    cboUserName.Text:=cboUserName.Items[0];
    cboServerName.Clear;
    cboServerName.Items.AddStrings(SplitString(ReadIniFileString('.\Setting.INI',
        '基本设置','服务器'),','));
    cboServerName.Text:=cboServerName.Items[0];
end;

end.