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;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    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 FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dlpdfrm: Tdlpdfrm;

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

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

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

procedure Tdlpdfrm.Button1Click(Sender: TObject);
begin
if trim(pass.Text)<>trim(dm.whyhqxads.fieldbyname('密码').Value) then
begin
  showmessage('对不起！输入的密码不正确，请重新输入！');
  dlpdfrm.pass.SetFocus;
  abort;
end
else
begin
  close;
  mainfrm.yhid:=dm.whyhqxads.FieldByName('用户ID').Value;
  mainfrm.yhmc:=dm.whyhqxads.FieldByName('用户名称').Value;
  mainfrm.ckid:=dm.whyhqxads.FieldByName('仓库ID').Value; 
  if not mainfrm.yhid='00' then
    mainfrm.ckmc:=dm.whyhqxads.FieldByName('仓库名称').Value;
  mainfrm.cjqx:=dm.whyhqxads.FieldByName('超级用户').Value;
  if not dm.whyhqxads.FieldByName('超级用户').Value then
  begin
  mainfrm.mnjcdwh.Enabled:=dm.whyhqxads.FieldByName('进仓单维护').Value;
  mainfrm.mnccdwh.Enabled:=dm.whyhqxads.FieldByName('出仓单维护').Value;  
  mainfrm.mndjtzwh.Enabled:=dm.whyhqxads.FieldByName('单价调整维护').Value;  
  mainfrm.mncldqkc.Enabled:=dm.whyhqxads.FieldByName('材料当前库存').Value;  
  mainfrm.mngyjccx.Enabled:=dm.whyhqxads.FieldByName('各月结存查询').Value;  
  mainfrm.mnjcdcx.Enabled:=dm.whyhqxads.FieldByName('进仓单查询').Value;  
  mainfrm.mnccdcx.Enabled:=dm.whyhqxads.FieldByName('出仓单查询').Value;  
  mainfrm.mndjtzcx.Enabled:=dm.whyhqxads.FieldByName('单价调整查询').Value;  
  mainfrm.mnckwh.Enabled:=dm.whyhqxads.FieldByName('仓库维护').Value;  
  mainfrm.mngyswh.Enabled:=dm.whyhqxads.FieldByName('供应商维护').Value;  
  mainfrm.mnjclxwh.Enabled:=dm.whyhqxads.FieldByName('进仓类型维护').Value;  
  mainfrm.mnysrwh.Enabled:=dm.whyhqxads.FieldByName('验收人维护').Value;  
  mainfrm.mnlybmwh.Enabled:=dm.whyhqxads.FieldByName('领用部门维护').Value;  
  mainfrm.mncclxwh.Enabled:=dm.whyhqxads.FieldByName('出仓类型维护').Value;  
  mainfrm.mncllxwh.Enabled:=dm.whyhqxads.FieldByName('材料类型维护').Value;  
  mainfrm.mnclbmwh.Enabled:=dm.whyhqxads.FieldByName('材料编码维护').Value;  
  mainfrm.mnyhsz.Enabled:=dm.whyhqxads.FieldByName('用户设置').Value;     
  mainfrm.mnbbgl.Enabled:=dm.whyhqxads.FieldByName('报表管理').Value;       
  end;
  mainfrm.mndqmmxg.Enabled:=not dm.whyhqxads.FieldByName('超级用户').Value;    
end;
end;

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

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

end.