reportsumset.cls

金算盘软件代码

'已选栏目数
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 Integer)
    mvarChoosedLoc(ColumnIndex) = vData
End Property

Public Property Get ChoosedLoc(ByVal ColumnIndex As Integer) As Integer
    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
    If vData > 0 Then
        ReDim mvarGroupLoc(vData - 1)
    End If
End Property

Public Property Get GroupColumns() As Integer
   GroupColumns = mvarGroupColumns
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 ColumnSumed(ByVal ColumnIndex As Integer, ByVal vData As Byte)
    mvarColumnSumed(ColumnIndex) = vData
End Property

Public Property Get ColumnSumed(ByVal ColumnIndex As Integer) As Byte
    ColumnSumed = mvarColumnSumed(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 ColumnDecimal(ByVal ColumnIndex As Integer, ByVal vData As Byte)
    mvarColumnDecimal(ColumnIndex) = vData
End Property

Public Property Get ColumnDecimal(ByVal ColumnIndex As Integer) As Byte
    ColumnDecimal = mvarColumnDecimal(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 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

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

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

Public Property Get ColumnListID(ByVal ColumnIndex As Integer) As Long
    ColumnListID = mvarColumnListID(ColumnIndex)
End Property

'分组栏目在已选栏目中的位置
Public Property Let GroupLoc(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarGroupLoc(ColumnIndex) = vData
End Property

Public Property Get GroupLoc(ByVal ColumnIndex As Integer) As Long
    GroupLoc = mvarGroupLoc(ColumnIndex)
End Property
Public Sub ClearSortNO()
Dim intCount As Integer
    For intCount = 0 To mvarColumns - 1
        mvarColumnSortNO(intCount) = 0
    Next intCount
End Sub
'排序栏目数
Public Property Let SortColumns(ByVal vData As Integer)
    mvarSortColumns = vData
    If vData > 0 Then
        ReDim mvarSortLoc(vData - 1)
        ReDim mvarSortID(vData - 1)
        ReDim mvarSortMethod(vData - 1)
    End If
End Property

Public Property Get SortColumns() As Integer
    SortColumns = mvarSortColumns
End Property
 '排序栏目在已选栏目中的位置
Public Property Let SortLoc(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarSortLoc(ColumnIndex) = vData
End Property
Public Property Get SortLoc(ByVal ColumnIndex As Integer) As Integer
    SortLoc = mvarSortLoc(ColumnIndex)
End Property
 '排序栏目ID
 Public Property Let SortID(ByVal ColumnIndex As Integer, ByVal vData As Long)
    Dim intCount As Integer
    mvarSortID(ColumnIndex) = vData
    For intCount = 0 To Columns - 1
     If vData = mvarColumnID(intCount) Then Exit For
    Next intCount
    mvarSortLoc(ColumnIndex) = intCount
    mvarColumnSortNO(intCount) = 1 + ColumnIndex
End Property
Public Property Get SortID(ByVal ColumnIndex As Integer) As Long
    SortID = mvarSortID(ColumnIndex)
End Property
 '排序方式
Public Property Let SortMethod(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarSortMethod(ColumnIndex) = vData
End Property
Public Property Get SortMethod(ByVal ColumnIndex As Integer) As Integer
    SortMethod = mvarSortMethod(ColumnIndex)
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                           无聊
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'标题宽度
Public Property Let TitleWidth(ByVal vData As Long)
    mvarTitleWidth = vData
End Property

Public Property Get TitleWidth() As Long
    TitleWidth = mvarTitleWidth