members.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 = "Members"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 MemId 自动编号
'2 MemName  文本 长度 50 家庭成员姓名
'3 Sex  文本 长度 10 性别
'4 Birth 文本 长度 50 生日
'5 Mobile  文本 长度 50  手机号
'6 Job 文本 长度 100  工作单位

Public MemId As Long
Public MemName As String
Public Sex As String
Public Birth As String
Public Mobile As String
Public Job As String

Public Sub Init()
  MemName = ""
  Sex = "男"
  Birth = ""
  Mobile = ""
  Job = ""
End Sub

'删除
Public Sub Delete(ByVal TmpMemId As Long)
  SqlStmt = "DELETE FROM Members WHERE MemId=" + Trim(TmpMemId)
  SQLExt (SqlStmt)
End Sub

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

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

  If rs.EOF Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    If IsNull(rs.Fields(0)) Then   '编号
      MemId = 0
    Else
      MemId = rs.Fields(0)
    End If
   
    If IsNull(rs.Fields(1)) Then   '成员姓名
      MemName = ""
    Else
      MemName = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then  '性别
      Sex = "男"
    Else
      Sex = Trim(rs.Fields(2))
    End If
    If IsNull(rs.Fields(3)) Then  '生日
      Birth = ""
    Else
      Birth = Trim(rs.Fields(3))
    End If
    If IsNull(rs.Fields(4)) Then  '手机号码
      Mobile = ""
    Else
      Mobile = Trim(rs.Fields(4))
    End If
    If IsNull(rs.Fields(5)) Then  '工作单位
      Job = ""
    Else
      Job = Trim(rs.Fields(5))
    End If
    GetInfo = True
  End If
End Function

'插入分类
Public Sub Insert()
  SqlStmt = "INSERT INTO Members(MemName,Sex,Birth,Mobile,Job) VALUES('" _
       + Trim(MemName) + "','" + Trim(Sex) + "','" _
       + Trim(Birth) + "','" + Trim(Mobile) + "','" _
       + Trim(Job) + "')"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpMemId As Long)
   SqlStmt = "UPDATE Members SET MemName='" + Trim(MemName) _
          + "',Sex='" + Trim(Sex) + "',Birth='" + Trim(Birth) _
          + "',Mobile='" + Trim(Mobile) + "',Job='" + Trim(Job) _
          + "' Where MemId = " + Trim(Str(TmpMemId))
  SQLExt (SqlStmt)
End Sub