?? mdiform1.frm

?? 很好！很實用！免費！
?? FRM
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
        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
'產(chǎn)生菜單
Private Sub ConfigMenu()
    Dim tmpNode As Node
    
    'show busy*****************************************************
    g_Busy.Show "正在載入系統(tǒng)...", 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", "基礎(chǔ)設(shè)置", 1, 2)
        tmpNode.Tag = "m_Option"
        .Add "基礎(chǔ)設(shè)置", , "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", "產(chǎn)品管理", 3, 4)
        tmpNode.Tag = "m_Option_Commodity"
        .Item("m_Option").SubMenu.Add "產(chǎn)品管理", , "m_Option_Commodity"
        
        .Item("m_Option").SubMenu.Add "-"
    
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Option").index, 4, "m_Option_Area", "區(qū)域設(shè)置", 3, 4)
        tmpNode.Tag = "m_Option_Area"
        .Item("m_Option").SubMenu.Add "區(qū)域設(shè)置", , "m_Option_Area"
    
    
        Set tmpNode = treeLeft.Nodes.Add(treeLeft.Nodes("m_Option").index, 4, "m_Option_Warehouse", "倉庫設(shè)置", 3, 4)
        tmpNode.Tag = "m_Option_Warehouse"
        .Item("m_Option").SubMenu.Add "倉庫設(shè)置", , "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", "物流系統(tǒng)", 1, 2)
        tmpNode.Tag = "m_Inventory"
        .Add "物流系統(tǒng)", , "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", "倉庫轉(zhuǎn)庫", 3, 4)
        tmpNode.Tag = "m_Inventory_Displace"
        .Item("m_Inventory").SubMenu.Add "倉庫轉(zhuǎn)庫", , "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", "產(chǎn)品分析", 3, 4)
        tmpNode.Tag = "m_Report_Commodity_Analysis"
        .Item("m_Report").SubMenu.Add "產(chǎn)品分析", , "m_Report_Commodity_Analysis"
    
  
    '增加其他內(nèi)容
        'busy**********************************************************
        g_Busy.ScheduleValueAdd
        '**************************************************************
        .Add "系統(tǒng)", , "SYSTEM"
        
        .Item("SYSTEM").SubMenu.Add "關(guān) 于...", , "About"
        .Item("SYSTEM").SubMenu.Item("About").RadioGroup = True
        .Item("SYSTEM").SubMenu.Add "-"
        .Item("SYSTEM").SubMenu.Add "視圖設(shè)置", , "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 "退出系統(tǒng)", , "End"
        Set .Item("SYSTEM").SubMenu.Item("End").Picture = LoadPicture(App.Path + "\Exit.ico")
        .Item("SYSTEM").RightJustify = True
    End With
    
    'busy**********************************************************
    g_Busy.ScheduleValueAdd
    '**************************************************************
    '產(chǎn)生窗口列表:windows list
    'm_Menu.SetWindowList "SYSTEM"
    '聯(lián)結(jié)菜單
    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 "找到不所對應(yīng)的事件！系統(tǒng)錯誤", vbInformation, "system error"
    End Select
End Sub
'***************************************************
上一頁 12
?? 文件大小 928 K
?? 上傳用戶 fengkuangyidao
?? 所屬分類其他
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mdiform1.frm

?? 快捷鍵說明
