Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu 退出 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu kcgl 
      Caption         =   "【庫存管理】"
      Begin VB.Menu kccx 
         Caption         =   "庫存商品查詢(&Z)"
         Shortcut        =   ^Z
      End
      Begin VB.Menu kcpd 
         Caption         =   "庫存盤點(&P)"
         Shortcut        =   ^P
      End
   End
   Begin VB.Menu CXTJ 
      Caption         =   "【查詢統計】"
      Begin VB.Menu xscx 
         Caption         =   "銷售查詢"
      End
      Begin VB.Menu rkcx 
         Caption         =   "入庫查詢"
      End
   End
   Begin VB.Menu ysyf 
      Caption         =   "【應收應付管理】"
      Begin VB.Menu fkd 
         Caption         =   "付款單(&J)"
         Shortcut        =   ^J
      End
      Begin VB.Menu line25 
         Caption         =   "-"
      End
      Begin VB.Menu skcx 
         Caption         =   "應收款查詢"
      End
      Begin VB.Menu fkcx 
         Caption         =   "應付款查詢"
      End
   End
   Begin VB.Menu tjbb 
      Caption         =   "【統計報表】"
      Begin VB.Menu xsrbb 
         Caption         =   "銷售日報表"
      End
      Begin VB.Menu xsybb 
         Caption         =   "銷售月報表"
      End
      Begin VB.Menu line9 
         Caption         =   "-"
      End
      Begin VB.Menu khxsbb 
         Caption         =   "客戶銷售報表"
      End
      Begin VB.Menu zyxsbb 
         Caption         =   "職員銷售報表"
      End
   End
   Begin VB.Menu khxxgl 
      Caption         =   "【基礎信息管理】"
      Begin VB.Menu spinf 
         Caption         =   "商品信息管理"
      End
      Begin VB.Menu yginf 
         Caption         =   "職員信息管理"
      End
      Begin VB.Menu ckinf 
         Caption         =   "倉庫信息管理"
      End
      Begin VB.Menu w2 
         Caption         =   "-"
      End
      Begin VB.Menu gysinf 
         Caption         =   "供應商信息管理(&W)"
         Shortcut        =   ^W
      End
      Begin VB.Menu khinf 
         Caption         =   "客戶信息管理"
      End
   End
   Begin VB.Menu xtcs 
      Caption         =   "【系統設置】"
      Begin VB.Menu bdwdy 
         Caption         =   "本單位定義"
      End
      Begin VB.Menu line8 
         Caption         =   "-"
      End
      Begin VB.Menu czysz 
         Caption         =   "操作員及密碼管理"
      End
      Begin VB.Menu qxsz 
         Caption         =   "權限設置"
      End
      Begin VB.Menu xtcsh 
         Caption         =   "系統初始化"
      End
   End
   Begin VB.Menu bz 
      Caption         =   "【幫助】"
      Begin VB.Menu bz1 
         Caption         =   "幫助"
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu gy 
         Caption         =   "關于"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "【退出】"
   End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
'在標題欄上顯示軟件名稱及版本
 Me.Caption = App.Title & "    版本： V" & App.Major & "." & App.Minor & "." & App.Revision
 Dim i As Integer     '定義整型變量
 For i = 0 To 1
  Label1(i).Caption = App.Title
 Next i
 Label2.Caption = "版本： V" & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 Select Case Button.Key
 Case Is = "rk"     '調入入庫窗口
  rkd_Click
 Case Is = "kc"     '調入庫存查詢窗口
  kccx_Click
 Case Is = "xscx"     '調入銷售查詢窗口
  xscx_Click
 Case Is = "rkcx"     '調入入庫查詢窗口
  rkcx_Click
 Case Is = "fkd"     '調入付款單窗口
  fkd_Click
 Case Is = "kh"     '調入客戶基本信息管理窗口
  khinf_Click
 Case Is = "gys"     '調入供應商基本信息管理窗口
  gysinf_Click
 Case Is = "bz"     '調入幫助窗口
  bz1_Click
 End Select
End Sub
Private Sub Timer1_Timer()     '設置時間
 St1.Panels(1).Text = Format(Date, "long date") & "    " & Time
End Sub
Private Sub rkd_Click()     '調入入庫窗口
  Load main_rcyw_rk
  main_rcyw_rk.Show
  frm_main.Enabled = False
End Sub
Private Sub kccx_Click()     '調入庫存查詢窗口
  Load main_kcgl_kccx
  main_kcgl_kccx.Show
  frm_main.Enabled = False
End Sub
Private Sub kcpd_Click()      '調入庫存盤點窗口
  Load main_kcgl_kcpd
  main_kcgl_kcpd.Show
  frm_main.Enabled = False
End Sub
Private Sub xscx_Click()     '調入銷售查詢窗口
  Load main_cxtj_xscx
  main_cxtj_xscx.Show
  frm_main.Enabled = False
End Sub
Private Sub rkcx_Click()     '調入入庫查詢窗口
  Load main_cxtj_rkcx
  main_cxtj_rkcx.Show
  frm_main.Enabled = False
End Sub
Private Sub fkd_Click()     '調入付款單
  Load main_ysyf_fkd
  main_ysyf_fkd.Show
  frm_main.Enabled = False
End Sub
Private Sub skcx_Click()      '調入應收款查詢窗口
  Load main_ysyf_skcx
  main_ysyf_skcx.Show
  frm_main.Enabled = False
End Sub
Private Sub fkcx_Click()     '調入應付款查詢窗口
  Load main_ysyf_fkcx
  main_ysyf_fkcx.Show
  frm_main.Enabled = False
End Sub
Private Sub xsrbb_Click()     '調入銷售日報表
  Load main_tjbb_xsrbb
  main_tjbb_xsrbb.Show
  frm_main.Enabled = False
End Sub
Private Sub xsybb_Click()     '調入銷售月報表
  Load main_tjbb_xsybb
  main_tjbb_xsybb.Show
  frm_main.Enabled = False
End Sub
Private Sub khxsbb_Click()     '調入客戶銷售報表
  Load main_tjbb_khxsbb
  main_tjbb_khxsbb.Show
  frm_main.Enabled = False
End Sub
Private Sub zyxsbb_Click()     '調入職員銷售報表
  Load main_tjbb_zyxsbb
  main_tjbb_zyxsbb.Show
  frm_main.Enabled = False
End Sub
Private Sub spinf_Click()     '調入商品信息管理窗口
  Load main_jbxx_spinf
  main_jbxx_spinf.Show
  frm_main.Enabled = False
End Sub
Private Sub yginf_Click()     '調入員工信息管理窗口
  Load main_jbxx_yginf
  main_jbxx_yginf.Show
  frm_main.Enabled = False
End Sub
Private Sub ckinf_Click()     '調入倉庫信息管理窗口
  Load main_jbxx_ckinf
  main_jbxx_ckinf.Show
  frm_main.Enabled = False
End Sub
Private Sub gysinf_Click()     '調入供應商信息管理窗口
  Load main_jbxx_gys
  main_jbxx_gys.Show
  frm_main.Enabled = False
End Sub
Private Sub khinf_Click()     '調入客戶信息管理窗口
  Load main_jbxx_kh
  main_jbxx_kh.Show
  frm_main.Enabled = False
End Sub
Private Sub bdwdy_Click()     '調入本單位定義
  Load main_bdwdy
  main_bdwdy.Show
  frm_main.Enabled = False
End Sub
Private Sub czysz_Click()     '調入操作員及密碼管理窗口
  Load main_xtsz_czysz
  main_xtsz_czysz.Show
  frm_main.Enabled = False
End Sub
Private Sub qxsz_Click()     '調入權限設置
  Load main_xtsz_qxsz
  main_xtsz_qxsz.Show
  frm_main.Enabled = False
End Sub
Private Sub xtcsh_Click()     '調入初始化窗口
  Load main_xtsz_xtcsh
  main_xtsz_xtcsh.Show
  frm_main.Enabled = False
End Sub
Private Sub bz1_Click()     '調入幫助窗口
  Load frmTip
  frmTip.Show
  frm_main.Enabled = False
End Sub
Private Sub gy_Click()     '調入關于窗口
  Load frmAbout
  frmAbout.Show
  frm_main.Enabled = False
End Sub
Private Sub exit_Click()
  End
End Sub