age.cls

金算盘软件代码

Public Property Get TailDesc(ByVal ColumnIndex As Integer) As String
    TailDesc = mvarTailDesc(ColumnIndex)
End Property

'表尾栏目函数索引
Public Property Let TailFuncIndex(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarTailFuncIndex(ColumnIndex) = vData
End Property

Public Property Get TailFuncIndex(ByVal ColumnIndex As Integer) As Integer
    TailFuncIndex = mvarTailFuncIndex(ColumnIndex)
End Property

'表尾栏目宽度
Public Property Let TailWidth(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarTailWidth(ColumnIndex) = vData
End Property

Public Property Get TailWidth(ByVal ColumnIndex As Integer) As Long
    TailWidth = mvarTailWidth(ColumnIndex)
End Property

'表尾栏目高度
Public Property Let TailHeight(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarTailHeight(ColumnIndex) = vData
End Property

Public Property Get TailHeight(ByVal ColumnIndex As Integer) As Long
    TailHeight = mvarTailHeight(ColumnIndex)
End Property

'表尾栏目左间距
Public Property Let TailLeft(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarTailLeft(ColumnIndex) = vData
End Property

Public Property Get TailLeft(ByVal ColumnIndex As Integer) As Long
    TailLeft = mvarTailLeft(ColumnIndex)
End Property

'表尾栏目上间距
Public Property Let TailTop(ByVal ColumnIndex As Integer, ByVal vData As Long)
    mvarTailTop(ColumnIndex) = vData
End Property

Public Property Get TailTop(ByVal ColumnIndex As Integer) As Long
    TailTop = mvarTailTop(ColumnIndex)
End Property
'表尾栏目对齐方式
Public Property Let TailAlign(ByVal ColumnIndex As Integer, ByVal vData As Integer)
    mvarTailAlign(ColumnIndex) = vData
End Property

Public Property Get TailAlign(ByVal ColumnIndex As Integer) As Integer
    TailAlign = mvarTailAlign(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 TitleLeft(ByVal vData As Long)
    mvarTitleLeft = vData
End Property

Public Property Get TitleLeft() As Long
    TitleLeft = mvarTitleLeft
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 TitleAlign(ByVal vData As Integer)
    mvarTitleAlign = vData
End Property

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

'纸张宽度
Public Property Let PrintWidth(ByVal vData As Long)
    mvarPrintWidth = vData
End Property

Public Property Get PrintWidth() As Long
    PrintWidth = mvarPrintWidth
End Property

'纸张长度
Public Property Let PrintLength(ByVal vData As Long)
    mvarPrintLength = vData
End Property

Public Property Get PrintLength() As Long
    PrintLength = mvarPrintLength
End Property

'打印设置ID
Public Property Let PrintID(ByVal vData As Long)
    mvarPrintID = vData
End Property

Public Property Get PrintID() As Long
    PrintID = mvarPrintID
End Property

'打印方向
Public Property Let PrintOrient(ByVal vData As Long)
    mvarPrintOrient = vData
End Property

Public Property Get PrintOrient() As Long
    PrintOrient = mvarPrintOrient
End Property

'负数显示方式
Public Property Let ShowNegivate(ByVal vData As Byte)
    mvarShowNegivate = vData
End Property

Public Property Get ShowNegivate() As Byte
    ShowNegivate = mvarShowNegivate
End Property

'显示 0 标志
Public Property Let ShowZero(ByVal vData As Boolean)
    mvarShowZero = vData
End Property

Public Property Get ShowZero() As Boolean
    ShowZero = mvarShowZero
End Property

'显示小数标志
Public Property Let ShowCent(ByVal vData As Boolean)
    mvarShowCent = vData
End Property

Public Property Get ShowCent() As Boolean
    ShowCent = mvarShowCent
End Property

'除以 1000 标志
Public Property Let Divide(ByVal vData As Boolean)
    mvarDivide = vData
End Property

Public Property Get Divide() As Boolean
    Divide = mvarDivide
End Property

'栏目分组标志
Public Property Let ColGrouped(ByVal i As Integer, ByVal vData As Boolean)
    mvarColGrouped(i) = vData
End Property

Public Property Get ColGrouped(ByVal i As Integer) As Boolean
    ColGrouped = mvarColGrouped(i)
End Property

'分析日期描述: 开票日 或 到期日
Public Property Let AgeDateDesc(ByVal vData As String)
    mvarAgeDateDesc = vData
End Property

Public Property Get AgeDateDesc() As String
    AgeDateDesc = mvarAgeDateDesc
End Property

'帐龄分析区间数目
Public Property Let PeriodNumber(ByVal vData As Integer)
    mvarPeriodNumber = vData
    
    ReDim mvarPeriodName(vData)
    ReDim mvarPeriodDay(vData)
    
End Property

Public Property Get PeriodNumber() As Integer
    PeriodNumber = mvarPeriodNumber
End Property

'帐龄分析区间天数
Public Property Let PeriodDay(ByVal i As Integer, ByVal vData As Integer)
    mvarPeriodDay(i) = vData
End Property

Public Property Get PeriodDay(ByVal i As Integer) As Integer
    PeriodDay = mvarPeriodDay(i)
End Property

'帐龄分析区间描述
Public Property Let PeriodName(ByVal i As Integer, ByVal vData As String)
    mvarPeriodName(i) = vData
End Property

Public Property Get PeriodName(ByVal i As Integer) As String
    PeriodName = mvarPeriodName(i)
End Property

'栏目字段大小
Public Property Let ColFieldSize(ByVal i As Integer, ByVal vData As Byte)
    mvarColFieldSize(i) = vData
End Property

Public Property Get ColFieldSize(ByVal i As Integer) As Byte

    ColFieldSize = mvarColFieldSize(i)
End Property

'栏目视图ID
Public Property Let colFieldID(ByVal i As Integer, ByVal vData As Long)
    mvarColFieldID(i) = vData
End Property

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

'固定栏目标志
Public Property Let ColIsFixed(ByVal i As Integer, ByVal vData As Boolean)
    mvarColIsFixed(i) = vData
End Property

Public Property Get ColIsFixed(ByVal i As Integer) As Boolean
    ColIsFixed = mvarColIsFixed(i)
End Property

'栏目排序方式
Public Property Let ColOrderType(ByVal i As Integer, ByVal vData As Byte)
    mvarColOrderType(i) = vData
End Property

Public Property Get ColOrderType(ByVal i As Integer) As Byte
    ColOrderType = mvarColOrderType(i)
End Property

'显示宽度
Public Property Let ColWidth(ByVal i As Integer, ByVal vData As Long)
    mvarColWidth(i) = vData
End Property


Public Property Get ColWidth(ByVal i As Integer) As Long
    ColWidth = mvarColWidth(i)
End Property

'显示版本号
Public Property Get ColVersionType(ByVal i As Integer) As Long
    ColVersionType = mvarColVersionType(i)
End Property
Public Property Let ColVersionType(ByVal i As Integer, ByVal vData As Long)
    mvarColVersionType(i) = vData
End Property

'父节点层次
Public Property Let ParentLevel(ByVal vData As Integer)
    mvarParentLevel = vData
End Property

Public Property Get ParentLevel() As Integer
    ParentLevel = mvarParentLevel
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 ColIsChoosed(ByVal i As Integer, ByVal vData As Boolean)
    mvarColIsChoosed(i) = vData
End Property

Public Property Get ColIsChoosed(ByVal i As Integer) As Boolean
    ColIsChoosed = mvarColIsChoosed(i)
End Property


'截止日期
Public Property Let AgeEndDate(ByVal vData As String)
    mvarAgeEndDate = vData
End Property

Public Property Get AgeEndDate() As String
    AgeEndDate = mvarAgeEndDate
End Property

'分析日期
Public Property Let AgeStartDate(ByVal vData As String)
    mvarAgeStartDate = vData
End Property

Public Property Get AgeStartDate() As String
    AgeStartDate = mvarAgeStartDate
End Property
Public Property Let AgePre(ByVal vData As Byte)
    mvarPre = vData
End Property

Public Property Get AgePre() As Byte
    AgePre = mvarPre
End Property


'栏目数
Public Property Let ColNumber(ByVal vData As Integer)
    mvarColNumber = vData
    
    ReDim mvarColDesc(vData)
    ReDim mvarColName(vData)
    ReDim mvarColTable(vData)
    ReDim mvarColType(vData)
    ReDim mvarColIsChoosed(vData)
    ReDim mvarColWidth(vData)
    ReDim mvarColVersionType(vData)
    ReDim mvarColOrderType(vData)
    ReDim mvarColIsFixed(vData)
    ReDim mvarColFieldID(vData)
    ReDim mvarColFieldSize(vData)
    ReDim mvarColGrouped(vData)
    ReDim mblnIsHeadCol(vData)
End Property

Public Property Get ColNumber() As Integer
    ColNumber = mvarColNumber
End Property

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

Public Property Get AgeName() As String