tableset.cls

金算盘软件代码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "TableSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  列表向导设置类
'  作者：邓强
'  日期：1998.06.26
'
'  GetRepoertID                 没有报表ID号时，根据向导类型得到向导报表ID号
'  GetReportSet                 从报表ID号得到设置
'  GetSQL                       得到SQL语句
'  ShowWizard                   显示向导窗口
'  SaveTable                    保存类到数据库
'
'        属性                             属性说明
'     ReportPrep                        '表类型0 向导
'     OperatorID                        '操作员ID
'     ReportID                          '报表ID
'     Level                             '报表父节点层次
'     ParentID                          '报表父节点ID
'     ViewID                            '视图ID
'     ReportName                        '报表名称
'     ShowNegivate                      '显示负数
'     Divide                            '除以1000
'     ShowCent                          '显示小数
'     ShowZero                          '显示零
'
'     Columns                           '已选栏目数
'     ColumnID()                        '栏目字段ID
'     ColumnDesc()                      '栏目说明
'     ColumnWidth()                     '栏目宽度
'     ColumnFieldName()                 '栏目字段名称
'     ColumnFieldType()                 '栏目字段类型
'
'     HeadColumns                       '已选表头栏目数
'     HeadDesc()                        '表头栏目说明
'     HeadFuncIndex()                   '表头栏目涵数索引
'     HeadWidth()                       '表头栏目宽度
'     HeadHeight()                      '表头栏目高度
'     HeadLeft()                        '表头栏目左间距
'     HeadTop()                         '表头栏目上间距
'     TailColumns                       '已选表尾栏目数
'     TailDesc()                        '表尾栏目说明
'     TailFuncIndex()                   '表尾栏目涵数索引
'     TailWidth()                       '表尾栏目宽度
'     TailHeight()                      '表尾栏目高度
'     TailLeft()                        '表尾栏目左间距
'     TailTop()                         '表尾栏目上间距
'     TitleWidth                        '报表标题宽度
'     TitleHeight                       '报表标题高度
'     TitleLeft                         '报表标题左间距
'     TitleTop                          '报表标题上间距
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Private mstrSelect As String
Private mstrWhere As String
Private mvarFrom As String                            'SQL 的 FROM 子句
Private mvarBusy As Boolean                           '读数据库时忙

Private mvarReportPrep As Byte                        '表类型0 向导
Private mvarOperatorID As Long                        '操作员ID
Private mvarReportID As Long                          '报表ID
Private mvarVersion As Integer                        '报表版本号
Private mvarLevel As Integer                          '报表父节点层次
Private mvarParentID As Long                          '报表父节点ID
Private mvarGroupNo As Byte                           '报表分组号
Private mvarViewID As Long                            '视图ID
Private mvarReportName As String                      '报表名称
Private mvarReportCond As String                      '报表附加条件
Private mvarGridTop As Long                           '报表GRID顶端位置

Private mvarColumns As Integer                        '已选栏目数
Private mvarColumnID() As Long                        '栏目字段ID
Private mvarColumnDesc() As String                    '栏目说明
Private mvarColumnWidth() As Long                     '栏目宽度
Private mvarColumnFieldName() As String               '栏目字段名称
Private mvarColumnFieldType() As String               '栏目字段类型

Private mvarHeadColumns As Integer                    '已选表头栏目数
Private mvarHeadDesc() As String                      '表头栏目说明
Private mvarHeadFuncIndex() As Integer                '表头栏目涵数索引
Private mvarHeadWidth() As Long                       '表头栏目宽度
Private mvarHeadHeight() As Long                      '表头栏目高度
Private mvarHeadLeft() As Long                        '表头栏目左间距
Private mvarHeadTop() As Long                         '表头栏目上间距
Private mvarHeadAlign() As Integer                    '表头栏目对齐方式
Private mvarTailColumns As Integer                    '已选表尾栏目数
Private mvarTailDesc() As String                      '表尾栏目说明
Private mvarTailFuncIndex() As Integer                '表尾栏目涵数索引
Private mvarTailWidth() As Long                       '表尾栏目宽度
Private mvarTailHeight() As Long                      '表尾栏目高度
Private mvarTailLeft() As Long                        '表尾栏目左间距
Private mvarTailTop() As Long                         '表尾栏目上间距
Private mvarTailAlign() As Integer                    '表尾栏目对齐方式
Private mvarTitleWidth As Long                        '报表标题宽度
Private mvarTitleHeight As Long                       '报表标题高度
Private mvarTitleLeft As Long                         '报表标题左间距
Private mvarTitleTop As Long                          '报表标题上间距
Private mvarTitleAlign As Integer                     '报表标题对齐方式

'''''''''''''''''''''''''''''''''''''''''''''''''''
'                标准表向导设置类属性
'
'''''''''''''''''''''''''''''''''''''''''''''''''''
'数据库忙
Public Property Let Busy(ByVal vData As Boolean)
    mvarBusy = vData
End Property

Public Property Get Busy() As Boolean
    Busy = mvarBusy
End Property

'表类型0 向导
Public Property Let ReportPrep(ByVal vData As Byte)
    mvarReportPrep = vData
End Property

Public Property Get ReportPrep() As Byte
    ReportPrep = mvarReportPrep
