banks.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 = "Banks"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 BId 自动编号
'2 BankName  文本 长度 100 银行全称
'3 BShort  文本 长度 50 简称
'4 Place 文本 长度 200 地点

Public BId As Long
Public BankName As String
Public BShort As String
Public Place As String

Public Sub Init()
  BankName = ""
  BShort = ""
  Place = ""
End Sub

'删除
Public Sub Delete(ByVal TmpBId As Long)
  SqlStmt = "DELETE FROM Banks WHERE BankId=" + Trim(TmpBId)
  SQLExt (SqlStmt)
End Sub

Public Function In_DB(ByVal TmpBankName As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Banks WHERE BankName='" _
          + Trim(TmpBankName) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

Public Function GetInfo(ByVal TmpBId As Long) As Boolean
  Dim rs As New ADODB.Recordset  '定义结果集对象
  
  '设置SELECT语句，读取编号为TmpBId的记录
  SqlStmt = "SELECT * FROM Banks WHERE BankId=" + Trim(TmpBId)
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    If IsNull(rs.Fields(0)) Then   '编号
      BId = 0
    Else
      BId = rs.Fields(0)
    End If
   
    If IsNull(rs.Fields(1)) Then   '银行全称
      BankName = ""
    Else
      BankName = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then  '简称
      BShort = ""
    Else
      BShort = Trim(rs.Fields(2))
    End If
    If IsNull(rs.Fields(3)) Then  '地点
      Place = ""
    Else
      Place = Trim(rs.Fields(3))
    End If
    GetInfo = True
  End If
End Function

'插入分类
Public Sub Insert()
  SqlStmt = "INSERT INTO Banks(BankName,BShort,Place) VALUES('" _
       + Trim(BankName) + "','" + Trim(BShort) + "','" _
       + Trim(Place) + "')"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpBId As Long)
   SqlStmt = "UPDATE Banks SET BankName='" + Trim(BankName) _
          + "',BShort='" + Trim(BShort) + "',Place='" + Trim(Place) _
          + "' Where BankId = " + Trim(Str(TmpBId))
  SQLExt (SqlStmt)
End Sub