reportsumset.cls

金算盘软件代码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ReportSumSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

'  MultiUse = -1  'True
'  Persistable = 0  'NotPersistable
'  DataBindingBehavior = 0  'vbNone
'  DataSourceBehavior = 0   'vbNone
'  MTSTransactionMode = 0   'NotAnMTSObject
'End
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  标准表向导设置类
'  作者：邓强
'  日期：1998.06.26
'
'  GetRepoertID                 没有报表ID号时，根据向导类型得到向导报表ID号
'  GetReportSet                 从报表ID号得到设置
'  GetSQL                       得到SQL语句
'  ShowWizard                   显示向导窗口
'  SaveStandard                 保存类到数据库
'
'        属性                             属性说明
'     ReportPrep                        '表类型0 向导
'     OperatorID                        '操作员ID
'     ReportID                          '报表ID
'     Level                             '报表父节点层次
'     ParentID                          '报表父节点ID
'     ViewID                            '视图ID
'     ReportName                        '报表名称
'     IsOnlyShowSum As Boolean          '是否仅显示汇总数据
'
'     Columns                           '已选栏目数
'     ColumnID()                        '栏目字段ID
'     ColumnDesc()                      '栏目说明
'     ColumnWidth()                     '栏目宽度
'     ColumnFieldName()                 '栏目字段名称
'     ColumnFieldType()                 '栏目字段类型
'
'     ColumnTable() As                  '栏目字段所属表
'     ColumnFieldName()                 '栏目字段名称
'     ColumnFieldDesc()                 '栏目字段说明
'     ColumnFieldCombin()               '栏目合并名称
'     ColumnFieldType()                 '栏目字段类型
'     ColumnFieldSize()                 '栏目字段长度
'     ColumnFieldFormula()               '栏目字段标识(是否计算栏目)
'     ColumnIsFilter()                  '是否过滤栏目
'     ColumnIsChoose()                  '是否可选栏目
'     ColumnIsFixed()                   '是否固定栏目
'
'     GroupColumns                      '分组栏目数
'     ColumnGroupID()                   '分组ID
'     ColumnGroupLoc()                  '分组栏目在已选栏目中的位置
'     ColumnSumID()                     '汇总ID
'     ColumnSumLoc()                    '汇总栏目在已选栏目中的位置
'     ColumnSumMethod()                 '汇总方式
'     ColumnSumDesc()                   '汇总说明
'     SortColumns                       '排序栏目数
'     SortLoc()                         '排序栏目在已选栏目中的位置
'     SortID()                          '排序栏目ID
'     SortMethod()                      '排序方式
'
'     HeadColumns                       '已选表头栏目数
'     HeadDesc()                        '表头栏目说明
'     HeadFuncIndex()                   '表头栏目涵数索引
'     HeadWidth()                       '表头栏目宽度
'     HeadHeight()                      '表头栏目高度
'     HeadLeft()                        '表头栏目左间距
'     HeadTop()                         '表头栏目上间距
'     TailColumns                       '已选表尾栏目数
'     TailDesc()                        '表尾栏目说明
'     TailFuncIndex()                   '表尾栏目涵数索引
'     TailWidth()                       '表尾栏目宽度
'     TailHeight()                      '表尾栏目高度
'     TailLeft()                        '表尾栏目左间距
'     TailTop()                         '表尾栏目上间距
'     TitleWidth                        '报表标题宽度
'     TitleHeight                       '报表标题高度
'     TitleLeft                         '报表标题左间距
'     TitleTop                          '报表标题上间距
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Private mstrSql As String
Private mstrSelect As String
Private mstrWhere As String
Private mstrGroup As String
Private mstrOrder As String
Private mvarFrom As String                            'SQL 的 FROM 子句
'Private mvarSaveErr As Boolean                        '报表保存错误

Private mvarReportPrep As Byte                        '表类型0 向导
Private mvarOperatorID As Long                        '操作员ID
Private mvarReportID As Long                          '报表ID
Private mvarPrintSetID As Long                        '报表打印设置ID
Private mvarVersion As Integer                        '报表版本号
Private mvarLevel As Integer                          '报表父节点层次
Private mvarParentID As Long                          '报表父节点ID
Private mvarGroupNo As Byte                           '报表分组号
Private mvarViewID As Long                            '视图ID
Private mvarReportName As String                      '报表名称
Private mvarReportCond As String                      '报表附加条件
Private mvarViewCond As String                        '报表附加条件
Private mvarGridTop As Long                           '报表GRID顶端位置
Private mvarColumns As Integer                        '报表栏目数

Private mcolFieldID As Collection                     '报表字段ID位置集合
Private mvarCustomFields As Integer                   '报表自定义栏目数

Private mvarChoosedColumns As Integer                 '已选栏目数
Private mvarChoosedLoc() As Integer                   '已选栏目在报表栏目中的位置
Private mvarFixedCol As Integer                       '固定列数

Private mvarColumnID() As Long                        '栏目字段ID
Private mvarReportFieldID() As Long                   '报表栏目字段ID
Private mvarColumnDesc() As String                    '栏目说明
Private mvarColumnWidth() As Long                     '栏目宽度
Private mvarColumnHeight() As Long                    '栏目高度
Private mvarColumnLeft() As Long                      '栏目左间距
Private mvarColumnTop() As Long                       '栏目上间距
Private mvarColumnAlign() As Integer                  '栏目对齐方式
Private mvarColumnStyle() As Byte                     '栏目类型0 标准 1 分组 2 排序
Private mvarColumnSort() As Byte                      '排序方式
Private mvarColumnSortNO() As Integer                 '排序栏目序号
Private mvarCodeName() As Byte                        '表头编码加名称
Private mvarColumnNO() As Integer                     '栏目序号
Private mvarGroupName() As String                     '栏目分组字段名

Private mvarColumnChoosed() As Byte                   '是否已选栏目
Private mvarColumnSumed() As Byte                     '是否表汇总栏目
Private mvarColumnFixed() As Byte                     '是否固定栏目
Private mvarColumnFieldName() As String               '栏目字段名称
Private mvarColumnFieldDesc() As String               '栏目字段说明
Private mvarColumnFieldCombin() As String             '栏目合并名称
Private mvarColumnFieldType() As String               '栏目字段类型
Private mvarColumnFieldSize() As Byte                 '栏目字段长度
Private mvarColumnFieldFormula() As Byte              '栏目字段标识
Private mvarColumnFieldHead() As Byte                 '栏目字段表头标识
Private mvarCustomFormula() As String                 '自定义栏目公式
Private mvarColumnDecimal() As Byte                   '工资报表字段小数位数

Private mvarListColumns As Integer                    '列表框栏目数
Private mvarColumnListID() As Long                    '列表框栏目ID
Private mvarColumnListLoc() As Integer                '列表框栏目在报表栏目中的位置

Private mvarGroupColumns As Integer                   '分组栏目数
Private mvarGroupLoc() As Integer                     '分组栏目在报表栏目中的位置
Private mvarSortColumns As Integer                    '排序栏目数
Private mvarSortLoc() As Integer                      '排序栏目在报表栏目中的位置
Private mvarSortID() As Long                          '排序栏目ID
Private mvarSortMethod() As Byte                      '排序方式

Private mvarTitleWidth As Long                        '标题宽度
Private mvarTitleHeight As Long                       '标题高度
Private mvarTitleLeft As Long                         '标题左间距
Private mvarTitleTop As Long                          '标题上间距
Private mvarTitleAlign As Integer                     '标题对齐方式

Private mvarCondShow As Byte                          '查询条件显示方式
Private mvarCondWidth As Long                         '查询条件宽度
Private mvarCondHeight As Long                        '查询条件高度
Private mvarCondLeft As Long                          '查询条件左间距
Private mvarCondTop As Long                           '查询条件上间距
Private mvarCondAlign As Integer                      '查询条件对齐方式

'工资
Private mvarSalaryID As String                       '工资表ID串
Private mvarSalFieldID As String                     '工资字段ID串


'''''''''''''''''''''''''''''''''''''''''''''''''''
'                汇总表向导设置类属性
'
'''''''''''''''''''''''''''''''''''''''''''''''''''
'报表栏目数
Public Property Let CustomFields(ByVal vData As Integer)
    mvarCustomFields = vData
End Property

Public Property Get CustomFields() As Integer
    CustomFields = mvarCustomFields
End Property
'表类型0 向导
Public Property Let ReportPrep(ByVal vData As Byte)
    mvarReportPrep = vData
End Property

Public Property Get ReportPrep() As Byte
    ReportPrep = mvarReportPrep
End Property
'报表ID
Public Property Let ReportID(ByVal vData As Long)
    mvarReportID = vData
End Property

Public Property Get ReportID() As Long
    ReportID = mvarReportID
End Property
'报表打印设置ID
Public Property Get PrintSetId() As Long
    PrintSetId = mvarPrintSetID
End Property
'报表父节点层次
Public Property Let Level(ByVal vData As Integer)
    mvarLevel = vData
End Property

Public Property Get Level() As Integer
    Level = mvarLevel
End Property
'报表父节点ID
Public Property Let ParentId(ByVal vData As Long)
    mvarParentID = vData
End Property

Public Property Get ParentId() As Long
    ParentId = mvarParentID
End Property

'视图ID
Public Property Let ViewId(ByVal vData As Long)
    mvarViewID = vData
End Property

Public Property Get ViewId() As Long
    ViewId = mvarViewID
End Property

'报表名称
Public Property Let ReportName(ByVal vData As String)
    mvarReportName = vData
End Property

Public Property Get ReportName() As String
    ReportName = mvarReportName
End Property
'报表分组号
Public Property Let GroupNo(ByVal vData As Byte)
    mvarGroupNo = vData
End Property

Public Property Get GroupNo() As Byte
   GroupNo = mvarGroupNo
End Property
'报表附加条件
Public Property Let ReportCond(ByVal vData As String)
    mvarReportCond = vData
End Property

Public Property Get ReportCond() As String
    ReportCond = mvarReportCond
End Property
'报表View条件
Public Property Let ViewCond(ByVal vData As String)
    mvarViewCond = vData
End Property

Public Property Get ViewCond() As String
    ViewCond = mvarViewCond
End Property
'报表GRID顶端位置
Public Property Let GridTop(ByVal vData As Long)
    mvarGridTop = vData
End Property

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

'SQL 的 FROM 子句
Public Property Let FROM(ByVal vData As String)
    mvarFrom = vData
End Property

Public Property Get FROM() As String
   FROM = mvarFrom
End Property
'报表栏目数
Public Property Let Columns(ByVal vData As Integer)
    mvarColumns = vData
    If vData = 0 Then Exit Property
    ReDim mvarColumnID(vData - 1)
    ReDim mvarReportFieldID(vData - 1)
    ReDim mvarColumnDesc(vData - 1)
    ReDim mvarColumnWidth(vData - 1)
    ReDim mvarColumnHeight(vData - 1)
    ReDim mvarColumnLeft(vData - 1)
    ReDim mvarColumnTop(vData - 1)
    ReDim mvarColumnAlign(vData - 1)
    ReDim mvarColumnStyle(vData - 1)
    ReDim mvarColumnSort(vData - 1)
    ReDim mvarColumnSortNO(vData - 1)
    ReDim mvarColumnNO(vData - 1)
    ReDim mvarCodeName(vData - 1)
    ReDim mvarGroupName(vData - 1)
    ReDim mvarColumnChoosed(vData - 1)
    ReDim mvarColumnSumed(vData - 1)
    ReDim mvarCustomFormula(vData - 1)
    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 mvarColumnFixed(vData - 1)
    
End Property

Public Property Get Columns() As Integer
    Columns = mvarColumns
End Property