u_login.~pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg , adodb , db;

type
  TfrmLogin = class(TForm)
    Panel1: TPanel;
    BtnOK: TBitBtn;
    BtnClose: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    edtName: TEdit;
    edtPass: TEdit;
    imgLogin: TImage;
    procedure edtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtPassKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BtnCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnOKClick(Sender: TObject);
    procedure GrantControl();
  private
    { Private declarations }
  public
    UserBH : String;
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses u_ShareFun, md5, u_Main, u_DataCtrl, u_ODBCReg;


{$R *.dfm}

procedure TfrmLogin.edtNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=vk_Return) and (edtName.Text<>'') then
   edtPass.SetFocus;
end;

procedure TfrmLogin.edtPassKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_Return then
   BtnOK.SetFocus;
end;

procedure TfrmLogin.BtnCloseClick(Sender: TObject);
begin
Close;
end;

procedure TfrmLogin.FormCreate(Sender: TObject);
begin
IF IsCPUID_Available = FALSE THEN
   BEGIN
     SHOWMESSAGE('对不起，此软件不适用于您的计算机！');
     CLOSE;
     EXIT;
   END;
IF REGISTER_KEY_CHECK('\SOFTWARE\WEB') = False THEN
   BEGIN
     REGISTER_JXC_CREATER('\SOFTWARE\WEB');
   END;

IF REGISTER_KEY_VALUE_STR('\SOFTWARE\WEB','SF_ID') <> REGISTER_NUMBER_JXC(REGISTER_KEY_VALUE_INT('\SOFTWARE\WEB','CPU_ID')) THEN
     IsJXCAvailable:=false
else
     IsJXCAvailable:=true;
     
IF not frmDataCtrl.ADOConn.Connected THEN
   frmODBCReg.ShowModal;
     
end;

procedure TfrmLogin.FormShow(Sender: TObject);
begin
  edtName.Text:='';
  edtPass.Text:='';
  edtName.SetFocus;
end;

procedure TfrmLogin.BtnOKClick(Sender: TObject);
var
  Check   : Tadoquery;
