clssalesman.cls

这是一个利用VB编写的中小企业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 Init()
    SalesmanID = ""
    SalesmanName = ""
    Department = ""
End Sub


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