Attribute VB_Name = "QueryModule"
'**************************************
'*    模 塊 名 稱 :查詢模塊
'*    功 能 描 述 :系統中所有的查詢操作在此模塊中定義
'*    程序員姓名  : 陳齊國
'*    最后修改人  : 陳齊國
'*    最后修改時間:2005/08/27
'**************************************
Option Explicit

' 查詢的結構體定義
Public Type querytype
    queryNo         As Integer        ' 查詢的編號
    queryViewName   As String         ' 查詢的視圖名稱
    queryFormName   As String         ' 查詢窗體的名稱
End Type

' 數據類型結構體
Public Type DBDataType
    fieldName As String              ' 字段名
    fieldType As Integer             ' 字段類型
End Type

'-----------------查詢功能定義--------------------
Public Const QUERY_PART = 0                      ' 查詢零件
Public Const QUERY_Production = 1                ' 查詢產品
Public Const QUERY_BOM = 2                       ' 查詢BOM
Public Const QUERY_GOODS = 3                     ' 查詢商品原料
Public Const QUERY_EMPLOYEE = 4                  ' 查詢員工資料
Public Const QUERY_CUSTOMER = 5                  ' 查詢客戶資料
Public Const QUERY_SUPPLIER = 6                  ' 查詢供應商資料
Public Const QUERY_STOCKORDER = 7                ' 查詢采購訂單
Public Const QUERY_PRODUCTION1 = 8               ' 查詢產品1
Public Const QUERY_PRODUCTYPE = 9                ' 查詢產品類別
Public Const QUERY_STOCKSTORE = 10               ' 查詢產品類別
Public Const QUERY_POSITION = 11                 ' 查詢庫位
Public Const QUERY_WAREHOUSE = 12                ' 查詢倉庫
Public Const QUERY_COOPERATE = 13                ' 查詢生產外協單
Public Const QUERY_COOPERATE1 = 14               ' 查詢生產外協1
Public Const QUERY_COOPERATEFINISH = 15         ' 查詢外協完工單
Public Const QUERY_COOPERATEREDO = 16           ' 查詢返工單
Public Const QUERY_COOPERATE2 = 17              ' 查詢外協單
Public Const QUERY_BACKGOODS = 18              ' 查詢外協單
Public Const QUERY_PRODUCTSCHEME = 19              ' 查詢外協單
Public Const QUERY_STOCKORDER1 = 20                 '   采購訂單查詢1
Public Const QUERY_CHECKOPTION = 21                 '產品檢驗查詢
Public Const QUERY_CHECKOPTIONGROUP = 22               '產品檢驗組查詢
Public Const QUERY_CHECKVALUE = 23                   ' 檢驗值查詢
Public Const QUERY_CHECKVALUEGROUP = 24              ' 檢驗組查詢
Public Const QUERY_PRODUCE = 25              ' 檢驗組查詢
Public Const QUERY_PRODUCE_SCHEME = 26              ' 生產計劃單查詢
Public Const QUERY_PRODUCE_FINISH = 27              ' 生產單完工單查詢
Public Const QUERY_CHECKSTANDARD = 28               ' 檢驗類型查詢
Public Const QUERY_PRODUCEDRAWMATERIAL = 29         ' 生產領料查詢
Public Const QUERY_COOPERATEDRAWMATERIAL = 30       ' 外協發料查詢
Public Const QUERY_CHECKRECORD = 31       ' 外協發料查詢
Public Const QUERY_COOPERATECOUNTERCLAIM = 32       '索賠單查詢
Public Const QUERY_BOMPROCESS = 33                  '工序查詢
Public Const QUERY_SUPPLIERALL = 34                 '全部供應商查詢
Public Const QUERY_BOM_PRODUCTIONPART = 35          '查詢BOM表中的產品和零件
Public Const QUERY_COOPERATELOSS = 36               '外協報損

Public Const QUERY_NUMBER = 36                  ' 查詢的數組數
Public m_querys(QUERY_NUMBER) As querytype      ' 查詢定義數組

