mdiform1.frm

来自「很好！ 很实用！ 免费！」· FRM 代码 · 共 601 行 · 第 1/2 页

        frmSQLBuilder.Show
    End If
End Sub

Private Sub MDIForm_Resize()
On Error Resume Next
    lblMessage.Left = Me.Width - lblMessage.Width - 600
    lblEmail.Left = Me.Width - lblEmail.Width - 200
    treeLeft.Left = 0
    treeLeft.Top = 0
    treeLeft.Width = picLeft.Width + 10
    If Me.WindowState <> vbMinimized Then
        treeLeft.Height = Me.Height - picTop.Height - bottomStatusBar.Height - 400
    'Else
    '    treeLeft.Height = picLeft.Height ' Me.Height - picTop.Height - bottomStatusBar.Height - 400
    End If
Err.Clear
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
       
        'Save
        Call g_System.setRegString
        'Dispose Object
        Call g_System.File.DisposeFileList
        '清除菜单对象
        m_MDI.Disconnect
        m_Menu.Destroy
        Set m_Menu = Nothing
        '记录登出日志
        Call g_System.LogonOut
        'Close
        End
End Sub


Private Sub picSplit_DblClick()
    If picLeft.Width = 10 Then
        picLeft.Width = 2010
        treeLeft.Width = 2010
    Else
        picLeft.Width = 10
        treeLeft.Width = 10
    End If
End Sub

'分割窗体********************************
Private Sub picSplit_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    If Button = 1 Then
        If picLeft.Width > (picSplit.Top - x) And (picLeft.Width - (picSplit.Top - x)) < MDIForm1.Width Then
            picLeft.Width = picLeft.Width - (picSplit.Top - x)
            If picLeft.Width > 10 Then
                treeLeft.Width = picLeft.Width + (picSplit.Top - x)
            End If
        End If
    End If
End Sub



'***********************************************************************************
'点了左边的树
Private Sub treeLeft_NodeClick(ByVal Node As MSComctlLib.Node)
    If Node.Children = 0 Then
        Call ClickMenu(Node.Tag)
    End If
End Sub
'click main mennu
Private Sub m_Menu_ItemSelect(MenuObject As MenuItem)
Dim sKey As String
Dim arr() As String
'for update
  
    sKey = MenuObject.Key
    Select Case sKey
        Case "About"
            frmAbout.Show vbModal, Me
        Case "Stand"
            frmStand.Show
        Case "End"
            Unload Me
        Case "View"
            frmView.Show
        Case "Windows"
            frmWindows.Show
        Case Else
            Call ClickMenu(sKey)
    End Select
End Sub
'产生菜单
Private Sub ConfigMenu()
    Dim tmpNode As Node
    
    'show busy*****************************************************
    g_Busy.Show "正在载入系统...", vbBusySchedule, 155
    '**************************************************************
    'main menu
    Set m_Menu = New EnhancedMenu
    Set m_MDI = New MDIConnector
    m_MDI.SetWindowHandle hwnd
    With m_Menu
    
    'Option
        'busy**********************************************************
        g_Busy.ScheduleValueAdd
        '**************************************************************
        Set tmpNode = treeLeft.Nodes.Add(, , "m_Option", "基础设置", 1, 2)
        tmpNode.Tag = "m_Option"
        .Add "基础设置", , "m_Option"
        
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Option").index, 4, "m_Option_Employee", "人员", 3, 4)
        tmpNode.Tag = "m_Option_Employee"
        .Item("m_Option").SubMenu.Add "人员", , "m_Option_Employee"
        
        .Item("m_Option").SubMenu.Add "-"
    
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Option").index, 4, "m_Option_Commodity", "产品管理", 3, 4)
        tmpNode.Tag = "m_Option_Commodity"
        .Item("m_Option").SubMenu.Add "产品管理", , "m_Option_Commodity"
        
        .Item("m_Option").SubMenu.Add "-"
    
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Option").index, 4, "m_Option_Area", "区域设置", 3, 4)
        tmpNode.Tag = "m_Option_Area"
        .Item("m_Option").SubMenu.Add "区域设置", , "m_Option_Area"
    
    
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Option").index, 4, "m_Option_Warehouse", "仓库设置", 3, 4)
        tmpNode.Tag = "m_Option_Warehouse"
        .Item("m_Option").SubMenu.Add "仓库设置", , "m_Option_Warehouse"
    
    'Customer
        'busy**********************************************************
        g_Busy.ScheduleValueAdd
        '**************************************************************
        Set tmpNode = treeLeft.Nodes.Add(, , "m_Customer", "客户管理", 1, 2)
        tmpNode.Tag = "m_Customer"
        .Add "客户管理", , "m_Customer"
        
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Customer").index, 4, "m_Customer_Document", "客户资料", 3, 4)
        tmpNode.Tag = "m_Customer_Document"
        .Item("m_Customer").SubMenu.Add "客户资料", , "m_Customer_Document"
        
        .Item("m_Customer").SubMenu.Add "-"
        
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Customer").index, 4, "m_Customer_CommodityPrice", "客户价格", 3, 4)
        tmpNode.Tag = "m_Customer_CommodityPrice"
        .Item("m_Customer").SubMenu.Add "客户价格", , "m_Customer_CommodityPrice"
        
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Customer").index, 4, "m_Customer_Contract", "客户合同", 3, 4)
        tmpNode.Tag = "m_Customer_Contract"
        .Item("m_Customer").SubMenu.Add "客户合同", , "m_Customer_Contract"
        
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Customer").index, 4, "m_Customer_Visiting", "客户拜访", 3, 4)
        tmpNode.Tag = "m_Customer_Visiting"
        .Item("m_Customer").SubMenu.Add "客户拜访", , "m_Customer_Visiting"
        
        .Item("m_Customer").SubMenu.Add "-"
        
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Customer").index, 4, "m_Customer_SaleOrder", "销售订单", 3, 4)
        tmpNode.Tag = "m_Customer_SaleOrder"
        .Item("m_Customer").SubMenu.Add "销售订单", , "m_Customer_SaleOrder"
    
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Customer").index, 4, "m_Customer_PurchaseOrder", "采购订单", 3, 4)
        tmpNode.Tag = "m_Customer_PurchaseOrder"
        .Item("m_Customer").SubMenu.Add "采购订单", , "m_Customer_PurchaseOrder"
        
    'Inventory
        'busy**********************************************************
        g_Busy.ScheduleValueAdd
        '**************************************************************
        Set tmpNode = treeLeft.Nodes.Add(, , "m_Inventory", "物流系统", 1, 2)
        tmpNode.Tag = "m_Inventory"
        .Add "物流系统", , "m_Inventory"
        
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Inventory").index, 4, "m_Inventory_Search", "库存查询", 3, 4)
        tmpNode.Tag = "m_Inventory_Search"
        .Item("m_Inventory").SubMenu.Add "库存查询", , "m_Inventory_Search"
    
        .Item("m_Inventory").SubMenu.Add "-"
        
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Inventory").index, 4, "m_Inventory_In", "仓库入库", 3, 4)
        tmpNode.Tag = "m_Inventory_In"
        .Item("m_Inventory").SubMenu.Add "仓库入库", , "m_Inventory_In"
    
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Inventory").index, 4, "m_Inventory_Out", "仓库出库", 3, 4)
        tmpNode.Tag = "m_Inventory_Out"
        .Item("m_Inventory").SubMenu.Add "仓库出库", , "m_Inventory_Out"
    
        .Item("m_Inventory").SubMenu.Add "-"
        
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Inventory").index, 4, "m_Inventory_Displace", "仓库转库", 3, 4)
        tmpNode.Tag = "m_Inventory_Displace"
        .Item("m_Inventory").SubMenu.Add "仓库转库", , "m_Inventory_Displace"
    
        .Item("m_Inventory").SubMenu.Add "-"
        
        
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Inventory").index, 4, "m_Inventory_Calculate", "在途库存", 3, 4)
        tmpNode.Tag = "m_Inventory_Calculate"
        .Item("m_Inventory").SubMenu.Add "在途库存", , "m_Inventory_Calculate"
    
    'Report
        'busy**********************************************************
        g_Busy.ScheduleValueAdd
        '**************************************************************
        Set tmpNode = treeLeft.Nodes.Add(, , "m_Report", "报表功能", 1, 2)
        tmpNode.Tag = "m_Report"
        .Add "报表功能", , "m_Report"
        
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Report").index, 4, "m_Report_View", "报表查阅", 3, 4)
        tmpNode.Tag = "m_Report_View"
        .Item("m_Report").SubMenu.Add "报表查阅", , "m_Report_View"
        
        .Item("m_Report").SubMenu.Add "-"
    
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Report").index, 4, "m_Report_Consignment", "客户交货模拟", 3, 4)
        tmpNode.Tag = "m_Report_Consignment"
        .Item("m_Report").SubMenu.Add "客户交货模拟", , "m_Report_Consignment"
    
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Report").index, 4, "m_Report_Customer_Analysis", "客户价值分析", 3, 4)
        tmpNode.Tag = "m_Report_Customer_Analysis"
        .Item("m_Report").SubMenu.Add "客户价值分析", , "m_Report_Customer_Analysis"
    
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Report").index, 4, "m_Report_Commodity_Analysis", "产品分析", 3, 4)
        tmpNode.Tag = "m_Report_Commodity_Analysis"
        .Item("m_Report").SubMenu.Add "产品分析", , "m_Report_Commodity_Analysis"
    
  
    '增加其他内容
        'busy**********************************************************
        g_Busy.ScheduleValueAdd
        '**************************************************************
        .Add "系统", , "SYSTEM"
        
        .Item("SYSTEM").SubMenu.Add "关 于...", , "About"
        .Item("SYSTEM").SubMenu.Item("About").RadioGroup = True
        .Item("SYSTEM").SubMenu.Add "-"
        .Item("SYSTEM").SubMenu.Add "视图设置", , "View"
        .Item("SYSTEM").SubMenu.Add "-"
        .Item("SYSTEM").SubMenu.Add "窗口", , "Windows"
        .Item("SYSTEM").SubMenu.Add "-"
        .Item("SYSTEM").SubMenu.Add "Stand Form", , "Stand"
        .Item("SYSTEM").SubMenu.Add "-"
        .Item("SYSTEM").SubMenu.Add "退出系统", , "End"
        Set .Item("SYSTEM").SubMenu.Item("End").Picture = LoadPicture(App.Path + "\Exit.ico")
        .Item("SYSTEM").RightJustify = True
    End With
    
    'busy**********************************************************
    g_Busy.ScheduleValueAdd
    '**************************************************************
    '产生窗口列表:windows list
    'm_Menu.SetWindowList "SYSTEM"
    '联结菜单
    m_MDI.Connect m_Menu

    'hide busy**************************
    g_Busy.Dispose
    '***********************************

End Sub
  'Click菜单的事件处理*******************************************
Private Sub ClickMenu(ByRef frmName As String)
    Select Case frmName
        Case "m_Option_Employee"
            ShowForm frmEmployee
        Case "m_Option_Commodity"
            ShowForm frmCommodity
        Case "m_Option_Area"
            ShowForm frmArea
        Case "m_Option_Warehouse"
            ShowForm frmWarehouse
        Case "m_Customer_Document"
            ShowForm frmCustomer
        Case "m_Customer_CommodityPrice"
            ShowForm frmCustomerPrice
        Case "m_Inventory_Search"
            ShowForm frmInventory
        Case "m_Customer_SaleOrder"
            ShowForm frmSaleOrder
        Case "m_Customer_Visiting"
            ShowForm frmCustomerVisiting
        Case "m_Customer_Contract"
            ShowForm frmCustomerContract
        Case "m_Customer_PurchaseOrder"
            ShowForm frmPurchaseOrder
        Case "m_Inventory_In"
            ShowForm frmInventoryIn
        Case "m_Inventory_Out"
            ShowForm frmInventoryOut
        Case "m_Inventory_Displace"
            ShowForm frmInventoryDisplace
        Case Else
            MsgBox "找到不所对应的事件！系统错误", vbInformation, "system error"
    End Select
End Sub
'***************************************************