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 ProId   Int 出庫產品編號
'4 ProPrice  Decimal 15,2  出庫產品單價
'5 ProNum  Int 出庫產品數量
'6 ClientId  Int 客戶編號。如果出庫操作類型為銷售入庫，則客戶為購貨商；如果出庫操作類型為退貨入庫，則客戶為供應商；用料出庫沒有客戶
'7 StoreId Int 倉庫編號
'8 EmpName Varchar 50  經辦人
'9 OptDate Char 20 出庫日期

Public TakeOutId As Long
Public ProId As String
Public ProPrice As Single
Public ProNum As Integer
Public ClientId As Long
Public StoreId As Long
Public empname As String
Public OptDate As String

Public Sub Init()
  TakeOutId = 0
  ProId = 0
  ProPrice = 0
  ProNum = 0
  ClientId = 0
  StoreId = 0
  empname = ""
  OptDate = ""
End Sub

Public Function HaveClt(ByVal TmpCltId As Long) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT TakeoutId FROM TakeOut WHERE ClientId=" + Trim(TmpCltId)
  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 HavePro(ByVal TmpProId As Long) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT TakeoutId FROM Takeout WHERE ProId=" + Trim(TmpProId)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    HavePro = True
  Else
    HavePro = False
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

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 Function GetNewId() As Long
  Dim TmpId As Long
  '連接數據庫
  DB_Connect
  '設置要執行的SQL語句
  SqlStmt = "SELECT TakeoutId FROM Takeout ORDER BY TakeoutId"
  '執行SQL語句
  OdbcExt (SqlStmt)
  '讀取SELECT語句返回的查詢結果
  i = 1
  Do While SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    TmpId = Val(ColVal)
    ' 把讀取的院系編號與自然數序列比較
    If TmpId = i Then
      i = i + 1
    Else
    '如果院系編號是不連續的，則用新編號來填充
      GetNewId = i
      Rc = SQLFreeStmt(Hstmt, SQL_DROP)
      DB_Disconnect
      Exit Function
    End If
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '斷開與數據庫的連接
  DB_Disconnect
  '將得到的新編號作為函數的返回值
  GetNewId = i
End Function

Public Sub Insert()
  TakeOutId = GetNewId
  
  DB_Connect
  
  SqlStmt = "INSERT INTO TakeOut Values(" _
     + Trim(TakeOutId) + "," _
     + Trim(ProId) + "," + Trim(Str(ProPrice)) + "," + Trim(ProNum) + "," _
     + Trim(Str(ClientId)) + "," + Trim(Str(StoreId)) + ",'" _
     + Trim(empname) + "','" + Trim(OptDate) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub