coption.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 = "COption"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private m_bAlarm     As Boolean        '--- 是否报警
Private m_iAlarmDays As Integer        '--- 提前报警天数
Private m_iDzdRows   As Integer        '--- 对帐单每页打印行数
Private m_dOption1   As Date           '--- 资金启用日期
Private m_bOption2   As Boolean
Private m_sOption3   As String

Private m_DB         As UfDatabase

Public Property Get Alarm() As Boolean
   Alarm = m_bAlarm
End Property

Public Property Let Alarm(ByVal vNewValue As Boolean)
   m_bAlarm = vNewValue
End Property

Public Property Get AlarmDays() As Integer
   AlarmDays = m_iAlarmDays
End Property

Public Property Let AlarmDays(ByVal vNewValue As Integer)
   m_iAlarmDays = vNewValue
End Property

Public Property Get DzdRows() As Integer
   DzdRows = m_iDzdRows
End Property

Public Property Let DzdRows(ByVal vNewValue As Integer)
   m_iDzdRows = vNewValue
End Property

Public Property Get Option1() As Date
   Option1 = m_dOption1
End Property

Public Property Let Option1(ByVal vNewValue As Date)
   m_dOption1 = vNewValue
End Property

Public Property Get Option2() As Boolean
   Option2 = m_bOption2
End Property

Public Property Let Option2(ByVal vNewValue As Boolean)
   m_bOption2 = vNewValue
End Property

Public Property Get Option3() As String
   Option3 = m_sOption3
End Property

Public Property Let Option3(ByVal vNewValue As String)
   m_sOption3 = vNewValue
End Property

Public Sub Init(oDB As UfDatabase)
   Dim rsOption   As New UfRecordset
   
   Set m_DB = oDB
   Set rsOption = m_DB.OpenRecordset("FD_Option", dbOpenSnapshot)
   With rsOption
      m_bAlarm = !Alarm
      m_iAlarmDays = !Aldays
      m_iDzdRows = !DzdRows
      m_dOption1 = !Option1
      m_bOption2 = IIf(IsNull(!Option2), False, !Option2)
      m_sOption3 = IIf(IsNull(!Option3), "", !Option3)
   End With
   
   rsOption.oClose
   Set rsOption = Nothing
End Sub

Public Sub Save()

End Sub