seldatabas.bas

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

Attribute VB_Name = "SelDataBas"
Option Explicit

Public meObj As New SelUser.SelUserCls
Public Query As String
Public Const TitleStr = "用户"

'//
Public Function getClassSql(ByVal inParentID As Long) As String
 Dim RetValue As String
 RetValue = "select a.Js_GroupID as FItemID,a.Js_GroupName as FName from Js_UserGroup a where a.Js_ParentID=" & inParentID
 getClassSql = RetValue
End Function

Public Function getListSql(ByVal inParentID As Long) As String
 Dim RetValue As String
 RetValue = "select a.Js_UserID as FItemID,a.Js_UserName as FName,b.Js_LogonPreceptDesc as FLName,c.Js_RightName as FRName,dbo.getUserGroupList(a.Js_UserID) as FUserGroupList,FUseSign=case a.Js_UseSign when 0 then '禁止' when 1 then '启用' end"
 RetValue = RetValue & "  from Js_User a"
 RetValue = RetValue & "  inner join Js_LogonPrecept b on b.Js_LogonPreceptID=a.Js_LogonPreceptID"
 RetValue = RetValue & "  inner join Js_Right c on c.Js_RightID=a.Js_RightID"
 If inParentID <> 0 Then
  RetValue = RetValue & "  where a.Js_UserGroupList like '%^" & inParentID & "^%'"
 End If
 getListSql = RetValue
End Function

Public Function getListTitle() As String
 Dim RetValue As String
 RetValue = "用户内码|用户名称|登录方案|权限方案|组列表|用户状态|"
 getListTitle = RetValue
End Function