storein.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 = "StoreIn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 StoreId Number 入库编号
'2 BookNo  Varchar 50  书号
'3 BookNum Int 入库数量
'4 StorePos Varchar 200 图书存放位置
'5 EmpName Varchar 50  经办人
'6 OptDate Char 10 入库日期

Public StoreId As String
Public BookNo As String
Public BookNum As Integer
Public StorePos As String
Public EmpName As String
Public OptDate As String

Public Sub Init()
  StoreId = ""
  BookNo = ""
  BookNum = 0
  StorePos = ""
  EmpName = ""
  OptDate = ""
End Sub

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

  DB_Disconnect
End Function

Public Function GetInfo(ByVal TmpStoreId As Long) As Boolean
  '如果入库编号小于或等于0，则对数据进行初始化，并返回
  If TmpStoreId <= 0 Then
    GetInfo = False
    Init
    Exit Function
  End If
  
  StoreId = TmpStoreId
  '连接数据库
  DB_Connect
  '设置SQL语句
  SqlStmt = "SELECT * FROM StoreIn WHERE StoreId=" + Trim(Str(StoreId))
  '执行SQL语句
  OdbcExt (SqlStmt)
  '如果返回SQL_NO_DATA_FOUND则表示结果集为空
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
    Exit Function
  Else
    '使用SQLGetData()函数从结果集中按列读取数据
    '书号
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Lench(ColVal), pcblench)
    BookNo = TrimStr(ColVal)
    '库存图书数量
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblench)
    BookNum = Val(ColVal)
    '图书存放位置
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Lench(ColVal), pcblench)
    StorePos = TrimStr(ColVal)
    '经办人
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Lench(ColVal), pcblench)
    EmpName = TrimStr(ColVal)
    '操作日期
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Lench(ColVal), pcblench)
    OptDate = TrimStr(ColVal)
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  GetInfo = True
  '断开数据库连接
  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO StoreIn Values('" _
     + Trim(StoreId) + "','" + Trim(BookNo) + "'," _
     + Trim(BookNum) + ",'" + Trim(StorePos) + "','" _
     + Trim(EmpName) + "','" + Trim(OptDate) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub