clssalesman.cls

ERP工程管理子系统,用于ERP编程者参考.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsSalesman"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public SalesmanID As String
Public SalesmanName As String
Public Department As String

Public Sub Insert()
  
  '连接数据库
  MyDB.openDB
  
  '设置Insert语句
  SqlStmt = "INSERT INTO Salesman (SalesmanID, SalesmanName,Department)" _
     + " Values('" + Trim(SalesmanID) + "','" + Trim(SalesmanName) + "','" + Trim(Department) + "')"
    
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsSalesman As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsSalesman, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Sub Update(ByVal OriSalesmanID As String)
   
  '连接数据库
  MyDB.openDB
  
   '设置Update语句
   SqlStmt = "Update Salesman Set SalesmanID='" + Trim(SalesmanID) + "',SalesmanName='" + Trim(SalesmanName) + "',Department='" + Trim(Department) + "' WHERE SalesmanID='" + Trim(OriSalesmanID) + "'"
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsSalesman As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsSalesman, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Sub Delete(ByVal TempSalesmanID As String)
   '连接数据库
  MyDB.openDB
  
  '设置Delete语句
  SqlStmt = "Delete FROM Salesman WHERE SalesmanID='" + Trim(TempSalesmanID) + "'"
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsSalesman As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsSalesman, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Function In_DB(ByVal TempSalesmanID As String) As Boolean
  '连接数据库
  MyDB.openDB
  
  '设置查询语句
  SqlStmt = "SELECT SalesmanID FROM Salesman WHERE SalesmanID='" + Trim(TempSalesmanID) + "'"
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsSalesmanID As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsSalesmanID, False)
  
  '判断是否存在
  If rsSalesmanID.RecordCount <> 0 Then
    In_DB = True
  Else
    In_DB = False
  End If
  
  '断开与数据库的连接
  MyDB.closeDB
  
End Function