📄 u_usergrant.~pas

📁 河南师范大学餐饮进销存软件,只要控制库存的数据。
💻 ~PAS
字号:
unit u_UserGrant;

interface

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

type
  TfrmUserGrant = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Panel1: TPanel;
    btCusInfo: TCheckBox;
    btGoodsClass: TCheckBox;
    btInOutClass: TCheckBox;
    btSupAlert: TCheckBox;
    btSupInfo: TCheckBox;
    btGoodsInfo: TCheckBox;
    btCusAlert: TCheckBox;
    Panel2: TPanel;
    btGoodsIn: TCheckBox;
    btGoodsOut: TCheckBox;
    btPayMent: TCheckBox;
    btReceive: TCheckBox;
    btOutCharge: TCheckBox;
    Panel3: TPanel;
    btGoodsQry: TCheckBox;
    btGoodsInStat: TCheckBox;
    btGoodsOutStat: TCheckBox;
    btCusMonStat: TCheckBox;
    btSupMonStat: TCheckBox;
    btStockAccount: TCheckBox;
    btCusAccount: TCheckBox;
    btSupAccount: TCheckBox;
    btOtherStat: TCheckBox;
    Panel4: TPanel;
    btSysInit: TCheckBox;
    btUserGrant: TCheckBox;
    btnOK: TBitBtn;
    btnSelAll: TBitBtn;
    btnClearAll: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    btCashAccount: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure InitBt();
    procedure ClearBt();
    procedure btnSelAllClick(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure btnClearAllClick(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    UserBH : String;
    { Public declarations }
  end;

var
  frmUserGrant: TfrmUserGrant;

implementation

uses u_UserMain, u_DataCtrl;

{$R *.dfm}

procedure TfrmUserGrant.ClearBt;
begin
   btCusInfo.Checked     := False;
   btSupInfo.Checked     := false;
   btGoodsClass.Checked  := false;
   btGoodsInfo.Checked   := false;
   btInOutClass.Checked  := false;
   btCusAlert.Checked    := false;
   btSupAlert.Checked    := false;
   btGoodsIn.Checked     := false;
   btGoodsOut.Checked    := false;
   btPayMent.Checked     := false;
   btReceive.Checked     := false;
   btOutCharge.Checked   := false;
   btGoodsInStat.Checked := false;
   btGoodsOutStat.Checked:= false;
   btCusMonStat.Checked  := false;
   btSupMonStat.Checked  := false;
   btStockAccount.Checked:= false;
   btCusAccount.Checked  := false;
   btSupAccount.Checked  := false;
   btOtherStat.Checked   := false;
   btSysInit.Checked     := false;
   btUserGrant.Checked   := false;
end;

procedure TfrmUserGrant.FormShow(Sender: TObject);
begin
  ClearBT;
  UserBH := frmUserMain.Qry.FieldValues['UserBH'];
  InitBT;
end;

procedure TfrmUserGrant.InitBt;
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['btCusInfo']     = '1' then
    btCusInfo.Checked     := True;
  if TempQry.FieldValues['btSupInfo']     = '1' then
    btSupInfo.Checked     := True;
  if TempQry.FieldValues['btGoodsClass']  = '1' then
    btGoodsClass.Checked  := True;
  if TempQry.FieldValues['btGoodsInfo']   = '1' then
    btGoodsInfo.Checked   := True;
  if TempQry.FieldValues['btInOutClass']  = '1' then
    btInOutClass.Checked  := True;
  if TempQry.FieldValues['btCusAlert']    = '1' then
    btCusAlert.Checked    := True;
  if TempQry.FieldValues['btSupAlert']    = '1' then
    btSupAlert.Checked    := True;
  if TempQry.FieldValues['btGoodsIn']     = '1' then
    btGoodsIn.Checked     := True;
  if TempQry.FieldValues['btGoodsOut']    = '1' then
    btGoodsOut.Checked    := True;
  if TempQry.FieldValues['btPayMent']     = '1' then
    btPayMent.Checked     := True;
  if TempQry.FieldValues['btReceive']     = '1' then
    btReceive.Checked     := True;
  if TempQry.FieldValues['btOutCharge']   = '1' then
    btOutCharge.Checked   := True;
  if TempQry.FieldValues['btGoodsInStat'] = '1' then
    btGoodsInStat.Checked := True;
  if TempQry.FieldValues['btGoodsOutStat']= '1' then
    btGoodsOutStat.Checked:= True;
  if TempQry.FieldValues['btCusMonStat']  = '1' then
    btCusMonStat.Checked  := True;
  if TempQry.FieldValues['btSupMonStat']  = '1' then
    btSupMonStat.Checked  := True;
  if TempQry.FieldValues['btStockAccount']= '1' then
    btStockAccount.Checked:= True;
  if TempQry.FieldValues['btCusAccount']  = '1' then
    btCusAccount.Checked  := True;
  if TempQry.FieldValues['btSupAccount']  = '1' then
    btSupAccount.Checked  := True;
  if TempQry.FieldValues['btOtherStat']   = '1' then
    btOtherStat.Checked   := True;
  if TempQry.FieldValues['btSysInit']     = '1' then
    btSysInit.Checked     := True;
  if TempQry.FieldValues['btUserGrant']   = '1' then
    btUserGrant.Checked   := True;
end;

procedure TfrmUserGrant.btnSelAllClick(Sender: TObject);
begin
  btCusInfo.Checked     := True;
  btSupInfo.Checked     := True;
  btGoodsClass.Checked  := True;
  btGoodsInfo.Checked   := True;
  btInOutClass.Checked  := True;
  btCusAlert.Checked    := True;
  btSupAlert.Checked    := True;
end;

procedure TfrmUserGrant.BitBtn11Click(Sender: TObject);
begin
  btGoodsIn.Checked     := True;
  btGoodsOut.Checked    := True;
  btPayMent.Checked     := True;
  btReceive.Checked     := True;
  btOutCharge.Checked   := True;
end;

procedure TfrmUserGrant.BitBtn5Click(Sender: TObject);
begin
  btGoodsQry.Checked    := True;
  btGoodsInStat.Checked := True;
  btGoodsOutStat.Checked:= True;
  btCusMonStat.Checked  := True;
  btSupMonStat.Checked  := True;
  btStockAccount.Checked:= True;
  btCusAccount.Checked  := True;
  btSupAccount.Checked  := True;
  btOtherStat.Checked   := True;
end;

procedure TfrmUserGrant.BitBtn2Click(Sender: TObject);
begin
  btSysInit.Checked     := True;
  btUserGrant.Checked   := True;
end;

procedure TfrmUserGrant.btnClearAllClick(Sender: TObject);
begin
  btCusInfo.Checked     := False;
  btSupInfo.Checked     := False;
  btGoodsClass.Checked  := False;
  btGoodsInfo.Checked   := False;
  btInOutClass.Checked  := False;
  btCusAlert.Checked    := False;
  btSupAlert.Checked    := False;
end;

procedure TfrmUserGrant.BitBtn12Click(Sender: TObject);
begin
  btGoodsIn.Checked     := False;
  btGoodsOut.Checked    := False;
  btPayMent.Checked     := False;
  btReceive.Checked     := False;
  btOutCharge.Checked   := False;
end;

procedure TfrmUserGrant.BitBtn6Click(Sender: TObject);
begin
  btGoodsQry.Checked    := False;
  btGoodsInStat.Checked := False;
  btGoodsOutStat.Checked:= False;
  btCusMonStat.Checked  := False;
  btSupMonStat.Checked  := False;
  btStockAccount.Checked:= False;
  btCusAccount.Checked  := False;
  btSupAccount.Checked  := False;
  btOtherStat.Checked   := False;
end;

procedure TfrmUserGrant.BitBtn3Click(Sender: TObject);
begin
  btSysInit.Checked     := False;
  btUserGrant.Checked   := False;
end;

procedure TfrmUserGrant.btnOKClick(Sender: TObject);
var
  TempSQL : String;
begin
  if btCusInfo.Checked     = True  then
    TempSQL := 'update tb_UserGrant set btCusInfo= 1'
  else
    TempSQL := 'update tb_UserGrant set btCusInfo= 0';
  if btSupInfo.Checked     = True  then
    TempSQL := TempSQL + ',btSupInfo= 1'
  else
    TempSQL := TempSQL + ',btSupInfo= 0';
  if btGoodsClass.Checked  = True  then
    TempSQL := TempSQL +',btGoodsClass= 1'
  else
    TempSQL := TempSQL +',btGoodsClass= 0';
  if btGoodsInfo.Checked   = True  then
    TempSQL := TempSQL +',btGoodsInfo=1'
  else
    TempSQL := TempSQL +',btGoodsInfo=0';
  if btInOutClass.Checked  = True  then
    TempSQL := TempSQL +',btInOutClass=1'
  else
    TempSQL := TempSQL +',btInOutClass=0';
  if btCusAlert.Checked    = True  then
    TempSQL := TempSQL +',btCusAlert=1'
  else
    TempSQL := TempSQL +',btCusAlert=0';
  if btSupAlert.Checked    = True  then
    TempSQL := TempSQL +',btSupAlert=1'
  else
    TempSQL := TempSQL +',btSupAlert=0';
  TempSQL   := TempSQL + ' where UserBH='+QuotedStr(UserBH);
  if frmDataCtrl.Run_SQL(TempSQL) then
    Application.MessageBox('基本资料 权限设置成功','提示',MB_OK);
end;

procedure TfrmUserGrant.BitBtn10Click(Sender: TObject);
var
  TempSQL :String;
begin
  if btGoodsIn.Checked    = True    then
    TempSQL := 'update tb_UserGrant set btGoodsIn=1'
  else
    TempSQL := 'update tb_UserGrant set btGoodsIn=0';
  if btGoodsOut.Checked   = True    then
    TempSQL := TempSQL+',btGoodsOut=1'
  else
    TempSQL := TempSQL+',btGoodsOut=0';
  if btPayMent.Checked    = True    then
    TempSQL := TempSQL+',btPayMent=1'
  else
    TempSQL := TempSQL+',btPayMent=0';
  if btReceive.Checked    = True     then
    TempSQL := TempSQL+',btReceive=1'
  else
    TempSQL := TempSQL+',btReceive=0';
  if btOutCharge.Checked  = True     then
    TempSQL := TempSQL+',btOutCharge=1'
  else
    TempSQL := TempSQL+',btOutCharge=0';
  TempSQL := TempSQL+' where UserBH='+QuotedStr(UserBH);
  if frmDataCtrl.Run_SQL(TempSQL) then
    Application.MessageBox('业务管理 权限设置成功','提示',MB_OK);
end;

procedure TfrmUserGrant.BitBtn4Click(Sender: TObject);
var
  TempSQL : String;
begin
  if btGoodsInStat.Checked   = True then
    TempSQL := 'update tb_UserGrant set btGoodsInStat=1'
  else
    TempSQL := 'update tb_UserGrant set btGoodsInStat=0';
  if btGoodsQry.Checked   = True then
    TempSQL := TempSQL+',btGoodsQRY=1'
  else
    TempSQL := TempSQL+',btGoodsQRY=0';
  if btGoodsOutStat.Checked  = True then
    TempSQL := TempSQL+',btGoodsOutStat=1'
  else
    TempSQL := TempSQL+',btGoodsOutStat=0';
  if btCusMonStat.Checked    = True then
    TempSQL := TempSQL+',btCusMonStat=1'
  else
    TempSQL := TempSQL+',btCusMonStat=0';
  if btSupMonStat.Checked   =  True then
    TempSQL := TempSQL+',btSupMonStat=1'
  else
    TempSQL := TempSQL+',btSupMonStat=0';
  if btCashAccount.Checked = True  then
    TempSQL := TempSQL+',btCashAccount=1'
  else
    TempSQL := TempSQL+',btCashAccount=0';
  if btStockAccount.Checked = True  then
    TempSQL := TempSQL+',btStockAccount=1'
  else
    TempSQL := TempSQL+',btStockAccount=0';
  if btCusAccount.Checked   = True  then
    TempSQL := TempSQL+',btCusAccount=1'
  else
    TempSQL := TempSQL+',btCusAccount=0';
  if btSupAccount.Checked   = True  then
    TempSQL := TempSQL+',btSupAccount=1'
  else
    TempSQL := TempSQL+',btSupAccount=0';
  if btOtherStat.Checked    = True  then
    TempSQL := TempSQL+',btOtherStat=1'
  else
    TempSQL := TempSQL+',btOtherStat=0';
  TempSQL := TempSQL+' where UserBH='+QuotedStr(UserBH);
  if frmDataCtrl.Run_SQL(TempSQL) then
    Application.MessageBox('统计与报表 权限设置成功','提示',MB_OK);
end;

procedure TfrmUserGrant.BitBtn1Click(Sender: TObject);
var
  TempSQL : String;
begin
  if btSysInit.Checked    = True then
    TempSQL := 'update tb_UserGrant set btSysInit=1'
  else
    TempSQL := 'update tb_UserGrant set btSysInit=0';
  if btUserGrant.Checked  = True then
    TempSQL := TempSQL+',btUserGrant=1'
  else
    TempSQL := TempSQL+',btUserGrant=0';
  TempSQL   := TempSQL + ' where UserBH='+QuotedStr(UserBH);
  if frmDataCtrl.Run_SQL(TempSQL) then
    Application.MessageBox('系统 权限设置成功','提示',MB_OK);
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -