mdimain.frm

VB编写的超市管理系统

VERSION 5.00
Begin VB.MDIForm mdiMain 
   BackColor       =   &H8000000C&
   Caption         =   "销售系统"
   ClientHeight    =   6420
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   9375
   Icon            =   "mdiMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "mdiMain.frx":0CCA
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Align           =   3  'Align Left
      Height          =   6420
      Left            =   0
      ScaleHeight     =   6420
      ScaleWidth      =   15
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   15
   End
   Begin VB.Menu mnuSys 
      Caption         =   "系统设定"
      Begin VB.Menu mnuSysLoad 
         Caption         =   "重新登录"
      End
      Begin VB.Menu mnuSysSetUser 
         Caption         =   "授权用户"
      End
      Begin VB.Menu mnuSysDelUser 
         Caption         =   "删除用户"
      End
      Begin VB.Menu mnuSysPassword 
         Caption         =   "修改个人信息"
      End
      Begin VB.Menu mnuSysExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuCheck 
      Caption         =   "商品盘点"
      Begin VB.Menu mnuCheckOther 
         Caption         =   "信息修改"
      End
      Begin VB.Menu mnuCheckInput 
         Caption         =   "商品入库"
      End
      Begin VB.Menu mnuCheckModify 
         Caption         =   "库存修改"
      End
      Begin VB.Menu mnuCheckFind 
         Caption         =   "库存查询"
      End
      Begin VB.Menu mnuCheckReport 
         Caption         =   "入库查询"
      End
   End
   Begin VB.Menu mnuSell 
      Caption         =   "销售信息"
      Begin VB.Menu mnuSellOpen 
         Caption         =   "销售"
      End
      Begin VB.Menu mnuSellDay 
         Caption         =   "按日和月盘点"
      End
      Begin VB.Menu mnuSellCheck 
         Caption         =   "总销售盘点"
      End
   End
   Begin VB.Menu mnuOther 
      Caption         =   "其他设置"
      Begin VB.Menu mnuOtherFactory 
         Caption         =   "供应商设置"
      End
      Begin VB.Menu mnuOtherProvince 
         Caption         =   "省份设置"
      End
      Begin VB.Menu mnuOtherType 
         Caption         =   "商品种类设置"
      End
   End
   Begin VB.Menu mnuReport 
      Caption         =   "报表"
      Begin VB.Menu mnuReportFactory 
         Caption         =   "供应商报表"
      End
      Begin VB.Menu mnuSellReport 
         Caption         =   "销售报表"
      End
      Begin VB.Menu mnuReportCheck 
         Caption         =   "入库盘点报表"
      End
      Begin VB.Menu mnuReportType 
         Caption         =   "种类报表"
      End
      Begin VB.Menu mnuReportUser 
         Caption         =   "用户报表"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助"
      Begin VB.Menu mnuHelpC 
         Caption         =   "目录"
      End
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "mdiMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuCheckFind_Click()
'库存查询
frmCheckFind.Show , Me
End Sub
Private Sub mnuCheckInput_Click()
'商品入库
frmCheckInput.Show , Me
End Sub
Private Sub mnuCheckModify_Click()
'库存修改
frmCheckInput.Show , Me
End Sub
Private Sub mnuCheckOther_Click()
'商品信息入库
frmCheckOther.Show , Me
End Sub
Private Sub mnuCheckReport_Click()
'入库查询
frmCheckReport.Show , Me
End Sub
Private Sub mnuHelpAbout_Click()
'关于
frmAbout.Show , Me
End Sub
Private Sub mnuHelpC_Click()
'帮助
SendKeys "{F1}"
End Sub
Private Sub mnuOtherFactory_Click()
'供应商设置
frmFactory.Show , Me
End Sub
Private Sub mnuOtherProvince_Click()
'供应商省份设置
frmProvince.Show , Me
End Sub
Private Sub mnuOtherType_Click()
'种类设置
frmType.Show , Me
End Sub
Private Sub mnuReportCheck_Click()
'入库报表
DR_InCheck.Show vbModal, Me
End Sub
Private Sub mnuReportFactory_Click()
'供应商报表
DR_Factory.Show vbModal, Me
End Sub
Private Sub mnuReportType_Click()
'种类报表
DR_Type.Show vbModal, Me
End Sub
Private Sub mnuReportUser_Click()
'用户报表
DR_User.Show vbModal, Me
End Sub
Private Sub mnuSellCheck_Click()
'销售盘点
DR_Check.Show vbModal, Me
End Sub
Private Sub mnuSellDay_Click()
'按日月盘点
frmSellDcheck.Show , Me
End Sub
Private Sub mnuSellOpen_Click()
'销售窗体
frmSellOpen.Show , Me
End Sub
Private Sub mnuSellReport_Click()
'销售报表
DR_Check.Show vbModal, Me
End Sub

Private Sub mnuSysDelUser_Click()
'删除用户
frmDelUser.Show , Me
End Sub

Private Sub mnuSysExit_Click()
'退出
End
End Sub
Private Sub mnuSysLoad_Click()
'重新登录
frmLog.Show
Unload Me
End Sub

Private Sub mnuSysPassword_Click()
'个人资料的修改
frmSetPwd.Show , Me
End Sub

Private Sub mnuSysSetUser_Click()
'添加用户
frmSetUser.Show , Me
End Sub