Caption         =   "-"
         End
         Begin VB.Menu 設備文件 
            Caption         =   "設備文件"
            Begin VB.Menu 設備操作書 
               Caption         =   "設備操作書"
            End
            Begin VB.Menu 說明書管理 
               Caption         =   "說明書管理"
            End
         End
      End
   End
   Begin VB.Menu 人事管理 
      Caption         =   "人事管理(&R)"
      Begin VB.Menu 員工檔案 
         Caption         =   "員工檔案"
      End
      Begin VB.Menu r 
         Caption         =   "-"
      End
      Begin VB.Menu 培訓記錄 
         Caption         =   "培訓記錄"
      End
      Begin VB.Menu 獎懲記錄 
         Caption         =   "獎懲記錄"
      End
      Begin VB.Menu 就餐記錄 
         Caption         =   "就餐記錄"
      End
      Begin VB.Menu 職稱評定 
         Caption         =   "職稱評定"
      End
      Begin VB.Menu 人員調動 
         Caption         =   "人員調動"
      End
      Begin VB.Menu 員工進辭 
         Caption         =   "員工進辭"
      End
      Begin VB.Menu l 
         Caption         =   "-"
      End
      Begin VB.Menu 工資計算 
         Caption         =   "工資計算(&G)"
         Begin VB.Menu 品質獎懲 
            Caption         =   "品質獎懲"
         End
         Begin VB.Menu 各項補貼 
            Caption         =   "各項補貼"
         End
         Begin VB.Menu 計算公式 
            Caption         =   "計算公式"
         End
         Begin VB.Menu 工資表 
            Caption         =   "工資表"
         End
      End
      Begin VB.Menu e 
         Caption         =   "-"
      End
      Begin VB.Menu 行政管理 
         Caption         =   "行政管理"
      End
   End
   Begin VB.Menu 品質管理 
      Caption         =   "品質管理(&P)"
      Begin VB.Menu 品質獎 
         Caption         =   "品質獎懲"
      End
   End
   Begin VB.Menu 業務銷售 
      Caption         =   "業務銷售(&Y)"
      Begin VB.Menu 每周計劃 
         Caption         =   "每周計劃"
      End
      Begin VB.Menu 客戶資料 
         Caption         =   "客戶資料"
      End
      Begin VB.Menu 新產品開發 
         Caption         =   "新產品開發"
      End
      Begin VB.Menu 出貨計劃 
         Caption         =   "出貨計劃"
      End
      Begin VB.Menu 開票計劃 
         Caption         =   "開票計劃"
      End
      Begin VB.Menu 回款情況 
         Caption         =   "回款情況"
      End
      Begin VB.Menu 每月計劃 
         Caption         =   "每月計劃"
      End
   End
   Begin VB.Menu 技術開發 
      Caption         =   "技術開發(&J)"
      Begin VB.Menu 文件管理 
         Caption         =   "文件管理"
         Begin VB.Menu 文件更改記錄 
            Caption         =   "文件更改記錄"
         End
         Begin VB.Menu 外來文件 
            Caption         =   "外來文件"
         End
         Begin VB.Menu 圖紙文件 
            Caption         =   "圖紙文件"
         End
         Begin VB.Menu 作業指導書 
            Caption         =   "作業指導書"
         End
         Begin VB.Menu 規格書 
            Caption         =   "規格書"
         End
         Begin VB.Menu 試驗報告 
            Caption         =   "試驗報告"
         End
         Begin VB.Menu 檢驗文件 
            Caption         =   "檢驗文件"
         End
      End
      Begin VB.Menu 樣品管理 
         Caption         =   "樣品管理"
      End
      Begin VB.Menu h 
         Caption         =   "-"
      End
      Begin VB.Menu 新品開發 
         Caption         =   "新品開發"
         Begin VB.Menu 材料開發 
            Caption         =   "材料開發"
            Begin VB.Menu 新材料開發 
               Caption         =   "新材料開發"
            End
            Begin VB.Menu 新廠家資料 
               Caption         =   "新廠家資料"
            End
            Begin VB.Menu 材料試樣 
               Caption         =   "材料試樣"
            End
            Begin VB.Menu 承認情況 
               Caption         =   "承認情況"
            End
         End
         Begin VB.Menu 產品開發 
            Caption         =   "產品開發"
         End
         Begin VB.Menu 樣品試制 
            Caption         =   "樣品試制"
         End
      End
      Begin VB.Menu p 
         Caption         =   "-"
      End
      Begin VB.Menu 產品承認 
         Caption         =   "產品承認"
      End
      Begin VB.Menu 顧客資料 
         Caption         =   "顧客資料"
      End
      Begin VB.Menu o 
         Caption         =   "-"
      End
      Begin VB.Menu 原材料方面 
         Caption         =   "原材料方面"
         Begin VB.Menu 原材料檢驗規程 
            Caption         =   "原材料檢驗規程"
         End
         Begin VB.Menu 原材料廠家資料 
            Caption         =   "原材料廠家資料"
         End
         Begin VB.Menu 供方成績 
            Caption         =   "供方成績"
         End
         Begin VB.Menu 工廠審查 
            Caption         =   "工廠審查"
         End
      End
      Begin VB.Menu 試驗品試制 
         Caption         =   "試驗品試制"
      End
      Begin VB.Menu 材料情況 
         Caption         =   "材料情況"
         Begin VB.Menu 材料消耗 
            Caption         =   "材料消耗"
         End
         Begin VB.Menu 材料清單 
            Caption         =   "材料清單"
         End
      End
      Begin VB.Menu hhh 
         Caption         =   "-"
      End
      Begin VB.Menu 品質信息 
         Caption         =   "品質信息"
         Begin VB.Menu 內部品質 
            Caption         =   "內部品質"
         End
         Begin VB.Menu 外部品質 
            Caption         =   "外部品質"
         End
         Begin VB.Menu 新品品質 
            Caption         =   "新品品質"
         End
         Begin VB.Menu 新材料品質 
            Caption         =   "新材料品質"
         End
      End
   End
   Begin VB.Menu 關于 
      Caption         =   "關于(&D)"
      Begin VB.Menu 作者 
         Caption         =   "作者"
      End
   End
End
Attribute VB_Name = "主窗體"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub IP地址設置_Click()
當前位置.Panels(2).Text = "系統維護－IP地址設置"
IP設置.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "退出系統"
Unload 主窗體
End Select
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

Private Sub 部門_Click()
Form7.Show
End Sub

Private Sub 材料清單_Click()

當前位置.Panels(2).Text = "技術開發－材料情況－材料清單"
End Sub

Private Sub 材料消耗_Click()
當前位置.Panels(2).Text = "技術開發－材料情況－材料消耗"
'材料消耗.Show
End Sub

Private Sub 二級部門_Click()
Form8.Show
End Sub

Private Sub 工資類型_Click()
Form6.Show
End Sub

Private Sub 計算公式_Click()
工資公式.Show
End Sub

Private Sub 民族_Click()
Form2.Show
End Sub

Private Sub 退出_Click()
Unload 主窗體
End Sub

Private Sub 文化程度_Click()
Form3.Show
End Sub

Private Sub 用戶密碼_Click()
當前位置.Panels(2).Text = "系統維護－用戶密碼"
End Sub

Private Sub 用戶權限_Click()
當前位置.Panels(2).Text = "系統維護－用戶權限"
End Sub

Private Sub 員工檔案_Click()
Form1.Show
End Sub

Private Sub 職稱_Click()
Form9.Show
End Sub

Private Sub 職工類型_Click()
Form5.Show
End Sub

Private Sub 職務_Click()
當前位置.Panels(2).Text = "數據初始化－職務"
Form10.Show
End Sub

Private Sub 作者_Click()
Dim i As String
i = Space(2) & "兆基企業管理1.0版" & vbCrLf & Space(3) & "作者：竇曉平" & "  南京兆基電器有限公司"
MsgBox i, vbOKOnly + vbInformation, "兆基企業管理"
End Sub