book.cls

VB和Oracle结合的程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Book"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 BookNo  Varchar2 50  书号
'2 BookNum Number 图书库存原始数量
'3 CountNum Number 盘点数量
'4 EmpName Varchar2 50 盘点人
'5 CountDate Varchar2 50 盘点日期

Public BookNo As String
Public BookNum As Integer
Public CountNum As Integer
Public EmpName As String
Public CountDate As String

Public Sub Init()
  BookNo = ""
  BookNum = 0
  CountNum = 0
  EmpName = ""
  CountDate = ""
End Sub

'删除
Public Sub Delete(ByVal TmpNo As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Books WHERE BookNo='" + Trim(TmpNo) + "'"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Function GetNum(ByVal TmpNo As String) As Integer
  If TmpName = "" Then
    GetId = 0
    Exit Function
  End If
  DB_Connect
  
  SqlStmt = "SELECT BookNum FROM Books WHERE BookNo='" + Trim(TmpNo) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    GetNum = Val(ColVal)
  Else
    GetNum = 0
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function In_DB(ByVal TmpNo As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT BookNo FROM Books WHERE BookNo='" + Trim(TmpBookNo) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    In_DB = True
  Else
    In_DB = False
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Books(BookNo,BookNum,CountNum,EmpName,CountDate) VALUES('" _
      + Trim(BookNo) + "'," + Trim(BookNum) + "," + Trim(CountNum) + ",'" + Trim(EmpName) _
      + "','" + Trim(CountDate) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub