clspo.cls

直接执行本子系统时

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsPO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public POID As String
Public PODate As String
Public POItemID As String
Public PurchaseItemID As String
Public POQty As String
Public ConsignmentDate As String
Public IsComplete As String
Public PaymentCondition As String
Public DeliverDemand As String
Public Other As String
Public Sub DeletePOInfo(ByVal TempPOID As String)
   '连接数据库
  MyDB.openDB
  
  '设置Delete语句
  SqlStmt = "Delete FROM POInfo WHERE POID='" + Trim(TempPOID) + "'"
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsPOInfo As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsPOInfo, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Sub UpdatePOInfo(ByVal OriPOID As String)
   
  '连接数据库
  MyDB.openDB
  
 
  '设置Update语句
   SqlStmt = "Update POInfo Set POID='" + Trim(POID) _
   + "',PaymentCondition='" + Trim(PaymentCondition) + "',DeliverDemand='" + Trim(DeliverDemand) _
   + "',Other='" + Trim(Other) + "' WHERE POID='" + Trim(OriPOID) + "'"
  
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsPOInfo As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsPOInfo, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Sub InsertPOInfo()
  
  '连接数据库
  MyDB.openDB
  
  '设置Insert语句
  SqlStmt = "INSERT INTO POInfo (POID, PaymentCondition,DeliverDemand,Other)" _
     + " Values('" + Trim(POID) + "','" + Trim(PaymentCondition) + "','" + Trim(DeliverDemand) + "','" + Trim(Other) + "')"
    
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsPOInfo As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsPOInfo, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Sub Update(ByVal OriPOItemID As String)
   
  '连接数据库
  MyDB.openDB
  
 
  '设置Update语句
   SqlStmt = "Update PO Set POID='" + Trim(POID) _
   + "',PODate='" + Trim(PODate) + "',POItemID='" + Trim(POItemID) _
   + "',PurchaseItemID='" + Trim(PurchaseItemID) + "',POQty='" + Trim(POQty) _
   + "',ConsignmentDate='" + Trim(ConsignmentDate) + "',IsComplete='" + Trim(IsComplete) _
   + "' WHERE POItemID='" + Trim(OriPOItemID) + "'"
  
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsPO As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsPO, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Sub DeletePOItem(ByVal TempPOItemID As String)
   '连接数据库
  MyDB.openDB
  
  '设置Delete语句
  SqlStmt = "Delete FROM PO WHERE POItemID='" + Trim(TempPOItemID) + "'"
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsPO As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsPO, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Sub DeletePO(ByVal TempPOID As String)
   '连接数据库
  MyDB.openDB
  
  '设置Delete语句
  SqlStmt = "Delete FROM PO WHERE POID='" + Trim(TempPOID) + "'"
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsPO As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsPO, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Sub Insert()
  
  '连接数据库
  MyDB.openDB
  
  '设置Insert语句
  SqlStmt = "INSERT INTO PO (POID, PODate,POItemID,PurchaseItemID,POQty,ConsignmentDate,IsComplete)" _
     + " Values('" + Trim(POID) + "','" + Trim(PODate) + "','" + Trim(POItemID) + "','" + Trim(PurchaseItemID) + "','" + Trim(POQty) _
     + "','" + Trim(ConsignmentDate) + "','" + Trim(IsComplete) + "')"
    
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsPO As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsPO, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub
Public Function In_DBPOID(ByVal TempPOID As String) As Boolean
  '连接数据库
  MyDB.openDB
  
  '设置查询语句
  SqlStmt = "SELECT POID FROM PO WHERE POID='" + Trim(TempPOID) + "'"
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsPOID As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsPOID, False)
  
  '判断是否存在
  If rsPOID.RecordCount <> 0 Then
    In_DBPOID = True
  Else
    In_DBPOID = False
  End If
  
  '断开与数据库的连接
  MyDB.closeDB
  
End Function
Public Function In_DBPOItemID(ByVal TempPOItemID As String) As Boolean
  '连接数据库
  MyDB.openDB
  
  '设置查询语句
  SqlStmt = "SELECT POItemID FROM PO WHERE POItemID='" + Trim(TempPOItemID) + "'"
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsPOItemID As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsPOItemID, False)
  
  '判断是否存在
  If rsPOItemID.RecordCount <> 0 Then
    In_DBPOItemID = True
  Else
    In_DBPOItemID = False
  End If
  
  '断开与数据库的连接
  MyDB.closeDB
  
End Function