storehouse.cls

Visual Basic + Oracle 9i数据库应用系统开发与实例（企业购销存管理系统）界面简洁,数据库完整,还不错~适合学生利用和使用!

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Storehouse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   StoreId Int 仓库编号
'2   StoreName   Varchar 50  仓库名称
'3   Describe    Varchar 100 仓库说明

Public StoreId As Long
Public StoreName As String
Public Describe As String

Public Sub Init()
  StoreId = 0
  StoreName = ""
  Describe = ""
End Sub

'删除数据
Public Sub Delete(ByVal TmpId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Storehouse WHERE StoreId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function GetId(ByVal TmpName As String) As Long
  If TmpName = "" Then
    GetId = 0
    Exit Function
  End If
  DB_Connect
  
  SqlStmt = "SELECT StoreId FROM Storehouse WHERE StoreName='" _
          + Trim(TmpName) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    GetId = Val(ColVal)
  Else
    GetId = 0
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  If TmpId <= 0 Then
    Init
    GetInfo = False
    Exit Function
  End If
  
  StoreId = TmpId
  
  DB_Connect
  SqlStmt = "SELECT * FROM Storehouse WHERE StoreId=" _
          + Trim(Str(StoreId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Exit Function
  Else
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Lench(ColVal), pcblench)
    StoreName = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblench)
    Describe = TrimStr(ColVal)
  End If
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  GetInfo = True
  DB_Disconnect
End Function

Public Function In_DB(ByVal TmpStoreName As String) As Boolean
  '连接数据库
  DB_Connect
  '设置SQL语句，读取指定仓库名称对应的记录编号
  SqlStmt = "SELECT * FROM Storehouse WHERE StoreName='" _
          + Trim(TmpStoreName) + "'"
  '执行SQL语句
  OdbcExt (SqlStmt)
  '从结果集中读取数据，如果有数据，则IN_DB = True；否则In_DB = False
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    In_DB = False
  Else
    In_DB = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Storehouse Values(STOREID.NEXTVAL,'" + Trim(StoreName) _
          + "','" + Trim(Describe) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Load_Store()
  Erase Arr_Store
  ReDim Arr_Store(0)
  
  DB_Connect
  SqlStmt = "SELECT StoreName FROM Storehouse ORDER BY StoreName"
  OdbcExt (SqlStmt)
  i = 0
  Do Until SQLFetch(Hstmt) = SQL_NO_DATA_FOUND
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    ReDim Preserve Arr_Store(i + 1)
    Arr_Store(i) = TrimStr(ColVal)
    
    i = i + 1
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Sub Update(ByVal TmpId As Long)
  DB_Connect
  
  SqlStmt = "Update Storehouse Set StoreName='" _
          + Trim(StoreName) + "',Describe='" _
          + Trim(Describe) + "' WHERE StoreId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub