clsdeliver.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 = "ClsDeliver"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public CustomerID As String
Public DeliverID 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 Delete(ByVal TempDeliverID As String)
    '连接数据库
    MyDB.openDB
    
    '设置Delete语句
    SqlStmt = "Delete FROM Deliver WHERE DeliverID='" + Trim(TempDeliverID) + "'"
    
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsDeliver As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsDeliver, True)
    
    '断开与数据库的连接
    MyDB.closeDB
End Sub


Public Sub Insert()
    
    '连接数据库
    MyDB.openDB
    
    '设置Insert语句
    SqlStmt = "INSERT INTO Deliver (CustomerID, DeliverID,Country,Province,City,Address,Linkman,Telephone,Fax)" _
               + " Values('" + Trim(CustomerID) + "','" + Trim(DeliverID) + "','" + Trim(Country) _
               + "','" + Trim(Province) + "','" + Trim(City) + "','" + Trim(Address) _
               + "','" + Trim(Linkman) + "','" + Trim(Telephone) + "','" + Trim(Fax) + "')"
    
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsDeliver As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsDeliver, True)
    
    '断开与数据库的连接
    MyDB.closeDB
End Sub


Public Sub Update(ByVal OriDeliverID As String)
    
    '连接数据库
    MyDB.openDB
    
    '设置Update语句
    SqlStmt = "Update Deliver Set DeliverID='" + Trim(DeliverID) _
               + "',Country='" + Trim(Country) + "',Province='" + Trim(Province) _
               + "',City='" + Trim(City) + "',Address='" + Trim(Address) _
               + "',Linkman='" + Trim(Linkman) + "',Telephone='" + Trim(Telephone) _
               + "',Fax='" + Trim(Fax) + "'WHERE DeliverID='" + Trim(OriDeliverID) + "'"
    
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsDeliver As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsDeliver, True)
    
    '断开与数据库的连接
    MyDB.closeDB
End Sub


Public Function In_DB(ByVal TempDeliverID As String) As Boolean
    '连接数据库
    MyDB.openDB
    
    '设置查询语句
    SqlStmt = "SELECT DeliverID FROM Deliver WHERE DeliverID='" + Trim(TempDeliverID) + "'"
    
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsDeliverID As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsDeliverID, False)
    
    '判断是否存在
    If rsDeliverID.RecordCount <> 0 Then
        In_DB = True
    Else
        In_DB = False
    End If
    
    '断开与数据库的连接
    MyDB.closeDB
    
End Function


Public Sub Drop(ByVal TempCustomerID As String)
    '连接数据库
    MyDB.openDB
    
    '设置Delete语句
    SqlStmt = "Delete FROM Deliver WHERE CustomerID='" + Trim(TempCustomerID) + "'"
    
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsDeliver As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsDeliver, True)
    
    '断开与数据库的连接
    MyDB.closeDB
End Sub