VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "QueryDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    模 塊 名 稱 :查詢模塊數據庫操作
'*    功 能 描 述 :查詢模塊中所有的查詢操作在此模塊中定義
'*    程序員姓名  : 陳齊國
'*    最后修改人  : 陳齊國
'*    最后修改時間:2005/08/27
'**************************************
Option Explicit
'**************************************
'*    功 能 描 述 :根據條件查詢視圖
'*    輸 入 參 數 :無
'*    輸 出 能 數 :True           -  數據庫連接成功
'*                 False          -  數據庫連接失敗
'**************************************
Public Function ExecuteQuery(recSet As ADODB.Recordset, sqlStr As String) As Boolean
    
    On Error GoTo Cwcl
    
    ' 執行查詢
    recSet.Open sqlStr, MainForm.g_application.m_databaseCon.m_adoConnection, _
                adOpenStatic, adLockOptimistic, adAsyncFetch
    
    ExecuteQuery = True

    
    Exit Function
    
Cwcl:
    ExecuteQuery = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :把查詢用的ID列表字符串中的所有ID插入到temp_QueryIdList表中
'*    輸 入 參 數 :idList  -  查詢到要顯示的記錄ID的列表字符串
'*    輸 出 能 數 :
'**************************************
Public Function InsertQueryIdList(idList As String)
    Dim tempStr As String              ' 中間字符串
    Dim idStr   As String              ' 取出的一個ID
    Dim found   As Integer
    
    DelQueryIdList                     ' 刪除temp_QueryIdList表中的所有記錄
    
    tempStr = idList
    Do While Not Trim(tempStr) = ""
        found = InStr(tempStr, ",")
        If found <> 0 Then
            If found > 1 Then idStr = Left(tempStr, found - 1)
            tempStr = Right$(tempStr, Len(tempStr) - found)
        Else
            idStr = tempStr
            tempStr = ""
        End If
        NewQueryId (idStr)
    Loop
End Function
'**************************************
'*    功 能 描 述 :新增一條查詢ID到temp_QueryIdList表中
'*    輸 入 參 數 :queryId   -  ID值
'*    輸 出 能 數 :
'**************************************
Private Function NewQueryId(queryId As String)
    Dim cmdProc As ADODB.Command          ' 執行存儲過程的命令
    
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "temp_QueryIdList_new"          ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = queryId             ' 參數
    
    ' 執行命令 把查詢到的結果放在recSet中
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    Set cmdProc = Nothing
    Exit Function
Cwcl:
    Set cmdProc = Nothing
End Function
'**************************************
'*    功 能 描 述 :刪除temp_QueryIdList表中的所有記錄
'*    輸 入 參 數 :
'*    輸 出 能 數 :
'**************************************
Private Function DelQueryIdList()
    Dim cmdProc As ADODB.Command          ' 執行存儲過程的命令
    
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "temp_QueryIdList_deleteAll"          ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    
    ' 執行命令 把查詢到的結果放在recSet中
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    Set cmdProc = Nothing
    Exit Function
Cwcl:
    Set cmdProc = Nothing
End Function