financereportwizard.cls

金算盘软件代码

    mlngPrintSetupID = vData
End Property

Public Property Get SalaryFieldCount() As Integer
    SalaryFieldCount = mvarSalaryFieldCount
End Property

Public Property Get AccountCond() As String
    AccountCond = mvarAccountCond
End Property

Public Property Get DateCond() As String
    DateCond = mvarDateCond
End Property

Public Property Get DateBegin() As String
    DateBegin = mvarDateBegin
End Property

Public Property Get DateEnd() As String
    DateEnd = mvarDateEnd
End Property

'预算分析的帐务类型
Public Property Get AnalyType() As Byte
    AnalyType = mvarAnalyType
End Property

Public Property Let AnalyType(ByVal vData As Byte)
    mvarAnalyType = vData
End Property

'比较期
Public Property Get AccountCond1() As String
    AccountCond1 = mvarAccountCond1
End Property
Public Property Let AccountCond1(ByVal vData As String)
    mvarAccountCond1 = vData
End Property

Public Property Get DateCond1() As String
    DateCond1 = mvarDateCond1
End Property
Public Property Let DateCond1(ByVal vData As String)
    mvarDateCond1 = vData
End Property

Public Property Get DateBegin1() As String
    DateBegin1 = mvarDateBegin1
End Property

Public Property Get DateEnd1() As String
    DateEnd1 = mvarDateEnd1
End Property

'报告期
Public Property Get RptPeriod() As String
    RptPeriod = mvarRptPeriod
End Property

'栏目数
Public Property Get Columns() As Integer
    Columns = mvarColumns
End Property

Public Property Let Columns(ByVal vData As Integer)
    mvarColumns = vData
    ReDim mvarColumnWidth(mvarColumns)
    ReDim mvarColumnIsFix(mvarColumns)
    ReDim mvarColumnFieldID(mvarColumns)
    ReDim mvarColumnFieldName(mvarColumns)
    ReDim mvarColumnDesc(mvarColumns)
    ReDim mvarColumnFieldType(mvarColumns)
    ReDim mvarColumnFieldSize(mvarColumns)
    ReDim mvarColumnTableName(mvarColumns)
    ReDim mvarColumnIsChoosed(mvarColumns)
    ReDim mvarReportFieldNO(mvarColumns)
    ReDim mvarColumnOrderType(mvarColumns)
    ReDim mvarColumnIsFind(mvarColumns)
    ReDim mvarColumnCombine(mvarColumns)
    ReDim mblnIsHeadColumn(mvarColumns)
    ReDim mbytColumnSort(mvarColumns)
    ReDim mintColumnSortNo(mvarColumns)
End Property

'视图ID
Public Property Get ViewId() As Long
    ViewId = mvarViewID
End Property

Public Property Let ViewId(ByVal vData As Long)
    Dim strView As rdoResultset
    mvarViewID = vData
    Set strView = gclsBase.BaseDB.OpenResultset("Select strViewName,strViewSQL,strViewWhere from View1 Where lngViewId=" & mvarViewID, rdOpenStatic)
    If Not strView.EOF Then
        mvarViewName = strView!strViewName
        mvarFrom = strView!strViewSQL
        mvarViewSQL = strView!strViewSQL
        mvarRelationViewWhere = strView!StrViewWhere
        mvarRelationWhere = mvarRelationViewWhere
        If ViewId = 657 Or ViewId = 658 Then '财务状况分析(不包括期初和期末)
            mvarFrom = GetNoXString(strView!strViewSQL, 1, "|")
            mvarRelationWhere = GetNoXString(mvarRelationViewWhere, 1, "|")
        End If
        If ViewId = 245 Or ViewId = 246 Then '采购、销售分析(不包括订购)
            mvarFrom = GetNoXString(strView!strViewSQL, 1, "#")
            mvarRelationWhere = GetNoXString(mvarRelationViewWhere, 1, "#")
            mstrOrderFrom = GetNoXString(strView!strViewSQL, 2, "#")
            mvarOrderWhere = GetNoXString(mvarRelationViewWhere, 2, "#")
        End If
    End If
    strView.Close
End Property

'视图名称
Public Property Get ViewName() As String
    ViewName = mvarViewName
End Property

'报表名称
Public Property Get ReportName() As String
    ReportName = mvarReportName
End Property

Public Property Let ReportName(ByVal vData As String)
    mvarReportName = vData
End Property

'报表ID
'帐表ID
Public Property Let ReportID(ByVal vData As Long)
    Dim rstReport As rdoResultset
    mvarReportID = vData
    Set rstReport = gclsBase.BaseDB.OpenResultset("Select strReportName,bytAccountType,bytPrep,intLevel,lngParentID,bytGroup from Report Where lngReportId=" & mvarReportID, rdOpenStatic)
    If Not rstReport.EOF Then
        mvarReportName = rstReport!strReportName
        mvarReportType = rstReport!bytAccountType
        mbytPrep = rstReport!bytPrep
        mbytGroup = rstReport!bytGroup
        If mlngParentID = 0 Then
            mlngParentID = rstReport!lngParentId
            mintParentLevel = rstReport!intLevel
        End If
    End If
    rstReport.Close
End Property
'向导，预置表，或 自定义
Public Property Get bytPrep() As Byte
    bytPrep = mbytPrep
End Property