begin
  Check:=Tadoquery.Create(self);
  Check.Connection:=frmdatactrl.ADOConn;
  Check.Close;
  Check.SQL.Clear;
  Check.SQL.Add('select * from tb_users where InUse=1 and userbh='''+edtName.Text+'''');
  Check.SQL.Add(' and userpass='''+Copy(MD5Print(MD5String(edtPass.Text)),1,20)+'''');
  try
    Check.Active:=true;
    if Check.RecordCount>0 then
       begin
         //-------------在这儿控制下拉菜单-----------------
        UserBH := Check.FieldValues['UserBH'];
        GrantControl();
        //-------------------------------------------------
          with   frmDataCtrl.sp_GetSysDate do
          begin
              close;
              try
                 execproc;
                 frmMain.sysdate:=Parameters.ParamByName('@billcode').Value;
              except
              end;
          end;
          //初始化状态条
          JXC_UserBH := Check.fieldbyname('UserBh').asString;
          JXC_UserName :=Check.fieldbyname('UserName').asString;
          frmmain.StatusBar1.Panels[1].Text:='当前用户：'+ JXC_UserName;
          frmLogin.ModalResult:=mrok;
          if Not IsJXCAvailable then
             begin
               frmmain.Caption := frmMain.Caption + ' ---- 试用版 ';
               frmmain.miReg.Visible:=true;
             end
          else
             frmmain.miReg.Visible:=false;
         // GrantControl;
       end
    else
       begin
         showmessage('用户编码与密码不一致，请程序输入!!');
         edtName.SetFocus;
       end;

  except
    showmessage('数据库操作失败!!');
  end;
end;


procedure TfrmLogin.GrantControl();
var
  TempQRY : TADOQuery;
begin
  TempQRY := TADOQuery.Create(self);
  TempQRY.Connection := frmDataCtrl.ADOConn;
  TempQRY.Close;
  TempQRY.SQL.Clear;
  TempQRY.SQL.Add('select * from tb_UserGrant where UserBH='+QuotedStr(UserBH));
  TempQRY.Open;
  if TempQRY.FieldValues['btSysInit']   = '1' then
    frmMain.miSysInit.Visible   := True
  else
    frmMain.miSysInit.Visible   := False;
  if TempQRY.FieldValues['btCusInfo']      = '1' then
    frmMain.miCustomer.Visible     := True
  else
    frmMain.miCustomer.Visible     := False;
  if TempQRY.FieldValues['btSupInfo']      = '1' then
    frmMain.miSupply.Visible       := True
  else
    frmMain.miSupply.Visible       := False;
  if TempQRY.FieldValues['btGoodsClass']   = '1' then
    frmMain.miGoodsClass.Visible   := True
  else
    frmMain.miGoodsClass.Visible   := False;
  if TempQRY.FieldValues['btGoodsInfo']    = '1' then
    frmMain.miGoodsInfo.Visible    := True
  else
    frmMain.miGoodsInfo.Visible    := False;
  if TempQRY.FieldValues['btInOutClass']   = '1' then
    frmMain.miInOutClass.Visible   := True
  else
    frmMain.miInOutClass.Visible   := False;
  if TempQRY.FieldValues['btCusAlert']     = '1' then
    frmMain.miCusAlert.Visible     := True
  else
    frmMain.miCusAlert.Visible     := False;
  if TempQRY.FieldValues['btSupAlert']     = '1' then
    frmMain.miSupAlert.Visible     := True
  else
    frmMain.miSupAlert.Visible     := False;
  if TempQRY.FieldValues['btGoodsIn']      = '1' then
    frmMain.miIn.Visible           := True
  else
    frmMain.miIn.Visible           := False;
  if TempQRY.FieldValues['btGoodsOut']     = '1' then
    frmMain.miOut.Visible          := True
  else
    frmMain.miOut.Visible          := False;
  if TempQRY.FieldValues['btPayMent']      = '1' then
    frmMain.miPayMent.Visible      := True
  else
    frmMain.miPayMent.Visible      := False;
  if TempQRY.FieldValues['btReceive']      = '1' then
    frmMain.miReceive.Visible      := True
  else
    frmMain.miReceive.Visible      := False;
  if TempQRY.FieldValues['btOutCharge']    = '1' then
    frmMain.miOther.Visible        := True
  else
    frmMain.miOther.Visible        := False;
  if TempQRY.FieldValues['btGoodsQRY']     = '1' then
    frmMain.miGoodsStockSearch.Visible := True
  else
    frmMain.miGoodsStockSearch.Visible := False;
  if TempQRY.FieldValues['btGoodsInStat']  = '1' then
    frmMain.miGoodsInStat.Visible  := True
  else
    frmMain.miGoodsInStat.Visible  := False;
  if TempQRY.FieldValues['btGoodsOutStat'] = '1' then
    frmMain.miGoodsOutStat.Visible := True
  else
    frmMain.miGoodsOutStat.Visible := False;
  if TempQRY.FieldValues['btCusMonStat']   = '1' then
    frmMain.miCusMonStat.Visible   := True
  else
    frmMain.miCusMonStat.Visible   := False;
  if TempQRY.FieldValues['btSupMonStat']   = '1' then
    frmMain.miSupMonStat.Visible   := True
  else
    frmMain.miSupMonStat.Visible   := False;
  if TempQRY.FieldValues['btCusAccount']   = '1' then
    frmMain.miCusAccount.Visible   := True
  else
    frmMain.miCusAccount.Visible   := False;
  if TempQRY.FieldValues['btCashAccount']   = '1' then
    frmMain.miCashAccount.Visible   := True
  else
    frmMain.miCashAccount.Visible   := False;
  if TempQRY.FieldValues['btSupAccount']   = '1' then
    frmMain.miSupAccount.Visible   := True
  else
    frmMain.miSupAccount.Visible   := False;
  if TempQRY.FieldValues['btStockAccount'] = '1' then
    frmMain.miStockAccount.Visible := True
  else
    frmMain.miStockAccount.Visible := False;
  if TempQRY.FieldValues['btOtherStat']    = '1' then
    frmMain.miOtherStat.Visible    := True
  else
    frmMain.miOtherStat.Visible    := False;
  if TempQRY.FieldValues['btUserGrant']    = '1' then
    frmMain.miUsers.Visible        := True
  else
    frmMain.miUsers.Visible        := False;
  //河南师范大学 禁止用的功能
  frmMain.miInOutClass.Visible := False ;
  frmMain.miCusAlert.Visible   := False ;
  frmMain.miSupAlert.Visible   := False ;
  frmMain.miPayMent.Visible    := False ;
  frmMain.miReceive.Visible    := False ;
  frmMain.miOther.Visible      := False ;
  frmMain.miCusMonStat.Visible := False ;
  frmMain.miSupMonStat.Visible := False ;
  frmMain.miOtherStat.Visible  := False ;
  frmMain.miCashAccount.Visible:= False ;
  //禁止结束

end;

end.