clsrolemanage.cls

主要实现数据库前台管理中的角色管理功能

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsRoleManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Dim strSql As String
'新建角色
Public Sub yngc_mnuBuildRole()
   '***********************************************************
   
   yngc_frmRoleManage.Caption = "创建角色"
   yngc_frmRoleManage.yngc_lstRoleOwed.Clear
   '根据SQL语句在列表中显示数据
   strSql = "select * from yngc_sys_rolefunc"
   Call yngc_subShowRole(strSql)
   '清空保存索引项数组
   Call yngc_subClearArray
   '调节按钮位置，可见与否
   yngc_frmRoleManage.Frame1.Caption = "已有角色"
   yngc_frmRoleManage.yngc_btnDownArrow.Visible = False
   yngc_frmRoleManage.yngc_btnUpArrow.Visible = False
   yngc_frmRoleManage.Frame2.Visible = False
   yngc_frmRoleManage.yngc_btnCancal.Left = 2520
   yngc_frmRoleManage.yngc_btnCreateRole.Left = 480
   yngc_frmRoleManage.yngc_btnAcctiveRole.Visible = False
   yngc_frmRoleManage.yngc_btnForbitRole.Visible = False
   yngc_frmRoleManage.yngc_btnDelRole.Visible = False
   yngc_frmRoleManage.yngc_btnCreateRole.Visible = True
   yngc_frmRoleManage.Frame3.Visible = True
   yngc_frmRoleManage.Frame4.Top = 3800
   yngc_frmRoleManage.Height = 5320
   
   '显示窗口
   yngc_frmRoleManage.Show vbModal
   
   '***********************************************************
End Sub
'激活角色
Public Sub yngc_mnuAttiveRole()
   '***********************************************************
   
   yngc_frmRoleManage.Caption = "激活角色"
   yngc_frmRoleManage.yngc_lstRoleOwed.Clear
   '根据SQL语句在列表中显示数据
   yngc_frmRoleManage.yngc_lstRoleReward.Clear
   strSql = "select * from yngc_sys_rolefunc where role_flag=0"
   Call yngc_subShowRole(strSql)
   '清空保存索引项数组
   Call yngc_subClearArray
   
   yngc_frmRoleManage.yngc_btnCreateRole.Visible = False
   yngc_frmRoleManage.Frame3.Visible = False
   yngc_frmRoleManage.Frame2.Visible = True
   yngc_frmRoleManage.Frame1.Caption = "禁止角色"
   yngc_frmRoleManage.Frame2.Caption = "激活角色"
   yngc_frmRoleManage.yngc_btnAcctiveRole.Left = 600
   yngc_frmRoleManage.yngc_btnForbitRole.Visible = False
   yngc_frmRoleManage.yngc_btnDelRole.Visible = False
   yngc_frmRoleManage.yngc_btnAcctiveRole.Visible = True
   yngc_frmRoleManage.yngc_btnDownArrow.Visible = True
   yngc_frmRoleManage.yngc_btnUpArrow.Visible = True
   yngc_frmRoleManage.Height = 7080
   yngc_frmRoleManage.yngc_btnCancal.Top = 240
   yngc_frmRoleManage.Frame4.Top = 5660
   
    '显示窗口
   yngc_frmRoleManage.Show vbModal
   
   '***********************************************************
End Sub
'禁止角色
Public Sub yngc_mnuForbidRole()
   '***********************************************************
  
   
   yngc_frmRoleManage.Caption = "禁止角色"
   yngc_frmRoleManage.yngc_lstRoleOwed.Clear
   yngc_frmRoleManage.yngc_lstRoleReward.Clear
   '根据SQL语句在列表中显示数据
   strSql = "select * from yngc_sys_rolefunc where role_flag=1"
   Call yngc_subShowRole(strSql)
   '清空保存索引项数组
   Call yngc_subClearArray
    '条件按钮位置，可见与否
   yngc_frmRoleManage.yngc_btnCreateRole.Visible = False
   yngc_frmRoleManage.Frame3.Visible = False
   yngc_frmRoleManage.Frame1.Caption = "激活角色"
   yngc_frmRoleManage.Frame2.Caption = "禁止角色"
   yngc_frmRoleManage.yngc_btnForbitRole.Left = 600
   yngc_frmRoleManage.yngc_btnAcctiveRole.Visible = False
   yngc_frmRoleManage.yngc_btnCreateRole.Visible = False
   yngc_frmRoleManage.yngc_btnDelRole.Visible = False
   yngc_frmRoleManage.yngc_btnForbitRole.Visible = True
   yngc_frmRoleManage.yngc_btnDownArrow.Visible = True
   yngc_frmRoleManage.yngc_btnUpArrow.Visible = True
   yngc_frmRoleManage.Frame2.Visible = True
   yngc_frmRoleManage.Height = 7080
   yngc_frmRoleManage.yngc_btnCancal.Top = 240
   yngc_frmRoleManage.Frame4.Top = 5660
   
   yngc_frmRoleManage.Show vbModal
   
   '***********************************************************
End Sub
'删除角色
Public Sub yngc_mnuDelRole()
   '***********************************************************
   '调节按钮位置，可见与否
   
   yngc_frmRoleManage.Caption = "删除角色"
   yngc_frmRoleManage.yngc_lstRoleOwed.Clear
   '根据SQL语句在列表中显示数据
   strSql = "select * from yngc_sys_rolefunc "
   Call yngc_subShowRole(strSql)
   '清空保存索引项数组
   Call yngc_subClearArray
   yngc_frmRoleManage.yngc_lstRoleReward.Clear
   yngc_frmRoleManage.Frame1.Caption = "已有角色"
   yngc_frmRoleManage.Frame2.Caption = "删除角色"
   yngc_frmRoleManage.yngc_btnDelRole.Left = 600
   yngc_frmRoleManage.yngc_btnForbitRole.Visible = False
   yngc_frmRoleManage.Frame3.Visible = False
   yngc_frmRoleManage.yngc_btnAcctiveRole.Visible = False
   yngc_frmRoleManage.yngc_btnForbitRole.Visible = False
   yngc_frmRoleManage.yngc_btnCreateRole.Visible = False
   yngc_frmRoleManage.yngc_btnDelRole.Visible = True
   yngc_frmRoleManage.yngc_btnDownArrow.Visible = True
   yngc_frmRoleManage.yngc_btnUpArrow.Visible = True
   yngc_frmRoleManage.Frame2.Visible = True
   yngc_frmRoleManage.Height = 7080
   yngc_frmRoleManage.yngc_btnCancal.Top = 240
   yngc_frmRoleManage.Frame4.Top = 5660
   
   yngc_frmRoleManage.Show vbModal
   '***********************************************************
End Sub
Public Sub showform()
yngc_frmRoleManage.Show
End Sub

Public Property Set Connect(pConn As connectDataBase.connectdata)
    Set g_clsConnect = pConn
End Property