mdifrmmain.frm

本科毕业设计-商贸有限公司销售管理系统(论文+源代码+答辩PPT)

VERSION 5.00
Begin VB.MDIForm MDIfrmMain 
   BackColor       =   &H80000000&
   Caption         =   "铁岭香河商贸有限公司销售管理系统"
   ClientHeight    =   5130
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   9015
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mnlogin 
      Caption         =   "登录系统"
      Begin VB.Menu mnemlogin 
         Caption         =   "用户登录"
      End
      Begin VB.Menu mnchpwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu adduser 
         Caption         =   "添加新用户"
      End
      Begin VB.Menu mnexit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mntrade 
      Caption         =   "交易管理"
      Begin VB.Menu mnbuy 
         Caption         =   "进货登记"
      End
      Begin VB.Menu mnsell 
         Caption         =   "销售登记"
      End
      Begin VB.Menu mnretreat 
         Caption         =   "退货登记"
      End
   End
   Begin VB.Menu mnbuyst 
      Caption         =   "进货统计"
      Begin VB.Menu mntbuy 
         Caption         =   "今日进货统计"
      End
      Begin VB.Menu mnthmbuy 
         Caption         =   "本月进货统计"
      End
      Begin VB.Menu mnthsbuy 
         Caption         =   "本季度进货统计"
      End
      Begin VB.Menu mnthybuy 
         Caption         =   "今年进货统计"
      End
   End
   Begin VB.Menu mnsellst 
      Caption         =   "销售统计"
      Begin VB.Menu mntsell 
         Caption         =   "今日销售统计"
      End
      Begin VB.Menu mnthmsell 
         Caption         =   "本月销售统计"
      End
      Begin VB.Menu mnthssell 
         Caption         =   "本季度销售统计"
      End
      Begin VB.Menu mnthysell 
         Caption         =   "今年销售统计"
      End
   End
   Begin VB.Menu mngrade 
      Caption         =   "业绩查看"
   End
   Begin VB.Menu mntable 
      Caption         =   "查看数据表"
      Begin VB.Menu mngoodstable 
         Caption         =   "现存货表"
      End
      Begin VB.Menu mnselltable 
         Caption         =   "已售商品表"
      End
      Begin VB.Menu mnretable 
         Caption         =   "退回表"
      End
      Begin VB.Menu mnem 
         Caption         =   "员工表"
      End
      Begin VB.Menu mnfc 
         Caption         =   "进货商表"
      End
      Begin VB.Menu mncus 
         Caption         =   "客户表"
      End
   End
   Begin VB.Menu HELP 
      Caption         =   "帮助"
      Begin VB.Menu about 
         Caption         =   "系统信息"
      End
      Begin VB.Menu usehelp 
         Caption         =   "应用帮助"
      End
   End
End
Attribute VB_Name = "MDIfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
frmAbout.Show
End Sub
Private Sub MDIForm_Load()
Dim strCnn As String
strCnn = "Provider=MSDASQL.1;Persist Security Info=False; data source=sellsystem"
conn.Open strCnn
MDIfrmMain.mnchpwd.Enabled = False
MDIfrmMain.adduser.Enabled = False
MDIfrmMain.mntrade.Enabled = False
MDIfrmMain.mnbuyst.Enabled = False
MDIfrmMain.mnsellst.Enabled = False
MDIfrmMain.mngrade.Enabled = False
MDIfrmMain.mntable.Enabled = False
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
conn.Close
End Sub
Private Sub mnbuy_Click()
frmAddGoods.Show
End Sub
Private Sub adduser_Click()
frmadduser.Show
End Sub
Private Sub mnchpwd_Click()
frmChPwd.Show
End Sub
Private Sub mncus_Click()
frmcustable.Show
End Sub
Private Sub mnem_Click()
frmEmTable.Show
End Sub
Private Sub mnemlogin_Click()
frmLogin.Show
End Sub
Private Sub mnexit_Click()
Unload Me
End Sub
Private Sub mnfc_Click()
frmFcTable.Show
End Sub
Private Sub mngoodstable_Click()
frmGoods.Show
End Sub
Private Sub mngrade_Click()
frmShowGrade.Show
End Sub
Private Sub mnretable_Click()
frmRetreatTable.Show
End Sub
Private Sub mnretreat_Click()
frmRetreat.Show
End Sub
Private Sub mnsell_Click()
frmSell.Show
End Sub
Private Sub mnselltable_Click()
frmShowSell.Show
End Sub
Private Sub mntbuy_Click()
frmbuyst.SSTabbuy.Tab = 0
frmbuyst.Show
End Sub
Private Sub mnthmbuy_Click()
frmbuyst.SSTabbuy.Tab = 1
frmbuyst.Show
End Sub
Private Sub mnthsbuy_Click()
frmbuyst.SSTabbuy.Tab = 2
frmbuyst.Show
End Sub
Private Sub mnthybuy_Click()
frmbuyst.SSTabbuy.Tab = 3
frmbuyst.Show
End Sub
Private Sub mnthmsell_Click()
frmsellst.SSTabsell.Tab = 1
frmsellst.Show
End Sub
Private Sub mnthssell_Click()
frmsellst.SSTabsell.Tab = 2
frmsellst.Show
End Sub
Private Sub mnthysell_Click()
frmsellst.SSTabsell.Tab = 3
frmsellst.Show
End Sub
Private Sub mntsell_Click()
frmsellst.SSTabsell.Tab = 0
frmsellst.Show
End Sub
Private Sub usehelp_Click()
frmTip.Show
End Sub