frm_main.frm

钢材综合管理系统 钢材综合管理系统

         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