login.pas

适合Delphi初学者使用。其中涉及XML文件导入

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, genModal, StdCtrls, DBGridEh, Mask, DBCtrlsEh, DBLookupEh;

type
  TfrmLogin = class(TFormGenModal)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    comShop: TComboBox;
    edtPass: TEdit;
    btnLogin: TButton;
    btnCancel: TButton;
    btnModifyPass: TButton;
    dlUser: TDBLookupComboboxEh;
    procedure FormShow(Sender: TObject);
    procedure btnModifyPassClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnLoginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses gendm, genFunc, ModifyPass, md5;

{$R *.dfm}

procedure TfrmLogin.FormShow(Sender: TObject);
var
  iUserNo:Integer;
begin
  inherited;

  iUserNo := ReadInifileInteger('LoginNo',0,1);
  dlUser.KeyValue := iUserNo;
  comShop.Items.Clear;
  if DM.QueShop.RecordCount > 0 then
  begin
    DM.QueShop.First;
    comShop.Items.Add('全部客户');
    while not DM.QueShop.Eof do
    begin
      comShop.Items.Add(DM.QueShop.FieldByName('Name').AsString);
      DM.QueShop.Next;
    end;
    iUserNo := ReadInifileInteger('ShopNo',0,1);
    if iUserNo <= DM.QueShop.RecordCount then
    begin
      comShop.ItemIndex := iUserNo;
    end;
  end;
  edtPass.SetFocus;
end;

procedure TfrmLogin.btnModifyPassClick(Sender: TObject);
begin
  inherited;
  TfrmModifyPass.ShowForm;
end;

procedure TfrmLogin.btnCancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmLogin.btnLoginClick(Sender: TObject);
begin
  inherited;
  DM.QueUser.Locate('ID', dlUser.KeyValue, []);
  m_sName := DM.QueUser.FieldByName('PWD').AsString;
  if GetMD5String(Trim(edtPass.Text)) = m_sName then
  begin
    gUserInfo.iLoginID := DM.QueUser.FieldByName('ID').AsInteger;
    gUserInfo.sLoginName := DM.QueUser.FieldByName('Name').AsString;
    gUserInfo.iLoginRole := DM.QueUser.FieldByName('Right').AsInteger;
    gUserInfo.sCustomer := comShop.Text;
    ReadInifileInteger('LoginNo',gUserInfo.iLoginID,2);
    ReadInifileInteger('ShopNo',comShop.ItemIndex,2);
    m_bOKClick := True;
    Close;
  end;
end;

end.