base.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 = "Base"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'  帐套类
'  作者：魏然
'  日期：1998.05.18
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Private Const conBaseType As String = "btAccess"

Private mintToWorkRate As Integer                       '单位为在职人员缴纳比例
Private mintToRetire As Integer                         '单位为退休人员缴纳比例
Private mintPersonRate As Integer                       '在职人员个人缴纳比例
Private mintRetireRate As Integer                       '划入退休人员个人帐户比例
Private mdblFundAverage As Double                       '医疗保险统筹基金起付标准年平均
Private mdblFundLimit As Double                         '医疗保险统筹基金起付标准最高限额

Private mvarBaseDate As Date                            '登录日期
Private mvarBeginDate As Date                           '帐套启用日期
Private mvarEndDate As Date                             '帐套结束日期
Private mstrFirstDate As String                         '帐套会计年度第一期间第一天

Private mvarManager As String                           '会计主管
Private mvarBaseDB As rdoConnection                     '帐套DataBase
Private mvarBaseFile As String                          '帐套文件名（包括路径）
Private mvarBaseName As String                          '帐套名称
Private mvarBaseType As String                          '帐套类型
Private mvarOperatorID As Long                          '操作员ID
Private mvarOperatorName As String                      '操作员名称
Private mvarYear As Integer                             '会计年度
Private mvarPeriod As Integer                           '会计期间
Private mvarBaseWorkSpace As rdoEnvironment             '工作区间

Private mvarNaturalCurId As Long                        '本位币ID
Private mvarNaturalCurCode As String                    '本位币编码
Private mvarNaturalCurName As String                    '本位币名称
Private mvarNaturalCurDec As Byte                       '本位币小数位数
Private mvarNaturalRateDec As Byte                      '本位币汇率小数位数
Private mvarQuantityDec As Byte                         '数量小数位数
Private mvarPriceDec As Byte                            '单价小数位数
Private mvarCustomerName As String                      '本单位名称
Private mvarCustomerAddress As String                   '本单位地址
Private mcolCurrencyDec As Collection                   '币种小数位数
Private mcolRateDec As Collection                       '汇率小数位数

Private mintBeginYear As Integer                        '启用年
Private mbytBeginPeriod As Byte                         '启用期间

Private mstrVersion As String
Private mstrAccountSys As String                        '会计制度
Private mblnIsControl As Boolean                        '是否控制科目
Private mvarPeriodEnd As Date                           '本期结束日期
Private mvarPeriodBegin As Date                         '本期开始日期

Private mUID As String                                  '连接数据库用户名

Private mblnBaseNoControl As Boolean
Private mcolPeriodClose As Collection
Private mcolPeriodBegin As Collection
Private mcolPeriodEnd As Collection
Private mcolYear As Collection
Private mcolPeriod As Collection

Private mstrTrade As String
Private mblnRePrint As Boolean                          '再打印权限
Private mblnEditPrinted As Boolean                      '打印后的修改查询权限
Private mbytEditMVoucher As Byte
Private mblnNoOrder As Boolean                          '序时录入单据号
Private mblnAutoNo As Boolean                           '自动单据号
Private mstrCon As String                               '连接串(外部打开数据库时使用)
Private mblnDemoVersion As Boolean                      '是否演示版
Private mintMaxClosedYear As Integer                    '已结帐最大年度
Private mbytMaxClosedPeriod As Byte                     '已结帐最大期间
Private mbytVersionType As Byte                         '版本类型(0=默认,1=教学版)

'''''''''''''''''''''''''''''''''''''''''''''''''''
'                帐套类属性
'
'''''''''''''''''''''''''''''''''''''''''''''''''''

'当前会计制度
Public Property Get AccountSys() As String
    AccountSys = mstrAccountSys
End Property

'当前会计年度
Public Property Let AccountYear(ByVal vData As Integer)
    mvarYear = vData
End Property

Public Property Get AccountYear() As Integer
    AccountYear = mvarYear
End Property

'自动单据号
Public Property Get AutoNo() As Boolean
    AutoNo = mblnAutoNo
End Property

'帐套是否非控制
Public Property Get BaseNoControl() As Boolean
    BaseNoControl = mblnBaseNoControl
End Property

'帐套日期
Public Property Let BaseDate(ByVal vData As String)
    mvarBaseDate = vData
End Property

Public Property Get BaseDate() As String
    BaseDate = Format(mvarBaseDate, "yyyy-MM-dd")
End Property

'帐套rdoConnection
Public Property Set BaseDB(ByVal vData As rdoConnection)
    Set mvarBaseDB = vData
End Property

Public Property Get BaseDB() As rdoConnection
    Set BaseDB = mvarBaseDB
End Property

'帐套文件
Public Property Let BaseFile(ByVal vData As String)
    mvarBaseFile = vData
End Property

Public Property Get BaseFile() As String
    BaseFile = mvarBaseFile
End Property

