login.~pa

来自「一个典当行的业务管理系统程序」· ~PA 代码 · 共 129 行

unit Login;

interface

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

type
  TfrmLogin = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    txtWorkerNum: TEdit;
    cmdOk: TBitBtn;
    cmdCancel: TBitBtn;
    Label3: TLabel;
    txtPassword: TEdit;
    procedure cmdOkClick(Sender: TObject);
    procedure txtWorkerNumKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtPasswordKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cmdCancelClick(Sender: TObject);
//    procedure dbPawnSystemLogin(Database: TDatabase; LoginParams: TStrings);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;
  gWorkNo: string;

implementation
uses Pawn, dmPawn, Msg;
{$R *.DFM}

procedure TfrmLogin.cmdOkClick(Sender: TObject);

begin
     //dbPawnSystem.Open ;
     with dmPawnFrm.tblOperCode do
     begin
          //tblOperCode.Active :=true ;
          //tblOperCode.DisableControls ;
          try
             Open;
             setkey;
             FieldByName ('WorkNo').asstring:=trim(txtWorkerNum.text);
             if  GotoKey then
             begin
                  if FieldByName ('Password').asstring=
                                             trim(txtPassword.text) then
                  begin
                       gWorkNo:=trim(txtWorkerNum.text);
                       close;
                       frmLogin.Close;
                       frmMain.showmodal;
                 end
                 else
                     begin
                       txtPassword.text:='';
                       txtPassword.setfocus;
                       messagedlg(Msg.MsgPasswordError ,mtWarning,[mbOK],0);
                       close;
                     end
             end
             else
             begin
                  txtWorkerNum.text:='';
                  txtWorkerNum.setfocus;
                  messagedlg(Msg.MsgWorkNumNoExist,mtWarning,[mbOK],0);
             end;
             //tblOperCode.EnableControls ;
             close;
          finally
             //tblOperCode.EnableControls;
             close;
          end; //end try...finally
     end;//with...
end;

procedure TfrmLogin.txtWorkerNumKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if Key=VK_RETURN   then
        if txtWorkerNum.text='' then
           begin
                MessageDlg(Msg.MsgInputWorkNum, mtWarning , [mbOK],0);
                txtWorkerNum.SetFocus ;
           end
        else
            begin
                 txtPassword.setfocus;
            end;
     if key=VK_ESCAPE then
        txtWorkerNum.Text :='';
end;

procedure TfrmLogin.txtPasswordKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
        cmdOkClick(Sender);
     if key=VK_ESCAPE then
        txtPassword.Text :='';
end;

procedure TfrmLogin.cmdCancelClick(Sender: TObject);
begin
     dmPawnFrm.Database.Close ;
     application.Terminate ;
end;

{procedure TfrmLogin.dbPawnSystemLogin(Database: TDatabase;
  LoginParams: TStrings);
begin
     //LoginParams.values['SERVER NAME']:='PawnDB'; //MYSERVERNAME;
     LoginParams.values['USER NAME']:=MYUSERNAME;
     LoginParams.Values ['PASSWORD']:=MYPASSWORD;
end;}



end.