querymodule.bas

即时通讯

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