protype.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 = "ProType"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   TypeId  Int 商品类目编号
'2   TypeName    Varchar 50  商品类目名称
'3   UpperId Int 上级商品类目（如果UpperId=0，则表示此商品类目为一级类目）

Public TypeId As Long
Public TypeName As String
Public UpperId As Long

Public Sub Init()
  TypeId = -1
  TypeName = ""
  UpperId = -1
End Sub

'删除ProType
Public Sub Delete(ByVal TmpId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM ProType WHERE TypeId=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Function GetId(ByVal TmpName As String) As Long
  DB_Connect
  
  SqlStmt = "SELECT TypeId FROM ProType WHERE TypeName='" _
          + Trim(TmpName) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 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 Sub GetInfo(TmpId As Long)
  TypeId = TmpId
  '如果TmpId=0，则不需要读取数据
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  '连接数据库
  DB_Connect
  '设置SELECT语句
  SqlStmt = "SELECT * FROM ProType WHERE TypeId=" + Trim(Str(TmpId))
  '执行SQL语句
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    '商品类目名称
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    TypeName = TrimStr(ColVal)
    '商品类目的上级类目编号
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    UpperId = Val(ColVal)
  Else
    '如果结果集为空，则对变量进行初始化
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开数据库
  DB_Disconnect
End Sub

Public Function GetName(ByVal TmpId As Long) As String
  DB_Connect
  
  SqlStmt = "SELECT TypeName FROM ProType WHERE TypeId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    GetName = TrimStr(ColVal)
  Else
    GetName = ""
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function HaveSon(ByVal TmpUpperId As Long) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT TypeId FROM ProType WHERE UpperId=" _
          + Trim(Str(TmpUpperId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    HaveSon = False
  Else
    HaveSon = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function In_DB(ByVal TmpTypeName As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT TypeId FROM ProType WHERE TypeName='" _
          + Trim(TmpTypeName) + "'"
  OdbcExt (SqlStmt)
  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 Function Insert() As Long
  DB_Connect
  SqlStmt = "INSERT INTO ProType VALUES(TYPEID.NEXTVAL, '" _
          + Trim(TypeName) + "'," + Trim(Str(UpperId)) + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
  Insert = TypeId
End Function

Public Sub Load_by_Upper(ByVal UpperId As Integer)
  Dim i As Long
  Erase Arr_ProType
  ReDim Arr_ProType(0)
  
  DB_Connect
  SqlStmt = "SELECT TypeName FROM ProType WHERE UpperId=" _
          + Trim(Str(UpperId)) + " ORDER BY TypeName"
  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_ProType(i + 1)
    Arr_ProType(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 ProType SET TypeName='" + Trim(TypeName) _
          + "' WHERE TypeId=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub