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
Public Sub updateStatusBar(ByVal PanelNum As Integer, ByVal StringVal As String, ByVal Bitmap As Boolean)
  If Not Bitmap Then
     St1.Panels(panelnume).Text = StringVal
  Else
   End If
  
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'  St1.Panels(1).Text = updateStatusBar(1, frm_main.jcxxgl.Caption, True)
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
  Case Is = "xs"     '調入銷售窗口
    xskd_Click
  Case Is = "xsth"     '調入銷售退貨窗口
    xsth_Click
  Case Is = "xscx"     '調入銷售查詢窗口
    xscx_Click
  Case Is = "xsbb"     '調入客戶銷售匯總窗口
    khxshzb_Click
  Case Is = "xssk"     '調入銷售收款窗口
    xssk_Click
  Case Is = "kh"     '調入客戶信息管理窗口
    khxxgl_Click
  Case Is = "xsy"     '調入銷售員信息管理窗口
    xsyxxgl_Click
  Case Is = "help"     '調入幫助窗口
    myhelp_Click
  End Select
End Sub
'Private Sub Timer1_Timer()     '設置時間
' St1.Panels(1).Text = Format(Date, "long date") & "    " & Time
'End Sub
Private Sub xskd_Click()     '調入銷售窗口
  Load main_rcyw_xs
  main_rcyw_xs.Show
  frm_main.Enabled = False
End Sub
Private Sub xssk_Click()     '調入銷售收款窗口
  Load main_rcyw_xssk
  main_rcyw_xssk.Show
  frm_main.Enabled = False
End Sub
Private Sub xsth_Click()     '調入銷售退貨窗口
  Load main_rcyw_xsth
  main_rcyw_xsth.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 xsthcx_Click()     '調入銷售退貨查詢窗口
  Load main_cxtj_xsthcx
  main_cxtj_xsthcx.Show
  frm_main.Enabled = False
End Sub
Private Sub skcx_Click()      '調入應收款查詢窗口
  Load main_cxtj_skcx
  main_cxtj_skcx.Show
  frm_main.Enabled = False
End Sub
Private Sub kccx_Click()     '調入庫存商品查詢窗口
  Load main_cxtj_kccx
  main_cxtj_kccx.Show
  frm_main.Enabled = False
End Sub
Private Sub khxshzb_Click()     '調入客戶銷售匯總表
  Load main_xsbb_khxshzb
  main_xsbb_khxshzb.Show
  frm_main.Enabled = False
End Sub
Private Sub khxsmxb_Click()     '調入客戶銷售明細表
  Load main_xsbb_khxsmxb
  main_xsbb_khxsmxb.Show
  frm_main.Enabled = False
End Sub
Private Sub spxshzb_Click()     '調入商品銷售匯總表
  Load main_xsbb_spxshzb
  main_xsbb_spxshzb.Show
  frm_main.Enabled = False
End Sub
Private Sub spxsmxb_Click()     '調入商品銷售明細表
  Load main_xsbb_spxsmxb
  main_xsbb_spxsmxb.Show
  frm_main.Enabled = False
End Sub
Private Sub ywyxshzb_Click()     '調入業務員銷售匯總表
  Load main_xsbb_xsyxshzb
  main_xsbb_xsyxshzb.Show
  frm_main.Enabled = False
End Sub
Private Sub ywyxsmxb_Click()     '調入業務員銷售明細表
  Load main_xsbb_ywyxsmxb
  main_xsbb_ywyxsmxb.Show
  frm_main.Enabled = False
End Sub
Private Sub spxxgl_Click()     '調入商品信息管理窗口
  Load main_jbxx_spll
  main_jbxx_spll.Show
  frm_main.Enabled = False
End Sub
Private Sub xsyxxgl_Click()     '調入銷售員信息管理窗口
  Load main_jbxx_xsrycx
  main_jbxx_xsrycx.Show
  frm_main.Enabled = False
End Sub
Private Sub khxxgl_Click()     '調入客戶信息管理窗口
  Load main_jbxx_kh
  main_jbxx_kh.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 myhelp_Click()     '調入幫助窗口
  Load frmTip
  frmTip.Show
  frm_main.Enabled = False
End Sub
Private Sub about_Click()     '調入關于窗口
  Load frmAbout
  frmAbout.Show
  frm_main.Enabled = False
End Sub
Private Sub exit_Click()
  End
End Sub
Private Sub 退出_Click()
  End
End Sub