standardreportset.cls

金算盘软件代码

    ReDim mvarColumnDecimal(vData - 1)
    
    ReDim mvarColumnFieldName(vData - 1)
    ReDim mvarColumnFieldDesc(vData - 1)
    ReDim mvarColumnFieldCombin(vData - 1)
    ReDim mvarColumnFieldType(vData - 1)
    ReDim mvarColumnFieldSize(vData - 1)
    ReDim mvarColumnFieldFormula(vData - 1)
    ReDim mvarColumnFieldHead(vData - 1)
    ReDim mvarColumnFormat(vData - 1)
    ReDim mvarColumnFixed(vData - 1)
    
End Property

Public Property Get Columns() As Integer
    Columns = mvarColumns
End Property
'已选栏目数
Public Property Let ChoosedColumns(ByVal vData As Integer)
    mvarChoosedColumns = vData
    If vData = 0 Then Exit Property
    ReDim mvarChoosedLoc(vData - 1)
End Property

Public Property Get ChoosedColumns() As Integer
    ChoosedColumns = mvarChoosedColumns
End Property
'已选栏目在报表栏目中的位置
Public Property Let ChoosedLoc(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarChoosedLoc(ColumnIndex) = vData
End Property

Public Property Get ChoosedLoc(ByVal ColumnIndex As Integer) As Long
    ChoosedLoc = mvarChoosedLoc(ColumnIndex)
End Property
'固定列数
Public Property Let FixedCol(ByVal vData As Integer)
    mvarFixedCol = vData
End Property

Public Property Get FixedCol() As Integer
    FixedCol = mvarFixedCol
End Property

'分组栏目数
Public Property Let GroupColumns(ByVal vData As Integer)
    mvarGroupColumns = vData
    ReDim mvarColumnGroupID(mvarGroupColumns * conSumCount)
    ReDim mvarColumnGroupLoc(mvarGroupColumns * conSumCount)
    ReDim mvarColumnSumID(mvarGroupColumns * conSumCount)
    ReDim mvarColumnSumLoc(mvarGroupColumns * conSumCount)
    ReDim mvarColumnSumMethod(mvarGroupColumns * conSumCount)
    ReDim mvarColumnSumDesc(mvarGroupColumns * conSumCount)
End Property

Public Property Get GroupColumns() As Integer
   GroupColumns = mvarGroupColumns
End Property

'是否仅显示汇总数据
Public Property Let IsOnlyShowSum(ByVal vData As Byte)
    mvarIsOnlyShowSum = vData
End Property

Public Property Get IsOnlyShowSum() As Byte
    IsOnlyShowSum = mvarIsOnlyShowSum
End Property
'是否旋转显示
Public Property Let RotateShow(ByVal vData As Byte)
    mvarRotate = vData
End Property

Public Property Get RotateShow() As Byte
    RotateShow = mvarRotate
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
'报表字段ID
Public Property Let ReportFieldID(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarReportFieldID(ColumnIndex) = vData
End Property

Public Property Get ReportFieldID(ByVal ColumnIndex As Integer) As Long
    ReportFieldID = mvarReportFieldID(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 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 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
'栏目左边距
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 ColumnAlign(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarColumnAlign(ColumnIndex) = vData
End Property

Public Property Get ColumnAlign(ByVal ColumnIndex As Integer) As Integer
    ColumnAlign = mvarColumnAlign(ColumnIndex)
End Property
'栏目类型
Public Property Let ColumnStyle(ByVal ColumnIndex As Integer, ByVal vData As Byte)
    mvarColumnStyle(ColumnIndex) = vData
End Property

Public Property Get ColumnStyle(ByVal ColumnIndex As Integer) As Byte
    ColumnStyle = mvarColumnStyle(ColumnIndex)
End Property
'栏目排序
Public Property Let ColumnSort(ByVal ColumnIndex As Integer, ByVal vData As Byte)
    mvarColumnSort(ColumnIndex) = vData
End Property

Public Property Get ColumnSort(ByVal ColumnIndex As Integer) As Byte
    ColumnSort = mvarColumnSort(ColumnIndex)
End Property


'是否已选栏目
Public Property Let ColumnChoosed(ByVal ColumnIndex As Integer, ByVal vData As Byte)
    mvarColumnChoosed(ColumnIndex) = vData
End Property

Public Property Get ColumnChoosed(ByVal ColumnIndex As Integer) As Byte
    ColumnChoosed = mvarColumnChoosed(ColumnIndex)
End Property
'自定义栏目公式
Public Property Let CustomFormula(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarCustomFormula(ColumnIndex) = vData
End Property

Public Property Get CustomFormula(ByVal ColumnIndex As Integer) As String
    CustomFormula = mvarCustomFormula(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 ColumnFieldDesc(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnFieldDesc(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldDesc(ByVal ColumnIndex As Integer) As String
    ColumnFieldDesc = mvarColumnFieldDesc(ColumnIndex)
End Property
'栏目合并名称
Public Property Let ColumnFieldCombin(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnFieldCombin(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldCombin(ByVal ColumnIndex As Integer) As String
    ColumnFieldCombin = mvarColumnFieldCombin(ColumnIndex)
End Property
'表头编码加名称
Public Property Let CodeName(ByVal ColumnIndex As Integer, ByVal vData As Byte)
    mvarCodeName(ColumnIndex) = vData
End Property

Public Property Get CodeName(ByVal ColumnIndex As Integer) As Byte
    CodeName = mvarCodeName(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 ColumnFieldSize(ByVal ColumnIndex As Integer, ByVal vData As Byte)
    mvarColumnFieldSize(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldSize(ByVal ColumnIndex As Integer) As Byte
    ColumnFieldSize = mvarColumnFieldSize(ColumnIndex)
End Property
'栏目字段标识
Public Property Let ColumnFieldFormula(ByVal ColumnIndex As Integer, ByVal vData As Byte)
    mvarColumnFieldFormula(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldFormula(ByVal ColumnIndex As Integer) As Byte
    ColumnFieldFormula = mvarColumnFieldFormula(ColumnIndex)
End Property
'栏目字段表头标识
Public Property Let ColumnFieldHead(ByVal ColumnIndex As Integer, ByVal vData As Byte)
    mvarColumnFieldHead(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldHead(ByVal ColumnIndex As Integer) As Byte
    ColumnFieldHead = mvarColumnFieldHead(ColumnIndex)
End Property
'栏目字段格式化
Public Property Let ColumnFormat(ByVal ColumnIndex As Integer, ByVal vData As Byte)
    mvarColumnFormat(ColumnIndex) = vData
End Property

Public Property Get ColumnFormat(ByVal ColumnIndex As Integer) As Byte
    ColumnFormat = mvarColumnFormat(ColumnIndex)
End Property

'是否固定栏目
Public Property Let ColumnFixed(ByVal ColumnIndex As Integer, ByVal vData As Byte)
    mvarColumnFixed(ColumnIndex) = vData
End Property

Public Property Get ColumnFixed(ByVal ColumnIndex As Integer) As Byte
    ColumnFixed = mvarColumnFixed(ColumnIndex)
End Property
'列表框栏目数
Public Property Let ListColumns(ByVal vData As Integer)
    mvarListColumns = vData
    If vData > 0 Then
        ReDim mvarColumnListLoc(vData - 1)
        ReDim mvarColumnListID(vData - 1)
    End If
End Property

Public Property Get ListColumns() As Integer
    ListColumns = mvarListColumns
End Property
'列表框栏目ID(供工资报表用)
Public Property Let ColumnListID(ByVal ColumnIndex As Integer, ByVal vData As Long)
Dim intCount As Integer
    mvarColumnListID(ColumnIndex) = vData
End Property

Public Property Get ColumnListID(ByVal ColumnIndex As Integer) As Long
    ColumnListID = mvarColumnListID(ColumnIndex)
End Property
'列表框栏目在已选栏目中的位置
Public Property Let ColumnListLoc(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarColumnListLoc(ColumnIndex) = vData
End Property

Public Property Get ColumnListLoc(ByVal ColumnIndex As Integer) As Long
    ColumnListLoc = mvarColumnListLoc(ColumnIndex)
End Property
'栏目分组
Public Property Let ColumnGroup(ByVal ColumnIndex As Integer, ByVal vData As Double)
    mvarColumnGroup(ColumnIndex) = vData
End Property

Public Property Get ColumnGroup(ByVal ColumnIndex As Integer) As Double
    ColumnGroup = mvarColumnGroup(ColumnIndex)
End Property
'分组ID
Public Property Let ColumnGroupID(ByVal ColumnIndex As Integer, ByVal vData As Long)
    Dim intCount As Integer
    mvarColumnGroupID(ColumnIndex) = vData
    For intCount = 0 To mvarColumns - 1
     If vData = mvarReportFieldID(intCount) Then Exit For
    Next intCount
    mvarColumnGroupLoc(ColumnIndex) = intCount
End Property

Public Property Get ColumnGroupID(ByVal ColumnIndex As Integer) As Long
    ColumnGroupID = mvarColumnGroupID(ColumnIndex)
End Property
'分组栏目在已选栏目中的位置
Public Property Let ColumnGroupLoc(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarColumnGroupLoc(ColumnIndex) = vData
End Property

Public Property Get ColumnGroupLoc(ByVal ColumnIndex As Integer) As Long
    ColumnGroupLoc = mvarColumnGroupLoc(ColumnIndex)
End Property
'汇总字段ID
Public Property Let ColumnSumID(ByVal ColumnIndex As Integer, ByVal vData As Long)
    Dim intCount As Integer
    mvarColumnSumID(ColumnIndex) = vData
    For intCount = 0 To mvarChoosedColumns - 1
        If vData = mvarReportFieldID(mvarChoosedLoc(intCount)) Then Exit For
    Next intCount
    ColumnSumLoc(ColumnIndex) = intCount
End Property

Public Property Get ColumnSumID(ByVal ColumnIndex As Integer) As Long
    ColumnSumID = mvarColumnSumID(ColumnIndex)
End Property
'汇总栏目在已选栏目中的位置
Public Property Let ColumnSumLoc(ByVal ColumnIndex As Integer, ByVal vData As Long)