?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -