VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "MultiReportSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'  多欄帳設置類
'  作者：魏然
'  日期：1998.05.18
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Private mvarReportID As Long                          '帳表ID
Private mvarReportName As String                      '帳表名稱
Private mvarReportType As AcntBookType                '帳冊類型：1=日記帳、2=明細帳 3=總帳
Private mvarViewID As Long                            '視圖ID
Private mvarViewName As String                        '視圖名稱
Private mvarColumns As Integer                        '欄目數
Private mvarFixColumns As Integer                     '固定欄目數

Private mvarColumnTop() As Long                       '欄目Top
Private mvarColumnLeft() As Long                      '欄目Left
Private mvarColumnHeight() As Long                    '欄目高度
Private mvarColumnWidth() As Long                     '欄目寬度

Private mvarHeadFieldId() As Long
Private mvarHeadFieldName() As String
Private mvarHeadFields As Integer
Private mvarGridTop As Long
Private mvarHeadTop() As Long                       '表頭欄目Top
Private mvarHeadLeft() As Long                      '表頭欄目Left
Private mvarHeadHeight() As Long                    '表頭欄目高度
Private mvarHeadWidth() As Long                     '表頭欄目寬度
Private mvarHeadType() As Long                      '表頭欄目寬度
Private mvarHeadAlign() As Integer                  '表頭欄目對齊方式
Private mbytCodeShowType() As Byte                  '編碼顯示格式

Private mvarColumnOrderType() As Integer              '欄目排序方式 0=不排序 1=升序列 2=降序
Private mvarColumnIsFix() As Boolean                  '是否固定欄目
Private mvarColumnIsFind() As Boolean                 '是否查找欄目
Private mvarColumnFieldID() As Variant                '欄目字段ID
Private mvarColumnFieldName() As String               '欄目字段
Private mvarColumnDesc() As String                    '欄目說明
Private mvarColumnFieldType() As String               '欄目字段類型
Private mvarColumnFieldSize() As Integer              '欄目字段長度
Private mvarColumnCombine() As String                 '欄目合并名稱
Private mvarExpandStyle As Byte                       '多欄帳展開方式 1=余額借方展開 2=余額貸方展開 3=借方展開 4=借方余額后展開 5=貸方展開 6=貸方余額后展開

Private mvarContent As String                         '分析內容 (科目、單位、部門等)
Private mvarSubDesc() As String                       '子欄目說明
Private mvarSubCond() As String                       '子欄目條件(ID)
Private mvarSubCode() As String                       '子欄目條件(Code)
Private mvarSubData() As Byte                         '子欄目數據類型
Private mvarSubDirect() As Integer                    '子欄目借貸方向
Private mvarSubColumns As Integer                     '子欄目數
Private mvarSubAmountWidth() As Long                  '子欄目金額顯示寬度
Private mvarSubQuantityWidth() As Long                '子欄目數量顯示寬度
Private mvarSubCurrencyWidth() As Long                '子欄目外幣顯示寬度
Private mintDirect As Integer

Private mvarFrom As String                            'SQL 的 FROM 子句
Private mvarSelect As String                          'SQL 的 SELECT 子句
Private mvarWhere As String                           'SQL 的 WHERE 子句
Private mbytPrep As Byte                              '預置標志 0=向導 1=預置表 2=自定義表
Private mbytGroup As Byte

Private mlngParentID As Long                          '所屬報表目錄ID
Private mintParentLevel As Integer                    '所屬報表目錄層次
Private mlngPrintSetID As Long                        '打印設置ID
Private mlngPaperID As Long
Private mstrUnionWhere As String                      '表間連接條件


'''''''''''''''''''''''''''''''''''''''''''''''''''
'                列表設置類屬性
'
'''''''''''''''''''''''''''''''''''''''''''''''''''
'編碼顯示格式
Public Property Get CodeShowType(ByVal ColumnIndex As Integer) As Long
    CodeShowType = mbytCodeShowType(ColumnIndex)
End Property

