mainform.frm

即时通讯

    End If
End Sub

Private Sub m_cooperateFinish_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, COOPERATE_FINISH_LIST)
    
    If ret Then
    CallModule COOPERATE_FINISH_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_cooperateList_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, COOPERATE_LIST)
    
    If ret Then
    CallModule COOPERATE_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_cooperateSingle_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, COOPERATE_SINGLE)
    
    If ret Then
    CallModule COOPERATE_SINGLE
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_cooperateRedo_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, COOPERATE_REDO_LIST)
    
    If ret Then
    CallModule COOPERATE_REDO_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_cooperateStat_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, COOPERATE_STAT)
    
    If ret Then
    CallModule COOPERATE_STAT
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_GoodsManager_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, Goods_Manager)
    
    If ret Then
    CallModule Goods_Manager
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_customerList_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, CUSTOMER_LIST)
    
    If ret Then
    CallModule CUSTOMER_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_navigation_Click()
    CallModule NAVIGATION_WIN
End Sub

Private Sub m_produceFinishList_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, PRODUCE_FINISH_LIST)
    
    If ret Then
    CallModule PRODUCE_FINISH_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_produceList_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, PRODUCE_LIST)
    
    If ret Then
    CallModule PRODUCE_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_productScheme_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, PRODUCT_SCHEME_LIST)
    
    If ret Then
    CallModule PRODUCT_SCHEME_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_stockBackgoodsList_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, STOCK_BACKGOODS_LIST)
    
    If ret Then
    CallModule STOCK_BACKGOODS_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_stockOrder_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, STOCK_ORDER)
    
    If ret Then
    CallModule STOCK_ORDER
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_stockOrderList_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, STOCKORDER_LIST)
    
    If ret Then
    CallModule STOCKORDER_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_stockStorec_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, STOCK_STOREC)
    
    If ret Then
    CallModule STOCK_STOREC
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_supplier_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, SUPPLIER_LIST)
    
    If ret Then
    CallModule SUPPLIER_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub MDIForm_Load()
    Me.Visible = False
    Set g_application = New HApplication
    Me.caption = g_application.m_applicationName
    
    QueryModule.InitialQueryArray
    
    LoginForm.show vbModal               ' 显示登陆窗体
    
    If g_application.m_loginSucceeded Then
        Me.Visible = True

        ' 设置状态栏
        StatusBar1.Panels(1).Width = StatusBar1.Width - 100
        StatusBar1.Panels(1).text = g_application.m_companyName + " " + _
                                    g_application.m_companyAddress + _
                                    "       当前登陆用户：" + _
                                    g_application.m_userName
        ' 显示导航窗体
        Navigation.show
    Else
        Unload Me
        End
    End If

End Sub

Private Sub MDIForm_Unload(Cancel As Integer)

'    Dim IntR As Integer
'    IntR = MsgBox("确认要退出程序吗？", vbYesNo, "退出确认")
'    If IntR = vbNo Then
'        Cancel = -1
'    Else
'        End
'    End If
End Sub

'**************************************
'*    功 能 描 述 :取得所有仓库的列表
'*    输 入 参 数 :moduleName     -  功能模块名称
'*    输 出 能 数 :True           -  调用成功
'*                 False          -  调用失败
'**************************************
Public Function CallModule(moduleName As Integer) As Boolean
    Dim ret As Boolean
    If Not (moduleName = NAVIGATION_WIN _
            Or moduleName = EMPLOYEE_PASSWORD _
            Or moduleName = RE_CONNECT_TO_SERVER) _
    Then
        ret = yhqxpd(g_application.m_userId, Trim(str(moduleName)))       ' 权限判断
        
        If Not ret Then
            MainForm.g_msgText = "该功能您无权操作！"
            HMsgBox MainForm.g_msgText, 0, 1
            Exit Function
        End If
    End If
    
    CallModule = True
    Select Case moduleName
        Case WAREHOUSE_LIST
            WarehouseListForm.show           ' 仓库列表管理
        Case WAREHOUSE_SINGLE                ' 仓库资料管理
            WarehouseSingleForm.m_operatorType = 0
            WarehouseSingleForm.show
        Case BOMTABLE_DESIGN                 ' BOM表设计
            BomSingleMForm.m_operatorType = 0
            BomSingleMForm.show 1
        Case NAVIGATION_WIN                 ' 导航窗体
