login_unit.pas

药品进销管理程序,内有SQL附加的数据库.....详情看里面的,运行就OK

unit Login_Unit;

interface

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

type
  TfrmLogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    edtLoginName: TEdit;
    edtPassword: TEdit;
    btnLogin: TBitBtn;
    btnExit: TBitBtn;
    Image1: TImage;
    qrySelectPopodom: TADOQuery;
    procedure btnLoginClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses Common_Unit, LeechdomMain_Unit;

{$R *.dfm}

procedure TfrmLogin.btnLoginClick(Sender: TObject);
var
  LoginStr, SelectSQL, SelectMenu: string;
begin
  LoginStr := 'Exec proc_Base @Flag=''Exists_LoginID'',@Flag1=''Login'''
            +',@LoginID=' + Quotedstr(edtLoginName.Text)
            +',@Pass=' + Quotedstr(edtPassword.Text);
  if FindSQL(LoginStr) = False then                   //判断是否存在用户
  begin
    Application.MessageBox('原始密码错误,请重新输入!','提示',16);
    edtPassword.Text := '';
    edtPassword.SetFocus;
    Exit;
  end;
  LoginID := edtLoginName.Text;
  SelectSQL := 'Exec proc_Base @Flag=''SelectPopodom''' + ',@UserID =' + Quotedstr(LoginID);
  OpenDataSQL(qrySelectPopodom,SelectSQL);
  with qrySelectPopodom do           //查找权限
  begin
    while not Eof do
    begin
      if FieldByName('MenuName').AsString = '采购管理' then
        frmLeechdomMain.btnStock.Enabled := True;
      if FieldByName('MenuName').AsString = '入库管理' then
        frmLeechdomMain.btnInDepot.Enabled := True;
      if FieldByName('MenuName').AsString = '出库管理' then
        frmLeechdomMain.btnSaleDepot.Enabled := True;
      if FieldByName('MenuName').AsString = '库存盘点' then
        frmLeechdomMain.btnCheck.Enabled := True;
      if FieldByName('MenuName').AsString = '库存查询' then
        frmLeechdomMain.btnStorageFind.Enabled := True;
      if FieldByName('MenuName').AsString = '药品字典' then
        frmLeechdomMain.mmDrugSet.Enabled := True;
      if FieldByName('MenuName').AsString = '药商字典' then
        frmLeechdomMain.mmVendor.Enabled := True;
      if FieldByName('MenuName').AsString = '用户设定' then
        frmLeechdomMain.mmUserSet.Enabled := True;
      if FieldByName('MenuName').AsString = '权限设定' then
        frmLeechdomMain.mmAuthorize.Enabled := True;
      Next;
    end;
  end;
  Close;
end;

procedure TfrmLogin.btnExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
   if KEY = #13 then
     SelectNext(ACtiveControl, True, True);
end;

end.