soud(vb).txt

商品管理系统的VB主界面,其中的事一些源代码,,要需其它窗口的代码,,请与本人联系

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