userpassword.pas

一个图书批发商的通用软件

unit UserPassword;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, dxCntner, dxEditor, dxEdLib, DB, ADODB;

type
  TfrmUserPassword = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    edtUser: TEdit;
    edtPassword: TdxEdit;
    bbtnCanel: TBitBtn;
    bbtnOk: TBitBtn;
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnCanelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure edtPasswordKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure MainShow(UserPower:string);
  public
    { Public declarations }
  end;

var
  frmUserPassword: TfrmUserPassword;
  
  procedure FrmUserPasswordShow;
implementation

uses unSystPublic, Data, Main;

{$R *.dfm}
procedure FrmUserPasswordShow;
begin
  frmUserPassword :=TfrmUserPassword.Create(application);
  with frmUserPassword do
  try
    ShowModal;
  finally
    Free;
  end;
end;
procedure TfrmUserPassword.bbtnOkClick(Sender: TObject);
begin
  with dmdata.qryUserPass do
  begin
    Close;
    SQL.Text :='Select * from tbUsers';
    Open;
    if Locate('UserId',edtUser.Text,[loCaseInsensitive]) then
      if FieldByName('UserPassword').AsString=edtPassword.Text then
      MainShow(fieldbyname('UserPower').AsString)
      else
      application.MessageBox('口令错误',title,MB_ICONWARNING)
    else
    application.MessageBox('用户名不存在',title,MB_ICONWARNING);
    with dmData.qryTemp do
    begin
      Close;
      sql.Text :='select * from tbunit';
      Open;
      sysname:=fieldbyname('NnitName').AsString;
      sysaddress:=fieldbyname('NnitAddress').AsString;
      systl:=fieldbyname('NnitTel').AsString;
      syspo:=fieldbyname('NnitPo').AsString;
      close;
    end;

  end;
end;

procedure TfrmUserPassword.MainShow(UserPower: string);
begin
  CurrentUserId :=dmData.qryUserPass.fieldbyname('UserId').AsString;
  CurrentUserName :=dmData.qryUserPass.fieldbyname('UserName').AsString;
  frmMain.StatusBar.Panels[0].Text := ' '+CurrentUserName;
  dmData.qryUserPass.Close;
  close;
end;

procedure TfrmUserPassword.bbtnCanelClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmUserPassword.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key :=#0;
    selectnext(activecontrol,true,true);
  end;
end;

procedure TfrmUserPassword.edtPasswordKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  //if key =13 then
  bbtnOk.Default :=true;
end;

procedure TfrmUserPassword.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if CurrentUserId='' then //是否登陆
  Application.Terminate;
end;

end.