password.pas

电子充值系统:全球通的充值卡通过POS机传到销售点.

unit Password;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseDialog, StdCtrls, ExtCtrls, Db, DBTables, DBCtrls, Mask, Buttons,IniFiles;


type
  TfmPassword = class(TfmBaseDialog)
    Label1: TLabel;
    Label2: TLabel;
    EDLOGINID: TEdit;
    EDPASSWORD: TEdit;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure bnOKClick(Sender: TObject);
    procedure bnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; override;
  end;

var
  fmPassword: TfmPassword;

implementation

uses Main, DataModule, PublicFunction, Loading, BaseSearch;

var
  iTimes : Integer;
  bAuthority, bCanExit : Boolean;

{$R *.DFM}

procedure TfmPassword.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  inherited;
  if (bAuthority) or (bCanExit) then
    CanClose := True
  else
    CanClose := False;
end;

procedure TfmPassword.PrepareDlg;
var
  MyIniFile: TIniFile;
  usUserID,usCompanyID,usPassWord:String;
begin
  {MyIniFile := TIniFile.Create('ePaperApp.ini');
  usUserID:= MyIniFile.ReadString('Login', 'UserID', '');
  usPassWord:= MyIniFile.ReadString('Login', 'PassWord', '');
  MyIniFile.Free;

  bAuthority := False;
  bCanExit := False;

  EDLOGINID.Text :=usUserID;
  EDPASSWORD.Text :=usPassWord;
    }
  iTimes := 0;
end;

procedure TfmPassword.bnOKClick(Sender: TObject);
var
  MyIniFile: TIniFile;
begin
  inherited;
  Inc(iTimes);
  bAuthority := True;
  bCanExit := False;
  with qyTemp do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ADMCODE,ADMNAME,PURVIEW,PASSWORD ');
    SQL.Add('FROM Pwpt_Administrators ');
    SQL.Add('WHERE LOGINID = :LOGINID  and BUSED = ''1'' ');
    ParamByName('LOGINID').AsString := EDLOGINID.Text;
    Open;
  end;

  if qyTemp.RecordCount = 0 then
    bAuthority := False
  else
  begin
     if qyTemp.FieldByName('PASSWORD').AsString <> EDPASSWORD.Text then
       bAuthority := False;
  end;

  if bAuthority then
  begin
    fmMain.Caption := '密码纸卷管理系统' ;
    {
    MyIniFile := TIniFile.Create('YxlApp.ini');
    MyIniFile.WriteString('Login', 'UserID', sUserID);
    MyIniFile.WriteString('Login', 'CompanyID', sCompanyID);
    MyIniFile.Free;
    } 
    sAdmCode := qyTemp.FieldByName('ADMCODE').AsString;
    sLoginID := EDLOGINID.Text;
    sAdmName := qyTemp.FieldByName('ADMNAME').AsString;
    sPurview := qyTemp.FieldByName('PURVIEW').AsString;
  end
  else
  begin
    if iTimes = 3 then
    begin
      MyError('您进行系统身份确认程序错误已经超过3次，本系统将停止执行！');
      Application.Terminate;
    end;
    MyError('用户代号或通行密码错误，请重新输入！' );
    EDLOGINID.SetFocus;
    Abort;
  end;
end;

procedure TfmPassword.bnCancelClick(Sender: TObject);
begin
  inherited;
  bAuthority := False;
  bCanExit := True;
  if bFirstRun then
    Application.Terminate;
end;

end.