baseinfo.cls

银行设备管理系统,采用VB+SQL实现,包含源程序及数据库备份,完美运行,完整无缺.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BaseInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' 定义属性, 对应表BaseInfo中的字段
Public InfoID As Long
Public InfoName As String
Public TypeID As Integer

'下面是数据库操作代码, SQLExt()和QueryExt()是自定义的数据库操作函数
'初始化
Public Sub Init()
  InfoName = ""
  TypeID = 1
End Sub

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

'判断记录是否存在
Public Function In_DB(ByVal TmpInfoName As String, ByVal TmpTid As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM BaseInfo WHERE InfoName='" _
          + Trim(TmpInfoName) + "' AND TypeId=" + Trim(Str(TmpTid))
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

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

  If rs.EOF Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    If IsNull(rs.Fields(0)) Then   '编号
      InfoID = 0
    Else
      InfoID = rs.Fields(0)
    End If
   
    If IsNull(rs.Fields(1)) Then   '名称
      InfoName = ""
    Else
      InfoName = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then  '种类编号
      TypeID = 1
    Else
      TypeID = rs.Fields(2)
    End If
    GetInfo = True
  End If
End Function

'插入分类
Public Sub Insert()
  SqlStmt = "INSERT INTO BaseInfo VALUES('" + Trim(InfoName) + "'," + Trim(TypeID) + ")"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpId As Long)
   SqlStmt = "UPDATE BaseInfo SET InfoName='" + Trim(InfoName) _
          + "' Where InfoId = " + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub