bankoper.cls

家庭理财系统,使用VB6.0编写,相当不错,可以用于课程设计

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BankOper"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Id 自动编号
'2 BId  数字 银行编号
'3 MemId  数字 家庭成员编号
'4 OperDate  文本 长度 20 交易日期
'5 ANo 文本 长度 50 账号
'6 OperSum  数字 单精度 交易金额
'7 SMonth 数字 定期存款月份
'8 Interest 数字 单精度 利息
'9 Memos  文本 长度 100 备注
'10 Flag 数字 字节 类型：0-存款；1-取款；2-清户

Public Id As Long
Public BId As Long
Public MemId As Long
Public OperDate As String
Public ANo As String
Public OperSum As Double
Public SMonth As Integer
Public Interest As Double
Public Memos As String
Public Flag As Integer

Public Sub Init()
  BId = 0
  MemId = 0
  OperDate = ""
  ANo = ""
  OperSum = 0
  SMonth = 0
  Interest = 0
  Memos = ""
  Flag = 0
End Sub

'删除
Public Sub Delete(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM BankOper WHERE Id=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

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

  If rs.EOF Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    If IsNull(rs.Fields(0)) Then
      Id = 0
    Else
      Id = rs.Fields(0)
    End If
    If IsNull(rs.Fields(1)) Then
      BId = 0
    Else
      BId = rs.Fields(1)
    End If
   
    If IsNull(rs.Fields(2)) Then
      MemId = 0
    Else
      MemId = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      OperDate = ""
    Else
      OperDate = Trim(rs.Fields(3))
    End If
    If IsNull(rs.Fields(4)) Then
      ANo = ""
    Else
      ANo = Trim(rs.Fields(4))
    End If
    If IsNull(rs.Fields(5)) Then
      OperSum = 0
    Else
      OperSum = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      SMonth = 0
    Else
      SMonth = rs.Fields(6)
    End If
     If IsNull(rs.Fields(7)) Then
      Interest = 0
    Else
      Interest = rs.Fields(7)
    End If
    If IsNull(rs.Fields(8)) Then
      Memos = ""
    Else
      Memos = Trim(rs.Fields(8))
    End If
    If IsNull(rs.Fields(9)) Then
      Flag = 0
    Else
      Flag = rs.Fields(9)
    End If
   GetInfo = True
  End If
End Function

'插入分类
Public Sub Insert()
  SqlStmt = "INSERT INTO BankOper(BId,MemId,OperDate,ANo,OperSum," _
       + "SMonth,Interest,Memos,Flag) VALUES(" + Trim(BId) + "," + Trim(MemId) _
       + ",'" + Trim(OperDate) + "','" + Trim(ANo) + "'," _
       + Trim(OperSum) + "," + Trim(SMonth) + "," _
       + Trim(Interest) + ",'" + Trim(Memos) + "'," + Trim(Flag) + ")"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpId As Long)
   SqlStmt = "UPDATE BankOper SET BId=" + Trim(BId) + ",MemId=" + Trim(MemId) _
          + ",OperDate='" + Trim(OperDate) + "',ANo='" + Trim(ANo) _
          + "',OperSum=" + Trim(OperSum) + ",SMonth=" + Trim(SMonth) _
          + ",Interest=" + Trim(Interest) + ",Memos='" + Trim(Memos) _
          + "',Flag=" + Trim(Flag) + " Where Id = " + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub
'删除指定账号的交易信息
Public Sub DeleteByANo(ByVal TmpANo As String)
  SqlStmt = "DELETE FROM BankOper WHERE ANo='" + Trim(TmpANo) + "'"
  SQLExt (SqlStmt)
End Sub