www.pudn.com > VB-KAOQINXITONG.zip > modSQLProcedure.bas

Attribute VB_Name = "modSQLProcedure" 
'Type常数 
Option Explicit 
'考勤-66,巡更-30,停车-40 
Private madoFillRS As ADODB.Recordset 
'以下是关于表 T0114S001(系统菜单) 中的字段定义 
 
'W1110: 菜单操作权限  W1124: 按纽是否可见  W1130: 菜单编号      W1159: 菜单工具条 
'W1121: 菜单标题      W1125: 菜单层次      W1131: 图形关键字 
'W1122: 菜单缺省权限  W1126: 菜单名        W1132: 系统有效菜单 
'W1123: 按纽标题      W1127: 是否可执行项  W1158: 菜单应用类别 
 
Public Const MENU_FIELDS As String = "W1110,W1122,W1124,W0090,W1121,W1123,W1126,W1127,W1131" 
 
Public Function CreateRecords() As Boolean 
 
End Function 
 
Public Function CreateBackupDB(PathFileName As String, fsPasswd As String) As Boolean 
  
End Function 
 
Public Function CreateDB(ByVal PathFileName As String, ByVal fsPasswd As String) As Boolean 
   
End Function 
 
Public Function CreateSQLDBase(Optional PathFileName As String, _ 
                               Optional ByVal fsPasswd As String) As Boolean 
 
End Function 
 
Private Function CreateTables() As Boolean 
 
End Function 
 
Private Function CreateSysTable(ByVal fsTblName As String) As Boolean 
 
 
End Function 
 
Public Function GetQueriyItem(ByVal fsQryName As String) As String 
End Function 
 
Private Sub CreateQuerieyItem(ByVal fsQryName As String) 
End Sub 
 
Private Function CreateQueries() As Boolean 
End Function 
 
Private Function CreateIndexes() As Boolean 
End Function 
 
Private Function LoIsIndexInTbls(fsIndex As String) As Boolean 
End Function 
 
Private Sub CreateCollect(Optional ByVal fbDescOverlap As Boolean) 
 
End Sub 
 
Private Function LoBuiltSetCollect(fsSetCollect As String, _ 
                                   fsDesc As String, _ 
                                   fbDescOverlap As Boolean) As Boolean 
End Function 
 
Private Function LoGetDefSetInfo(fsSetName As String) As String() 
 
End Function 
 
#If Not IS_RUN Then 
  Private Sub DebugErr(Optional ByVal fsData As String) 
    If gclsDBFunc.dbGetLastError.Number <> 0 Then 
      Debug.Print IIf(fsData = "", "", fsData & ":") & gclsDBFunc.dbGetLastError.Description 
      gclsDBFunc.dbClearError 
    End If 
  End Sub 
#End If 
 
'对应旧版本的数据库，以下表发生变化： 
' 
'旧表                 新表        描述 
'---------------------------------------------- 
'SM_Function          T0003S001   系统功能 
'SM_User_Privileges   T0007S001   操作员其他权限 
'SM_UserGroup         T0004S001   组成员列表 
'SM_UserGroupId       T0005S001   操作员组列表 
'SM_UserId            T0006S001   操作员列表 
'sr_builtcollect      T0008S001   已建代码集 
'sr_BuiltItem         T0009S001   已建指标集 
'SR_CodeCollect       T0010S001   代码集 
'sr_codeitem          T0011S001   代码项 
'sr_department        T0015S001   单位基本信息 
'SR_SourceCollect     T0012S001   指标集 
'SR_SourceItem        T0013S001   指标项 
'sr_Unittype          T0014S001   类别定义 
'T0103S001            T0001S001   系统表描述 
'T0104S001            T0002S001   系统字段描述 
 
Public Function GetAllTables() As String() 
End Function 
 
Public Function GetAllViews() As String() 
End Function 
 
Public Function GetAllIndexes() As String() 
End Function