quotaset.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 = "QuotaSet"
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.12.20
'
'  GetRepoertID                 没有报表ID号时，根据向导类型得到向导报表ID号
'  GetReportSet                 从报表ID号得到设置
'  GetSQL                       得到SQL语句
'  ShowWizard                   显示向导窗口
'  SaveTable                    保存类到数据库
'
'        属性                             属性说明
'     ReportPrep                        '表类型0 向导
'     OperatorID                        '操作员ID
'     ReportID                          '报表ID
'     Level                             '报表父节点层次
'     ParentID                          '报表父节点ID
'     ViewID                            '视图ID
'     ReportName                        '报表名称
'     ShowNegivate                      '显示负数
'     Divide                            '除以1000
'     ShowCent                          '显示小数
'     ShowZero                          '显示零
'
'     Columns                           '已选栏目数
'     ColumnID()                        '栏目字段ID
'     ColumnDesc()                      '栏目说明
'     ColumnWidth()                     '栏目宽度
'     ColumnFieldName()                 '栏目字段名称
'     ColumnFieldType()                 '栏目字段类型
'
'     HeadColumns                       '已选表头栏目数
'     HeadDesc()                        '表头栏目说明
'     HeadFuncIndex()                   '表头栏目涵数索引
'     HeadWidth()                       '表头栏目宽度
'     HeadHeight()                      '表头栏目高度
'     HeadLeft()                        '表头栏目左间距
'     HeadTop()                         '表头栏目上间距
'     TailColumns                       '已选表尾栏目数
'     TailDesc()                        '表尾栏目说明
'     TailFuncIndex()                   '表尾栏目涵数索引
'     TailWidth()                       '表尾栏目宽度
'     TailHeight()                      '表尾栏目高度
'     TailLeft()                        '表尾栏目左间距
'     TailTop()                         '表尾栏目上间距
'     TitleWidth                        '报表标题宽度
'     TitleHeight                       '报表标题高度
'     TitleLeft                         '报表标题左间距
'     TitleTop                          '报表标题上间距
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Private mstrSelect As String
Private mstrWhere As String
Private mstrHaving As String
Private mvarFrom As String                            'SQL 的 FROM 子句
Private mstrGroup As String                           'SQL 的 Group BY 子句
Private mstrIncome As String                          '配款收入字段名
'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                        '报表View条件
Private mvarGridTop As Long                           '报表GRID顶端位置

Private mvarSalaryList As String                      '工资表
Private mvarSalField As String                        '工资配款项目
Private mvarStandard As String                        '工资配款标准字段

Private mvarColumns As Integer                        '栏目数
Private mvarColumnID() 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 Integer                  '栏目类型
Private mvarCodeName() As Byte                        '表头编码加名称
Private mvarColumnChoosed() As Byte                   '是否已选栏目
Private mvarFieldSize() As Integer                    '栏目字段大小
Private mvarFieldDesc() As String                     '栏目字段说明
Private mvarFieldName() As String                     '栏目字段名称
Private mvarFieldType() As String                     '栏目字段类型
Private mvarFieldHead() As Integer                    '列表框栏目标志
Private mvarFieldFixed() As Byte                      '固定栏目

Private mvarChoosedColumns As Integer                 '已选栏目数
Private mvarChoosedID() As Long                       '已选栏目ID
Private mvarChoosedLoc() As Integer                   '已选栏目位置

Private mvarListColumns As Integer                    '列表框栏目数
Private mvarListID() As Long                          '列表框栏目ID
Private mvarListLoc() As Integer                      '列表框栏目位置

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                      '查询条件对齐方式

'''''''''''''''''''''''''''''''''''''''''''''''''''
'                标准表向导设置类属性
'
'''''''''''''''''''''''''''''''''''''''''''''''''''

'表类型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 OperatorID(ByVal vData As Long)
    mvarOperatorID = vData
End Property

Public Property Get OperatorID() As Long
    OperatorID = mvarOperatorID
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
'报表分组号
Public Property Let GroupNo(ByVal vData As Byte)
    mvarGroupNo = vData
End Property

Public Property Get GroupNo() As Byte
   GroupNo = mvarGroupNo
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 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 SalaryList(ByVal vData As String)
    mvarSalaryList = vData
End Property

Public Property Get SalaryList() As String
    SalaryList = mvarSalaryList
End Property
'工资配款项目
Public Property Let SalField(ByVal vData As String)
    mvarSalField = vData
End Property

Public Property Get SalField() As String
    SalField = mvarSalField
End Property
'工资配款标准字段
Public Property Let Standard(ByVal vData As String)
    mvarStandard = vData
End Property

Public Property Get Standard() As String
    Standard = mvarStandard
End Property


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'栏目数
Public Property Let Columns(ByVal vData As Integer)
    mvarColumns = vData
    If mvarColumns = 0 Then Exit Property
    ReDim mvarColumnID(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 mvarColumnChoosed(vData - 1)
    ReDim mvarFieldName(vData - 1)
    ReDim mvarFieldDesc(vData - 1)
    ReDim mvarCodeName(vData - 1)
    ReDim mvarFieldSize(vData - 1)
    ReDim mvarFieldType(vData - 1)
    ReDim mvarFieldHead(vData - 1)
    ReDim mvarFieldFixed(vData - 1)
    
End Property

Public Property Get Columns() As Integer
    Columns = mvarColumns
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

'栏目说明
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 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 FieldName(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarFieldName(ColumnIndex) = vData
End Property

Public Property Get FieldName(ByVal ColumnIndex As Integer) As String
    FieldName = mvarFieldName(ColumnIndex)
End Property
'栏目类型
Public Property Let ColumnStyle(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarColumnStyle(ColumnIndex) = vData
End Property

Public Property Get ColumnStyle(ByVal ColumnIndex As Integer) As String
    ColumnStyle = mvarColumnStyle(ColumnIndex)
End Property
'栏目字段类型
Public Property Let FieldType(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarFieldType(ColumnIndex) = vData
End Property

Public Property Get FieldType(ByVal ColumnIndex As Integer) As String
    FieldType = mvarFieldType(ColumnIndex)
End Property

'栏目字段大小