financereportwizard.cls

金算盘软件代码

    ReDim mvarHeadFuncIndex(mvarHeadColumns - 1)
    ReDim mvarHeadWidth(mvarHeadColumns - 1)
    ReDim mvarHeadHeight(mvarHeadColumns - 1)
    ReDim mvarHeadLeft(mvarHeadColumns - 1)
    ReDim mvarHeadTop(mvarHeadColumns - 1)
    ReDim mvarHeadAlignment(mvarHeadColumns - 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

Public Property Get HeadWidth(ByVal ColumnIndex As Integer) As Long
    HeadWidth = mvarHeadWidth(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 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 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
'表头对齐方式
Public Property Get HeadAlign(ByVal ColumnIndex As Integer) As Integer
    HeadAlign = mvarHeadAlignment(ColumnIndex)
End Property

Public Property Let HeadAlign(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarHeadAlignment(ColumnIndex) = vData
End Property
'已选表尾栏目数
Public Property Let TailColumns(ByVal vData As Integer)
    mvarTailColumns = vData
    If mvarTailColumns = 0 Then Exit Property
    ReDim mvarTailDesc(mvarTailColumns - 1)
    ReDim mvarTailFuncIndex(mvarTailColumns - 1)
    ReDim mvarTailWidth(mvarTailColumns - 1)
    ReDim mvarTailHeight(mvarTailColumns - 1)
    ReDim mvarTailLeft(mvarTailColumns - 1)
    ReDim mvarTailTop(mvarTailColumns - 1)
    ReDim mvarTailAlignment(mvarTailColumns - 1)
End Property
Public Property Get TailColumns() As Integer
    TailColumns = mvarTailColumns
End Property
'表尾栏目说明
Public Property Let TailDesc(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarTailDesc(ColumnIndex) = vData
End Property

Public Property Get TailDesc(ByVal ColumnIndex As Integer) As String
    TailDesc = mvarTailDesc(ColumnIndex)
End Property
'表尾栏目函数索引
Public Property Let TailFuncIndex(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarTailFuncIndex(ColumnIndex) = vData
End Property

Public Property Get TailFuncIndex(ByVal ColumnIndex As Integer) As Integer
    TailFuncIndex = mvarTailFuncIndex(ColumnIndex)
End Property
'表尾栏目宽度
Public Property Let TailWidth(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarTailWidth(ColumnIndex) = vData
End Property

Public Property Get TailWidth(ByVal ColumnIndex As Integer) As Long
    TailWidth = mvarTailWidth(ColumnIndex)
End Property
'表尾栏目高度
Public Property Let TailHeight(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarTailHeight(ColumnIndex) = vData
End Property

Public Property Get TailHeight(ByVal ColumnIndex As Integer) As Long
    TailHeight = mvarTailHeight(ColumnIndex)
End Property
'表尾栏目左间距
Public Property Let TailLeft(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarTailLeft(ColumnIndex) = vData
End Property

Public Property Get TailLeft(ByVal ColumnIndex As Integer) As Long
    TailLeft = mvarTailLeft(ColumnIndex)
End Property
'表尾栏目上间距
Public Property Let TailTop(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarTailTop(ColumnIndex) = vData
End Property

Public Property Get TailTop(ByVal ColumnIndex As Integer) As Long
    TailTop = mvarTailTop(ColumnIndex)
End Property
'表头对齐方式
Public Property Get TailAlign(ByVal ColumnIndex As Integer) As Integer
    TailAlign = mvarTailAlignment(ColumnIndex)
End Property

Public Property Let TailAlign(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarTailAlignment(ColumnIndex) = vData
End Property
'报表标题宽度
Public Property Let TitleWidth(ByVal vData As Long)
    mvarTitleWidth = vData
End Property

Public Property Get TitleWidth() As Long
    TitleWidth = mvarTitleWidth
End Property
'报表标题高度
Public Property Let TitleHeight(ByVal vData As Long)
    mvarTitleHeight = vData
End Property

Public Property Get TitleHeight() As Long
    TitleHeight = mvarTitleHeight
End Property
'报表标题左间距
Public Property Let TitleLeft(ByVal vData As Long)
    mvarTitleLeft = vData
End Property

Public Property Get TitleLeft() As Long
    TitleLeft = mvarTitleLeft
End Property
'标题对齐方式
Public Property Get TitleAlign() As Integer
    TitleAlign = mvarTitleAlignment
End Property

Public Property Let TitleAlign(ByVal vData As Integer)
    mvarTitleAlignment = vData
End Property
'表尾栏目上间距
Public Property Let TitleTop(ByVal vData As Long)
    mvarTitleTop = vData
End Property

Public Property Get TitleTop() As Long
    TitleTop = mvarTitleTop
End Property
'报表上边距
Public Property Get GridTop() As Integer
    GridTop = mvarGridTop
End Property
Public Property Let GridTop(ByVal vData As Integer)
    mvarGridTop = vData
End Property

'取 FROM 子句
Public Property Get FromOfSql() As String
    FromOfSql = mvarFrom
End Property
Public Property Let FromOfSql(ByVal vData As String)
    mvarFrom = vData
End Property

'取 SELECT 子句
Public Property Get SelectOfSql() As String
    SelectOfSql = mvarSelect
End Property
Public Property Let SelectOfSql(ByVal vData As String)
    mvarSelect = vData
End Property

'取 WHERE 子句
Public Property Get WhereOfSql() As String
    WhereOfSql = mvarWhere
End Property
Public Property Let WhereOfSql(ByVal vData As String)
    mvarWhere = vData
End Property

'取 GROUP BY 子句
Public Property Get GroupBy() As String
    GroupBy = mvarGroupBy
End Property

'分析期ViewID
Public Property Get AnalyViewFieldID() As Long
    AnalyViewFieldID = mvarAnalyViewFieldID
End Property

Public Property Let AnalyViewFieldID(ByVal vData As Long)
    mvarAnalyViewFieldID = vData
End Property
'分析期2ViewID
Public Property Get OtherAnalyViewFieldID() As Long
    OtherAnalyViewFieldID = mvarOtherAnalyViewFieldID
End Property

Public Property Let OtherAnalyViewFieldID(ByVal vData As Long)
    mvarOtherAnalyViewFieldID = vData
End Property

'比较期ViewID
Public Property Get ReferViewFieldID() As Long
    ReferViewFieldID = mvarReferViewFieldID
End Property
'比较期2ViewID
Public Property Get OtherReferViewFieldID() As Long
    OtherReferViewFieldID = mvarOtherReferViewFieldID
End Property
Public Property Let OtherReferViewFieldID(ByVal vData As Long)
    mvarOtherReferViewFieldID = vData
End Property

'报告期ViewID
Public Property Get ReportViewFieldID() As Long
    ReportViewFieldID = mvarReportViewFieldID
End Property

'数据类型
Public Property Get AccountDataType() As String
    AccountDataType = mvarAccountDataType
End Property

'数据类型ID
Public Property Get AccountTypeID() As Byte
    AccountTypeID = mvarAccountTypeID
End Property
'报表类型
Public Property Get AccountStyle() As Byte
    AccountStyle = mvarAccountStyle
End Property
Public Property Let AccountStyle(ByVal vData As Byte)
    mvarAccountStyle = vData
End Property

Public Property Get ParentId() As Long
    ParentId = mlngParentID
End Property
Public Property Let ParentId(ByVal vData As Long)
    mlngParentID = vData
End Property

Public Property Get IsNewReport() As Boolean
    IsNewReport = mblnIsNewReport
End Property
Public Property Let IsNewReport(ByVal vData As Boolean)
    mblnIsNewReport = vData
End Property

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

'报表修改后
'分析期起始时间
Public Property Get AnalyStart() As Date
    AnalyStart = mvarAnalyStart
End Property
Public Property Let AnalyStart(ByVal vData As Date)
    mvarAnalyStart = vData
End Property

'分析期终止时间
Public Property Get AnalyEnd() As Date
    AnalyEnd = mvarAnalyEnd
End Property
Public Property Let AnalyEnd(ByVal vData As Date)
    mvarAnalyEnd = vData
End Property

'比较期起始时间
Public Property Get ReferStart() As Date
    ReferStart = mvarReferStart
End Property
Public Property Let ReferStart(ByVal vData As Date)
    mvarReferStart = vData
End Property

'比较期终止时间
Public Property Get ReferEnd() As Date
    ReferEnd = mvarReferend
End Property
Public Property Let ReferEnd(ByVal vData As Date)
    mvarReferend = vData
End Property
'报告期类型
Public Property Get ReportPeriod() As String
    ReportPeriod = mvarReportPeriod
End Property
Public Property Let ReportPeriod(ByVal vData As String)
    mvarReportPeriod = vData
End Property

'当前是否是比较期
Public Property Get IsReferPeriod() As Boolean
    IsReferPeriod = mblnHasReferPeriod
End Property
'分析期类型
Public Property Get AnalyPeriod() As String
    AnalyPeriod = mvarAnalyPeriodType
End Property
Public Property Let AnalyPeriod(ByVal vData As String)
    mvarAnalyPeriodType = vData
End Property
'比较期类型