cgpass.pas

来自「BarCodePrint条码打印机打印管理」· PAS 代码 · 共 82 行

unit cgpass;

interface

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

type
  TGetPass = class(TForm)
    Bevel1: TBevel;
    Table1: TTable;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Bevel2: TBevel;
    procedure Edit1Enter(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GetPass: TGetPass;

implementation
uses CGBasFrm;
{$R *.DFM}

procedure TGetPass.Edit1Enter(Sender: TObject);
begin
  if Table1.Active and Table1.FindKey([Edit1.TEXT]) then
    Edit2.Text := Table1.Fields[2].AsString
  else
    Edit2.Text := '';
  Edit3Change(Self);
end;

procedure TGetPass.Edit3Change(Sender: TObject);
begin
  BitBtn1.Enabled := Table1.Active and (Table1.Fields[0].AsString = Edit1.Text) and
   (Table1.Fields[3].AsString=Edit3.Text);
end;

procedure TGetPass.BitBtn1Click(Sender: TObject);
begin
  if Table1.Active and (Table1.Fields[0].AsString = Edit1.Text) and
   (Table1.Fields[3].AsString=Edit3.Text) then
    begin
    QX := Table1.FieldByName('CGQX').AsString;
    exit;
    end;
  Abort;
end;

procedure TGetPass.FormShow(Sender: TObject);
begin
  QX := '00000000000000000000';
  try
    Table1.Open;
  except
    end;
end;

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

end.