loginunit.pas

仓库出单管理系统,采用SQL数据库,功能并不强大,但在操作的方便性上花了一点功夫,对新手有一定的学习作用

unit LoginUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ImgList, PngImageList, RzButton, Mask,
  RzEdit, RzPanel, DBCtrls, RzDBCmbo, wwdblook, DB, ADODB;

type
  TFrmLogin = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
    RzGroupBox1: TRzGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    PwdEdit: TRzEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    PngImageList2: TPngImageList;
    UserName: TwwDBLookupCombo;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;

implementation

Uses MainUnit, DMUnit;
{$R *.dfm}

procedure TFrmLogin.RzBitBtn1Click(Sender: TObject);
begin
  DM.ADOQueryUserName.SQL.Clear;
  DM.ADOQueryUserName.SQL.Add('Select * From UserName Where UserName='+''''+UserName.Text+''''+' And PassWord='+''''+PwdEdit.Text+'''');
  DM.ADOQueryUserName.Active:=True;
  IF DM.ADOQueryUserName.RecordCount>0 then
  Begin
    FrmMain.RzStatusPane2.Caption:='操作员：'+UserName.Text;
    FrmMain.LoginUser:=UserName.Text;
   // FrmMain.UserRight:=DM.ADOQueryUserName.FieldByName('UserRight').AsString;
    FrmMain.N26.Enabled:=DM.ADOQueryUserName.FieldByName('D11').AsBoolean;
    FrmMain.N15.Enabled:=DM.ADOQueryUserName.FieldByName('D21').AsBoolean;
    FrmMain.N14.Enabled:=DM.ADOQueryUserName.FieldByName('D22').AsBoolean;
    FrmMain.N17.Enabled:=DM.ADOQueryUserName.FieldByName('D24').AsBoolean;
    FrmMain.N3.Enabled:=DM.ADOQueryUserName.FieldByName('D31').AsBoolean;
    FrmMain.N4.Enabled:=DM.ADOQueryUserName.FieldByName('D32').AsBoolean;

    FrmMain.ToolButton8.Enabled:=DM.ADOQueryUserName.FieldByName('D11').AsBoolean;
    FrmMain.ToolButton6.Enabled:=DM.ADOQueryUserName.FieldByName('D21').AsBoolean;
    FrmMain.ToolButton9.Enabled:=DM.ADOQueryUserName.FieldByName('D22').AsBoolean;
    FrmMain.ToolButton10.Enabled:=DM.ADOQueryUserName.FieldByName('D24').AsBoolean;
    FrmMain.ToolButton11.Enabled:=DM.ADOQueryUserName.FieldByName('D31').AsBoolean;
    FrmMain.ToolButton12.Enabled:=DM.ADOQueryUserName.FieldByName('D32').AsBoolean;
    Close;
  End
  Else
  Begin
    Application.MessageBox('用户名或密码输入错误，请重新输入！','确认：',MB_IconInformation);
  END;
end;

procedure TFrmLogin.RzBitBtn2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TFrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    if FrmMain.RzStatusPane2.Caption='' then
    Application.Terminate;
end;

end.