Public Property Let bytPrep(ByVal vData As Byte)
    mbytPrep = vData
End Property

Public Property Get ReportID() As Long
    ReportID = mvarReportID
End Property

'报表类型
Public Property Get ReportType() As Integer
    ReportType = mvarReportType
End Property
 
Public Property Let ReportType(ByVal vData As Integer)
    mvarReportType = vData
End Property

'固定栏目数
Public Property Get FixColumns() As Integer
    FixColumns = mvarFixColumns
End Property

Public Property Let FixColumns(ByVal vData As Integer)
    mvarFixColumns = vData
End Property

'已选栏目数。
Public Property Get ChoosedColumns() As Integer
    ChoosedColumns = mvarChoosedColumns
End Property

Public Property Let ChoosedColumns(ByVal vData As Integer)
    mvarChoosedColumns = vData
End Property

'栏目字段宽度
Public Property Get ColumnWidth(ByVal ColumnIndex As Integer) As Long
    ColumnWidth = mvarColumnWidth(ColumnIndex)
End Property

Public Property Let ColumnWidth(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarColumnWidth(ColumnIndex) = vData
End Property
'1999-10-29
'是否是固定列的数据（可用作表头的栏目——分析表没有表头）
Public Property Get IsHeadColumn(ByVal ColumnIndex As Integer) As Boolean
    IsHeadColumn = mblnIsHeadColumn(ColumnIndex)
End Property

Public Property Let IsHeadColumn(ByVal ColumnIndex As Integer, ByVal vData As Boolean)
    mblnIsHeadColumn(ColumnIndex) = vData
End Property
'mbytColumnSort排序方式
Public Property Get ColumnSort(ByVal ColumnIndex As Integer) As Boolean
    ColumnSort = mbytColumnSort(ColumnIndex)
End Property

Public Property Let ColumnSort(ByVal ColumnIndex As Integer, ByVal vData As Boolean)
    mbytColumnSort(ColumnIndex) = vData
End Property
'mintColumnSortNo
Public Property Get ColumnSortNo(ByVal ColumnIndex As Integer) As Integer
    ColumnSortNo = mintColumnSortNo(ColumnIndex)
End Property

Public Property Let ColumnSortNo(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mintColumnSortNo(ColumnIndex) = vData
End Property
'**********************************************************************************************8

'是否固定栏目
Public Property Get ColumnIsFix(ByVal ColumnIndex As Integer) As Integer
    ColumnIsFix = mvarColumnIsFix(ColumnIndex)
End Property

Public Property Let ColumnIsFix(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarColumnIsFix(ColumnIndex) = vData
End Property

'是否已选栏目
Public Property Get ColumnIsChoosed(ByVal ColumnIndex As Integer) As Integer
    ColumnIsChoosed = mvarColumnIsChoosed(ColumnIndex)
End Property

Public Property Let ColumnIsChoosed(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarColumnIsChoosed(ColumnIndex) = vData
End Property

'栏目字段ID
Public Property Get ColumnFieldID(ByVal ColumnIndex As Integer) As Variant
    ColumnFieldID = mvarColumnFieldID(ColumnIndex)
End Property

Public Property Let ColumnFieldID(ByVal ColumnIndex As Integer, ByVal vData As Variant)
    mvarColumnFieldID(ColumnIndex) = vData
End Property

'栏目字段名
Public Property Get ColumnFieldName(ByVal ColumnIndex As Integer) As String
    ColumnFieldName = mvarColumnFieldName(ColumnIndex)
End Property

Public Property Let ColumnFieldName(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnFieldName(ColumnIndex) = vData
End Property

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

Public Property Let ColumnDesc(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnDesc(ColumnIndex) = vData
End Property

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

Public Property Let ColumnFieldType(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnFieldType(ColumnIndex) = vData
End Property

''''''''''''''''''''''''''''
'栏目字段长度
Public Property Get ColumnFieldSize(ByVal ColumnIndex As Integer) As Integer
    ColumnFieldSize = mvarColumnFieldSize(ColumnIndex)
End Property

Public Property Let ColumnFieldSize(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarColumnFieldSize(ColumnIndex) = vData
End Property

'排序字段

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

Public Property Let ColumnOrderType(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarColumnOrderType(ColumnIndex) = vData
End Property

''''''''''''''''''''''''''''
'栏目字段所属表名
Public Property Get ColumnTableName(ByVal ColumnIndex As Integer) As String
    ColumnTableName = mvarColumnTableName(ColumnIndex)
End Property

Public Property Let ColumnTableName(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnTableName(ColumnIndex) = vData
End Property

'字段栏目顺序号
Public Property Get ReportFieldNO(ByVal ColumnIndex As Integer) As Long
    ReportFieldNO = mvarReportFieldNO(ColumnIndex)
End Property

Public Property Let ReportFieldNO(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarReportFieldNO(ColumnIndex) = vData
End Property

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

Public Property Let ColumnCombine(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnCombine(ColumnIndex) = vData
End Property

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

Public Property Let ColumnIsFind(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarColumnIsFind(ColumnIndex) = vData
End Property
'已选表头栏目数
Public Property Let HeadColumns(ByVal vData As Integer)
    mvarHeadColumns = vData
    If mvarHeadColumns = 0 Then Exit Property
    ReDim mvarHeadDesc(mvarHeadColumns - 1)