clsstoreroom.cls

erp中的库存管理子系统,Vb代码编写

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsStoreRoom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public StoreID As String
Public StoreRoom As String
Public Location As String
Public Description As String

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