password.pas

通用的条码打印程序

unit Password;

interface

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

type
  TGetPass = class(TForm)
    EditCode: TEdit;
    EditName: TEdit;
    EditPassword: TEdit;
    BitBtnOk: TBitBtn;
    BitBtnCancel: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Bevel2: TBevel;
    ADOTablePassword: TADOTable;
    procedure EditPasswordChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtnOkClick(Sender: TObject);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure EditCodeChange(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GetPass: TGetPass;

implementation

uses PDataModuleMain, PPublic;
{$R *.DFM}

procedure TGetPass.EditPasswordChange(Sender: TObject);
begin
    BitBtnOk.Enabled := ADOTablePassword.Active and (trim(ADOTablePassword.FindField('AMCode').AsString) = EditCode.Text) and
       (trim(ADOTablePassword.FindField('AMPassword').AsString)=EditPassword.Text);
    if BitBtnOk.Enabled  then
        BitBtnOk.SetFocus;
end;

procedure TGetPass.FormShow(Sender: TObject);
begin
    try
        ADOTablePassword.Connection:=DataModuleMain.ADOConnectionBarCode;
        ADOTablePassword.TableName:='Users';
        ADOTablePassword.Open;
    except
        Application.MessageBox('错误','错误',MB_OKCANCEL);
        Application.Terminate;
    end;
end;

procedure TGetPass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    ADOTablePassword.Close;
end;

procedure TGetPass.BitBtnOkClick(Sender: TObject);
begin
    UserCode:=EditCode.Text;
    UserName:=EditName.Text;
    ADOTablePassword.Close;
end;

procedure TGetPass.BitBtnCancelClick(Sender: TObject);
begin
    ADOTablePassword.Close;
    Close;
end;

procedure TGetPass.FormCreate(Sender: TObject);
begin
    UserCode:='';
end;

procedure TGetPass.EditCodeChange(Sender: TObject);
begin
    ADOTablePassword.Filter := ' AMCode= ''' + EditCode.Text+'''';

    if not ADOTablePassword.Eof  then
        EditName.Text := ADOTablePassword.FindField('AMName').AsString
    else
        EditName.Text := '';
    BitBtnOk.Enabled := ADOTablePassword.Active and (trim(ADOTablePassword.FindField('AMCode').AsString) = EditCode.Text) and
       (trim(ADOTablePassword.FindField('AMPassword').AsString)=EditPassword.Text);
end;

procedure TGetPass.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if Key=#13 then
    begin
        SelectNext(ActiveControl,True,True);
        Key:=#0;
    end;
end;

end.