'帐套名称
Public Property Let BaseName(ByVal vData As String)
    mvarBaseName = vData
End Property

Public Property Get BaseName() As String
    BaseName = mvarBaseName
End Property

'帐套类型
Public Property Let BaseType(ByVal vData As String)
    mvarBaseType = vData
End Property

Public Property Get BaseType() As String
    BaseType = mvarBaseType
End Property

Public Property Get BaseWorkSpace() As rdoEnvironment
    Set BaseWorkSpace = mvarBaseWorkSpace
End Property

'帐套启用日期
Public Property Get BeginDate() As String
    BeginDate = Format(mvarBeginDate, "yyyy-MM-dd")
End Property

'启用会计期间
Public Property Get BeginPeriod() As Byte
    BeginPeriod = mbytBeginPeriod
End Property

'启用会计年度
Public Property Get BeginYear() As Integer
    BeginYear = mintBeginYear
End Property

'打印后的修改查询权限
Public Property Get blnEditPrinted() As Boolean
    blnEditPrinted = mblnEditPrinted
End Property
Public Property Let blnEditPrinted(ByVal vData As Boolean)
    mblnEditPrinted = vData
End Property

'再打印权限
Public Property Get blnRePrint() As Boolean
    blnRePrint = mblnRePrint
End Property
Public Property Let blnRePrint(ByVal vData As Boolean)
    mblnRePrint = vData
End Property

'是控制科目
Public Property Get ControlAccount() As Boolean
    ControlAccount = mblnIsControl
End Property

'连接串
Public Property Get ConnectString() As String
    ConnectString = mstrCon
End Property

'本单位名称
Public Property Let CustomerName(ByVal vData As String)
    mvarCustomerName = vData
End Property

Public Property Get CustomerName() As String
    CustomerName = mvarCustomerName
End Property

'本单位地址
Public Property Let CustomerAddress(ByVal vData As String)
    mvarCustomerAddress = vData
End Property

Public Property Get CustomerAddress() As String
    CustomerAddress = mvarCustomerAddress
End Property

'是否演示版
Public Property Get DemoVersion() As Boolean
    DemoVersion = mblnDemoVersion
End Property

Public Property Let DemoVersion(ByVal vData As Boolean)
    mblnDemoVersion = vData
End Property

'修改机制凭证权限(0=不能修改 1=部分修改 2=全部修改)
Public Property Get EditMVoucher() As Byte
    EditMVoucher = mbytEditMVoucher
End Property

'修改机制凭证权限(0=不能修改 1=部分修改 2=全部修改)
Public Property Let EditMVoucher(New_Value As Byte)
    mbytEditMVoucher = New_Value
End Property

'帐套结束日期
Public Property Get EndDate() As String
    EndDate = Format(mvarEndDate, "yyyy-MM-dd")
End Property

'帐套会计年度第一期间第一天
Public Property Get FirstDate() As String
    FirstDate = Format(mstrFirstDate, "yyyy-MM-dd")
End Property

'医疗保险统筹基金起付标准年平均
Public Property Get FundAverage() As Double
    FundAverage = mdblFundAverage
End Property

Public Property Let FundAverage(ByVal vData As Double)
    mdblFundAverage = vData
End Property

'医疗保险统筹基金起付标准最高限额
Public Property Get FundLimit() As Double
    FundLimit = mdblFundLimit
End Property

Public Property Let FundLimit(ByVal vData As Double)
    mdblFundLimit = vData
End Property

'会计主管
Public Property Let Manager(ByVal vData As String)
    mvarManager = vData
End Property

Public Property Get Manager() As String
    Manager = mvarManager
End Property

Public Property Get MaxClosedYear() As Integer
    MaxClosedYear = mintMaxClosedYear
End Property

Public Property Get MaxClosedPeriod() As Byte
    MaxClosedPeriod = mbytMaxClosedPeriod
End Property

Public Property Get NaturalCurDec() As Byte
    NaturalCurDec = mvarNaturalCurDec
End Property

Public Property Get NaturalCurId() As Long
    NaturalCurId = mvarNaturalCurId
End Property

Public Property Get NaturalRateDec() As Byte
    NaturalRateDec = mvarNaturalRateDec
End Property

Public Property Get NaturalCurCode() As String
    NaturalCurCode = mvarNaturalCurCode
End Property

Public Property Get NaturalCurName() As String
    NaturalCurName = mvarNaturalCurName
End Property

Public Property Get NoOrder() As Boolean
    NoOrder = mblnNoOrder
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

'操作员名称
Public Property Let OperatorName(ByVal vData As String)
    mvarOperatorName = vData
End Property

Public Property Get OperatorName() As String
    OperatorName = mvarOperatorName
End Property

'当前会计期间
Public Property Let Period(ByVal vData As Integer)
    mvarPeriod = vData
End Property

Public Property Get Period() As Integer
    Period = mvarPeriod
End Property