logonfuncbas.bas

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

Attribute VB_Name = "LogonFuncBas"
Option Explicit

Public Sub getCellData()
 With meCell
  .MaxCols = 3
  .MaxRows = 7
  .MaxColTitle = "上级分组|方案名称|方案描述|启用禁止|方案类型"
  .ListSql = "select a.Js_LogonPreceptID as fItemID,b.Js_LogonPreceptDesc as fPName,a.Js_LogonPreceptDesc as fName,a.Js_LogonPreceptValue as fDesc,fDetail=case a.Js_LogonPreceptDetail when 0 then '分类目录' when 1 then '登录方案' end,fSign=case a.Js_LogonPreceptUseSign when 0 then '禁止' when 1 then '启用' end,c.Js_UserName as fUserName,d.FItemClassName as fTName from Js_LogonPrecept a left join Js_LogonPrecept b on b.Js_LogonPreceptID=a.Js_LogonPreceptParentID left join Js_User c on c.Js_UserID=a.Js_LogonPreceptUserID inner join Js_LogonPreceptClass d on d.FItemClassID=a.Js_LogonPreceptType  order by a.Js_LogonPreceptID 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