crossset.cls

金算盘软件代码

'栏目宽度
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 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 Long)
    mvarColumnAlign(ColumnIndex) = vData
End Property

Public Property Get ColumnAlign(ByVal ColumnIndex As Integer) As Long
    ColumnAlign = mvarColumnAlign(ColumnIndex)
End Property

'栏目表名称
Public Property Let TableName(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarTableName(ColumnIndex) = vData
End Property

Public Property Get TableName(ByVal ColumnIndex As Integer) As String
    TableName = mvarTableName(ColumnIndex)
End Property
'栏目字段说明
Public Property Let ColumnFieldDesc(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarFieldDesc(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldDesc(ByVal ColumnIndex As Integer) As String
    ColumnFieldDesc = mvarFieldDesc(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 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 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 ColumnFieldName(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarFieldName(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldName(ByVal ColumnIndex As Integer) As String
    ColumnFieldName = mvarFieldName(ColumnIndex)
End Property
'栏目字段类型
Public Property Let ColumnFieldType(ByVal ColumnIndex As Integer, ByVal vData As String)
    mvarFieldType(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldType(ByVal ColumnIndex As Integer) As String
    ColumnFieldType = mvarFieldType(ColumnIndex)
End Property
'栏目字段表头类型
Public Property Let ColumnFieldHead(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarFieldHead(ColumnIndex) = vData
End Property

Public Property Get ColumnFieldHead(ByVal ColumnIndex As Integer) As Integer
    ColumnFieldHead = mvarFieldHead(ColumnIndex)
End Property
'栏目编号
Public Property Let ColumnNO(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarColumnNO(ColumnIndex) = vData
End Property

Public Property Get ColumnNO(ByVal ColumnIndex As Integer) As Integer
    ColumnNO = mvarColumnNO(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 ChoosedColumns(ByVal vData As Integer)
    mvarChoosedColumns = vData
    If mvarChoosedColumns = 0 Then Exit Property
    ReDim mvarChoosedID(mvarChoosedColumns - 1)
    ReDim mvarChoosedLoc(mvarChoosedColumns - 1)
End Property

Public Property Get ChoosedColumns() As Integer
    ChoosedColumns = mvarChoosedColumns
End Property
'已选栏目字段ID
Public Property Let ChoosedID(ByVal ColumnIndex As Integer, ByVal vData As Long)
Dim intCount As Integer
    mvarChoosedID(ColumnIndex) = vData
End Property

Public Property Get ChoosedID(ByVal ColumnIndex As Integer) As Long
    ChoosedID = mvarChoosedID(ColumnIndex)
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 ListColumns(ByVal vData As Integer)
    mvarListColumns = vData
    If mvarListColumns = 0 Then Exit Property
    ReDim mvarListID(mvarListColumns - 1)
    ReDim mvarListLoc(mvarListColumns - 1)
   
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
    mvarListID(ColumnIndex) = vData
'    For intCount = 0 To mvarColumns - 1
'        If mvarColumnID(intCount) = vData Then
'            Exit For
'        End If
'    Next intCount
'    mvarListLoc(ColumnIndex) = intCount
End Property

Public Property Get ColumnListID(ByVal ColumnIndex As Integer) As Long
    ColumnListID = mvarListID(ColumnIndex)
End Property
'列表框栏目字段位置
Public Property Let ColumnListLoc(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarListLoc(ColumnIndex) = vData
End Property

Public Property Get ColumnListLoc(ByVal ColumnIndex As Integer) As Integer
    ColumnListLoc = mvarListLoc(ColumnIndex)
End Property

'行标题栏目数
Public Property Let RowColumns(ByVal vData As Integer)
    mvarRowColumns = vData
    If mvarRowColumns = 0 Then Exit Property
    ReDim mvarRowFieldID(mvarRowColumns - 1)
    ReDim mvarRowLoc(mvarRowColumns - 1)
End Property

Public Property Get RowColumns() As Integer
    RowColumns = mvarRowColumns
End Property
'行标题字段名称
Public Property Let RowFieldID(ByVal ColumnIndex As Integer, ByVal vData As Long)
Dim intCount As Integer
    mvarRowFieldID(ColumnIndex) = vData
    For intCount = 0 To mvarColumns - 1
      If vData = mvarColumnID(intCount) Then Exit For
    Next intCount
    mvarRowLoc(ColumnIndex) = intCount
End Property

Public Property Get RowFieldID(ByVal ColumnIndex As Integer) As Long
    RowFieldID = mvarRowFieldID(ColumnIndex)
End Property
'行标题在已选栏目中的位置
Public Property Let RowLoc(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarRowLoc(ColumnIndex) = vData
End Property

Public Property Get RowLoc(ByVal ColumnIndex As Integer) As Integer
    RowLoc = mvarRowLoc(ColumnIndex)
End Property
'列标题栏目数
Public Property Let ColColumns(ByVal vData As Integer)
    mvarColColumns = vData
    If mvarColColumns = 0 Then Exit Property
    ReDim mvarColFieldID(mvarColColumns - 1)
    ReDim mvarColLoc(mvarColColumns - 1)
End Property

Public Property Get ColColumns() As Integer
    ColColumns = mvarColColumns
End Property
'列标题字段ID
Public Property Let colFieldID(ByVal ColumnIndex As Integer, ByVal vData As Long)
Dim intCount As Integer
    mvarColFieldID(ColumnIndex) = vData
    For intCount = 0 To mvarColumns - 1
      If vData = mvarColumnID(intCount) Then Exit For
    Next intCount
    mvarColLoc(ColumnIndex) = intCount
End Property

Public Property Get colFieldID(ByVal ColumnIndex As Integer) As Long
    colFieldID = mvarColFieldID(ColumnIndex)
End Property

'列标题在已选栏目中的位置
Public Property Let ColLoc(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarColLoc(ColumnIndex) = vData
End Property

Public Property Get ColLoc(ByVal ColumnIndex As Integer) As Integer
    ColLoc = mvarColLoc(ColumnIndex)
End Property
'数据栏目数
Public Property Let DataColumns(ByVal vData As Integer)
    mvarDataColumns = vData
    If mvarDataColumns = 0 Then Exit Property
    ReDim mvarDataFieldID(mvarDataColumns - 1)
    ReDim mvarDataLoc(mvarDataColumns - 1)
End Property

Public Property Get DataColumns() As Integer
    DataColumns = mvarDataColumns
End Property
'数据栏目字段ID
Public Property Let DataFieldID(ByVal ColumnIndex As Integer, ByVal vData As Long)
Dim intCount As Integer
    mvarDataFieldID(ColumnIndex) = vData
    For intCount = 0 To mvarColumns - 1
      If vData = mvarColumnID(intCount) Then Exit For
    Next intCount
    mvarDataLoc(ColumnIndex) = intCount
End Property

Public Property Get DataFieldID(ByVal ColumnIndex As Integer) As Long
    DataFieldID = mvarDataFieldID(ColumnIndex)
End Property
'数据栏目在已选栏目中的位置
Public Property Let DataLoc(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarDataLoc(ColumnIndex) = vData
End Property

Public Property Get DataLoc(ByVal ColumnIndex As Integer) As Integer
    DataLoc = mvarDataLoc(ColumnIndex)
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                           无聊
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'标题宽度
Public Property Let TitleWidth(ByVal vData As Long)
    mvarTitleWidth = vData
End Property

Public Property Get TitleWidth() As Long
    TitleWidth = mvarTitleWidth
End Property
'标题高度
Public Property Let TitleHeight(ByVal vData As Long)
    mvarTitleHeight = vData
End Property

Public Property Get TitleHeight() As Long
    TitleHeight = mvarTitleHeight
End Property
'标题上边距
Public Property Let TitleTop(ByVal vData As Long)
    mvarTitleTop = vData
End Property

Public Property Get TitleTop() As Long
    TitleTop = mvarTitleTop
End Property
'标题左边距
Public Property Let TitleLeft(ByVal vData As Long)
    mvarTitleLeft = vData
End Property

Public Property Get TitleLeft() As Long
    TitleLeft = mvarTitleLeft
End Property
'标题对齐方式
Public Property Let TitleAlign(ByVal vData As Integer)
    mvarTitleAlign = vData
End Property

Public Property Get TitleAlign() As Integer
    TitleAlign = mvarTitleAlign
End Property

'查询条件显示方式
Public Property Let CondShow(ByVal vData As Byte)
    mvarCondShow = vData
End Property

Public Property Get CondShow() As Byte
    CondShow = mvarCondShow
End Property
'查询条件宽度
Public Property Let CondWidth(ByVal vData As Long)
    mvarCondWidth = vData
End Property

Public Property Get CondWidth() As Long
    CondWidth = mvarCondWidth
End Property
'查询条件高度
Public Property Let CondHeight(ByVal vData As Long)
    mvarCondHeight = vData
End Property

Public Property Get CondHeight() As Long
    CondHeight = mvarCondHeight
End Property
'查询条件上边距
Public Property Let CondTop(ByVal vData As Long)
    mvarCondTop = vData
End Property

Public Property Get CondTop() As Long
    CondTop = mvarCondTop
End Property
'查询条件左边距
Public Property Let CondLeft(ByVal vData As Long)
    mvarCondLeft = vData
End Property

Public Property Get CondLeft() As Long
    CondLeft = mvarCondLeft
End Property
'查询条件对齐方式
Public Property Let CondAlign(ByVal vData As Integer)
    mvarCondAlign = vData
End Property

Public Property Get CondAlign() As Integer
    CondAlign = mvarCondAlign
End Property



'''''''''''''''''''''''''''''''''''''''''''''''''''
'                标准表向导设置类方法
'
'''''''''''''''''''''''''''''''''''''''''''''''''''

'没有报表ID号时，根据向导类型得到向导报表ID号
Public Sub GetRepoertID(ByVal lngViewId As Long)
Dim rstView As rdoResultset
Dim strSql As String
    strSql = "SELECT Report.lngReportID FROM  View1 Where Report.bytPrep=0 and Report.bytWizard=4 and Report.lngViewID=" & lngViewId
    Set rstView = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
    If Not rstView.EOF Then
        GetReportSet rstView!lngReportID
    End If
    Set rstView = Nothing
End Sub
'从ID号得到设置