clsbusinessman.cls

来自「直接执行本子系统时」· CLS 代码 · 共 103 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsBusinessman"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public BusinessmanID As String
Public BusinessmanName As String
Public Country As String
Public Province As String
Public City As String
Public Address As String
Public Linkman As String
Public Telephone As String
Public Fax As String
Public Sub Update(ByVal OriBusinessmanID As String)
   
  '连接数据库
  MyDB.openDB
  
  
  '设置Update语句
   SqlStmt = "Update Businessman Set BusinessmanID='" + Trim(BusinessmanID) _
   + "',BusinessmanName='" + Trim(BusinessmanName) + "',Country='" + Trim(Country) _
   + "',Province='" + Trim(Province) _
   + "',City='" + Trim(City) + "',Address='" + Trim(Address) _
   + "',Linkman='" + Trim(Linkman) + "',Telephone='" + Trim(Telephone) _
   + "',Fax='" + Trim(Fax) + "' WHERE BusinessmanID='" + Trim(OriBusinessmanID) + "'"
  
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsBusinessman As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsBusinessman, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Sub Insert()
  
  '连接数据库
  MyDB.openDB
  
  '设置Insert语句
  SqlStmt = "INSERT INTO Businessman (BusinessmanID, BusinessmanName,Country,Province,City,Address,Linkman,Telephone,Fax)" _
     + " Values('" + Trim(BusinessmanID) + "','" + Trim(BusinessmanName) + "','" + Trim(Country) _
     + "','" + Trim(Province) + "','" + Trim(City) + "','" + Trim(Address) _
     + "','" + Trim(Linkman) + "','" + Trim(Telephone) + "','" + Trim(Fax) + "')"
    
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsBusinessman As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsBusinessman, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Function In_DB(ByVal TempBusinessmanID As Integer) As Boolean
  '连接数据库
  MyDB.openDB
  
  '设置查询语句
  SqlStmt = "SELECT BusinessmanID FROM Businessman WHERE BusinessmanID='" + Trim(TempBusinessmanID) + "'"
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsBusinessmanID As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsBusinessmanID, False)
  
  '判断是否存在
  If rsBusinessmanID.RecordCount <> 0 Then
    In_DB = True
  Else
    In_DB = False
  End If
  
  '断开与数据库的连接
  MyDB.closeDB
  
End Function
Public Sub Delete(ByVal TempBusinessmanID As String)
   '连接数据库
  MyDB.openDB
  
  '设置Delete语句
  SqlStmt = "Delete FROM Businessman WHERE BusinessmanID='" + Trim(TempBusinessmanID) + "'"
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsBusinessman As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsBusinessman, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub