mdi_main.frm

小型超市进销存系统

VERSION 5.00
Begin VB.MDIForm MDI_main 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   5895
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8580
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu menu_1 
      Caption         =   "员工管理"
      Enabled         =   0   'False
      Begin VB.Menu menu_1guanli 
         Caption         =   "员工管理"
      End
      Begin VB.Menu menu_power 
         Caption         =   "权限管理"
      End
   End
   Begin VB.Menu menu_2 
      Caption         =   "商品管理"
      Enabled         =   0   'False
      Begin VB.Menu menu_8 
         Caption         =   "供应商管理"
      End
      Begin VB.Menu menu_7Goods 
         Caption         =   "现有商品"
      End
      Begin VB.Menu menu_7Brand 
         Caption         =   "现有品牌"
      End
      Begin VB.Menu menu_7Price 
         Caption         =   "价格设定"
      End
   End
   Begin VB.Menu menu_3 
      Caption         =   "库存管理"
      Enabled         =   0   'False
      Begin VB.Menu mnuStockinfo 
         Caption         =   "库存查询"
      End
      Begin VB.Menu mnumaichanginfo 
         Caption         =   "卖场查询"
      End
      Begin VB.Menu menu_3bstore 
         Caption         =   "仓库退货"
      End
   End
   Begin VB.Menu menu_4 
      Caption         =   "定单管理"
      Enabled         =   0   'False
      Begin VB.Menu menu_2Order 
         Caption         =   "进货定单"
      End
      Begin VB.Menu menu_4iorder 
         Caption         =   "进货入库"
      End
      Begin VB.Menu menu_4border 
         Caption         =   "退货定单"
      End
   End
   Begin VB.Menu menu_5 
      Caption         =   "销售管理"
      Begin VB.Menu menu_6saleOrder 
         Caption         =   "销售详情"
      End
   End
   Begin VB.Menu menu_6 
      Caption         =   "前台客服"
      Enabled         =   0   'False
      Begin VB.Menu menu_3bgood 
         Caption         =   "前台退货"
      End
      Begin VB.Menu menu_9goods 
         Caption         =   "商品查询"
      End
      Begin VB.Menu menu_9finddd 
         Caption         =   "订单查询"
      End
      Begin VB.Menu menu_9addDD 
         Caption         =   "添加订单"
      End
   End
End
Attribute VB_Name = "MDI_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Dim i As Integer
stra = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=supermarket;Data Source=."
Dblink.linkDB stra

'客服 2  前台可客服6
'采购 3  商品管理2，库存管理3
'收录 4  订单管理4
'人事 5  员工管理1
Select Case uPower
Case 2
    menu_6.Enabled = True
Case 3
    menu_2.Enabled = True
    menu_3.Enabled = True
Case 4
    menu_4.Enabled = True
Case 5
    menu_5.Enabled = True
Case 7
    menu_1.Enabled = True
    menu_2.Enabled = True
    menu_3.Enabled = True
    menu_4.Enabled = True
    menu_5.Enabled = True
    menu_6.Enabled = True
End Select
End Sub

Private Sub menu_1guanli_Click()
gjq_frmmaninfo.Show
End Sub

Private Sub menu_2Order_Click()
frmYZLOrd.Show
End Sub

Private Sub menu_3bgood_Click()
frm_wjzbq.Show
End Sub

Private Sub menu_3bstore_Click()
frm_wjzwait.Show
End Sub

Private Sub menu_4border_Click()
frm_wjzbtable.Show
End Sub

Private Sub menu_4iorder_Click()
frm_wjzorder.Show
End Sub

Private Sub menu_5price_Click()
frm_wjzprice.Show
End Sub

Private Sub menu_6saleOrder_Click()
frmYZLLook.Show
End Sub

Private Sub menu_7Brand_Click()
frmYZLBrand.Show
End Sub

Private Sub menu_7Goods_Click()
frmYZLGoods.Show
End Sub

Private Sub menu_7Price_Click()
frm_wjzprice.Show
End Sub

Private Sub menu_8_Click()
frmYZLProv.Show
End Sub

Private Sub menu_9addDD_Click()
 frmZCAdddd.Show
End Sub

Private Sub menu_9finddd_Click()
 frmZCfindDD.Show
End Sub

Private Sub menu_9goods_Click()
 frmZCGoods.Show
End Sub

Private Sub menu_power_Click()
frm_wjzpower.Show
End Sub

Private Sub mnuAdd_Click()
gjq_frmaddman.Show
End Sub

Private Sub mnuDelete_Click()
gjq_frmDelete.Show
End Sub

Private Sub mnuFind_Click()
gjq_frmFind.Show
End Sub

Private Sub mnumaichanginfo_Click()
gjq_frmMaichang.Show
End Sub

Private Sub mnuModify_Click()
gjq_frmModify.Show
End Sub

Private Sub mnuStockinfo_Click()
gjq_frmKucuninfo.Show
End Sub

Private Sub we132_Click()
frmYZLSale.Show 1
End Sub