Private m_queryDAO As New QueryDAO

'**************************************
'*    功 能 描 述 :初始化查詢數組
'*    輸 入 參 數 :無
'*    輸 出 能 數 :無
'**************************************
Public Function InitialQueryArray()
    ' 查詢定義
    m_querys(0).queryNo = QUERY_PART:       m_querys(0).queryViewName = "Part_Query_View":        m_querys(0).queryFormName = "零件查詢窗體"
    m_querys(1).queryNo = QUERY_Production: m_querys(1).queryViewName = "Production_Query_View":  m_querys(1).queryFormName = "產品查詢窗體"
    m_querys(2).queryNo = QUERY_BOM:        m_querys(2).queryViewName = "Bom_Query_View":         m_querys(2).queryFormName = "BOM查詢窗體"
    m_querys(3).queryNo = QUERY_GOODS:      m_querys(3).queryViewName = "Goods_Query_View":       m_querys(3).queryFormName = "商品原料查詢窗體"
    m_querys(4).queryNo = QUERY_GOODS:      m_querys(4).queryViewName = "Employee_Query_View":    m_querys(4).queryFormName = "員工查詢窗體"
    m_querys(5).queryNo = QUERY_CUSTOMER:  m_querys(5).queryViewName = "customer_query_view":    m_querys(5).queryFormName = "客戶查詢窗體"
    m_querys(6).queryNo = QUERY_SUPPLIER:  m_querys(6).queryViewName = "supplier_query_view":    m_querys(6).queryFormName = "供應商查詢窗體"
    m_querys(7).queryNo = QUERY_STOCKORDER:  m_querys(7).queryViewName = "stockorder_query_view": m_querys(7).queryFormName = "采購訂單查詢窗體"
    m_querys(8).queryNo = QUERY_PRODUCTION1:  m_querys(8).queryViewName = "production1_query_view": m_querys(8).queryFormName = "產品查詢窗體"
    m_querys(9).queryNo = QUERY_PRODUCTYPE:  m_querys(9).queryViewName = "productype_Query_View": m_querys(9).queryFormName = "產品類別查詢窗體"
    m_querys(10).queryNo = QUERY_STOCKSTORE:  m_querys(10).queryViewName = "stockstore_query_view": m_querys(10).queryFormName = "采購入庫查詢窗體"
    m_querys(11).queryNo = QUERY_POSITION:  m_querys(11).queryViewName = "position_query_view": m_querys(11).queryFormName = "庫位查詢窗體"
    m_querys(12).queryNo = QUERY_WAREHOUSE:  m_querys(12).queryViewName = "warehouse_query_view": m_querys(12).queryFormName = "倉庫查詢窗體"
    m_querys(13).queryNo = QUERY_COOPERATE:  m_querys(13).queryViewName = "Cooperate_Query_View": m_querys(13).queryFormName = "外協生產單詢窗體"
    m_querys(14).queryNo = QUERY_COOPERATE1:  m_querys(14).queryViewName = "cooperate_query_view1": m_querys(14).queryFormName = "外協生產單窗體1"
    m_querys(15).queryNo = QUERY_COOPERATEFINISH:  m_querys(15).queryViewName = "cooperatefinish_query_view": m_querys(15).queryFormName = "查詢外協完工單"
    m_querys(16).queryNo = QUERY_COOPERATEREDO:  m_querys(16).queryViewName = "cooperateredo_query_view": m_querys(16).queryFormName = "查詢外協返工單"
    m_querys(17).queryNo = QUERY_COOPERATE2:  m_querys(17).queryViewName = "cooperate_query_view2": m_querys(17).queryFormName = "查詢外協單"
    m_querys(18).queryNo = QUERY_BACKGOODS:  m_querys(18).queryViewName = "backgoods_query_view": m_querys(18).queryFormName = "退貨查詢窗體"
    m_querys(19).queryNo = QUERY_PRODUCTSCHEME:  m_querys(19).queryViewName = "ProduceScheme_Query_View": m_querys(19).queryFormName = "生產計劃單查詢窗體"
    m_querys(20).queryNo = QUERY_STOCKORDER1:  m_querys(20).queryViewName = "stockorder_query_VIEW1": m_querys(20).queryFormName = "采購訂單查詢窗體1"
    m_querys(21).queryNo = QUERY_CHECKOPTION:  m_querys(21).queryViewName = "checkoption_query_view": m_querys(21).queryFormName = "產品檢驗查詢"
    m_querys(22).queryNo = QUERY_CHECKOPTIONGROUP:  m_querys(22).queryViewName = "checkoptiongroup_query_view": m_querys(22).queryFormName = "產品檢驗組查詢"
    m_querys(23).queryNo = QUERY_CHECKVALUE:  m_querys(23).queryViewName = "checkvalue_query_view": m_querys(23).queryFormName = "檢驗值查詢"
    m_querys(24).queryNo = QUERY_CHECKVALUEGROUP:  m_querys(24).queryViewName = "checkvaluegroup_query_view": m_querys(24).queryFormName = "檢驗組查詢"
    m_querys(25).queryNo = QUERY_PRODUCE:  m_querys(25).queryViewName = "Produce_Query_View": m_querys(25).queryFormName = "生產單查詢窗體"
    m_querys(26).queryNo = QUERY_PRODUCE_SCHEME:  m_querys(26).queryViewName = "ProduceScheme_Query_View": m_querys(26).queryFormName = "生產計劃單查詢窗體"
    m_querys(27).queryNo = QUERY_PRODUCE_FINISH:  m_querys(27).queryViewName = "producefinish_query_view": m_querys(27).queryFormName = "生產完工單查詢窗體"
    m_querys(28).queryNo = QUERY_CHECKSTANDARD:  m_querys(28).queryViewName = "checkstandard_query_view": m_querys(28).queryFormName = "檢驗類型查詢窗體"
    m_querys(29).queryNo = QUERY_PRODUCEDRAWMATERIAL:  m_querys(29).queryViewName = "producedrawmaterial_query_view": m_querys(29).queryFormName = "生產領料查詢窗體"
    m_querys(30).queryNo = QUERY_COOPERATEDRAWMATERIAL:  m_querys(30).queryViewName = "cooperatedrawmaterial_query_view": m_querys(30).queryFormName = "外協發料查詢窗體"
    m_querys(31).queryNo = QUERY_CHECKRECORD:  m_querys(31).queryViewName = "checkrecord_query_VIEW": m_querys(31).queryFormName = "檢驗記錄查詢窗體"
    m_querys(32).queryNo = QUERY_COOPERATECOUNTERCLAIM:  m_querys(32).queryViewName = "cooperatecounterclaim_query_view": m_querys(32).queryFormName = "索賠單查詢窗體"
    m_querys(33).queryNo = QUERY_BOMPROCESS:  m_querys(33).queryViewName = "bomprocess_query_view": m_querys(33).queryFormName = "工序查詢窗體"
    m_querys(34).queryNo = QUERY_SUPPLIERALL:  m_querys(34).queryViewName = "supplier_query": m_querys(34).queryFormName = "全部供應商查詢窗體"
    m_querys(35).queryNo = QUERY_BOM_PRODUCTIONPART:  m_querys(35).queryViewName = "Bom_Query_ProductionPart_View": m_querys(35).queryFormName = "產品零件BOM查詢"
    m_querys(36).queryNo = QUERY_COOPERATELOSS:  m_querys(36).queryViewName = "cooperateloss_query_view": m_querys(36).queryFormName = "外協報損查詢窗體"
    
End Function
'**************************************
'*    功 能 描 述 :把查詢用的ID列表字符串中的所有ID插入到temp_QueryIdList表中
'*    輸 入 參 數 :idList  -  查詢到要顯示的記錄ID的列表字符串
'*    輸 出 能 數 :
'**************************************
Public Function InsertQueryIdList(idList As String)
    m_queryDAO.InsertQueryIdList idList
End Function