yngc_basshowrole.bas

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

Attribute VB_Name = "yngc_basShowRole"
'连接数据库
Public g_clsConnect As connectDataBase.connectdata

'定义激活角色的动态数组
Public strAcctiveRole() As String
'计数器
Public i As Integer
Public strSql As String
Public objOraDyn As OraDynaset
'**************************************************************
'名称：     yngc_subShowRole(ByVal strSql As String)
'功能描述： 根据用户输入的SQL语句显示数据
'传入参数:  strSql
'返回参数：
'依赖关系：
'作者：     李建东
'创建日期   2005年12月26日
'**************************************************************
Public Sub yngc_subShowRole(ByVal strSql As String)
     
  '建立OraDynaset对象
   Set objOraDyn = g_clsConnect.ObjectOraDb.CreateDynaset(strSql, 0&)
   '.ObjectOraDb.DbCreateDynaset(strSql, 0&)
  '开始一个事务
   g_clsConnect.ObjectOraDb.DbBeginTrans
   Do Until objOraDyn.EOF
      yngc_frmRoleManage.yngc_lstRoleOwed.AddItem (objOraDyn.Fields("ROLE_NAME").Value)
      objOraDyn.DbMoveNext
   Loop
   g_clsConnect.ObjectOraDb.CommitTrans
    '***********************************************************
    
End Sub

'**************************************************************
'名称：     yngc_subClearArray()
'功能描述： 清空保存所选索引数组
'传入参数:
'返回参数：
'依赖关系：
'作者：     李建东
'创建日期   2005年12月26日
'**************************************************************
Public Sub yngc_subClearArray()
Dim j As Integer
   For j = 0 To UBound(strAcctiveRole, 1) - 1
      strAcctiveRole(j) = ""
   Next j
'计数器值归0
i = 0
End Sub