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

Private Type BillTypeListType
    sName As String
    bSelected As Boolean
End Type

Private BillTypeList() As BillTypeListType

Private Rs As UfRecordset

Public Function iCount() As Long
    iCount = -1
    
    On Error GoTo Err_iCount
    
    iCount = UBound(BillTypeList) + 1
    
Err_iCount:
End Function

Public Function iNameToIndex(ByVal sName As String) As Long
    Dim i As Long
    
    On Error GoTo Err_iNameToIndex
    
    For i = LBound(BillTypeList) To UBound(BillTypeList)
        If sName = BillTypeList(i).sName Then
           iNameToIndex = i
           Exit For
        End If
    Next i
    
Err_iNameToIndex:
End Function

Public Function sName(Optional ByVal iIndex = 0) As String
    sName = vbNullString
    
    On Error GoTo Err_sName
    
    sName = BillTypeList(iIndex).sName
    
Err_sName:
End Function

Public Function bEnabled(Optional ByVal iIndex = 0) As Boolean
    bEnabled = False
    
    On Error GoTo Err_bEnabled
    
    Set Rs = dbsZJ.OpenRecordset("Select cValue From AccInformation Where cName = '" & Me.sName(iIndex) & "'")
    If Not Rs.EOF Or Rs.BOF Then
       bEnabled = CBool(Rs.Fields(0).Value)
    Else
       '缺省为 TRUE
       bEnabled = True
    End If
    
Err_bEnabled:
    CloseRS
End Function

Public Function SaveValue(ByVal sName As String, ByVal bEnabled As Boolean) As Boolean
    SaveValue = False
    
    On Error GoTo Err_SaveValue
    
    Set Rs = dbsZJ.OpenRecordset("Select cValue, cName From AccInformation Where cName = '" & sName & "'")
    If Rs.EOF Or Rs.BOF Then
       Rs.AddNew
       Rs.Fields("cName").Value = sName
    Else
       Rs.edit
    End If
    Rs.Fields("cValue").Value = IIf(bEnabled, "1", "0")
    Rs.Update
    
    CloseRS
    SaveValue = True
    
Err_SaveValue:
End Function

Private Sub Class_Initialize()
    Dim PiCount As Long
    
    PiCount = 4
    ReDim BillTypeList(0 To PiCount - 1)
    
    BillTypeList(0).sName = "全部有效"
    BillTypeList(1).sName = "定期存款单"
    BillTypeList(2).sName = "内部拆借单"
    BillTypeList(3).sName = "贷款单"
'    BillTypeList(3).sName = "内部取款"
'    BillTypeList(4).sName = "银行贷款"
'    BillTypeList(5).sName = "内部贷款"
'    BillTypeList(6).sName = "内部拆借"
'    BillTypeList(7).sName = "本金还款-银行贷款"
'    BillTypeList(8).sName = "本金还款-内部贷款"
'    BillTypeList(9).sName = "本金还款-内部拆借"
'    BillTypeList(10).sName = "利息还款-银行贷款"
'    BillTypeList(11).sName = "利息还款-"
'    BillTypeList(12).sName = ""
'    BillTypeList(13).sName = ""
'    BillTypeList(14).sName = ""
'    BillTypeList(15).sName = ""
'    BillTypeList(16).sName = ""
'    BillTypeList(17).sName = ""
'    BillTypeList(18).sName = ""
'    BillTypeList(19).sName = ""
'    BillTypeList(20).sName = ""
    
End Sub

Private Sub CloseRS()
    On Error Resume Next
    Rs.oClose
End Sub