frmmain.frm

有一些基本的操作

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "进销存管理"
   ClientHeight    =   5805
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   8925
   LinkTopic       =   "Form1"
   WindowState     =   2  'Maximized
   Begin VB.Menu MenuItemArchive 
      Caption         =   "资料管理(&V)"
      Begin VB.Menu MenuItemGoodsInfo 
         Caption         =   "商品资料维护(&X)"
      End
      Begin VB.Menu MenuItemSupplyInfo 
         Caption         =   "供货商资料维护(&Y)"
      End
      Begin VB.Menu MenuItemClientInfo 
         Caption         =   "客户资料维护(&Z)"
      End
   End
   Begin VB.Menu MenuItemOrder 
      Caption         =   "进货管理(&W)"
      Begin VB.Menu MenuItemOrderList 
         Caption         =   "进货单(&Z)"
      End
   End
   Begin VB.Menu MenuItemSellManage 
      Caption         =   "销售管理(&X)"
      Begin VB.Menu MenuItemSellList 
         Caption         =   "销售单(&Z)"
      End
   End
   Begin VB.Menu MenuItemDepot 
      Caption         =   "库存管理(&Y)"
      Begin VB.Menu MenuItemDepotSearch 
         Caption         =   "库存管理(&Z)"
      End
   End
   Begin VB.Menu MenuItemSystem 
      Caption         =   "系统管理(&Z)"
      Begin VB.Menu MenuItemManageRight 
         Caption         =   "权限管理(&Z)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Unload(Cancel As Integer)
    End
End Sub


Private Sub MDIForm_Load()
    Dim db As New DataBases
    Dim rs As Recordset
'根据当前登陆用户从数据库查询他的权限
    Set rs = db.RunSelectSQL("SELECT 权限名称 FROM 权限清单 WHERE 用户编号='" + UserId + "'")
    If Trim(UserId) = "1" Then
        MenuItemGoodsInfo.Enabled = True
        MenuItemSupplyInfo.Enabled = True
        MenuItemClientInfo.Enabled = True
        MenuItemOrderList.Enabled = True
        MenuItemSellList.Enabled = True
        MenuItemDepotSearch.Enabled = True
        MenuItemManageRight.Enabled = True
    Else
        MenuItemGoodsInfo.Enabled = False
        MenuItemSupplyInfo.Enabled = False
        MenuItemClientInfo.Enabled = False
        MenuItemOrderList.Enabled = False
        MenuItemSellList.Enabled = False
        MenuItemDepotSearch.Enabled = False
        MenuItemManageRight.Enabled = False
'根据当前登陆用户权限设置菜单项是否可用
        While Not rs.EOF
            Select Case Trim(rs("权限名称"))
            Case "商品资料维护"
                MenuItemGoodsInfo.Enabled = True
            Case "供货商资料维护"
                MenuItemSupplyInfo.Enabled = True
            Case "客户资料维护"
                MenuItemClientInfo.Enabled = True
            Case "进货单"
                MenuItemOrderList.Enabled = True
            Case "销售单"
                MenuItemSellList.Enabled = True
            Case "库存查询"
                MenuItemDepotSearch.Enabled = True
            Case "权限管理"
                MenuItemManageRight.Enabled = True
            End Select
            rs.MoveNext
        Wend
    End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    End
End Sub

Private Sub MenuItemClientInfo_Click()
    Set formClientInfo = New frmClientInfo
    formClientInfo.Show
End Sub

Private Sub MenuItemDepotSearch_Click()
    Set formDepotSearch = New frmDepotSearch
    formDepotSearch.Show
End Sub

Private Sub MenuItemGoodsInfo_Click()
    Set formGoodInfo = New frmGoodInfo
    formGoodInfo.Show
End Sub

Private Sub MenuItemManageRight_Click()
    Set formManage = New frmManage
    formManage.Show
End Sub

Private Sub MenuItemOrderList_Click()
    Set formOrderList = New frmOrderList
    formOrderList.Show
End Sub

Private Sub MenuItemSellList_Click()
    Set formSellList = New frmSellList
    formSellList.Show
End Sub

Private Sub MenuItemSupplyInfo_Click()
    Set formSupplyInfo = New frmSupplyInfo
    formSupplyInfo.Show
End Sub