frmmain.frm

该仓储管理系统主要完成物料管理 采购管理 人事管理等功能

VERSION 5.00
Begin VB.MDIForm frmMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H00FFFFFF&
   Caption         =   "Materials Information System"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMain.frx":0000
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuDateHandling 
      Caption         =   "物料管理"
      Begin VB.Menu goods 
         Caption         =   "物料查询"
         Shortcut        =   ^F
      End
      Begin VB.Menu matin 
         Caption         =   "物料入库"
         Shortcut        =   ^I
      End
      Begin VB.Menu matout 
         Caption         =   "物料出库"
         Shortcut        =   ^O
      End
   End
   Begin VB.Menu order 
      Caption         =   "采购管理"
      Begin VB.Menu buyorder 
         Caption         =   "下制订单"
      End
   End
   Begin VB.Menu renshi 
      Caption         =   "人事管理"
      Begin VB.Menu employeer 
         Caption         =   "雇员管理"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu admini 
      Caption         =   "管理员窗口"
      Begin VB.Menu login_rz 
         Caption         =   "系统日志"
         Enabled         =   0   'False
      End
      Begin VB.Menu aduser 
         Caption         =   "用户权限管理"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu mnuExit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private conn As ADODB.Connection

Private cnn As New Recordset

Private Sub aduser_Click()
frmadmini.Show      '当前窗口显示时关闭其他菜单窗口
'Unload frmadmini
Unload frmemployer
Unload frmemployeradd
Unload frmmaterials
Unload frmmaterialsin
Unload frmmaterialsout
Unload frmrz
Unload buyorder1
End Sub

Private Sub buyorder_Click()
buyorder1.Show
Unload frmemployer
Unload frmadmini
Unload frmemployeradd
Unload frmmaterials
Unload frmmaterialsin
Unload frmmaterialsout
Unload frmrz
End Sub

Private Sub employeer_Click()
frmemployer.Show
Unload frmadmini
'Unload frmemployer
Unload frmemployeradd
Unload frmmaterials
Unload frmmaterialsin
Unload frmmaterialsout
Unload frmrz
Unload buyorder1
End Sub

Private Sub goods_Click()
  
frmmaterials.Show
Unload frmadmini
Unload frmemployer
Unload frmemployeradd
'Unload frmmaterials
Unload frmmaterialsin
Unload frmmaterialsout
Unload frmrz
Unload buyorder1
End Sub

Private Sub login_rz_Click()
frmrz.Show
Unload frmadmini
Unload frmemployer
Unload frmemployeradd
Unload frmmaterials
Unload frmmaterialsin
Unload frmmaterialsout
'Unload frmrz
Unload buyorder1
End Sub

Private Sub matin_Click()
frmmaterialsin.Show
Unload frmadmini
Unload frmemployer
Unload frmemployeradd
Unload frmmaterials
'Unload frmmaterialsin
Unload frmmaterialsout
Unload frmrz
Unload buyorder1
End Sub

Private Sub matout_Click()
frmmaterialsout.Show
Unload frmadmini
Unload frmemployer
Unload frmemployeradd
Unload frmmaterials
Unload frmmaterialsin
'Unload frmmaterialsout
Unload frmrz
Unload buyorder1
End Sub

Private Sub MDIForm_Load()
  
   Dim i As Integer
    
   Set conn = New ADODB.Connection              'cangchu数据库的链接

   conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cangchu.mdb"

   conn.Open
   
   Set cnnrz = New ADODB.Recordset              '打开系统日志表,获取当前登入的用户信息
   
   cnnrz.CursorLocation = adUseClient
   
   cnnrz.Open "login_rz", conn, 1, 1
   
   cnnrz.MoveLast
   
   quanxian = Trim(cnnrz.Fields(2))
   
   If quanxian = 8 Then          '人事管理权限设置
        employeer.Enabled = True
        End If
        
    If quanxian = 9 Then
        
        admini.Enabled = True
        
        login_rz.Enabled = True
        
        aduser.Enabled = True
        
          employeer.Enabled = True
    End If

End Sub

Private Sub mnuExit_Click()

    If MsgBox("确实要退出吗?", vbOKCancel + vbQuestion, "系统退出") = vbOK Then
    
        Unload Me
        
    Else
    
        Exit Sub
        
    End If
End Sub