End Property
'操作员ID
Public Property Let OperatorID(ByVal vData As Long)
    mvarOperatorID = vData
End Property

Public Property Get OperatorID() As Long
    OperatorID = mvarOperatorID
End Property
'报表ID
Public Property Let ReportID(ByVal vData As Long)
    mvarReportID = vData
End Property

Public Property Get ReportID() As Long
    ReportID = mvarReportID
End Property
'报表父节点层次
Public Property Let Level(ByVal vData As Integer)
    mvarLevel = vData
End Property

Public Property Get Level() As Integer
    Level = mvarLevel
End Property
'报表父节点ID
Public Property Let ParentId(ByVal vData As Long)
    mvarParentID = vData
End Property

Public Property Get ParentId() As Long
    ParentId = mvarParentID
End Property
'报表分组号
Public Property Let GroupNo(ByVal vData As Byte)
    mvarGroupNo = vData
End Property

Public Property Get GroupNo() As Byte
   GroupNo = mvarGroupNo
End Property
'视图ID
Public Property Let ViewId(ByVal vData As Long)
    mvarViewID = vData
End Property

Public Property Get ViewId() As Long
    ViewId = mvarViewID
End Property

'报表名称
Public Property Let ReportName(ByVal vData As String)
    mvarReportName = vData
End Property

Public Property Get ReportName() As String
    ReportName = mvarReportName
End Property
'报表附加条件
Public Property Let ReportCond(ByVal vData As String)
    mvarReportCond = vData
End Property

Public Property Get ReportCond() As String
    ReportCond = mvarReportCond
End Property
'报表GRID顶端位置
Public Property Let GridTop(ByVal vData As Long)
    mvarGridTop = vData
End Property

Public Property Get GridTop() As Long
    GridTop = mvarGridTop
End Property

'SQL 的 FROM 子句
Public Property Let FROM(ByVal vData As String)
    mvarFrom = vData
End Property

Public Property Get FROM() As String
   FROM = mvarFrom
End Property


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'已选栏目数
Public Property Let Columns(ByVal vData As Integer)
    mvarColumns = vData
    If mvarColumns = 0 Then Exit Property
    ReDim mvarColumnID(mvarColumns - 1)
    ReDim mvarColumnDesc(mvarColumns - 1)
    ReDim mvarColumnWidth(mvarColumns - 1)
    ReDim mvarColumnFieldName(mvarColumns - 1)
    ReDim mvarColumnFieldType(mvarColumns - 1)
End Property

Public Property Get Columns() As Integer
    Columns = mvarColumns
End Property


'栏目字段ID
Public Property Let ColumnID(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarColumnID(ColumnIndex) = vData
End Property

Public Property Get ColumnID(ByVal ColumnIndex As Integer) As Long
    ColumnID = mvarColumnID(ColumnIndex)
End Property

'栏目说明
Public Property Let ColumnDesc(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnDesc(ColumnIndex) = vData
End Property

Public Property Get ColumnDesc(ByVal ColumnIndex As Integer) As String
    ColumnDesc = mvarColumnDesc(ColumnIndex)
End Property
'栏目宽度
Public Property Let ColumnWidth(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarColumnWidth(ColumnIndex) = vData
End Property

Public Property Get ColumnWidth(ByVal ColumnIndex As Integer) As Long
    ColumnWidth = mvarColumnWidth(ColumnIndex)
End Property

'栏目字段名称
Public Property Let ColumnFieldName(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnFieldName(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldName(ByVal ColumnIndex As Integer) As String
    ColumnFieldName = mvarColumnFieldName(ColumnIndex)
End Property
'栏目字段类型
Public Property Let ColumnFieldType(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnFieldType(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldType(ByVal ColumnIndex As Integer) As String
    ColumnFieldType = mvarColumnFieldType(ColumnIndex)
End Property

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'已选表头栏目数
Public Property Let HeadColumns(ByVal vData As Integer)
    mvarHeadColumns = vData
    If vData = 0 Then Exit Property
    ReDim mvarHeadDesc(vData - 1)
    ReDim mvarHeadFuncIndex(vData - 1)
    ReDim mvarHeadWidth(vData - 1)
    ReDim mvarHeadHeight(vData - 1)
    ReDim mvarHeadLeft(vData - 1)
    ReDim mvarHeadTop(vData - 1)
    ReDim mvarHeadAlign(vData - 1)
End Property
Public Property Get HeadColumns() As Integer
    HeadColumns = mvarHeadColumns
End Property
'表头栏目说明
Public Property Let HeadDesc(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarHeadDesc(ColumnIndex) = vData
End Property

Public Property Get HeadDesc(ByVal ColumnIndex As Integer) As String
    HeadDesc = mvarHeadDesc(ColumnIndex)
End Property
'表头栏目涵数索引
Public Property Let HeadFuncIndex(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarHeadFuncIndex(ColumnIndex) = vData
End Property

Public Property Get HeadFuncIndex(ByVal ColumnIndex As Integer) As Integer
    HeadFuncIndex = mvarHeadFuncIndex(ColumnIndex)
End Property
'表头栏目宽度
Public Property Let HeadWidth(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarHeadWidth(ColumnIndex) = vData
End Property