frm_main.frm

基于VB + SQL Server 的商品进销管理,是学习VB数据库编程的重要参考

         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   870
      Index           =   0
      Left            =   600
      TabIndex        =   3
      Top             =   1395
      Width           =   6240
   End
   Begin VB.Menu rcyw 
      Caption         =   "【日常业务】"
      Begin VB.Menu xskd 
         Caption         =   "销售开单"
      End
      Begin VB.Menu xsth 
         Caption         =   "销售退货"
      End
      Begin VB.Menu xssk 
         Caption         =   "客户结款"
      End
      Begin VB.Menu l1 
         Caption         =   "-"
      End
      Begin VB.Menu 退出 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu CXTJ 
      Caption         =   "【查询统计】"
      Begin VB.Menu xscx 
         Caption         =   "销售查询"
      End
      Begin VB.Menu xsthcx 
         Caption         =   "销售退货查询"
      End
      Begin VB.Menu skcx 
         Caption         =   "应收款查询"
      End
      Begin VB.Menu l4 
         Caption         =   "-"
      End
      Begin VB.Menu kccx 
         Caption         =   "库存商品查询"
      End
   End
   Begin VB.Menu xsbb 
      Caption         =   "【销售报表】"
      Begin VB.Menu khxshzb 
         Caption         =   "客户销售汇总表"
      End
      Begin VB.Menu spxshzb 
         Caption         =   "商品销售汇总表"
      End
      Begin VB.Menu ywyxshzb 
         Caption         =   "销售员销售汇总表"
      End
   End
   Begin VB.Menu jcxxgl 
      Caption         =   "【基础信息管理】"
      Begin VB.Menu spxxgl 
         Caption         =   "商品信息管理"
      End
      Begin VB.Menu xsyxxgl 
         Caption         =   "销售员信息管理"
      End
      Begin VB.Menu khxxgl 
         Caption         =   "客户信息管理"
      End
   End
   Begin VB.Menu xtcs 
      Caption         =   "【系统设置】"
      Begin VB.Menu czysz 
         Caption         =   "操作员管理"
      End
      Begin VB.Menu xtcsh 
         Caption         =   "系统初始化"
      End
   End
   Begin VB.Menu help 
      Caption         =   "【帮助】"
      Begin VB.Menu myhelp 
         Caption         =   "帮助"
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         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
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