clsco.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 = "ClsCO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public COID As String
Public CODate As String
Public DeliverID As String
Public COItemID As String
Public SalesItemID As String
Public COQty As String
Public ConsignmentDate As String
Public IsComplete As String

Public Sub Update(ByVal OriCOItemID As String)
    
    '连接数据库
    MyDB.openDB
    
    
    '设置Update语句
    SqlStmt = "Update CO Set COID='" + Trim(COID) _
               + "',CODate='" + Trim(CODate) + "',DeliverID='" + Trim(DeliverID) _
               + "',COItemID='" + Trim(COItemID) _
               + "',SalesItemID='" + Trim(SalesItemID) + "',COQty='" + Trim(COQty) _
               + "',ConsignmentDate='" + Trim(ConsignmentDate) + "',IsComplete='" + Trim(IsComplete) _
               + "' WHERE COItemID='" + Trim(OriCOItemID) + "'"
    
    
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsCO As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCO, True)
    
    '断开与数据库的连接
    MyDB.closeDB
End Sub


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


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


Public Sub Insert()
    
    '连接数据库
    MyDB.openDB
    
    '设置Insert语句
    SqlStmt = "INSERT INTO CO (COID, CODate,DeliverID,COItemID,SalesItemID,COQty,ConsignmentDate,IsComplete)" _
               + " Values('" + Trim(COID) + "','" + Trim(CODate) + "','" + Trim(DeliverID) _
               + "','" + Trim(COItemID) + "','" + Trim(SalesItemID) + "','" + Trim(COQty) _
               + "','" + Trim(ConsignmentDate) + "','" + Trim(IsComplete) + "')"
    
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsCO As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCO, True)
    
    '断开与数据库的连接
    MyDB.closeDB
End Sub


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


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