clsbuyer.cls

来自「ERP工程管理子系统,用于ERP编程者参考.」· CLS 代码 · 共 93 行

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 String
Public BuyerName As String
Public Department As String

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 String)
   '连接数据库
  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 String) 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