dlpd.pas

仓库管理信息系统

unit dlpd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, Mask, StdCtrls, DBCtrlsEh, DBLookupEh;

type
  Tdlpdfrm = class(TForm)
    Label3: TLabel;
    pass: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    DBLookupComboboxEh1: TDBLookupComboboxEh;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBLookupComboboxEh1CloseUp(Sender: TObject; Accept: Boolean);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dlpdfrm: Tdlpdfrm;

implementation
uses data,main;
{$R *.dfm}

procedure Tdlpdfrm.FormCreate(Sender: TObject);
begin
  dm.yhdlads.Open;
end;

procedure Tdlpdfrm.Button2Click(Sender: TObject);
begin
close;
application.Terminate;
end;

procedure Tdlpdfrm.Button1Click(Sender: TObject);
begin
if DBLookupComboboxEh1.KeyValue=null then
begin
  DBLookupComboboxEh1.SetFocus;
  abort;
end;
dm.yhdlads.Filtered:=false;
dm.yhdlads.Filter:='用户ID='+''''+
  DBLookupComboboxEh1.KeyValue+'''';
DM.yhdlads.Filtered:=TRUE;
if trim(pass.Text)<>trim(dm.yhdlads.fieldbyname('密码').Value) then
begin
  showmessage('对不起！输入的密码不正确，请重新输入！');
  dlpdfrm.pass.SetFocus;
  abort;
end;
dlpdfrm.Close;
end;

procedure Tdlpdfrm.DBLookupComboboxEh1CloseUp(Sender: TObject;
  Accept: Boolean);
begin
pass.SetFocus;
end;

procedure Tdlpdfrm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
  button1.Click;
if key=vk_escape then
  button2.Click;
end;

end.