'            Navigation.Left = Screen.Width / 2 - Navigation.Width / 2
'            Navigation.Left = 0
            Navigation.show
        Case KHDJ_LIST                    '客户等级设置
            khdjlist.show
        Case GYSLB_LIST                   '供应商类别设置
            gyslblist.show
        Case KHLY_LIST                     '客户来源设置
            khlylist.show
        Case CUSTOMER_LIST                 ' 客户
            CustomerListForm.show
        Case BOMPROCESS_LIST               '工序设置
            bomprocesslist.show
        Case SUPPLIER_LIST                 ' 客户
            SupplierListForm.show
        Case LXFS_LIST                     ' 联系方式设置
            lxfslist.show
        Case LXMD_LIST                      '联系目的设置
            lxmdlist.show
        Case DEPARTMENT_LIST
            department.show
        Case PARTCHECKMETHOD_p
            partcheckmethod.show
        Case STOCK_ORDER                 ' 客户
            stockorderlistsupplier.type_g = 1
            StockOrder.show
        Case STOCKORDER_LIST                 ' 客户
            stockorderlistsupplier.show
        Case STOCK_STOREC                 ' 客户
            stockstorelistform.show
        Case STOCK_BACKGOODS_LIST            ' 采购退货
            backgoodslistform.show
        Case EMPLOYEE_SINGLE                      ' 员工管理
            EmployeeListform.show
        Case Goods_Manager
            goodsmanager.show
        Case Part
            partlistform.show
        Case PRODUCT_SCHEME_LIST
            ProductSchemeListForm.show
        Case PRODUCTION
            productionlistform.show
        Case PRODUCTYPE
            productypelistform.show
        Case COOPERATE_SINGLE                  ' 外协生产单
            CooperateSingleForm.m_operatorType = 0
            CooperateSingleForm.show
        Case COOPERATE_LIST                    ' 外协生产单列表
            CooperateListForm.m_operateType = 0
            CooperateListForm.m_productSchemeId = ""
            CooperateListForm.m_psbomId = ""
            CooperateListForm.m_supplierid = ""
            CooperateListForm.m_state = "0"
            CooperateListForm.show
        Case COOPERATE_STAT                    ' 外协生产单统计
            CooperateStatForm.m_operateType = 0
            CooperateStatForm.m_productSchemeId = ""
            CooperateStatForm.m_psbomId = ""
            CooperateStatForm.show
        Case COOPERATE_FINISH_LIST            ' 外协完工单列表
            CooperateFinishlist.m_operateType = 0
            CooperateFinishlist.m_cooperateId = ""
            CooperateFinishlist.show
        Case COOPERATE_REDO_LIST              ' 外协返工单列表
            CooperateRedolist.show
        Case COOPERATEDROWMATERIAL            ' 仓库领料
            cooperatedrowmaterForm.f = 0
            cooperatedrowmaterForm.show
        Case POSITIONQD
            positionqdform.show
        Case COOPERATEDROWMATERIALQD
            cooperatedrowmaterqdform.show
        Case checkvalue
            checkvalueform.show
        Case CHECKVALUEGROUP
            checkvaluegroupform.show
        Case CHECK_OPTION
            checkoption.show
        Case PRODUCEDRAWMATERIAL
            producedrawmaterialform.show
        Case CHECKOPTIONGROUP1
            CheckOptionGroup.show
        Case CHECKPRODUCTION
            productcheckrecord.show
        Case EMPLOYEE_PASSWORD
            passwordform.show
        Case CHECKSTANDARD
            checkstandardform.show
        Case COOPERATE_COUNTERCLAIM
            cooperatecounterclaimlb.show 1
        Case COOPERATELOSS_L                        '外协报损单
            CooperateLoss_list.show
        Case PRODUCE_LIST                           ' 生产单列表显示
            ProduceListForm.m_operateType = 0
            ProduceListForm.m_productSchemeId = ""
            ProduceListForm.m_psbomId = ""
            ProduceListForm.show
        Case PRODUCE_FINISH_LIST     ' 生产完工单列表管理
            ProduceFinishlist.m_operateType = 0
            ProduceFinishlist.m_cooperateId = ""
            ProduceFinishlist.show
        Case RE_CONNECT_TO_SERVER     ' 重新联接到服务器
            Call ReConnect_Click
'        Case MYCOMPANYINFO1     ' 重新联接到服务器
'            CompanyInfo.show
        Case Else                                            '退 出
            CallModule = False
            GoTo Over
    End Select
Over:
End Function

Private Sub mycompanyinfo_Click()
    CompanyInfo.show
End Sub

'**************************************
'*    功 能 描 述 :重新联接数据库服务器
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub ReConnect_Click()
    Dim ret As Boolean
    
    ret = MainForm.g_application.m_databaseCon.ReConnection()
    
    If ret Then
        MainForm.g_msgText = "服务器重新联接成功！"
        HMsgBox MainForm.g_msgText, 0, 4
    Else
        MainForm.g_msgText = "服务器重新联接失败！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub scll_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, PRODUCEDRAWMATERIAL)
    
    If ret Then
    CallModule PRODUCEDRAWMATERIAL
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Public Sub test_Click()
    
    SupplierBomListForm.m_supplierid = "F383D697-8831-4404-8B8F-D2295FD91B22"
    SupplierBomListForm.m_operatorType = "0"
    SupplierBomListForm.show vbModal
    
    
End Sub

Private Sub WarehouseData_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, WAREHOUSE_SINGLE)
    
    If ret Then
    CallModule WAREHOUSE_SINGLE
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub WarehouseList_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, WAREHOUSE_LIST)
    
    If ret Then
    CallModule WAREHOUSE_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub wxbs_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, COOPERATELOSS_L)
    
    If ret Then
    CallModule COOPERATELOSS_L
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub wxsp_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, COOPERATE_COUNTERCLAIM)
    
    If ret Then
    CallModule COOPERATE_COUNTERCLAIM
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub xgmm_Click()
    CallModule EMPLOYEE_PASSWORD
End Sub

Private Sub zljy_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, CHECKPRODUCTION)
    
    If ret Then
    CallModule CHECKPRODUCTION
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub