EndProperty
      EndProperty
   End
   Begin VB.Menu M_BaseManage 
      Caption         =   "基本管理(&B)"
      Begin VB.Menu M_InStorehouse 
         Caption         =   "進庫管理"
         Shortcut        =   ^I
      End
      Begin VB.Menu M_OutStorehouse 
         Caption         =   "出庫管理"
         Shortcut        =   ^O
      End
      Begin VB.Menu bar1 
         Caption         =   "-"
      End
      Begin VB.Menu M_Exchange 
         Caption         =   "交接班"
         Shortcut        =   {F12}
      End
      Begin VB.Menu M_ChangePassword 
         Caption         =   "修改個人密碼"
      End
      Begin VB.Menu M_TEMP 
         Caption         =   "臨時離開"
         Shortcut        =   ^Q
      End
      Begin VB.Menu bar2 
         Caption         =   "-"
      End
      Begin VB.Menu M_Exit 
         Caption         =   "退出"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu M_Find 
      Caption         =   "查詢(&F)"
      Begin VB.Menu M_FindDate 
         Caption         =   "按日期查詢"
      End
      Begin VB.Menu M_FindPerson 
         Caption         =   "按人員查詢"
         Shortcut        =   ^M
      End
      Begin VB.Menu M_FindArticle 
         Caption         =   "按物品查詢"
         Shortcut        =   ^A
      End
   End
   Begin VB.Menu M_Total 
      Caption         =   "統計(&T)"
      Begin VB.Menu M_TotalMonth 
         Caption         =   "按月統計"
         Shortcut        =   ^T
      End
   End
   Begin VB.Menu M_Print 
      Caption         =   "打印(&P)"
      Begin VB.Menu M_PrintMust 
         Caption         =   "需采購的物品打印"
      End
      Begin VB.Menu M_PrintMonth 
         Caption         =   "按月打印"
         Shortcut        =   ^P
      End
   End
   Begin VB.Menu M_Setup 
      Caption         =   "設置(&S)"
      Begin VB.Menu M_OperaterSetup 
         Caption         =   "操作員設置"
      End
      Begin VB.Menu M_ManSetup 
         Caption         =   "人員設置"
      End
      Begin VB.Menu bar 
         Caption         =   "-"
      End
      Begin VB.Menu M_DataMake 
         Caption         =   "數據整理"
         Shortcut        =   ^D
      End
   End
   Begin VB.Menu M_Help 
      Caption         =   "幫助(&H)"
      Begin VB.Menu M_HelpObject 
         Caption         =   "幫助主題"
         Shortcut        =   ^H
      End
      Begin VB.Menu bar4 
         Caption         =   "-"
      End
      Begin VB.Menu M_About 
         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 M_ChangePassword_Click()
   密碼修改.Show
End Sub

Private Sub M_ClearData_Click()
  FrmClearData.Show
End Sub

Private Sub M_DataBackup_Click()
FrmDataBackup.Show
End Sub

Private Sub M_DataMake_Click()
  倉庫數據管理.Show
End Sub

Private Sub M_Exchange_Click()
  Login1 = 1
  登錄界面.Caption = "交接班"
  登錄界面.Show 1
  主界面.Show
End Sub

Private Sub M_Exit_Click()
  aa = MsgBox("退出前請確定數據是否保存!!", 1 + 32)
  If aa = 1 Then End
End Sub

Private Sub M_FindArticle_Click()
  查詢方式之——按人查詢.Show
End Sub

Private Sub M_FindDate_Click()
  查詢方式之——按日期查詢.Show
End Sub

Private Sub M_FindPerson_Click()
  查詢方式之——按物查詢.Show
End Sub

Private Sub M_InStorehouse_Click()
  進庫操作.Show
End Sub

Private Sub M_ManSetup_Click()
  倉庫人員管理.Show
End Sub

Private Sub M_OperaterSetup_Click()
  倉庫管理員管理.Show
End Sub

Private Sub M_OutStorehouse_Click()
   出庫操作.Show
End Sub

Private Sub M_PrintDay_Click()
  DataReport1.Show
End Sub

Private Sub M_Printjgj_Click()
 Frmprintgz.Show
End Sub

Private Sub M_PrintMonth_Click()
   打印方式二.Show
End Sub

Private Sub M_Printmustbuy_Click()
DataReport3.Show
End Sub



Private Sub M_ProducePlan_Click()
  FrmProduceplanManage1.Show
End Sub

Private Sub M_Sparelist_Click()
FrmSpareList.Show
End Sub

Private Sub M_StorehouseManage_Click()
  FrmStorehousemanage.Show
End Sub

Private Sub M_StorehouseSetup_Click()
  frmStorehouse.Show
End Sub

Private Sub M_PrintMust_Click()
   打印方式一.Show
End Sub

Private Sub M_TEMP_Click()
  離開密碼.Show 1
End Sub

Private Sub M_TotalDay_Click()
  FrmTotalDay.Show
End Sub

Private Sub M_TotalMonth_Click()
   統計物品.Show
End Sub

Private Sub MDIForm_Load()
 主界面.BackColor = &H80000003
  主界面.WindowState = 2
  str1 = "日一二三四五六"
  StatusBar1.Panels.Item(4).Text = "星期" & Mid(str1, Weekday(Date), 1)
  StatusBar1.Panels.Item(3).Text = Date
  StatusBar1.Panels.Item(1).Text = "管理員:    " & Operater1
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = MsgBox("退出前請確定數據是否保存!!", 1 + 32)
    If Cancel = 1 Then End
End Sub

Private Sub MDIForm_Resize()
'  Mainform.WindowState = 2
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
    Case "T_InStorehouse"
      Call M_InStorehouse_Click
    Case "T_Calc"
      Shell (App.Path + "\calc.exe")
    Case "T_Exchange"
      Call M_Exchange_Click
    Case "T_Temp"
      Call M_TEMP_Click
    Case "T_Exit"
      Call M_Exit_Click
    Case "T_OutStorehouse"
      Call M_OutStorehouse_Click
    Case "T_StorehouseManage"
      Call M_StorehouseManage_Click
    Case "T_FindPerson"
      Call M_FindPerson_Click
    Case "T_FindArticle"
      Call M_FindArticle_Click
    Case "T_ProducePlan"
      Call M_ProducePlan_Click
    End Select
End Sub