takeout.cls

来自「Visual Basic + Oracle 9i数据库应用系统开发与实例（企业购」· CLS 代码 · 共 60 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "TakeOut"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   TakeoutId   Int 出库编号（与相应的销售单号或采购退货单号相同）
'2   TakeoutType Varchar 20  出库类型，包括销售出库和采购退货出库
'3   StoreId 数字 / 长整型   仓库编号
'4   EmpName 文本 / 50   经办人
'5   OptDate 文本 / 20   出库日期

Public TakeOutId As Long
Public TakeOutType As String
Public StoreId As Long
Public EmpName As String
Public OptDate As String

Public Sub Init()
  TakeOutId = 0
  TakeOutType = ""
  StoreId = 0
  EmpName = ""
  OptDate = ""
End Sub

Public Function HaveStore(ByVal TmpStoreId As Long) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT TakeoutId FROM Takeout WHERE StoreId=" + Trim(TmpStoreId)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    HaveStore = True
  Else
    HaveStore = False
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO TakeOut Values(" + Trim(TakeOutId) _
     + ",'" + Trim(TakeOutType) + "'," + Trim(Str(StoreId)) + ",'" _
     + Trim(EmpName) + "','" + Trim(OptDate) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub