seldatabas.bas

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

Attribute VB_Name = "SelDataBas"
Option Explicit

Private Type CmdShow
 Exe_Cmd As Boolean
 New_Cmd As Boolean
 Edt_Cmd As Boolean
 Del_Cmd As Boolean
 Fnd_Cmd As Boolean
End Type

Public meObj As New RptList.RptListCls
Public Query As String
Public JsRptID As Long
Public CmdState As CmdShow
Public Const TitleStr = "报表"

'//初始化权限
Public Sub InitRith()
 Dim MsgInfo As String
 With CmdState
  '//执行权限 权限ID:16
  .Exe_Cmd = meObj.BaseInfo.getUserRight(meObj.BaseInfo.getUserID, 16, MsgInfo)
  '//新建权限
  .New_Cmd = meObj.BaseInfo.getUserRight(meObj.BaseInfo.getUserID, 13, MsgInfo)
  '//编辑权限
  .Edt_Cmd = meObj.BaseInfo.getUserRight(meObj.BaseInfo.getUserID, 17, MsgInfo)
  '//删除权限
  .Del_Cmd = meObj.BaseInfo.getUserRight(meObj.BaseInfo.getUserID, 18, MsgInfo)
  '//搜索
  .Fnd_Cmd = True
 End With
End Sub

'//
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_RptGroup 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_rptid,.a.js_rptname "
 RetValue = RetValue & " from js_rpt a"
 RetValue = RetValue & " inner join js_right b on b.js_rightid=a.js_rightid"
 RetValue = RetValue & " where b.js_rightdesc like '%^" & meObj.BaseInfo.getUserID & "^%'"
 If inParentID <> 0 Then
  RetValue = RetValue & "  and a.js_groupid=" & inParentID
 End If
 getListSql = RetValue
End Function

Public Function getListTitle() As String
 Dim RetValue As String
 RetValue = "报表内码|报表标题|"
 getListTitle = RetValue
End Function