Public Property Let CodeShowType(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mbytCodeShowType(ColumnIndex) = vData
End Property

'表頭欄目對齊方式
Public Property Let HeadAlign(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarHeadAlign(ColumnIndex) = vData
End Property

Public Property Get HeadAlign(ByVal ColumnIndex As Integer) As Integer
    HeadAlign = mvarHeadAlign(ColumnIndex)
End Property

'打印設置ID
Public Property Get PrintSetId()
   PrintSetId = mlngPrintSetID
End Property

Public Property Get Direct() As Integer
    Direct = mintDirect
End Property

Public Property Let Direct(ByVal vData As Integer)
    mintDirect = vData
End Property

Public Property Get ParentId()
    ParentId = mlngParentID
End Property

Public Property Get Prep() As Byte
    Prep = mbytPrep
End Property

Public Property Get Group() As Byte
    Group = mbytGroup
End Property

'數據區高度
Public Property Let GridTop(ByVal vData As Long)
    mvarGridTop = vData
End Property

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

'表頭字段ID數目
Public Property Let HeadFields(ByVal vData As Long)
    mvarHeadFields = vData
    ReDim mvarHeadFieldId(vData)
    ReDim mvarHeadFieldName(vData)
    ReDim mvarHeadTop(vData)
    ReDim mvarHeadLeft(vData)
    ReDim mvarHeadHeight(vData)
    ReDim mvarHeadWidth(vData)
    ReDim mvarHeadType(vData)
    ReDim mvarHeadAlign(vData)
    ReDim mbytCodeShowType(vData)
End Property

Public Property Get HeadFields() As Long
    HeadFields = mvarHeadFields
End Property

'表頭字段ID
Public Property Let HeadFieldId(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarHeadFieldId(ColumnIndex) = vData
End Property

Public Property Get HeadFieldId(ByVal ColumnIndex As Integer) As Long
    HeadFieldId = mvarHeadFieldId(ColumnIndex)
End Property

'表頭字段名稱
Public Property Let HeadFieldName(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarHeadFieldName(ColumnIndex) = vData
End Property

Public Property Get HeadFieldName(ByVal ColumnIndex As Integer) As String
    HeadFieldName = mvarHeadFieldName(ColumnIndex)
End Property

Public Property Get OnlyData() As Boolean
    OnlyData = IIf(mlngPaperID = 0, False, True)
End Property

Public Property Get PaperID() As Long
    PaperID = mlngPaperID
End Property

Public Property Let PaperID(ByVal New_ID As Long)
    mlngPaperID = New_ID
End Property

Public Property Get Content() As String
    Content = mvarContent
End Property

Public Property Let Content(ByVal vData As String)
    mvarContent = vData
End Property

'欄目字段長度
Public Property Let ColumnFieldSize(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarColumnFieldSize(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldSize(ByVal ColumnIndex As Integer) As Integer
    ColumnFieldSize = mvarColumnFieldSize(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 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 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

'欄目字段ID
Public Property Let ColumnFieldID(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarColumnFieldID(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldID(ByVal ColumnIndex As Integer) As Long
    ColumnFieldID = mvarColumnFieldID(ColumnIndex)
End Property

'是否查找欄目
Public Property Let ColumnIsFind(ByVal ColumnIndex As Integer, ByVal vData As Boolean)
    mvarColumnIsFind(ColumnIndex) = vData
End Property

Public Property Get ColumnIsFind(ByVal ColumnIndex As Integer) As Boolean
    ColumnIsFind = mvarColumnIsFind(ColumnIndex)
End Property

'是否固定欄目
Public Property Let ColumnIsFix(ByVal ColumnIndex As Integer, ByVal vData As Boolean)
    mvarColumnIsFix(ColumnIndex) = vData
End Property

Public Property Get ColumnIsFix(ByVal ColumnIndex As Integer) As Boolean
    ColumnIsFix = mvarColumnIsFix(ColumnIndex)
End Property

'欄目排序方式 0=不排序 1=升序列 2=降序
Public Property Let ColumnOrderType(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarColumnOrderType(ColumnIndex) = vData
End Property

Public Property Get ColumnOrderType(ByVal ColumnIndex As Integer) As Integer
    ColumnOrderType = mvarColumnOrderType(ColumnIndex)
End Property

'欄目Top
Public Property Let ColumnTop(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarColumnTop(ColumnIndex) = vData
End Property

Public Property Get ColumnTop(ByVal ColumnIndex As Integer) As Long
    ColumnTop = mvarColumnTop(ColumnIndex)
End Property

'欄目Left
Public Property Let ColumnLeft(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarColumnLeft(ColumnIndex) = vData
End Property

Public Property Get ColumnLeft(ByVal ColumnIndex As Integer) As Long
    ColumnLeft = mvarColumnLeft(ColumnIndex)
End Property

'欄目高度
Public Property Let ColumnHeight(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarColumnHeight(ColumnIndex) = vData
End Property

Public Property Get ColumnHeight(ByVal ColumnIndex As Integer) As Long
    ColumnHeight = mvarColumnHeight(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

'表頭欄目Top
Public Property Let HeadTop(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarHeadTop(ColumnIndex) = vData
End Property

Public Property Get HeadTop(ByVal ColumnIndex As Integer) As Long
    HeadTop = mvarHeadTop(ColumnIndex)
End Property

'表頭欄目Left
Public Property Let HeadLeft(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarHeadLeft(ColumnIndex) = vData
End Property

Public Property Get HeadLeft(ByVal ColumnIndex As Integer) As Long
    HeadLeft = mvarHeadLeft(ColumnIndex)
End Property

'表頭欄目高度
Public Property Let HeadHeight(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarHeadHeight(ColumnIndex) = vData
End Property

Public Property Get HeadHeight(ByVal ColumnIndex As Integer) As Long
    HeadHeight = mvarHeadHeight(ColumnIndex)
End Property

'表頭欄目寬度
Public Property Let HeadWidth(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarHeadWidth(ColumnIndex) = vData
End Property

Public Property Get HeadWidth(ByVal ColumnIndex As Integer) As Long
    HeadWidth = mvarHeadWidth(ColumnIndex)
End Property

'表頭欄目類型
Public Property Let HeadType(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarHeadType(ColumnIndex) = vData
End Property

Public Property Get HeadType(ByVal ColumnIndex As Integer) As Long
    HeadType = mvarHeadType(ColumnIndex)
End Property

'欄目寬度
Public Property Let ColumnCombine(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnCombine(ColumnIndex) = vData
End Property

Public Property Get ColumnCombine(ByVal ColumnIndex As Integer) As String
    ColumnCombine = mvarColumnCombine(ColumnIndex)
End Property

'欄目數
Public Property Let Columns(ByVal vData As Integer)
    mvarColumns = vData
    ReDim mvarColumnWidth(mvarColumns)
    ReDim mvarColumnOrderType(mvarColumns)
    ReDim mvarColumnIsFix(mvarColumns)
    ReDim mvarColumnIsFind(mvarColumns)
    ReDim mvarColumnFieldID(mvarColumns)
    ReDim mvarColumnFieldName(mvarColumns)
    ReDim mvarColumnDesc(mvarColumns)
    ReDim mvarColumnFieldType(mvarColumns)
    ReDim mvarColumnFieldSize(mvarColumns)
    ReDim mvarColumnCombine(mvarColumns)
End Property

Public Property Get Columns() As Integer