userfuncbas.bas

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

Attribute VB_Name = "UserFuncBas"
Option Explicit

Public Sub getCellData()
 With meCell
  .MaxCols = 3
  .MaxRows = 17
  .ListSql = "select a.Js_UserID as FItemID,a.Js_UserName as FName,dbo.getUserGroupList(a.Js_UserID) as FUserGroupLists,b.Js_LogonPreceptDesc as FLName,c.Js_RightName as FRName from Js_User a inner join Js_LogonPrecept b on b.Js_LogonPreceptID=a.Js_LogonPreceptID inner join Js_Right c on c.Js_RightID=a.Js_RightID order by a.Js_UserName asc"
 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