clsbuyer.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 = "ClsBuyer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public BuyerID As Integer
Public BuyerName As String
Public Department As String
Public Sub Init()
 BuyerID = ""
 BuyerName = ""
 Department = ""
End Sub
Public Sub Insert()
  
  '连接数据库
  MyDB.openDB
  
  '设置Insert语句
  SqlStmt = "INSERT INTO Buyer (BuyerID, BuyerName,Department)" _
     + " Values('" + Trim(BuyerID) + "','" + Trim(BuyerName) + "','" + Trim(Department) + "')"
    
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsBuyer As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsBuyer, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Sub Update(ByVal OriBuyerID As String)
   
  '连接数据库
  MyDB.openDB
  
   '设置Update语句
   SqlStmt = "Update Buyer Set BuyerID=" + Trim(BuyerID) + ",BuyerName='" + Trim(BuyerName) + "',Department='" + Trim(Department) + "' WHERE BuyerID=" + Trim(OriBuyerID) + ""
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsBuyer As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsBuyer, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Sub Delete(ByVal TempBuyerID As Integer)
   '连接数据库
  MyDB.openDB
  
  '设置Delete语句
  SqlStmt = "Delete FROM Buyer WHERE BuyerID=" + Trim(TempBuyerID) + ""
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsBuyer As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsBuyer, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Function In_DB(ByVal TempBuyerID As Integer) As Boolean
  '连接数据库
  MyDB.openDB
  
  '设置查询语句
  SqlStmt = "SELECT BuyerID FROM Buyer WHERE BuyerID=" + Trim(TempBuyerID) + ""
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsBuyerID As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsBuyerID, False)
  
  '判断是否存在
  If rsBuyerID.RecordCount <> 0 Then
    In_DB = True
  Else
    In_DB = False
  End If
  
  '断开与数据库的连接
  MyDB.closeDB
  
End Function