rightfuncbas.bas

本系统是一个报表分析查询系统

Attribute VB_Name = "RightFuncBas"
Option Explicit

Public Sub getCellData()
 With meCell
  .MaxCols = 3
  .MaxRows = 6
  .MaxColTitle = "上级分组|方案名称|方案描述|启用禁止"
  .ListSql = "select a.Js_RightID as fRightID,b.Js_RightName as fPName,a.Js_RightName as fName,dbo.getUserList(a.Js_RightID) as fDesc,fDetail=case a.Js_RightDetail when 0 then '分类目录' when 1 then '权限方案' end,fSign=case a.Js_RightUseSign when 0 then '禁止' when 1 then '启用' end,c.Js_UserName as fUserName,a.Js_RightDate as fDate,a.Js_RightTime as fTime from Js_Right a left join Js_Right b on b.Js_RightID=a.Js_RightParentID left join Js_User c on c.Js_UserID=a.Js_RightUserID order by a.Js_RightID desc"
 End With
End Sub

Public Function Cn2Num(ByVal inCnName As String) As Long
 Dim RetValue As Long
 Select Case inCnName
  Case "禁止"
   RetValue = 0
  Case "启用"
   RetValue = 1
  Case Else
   RetValue = 0
 End Select
 Cn2Num = RetValue
End Function