form1.frm

人事管理系统 基本功能说明： 3．1数据录入 提供两种信息录入方式：列表录入、模板录入,用以满足不同用户的需要。 3．2数据的删除修改： 对数据的最基本的操作,保证数据正确性和完整性,为

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   7920
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   11295
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   7920
   ScaleWidth      =   11295
   Begin VB.Menu cxxt 
      Caption         =   "   查询系统     "
      Begin VB.Menu grxx 
         Caption         =   "个人信息"
         Begin VB.Menu grjbxx 
            Caption         =   "个人基本信息"
         End
         Begin VB.Menu jxjl 
            Caption         =   "教学记录"
         End
         Begin VB.Menu zwbd 
            Caption         =   "职务变动"
         End
         Begin VB.Menu zcbd 
            Caption         =   "职称变动"
         End
      End
      Begin VB.Menu dwxx 
         Caption         =   "单位信息"
         Begin VB.Menu bmb 
            Caption         =   "部门表"
         End
         Begin VB.Menu ksb 
            Caption         =   "科室表"
         End
      End
      Begin VB.Menu jxqk 
         Caption         =   "教学情况"
      End
   End
   Begin VB.Menu glxt 
      Caption         =   "   管理系统     "
      Begin VB.Menu sjcl 
         Caption         =   "数据处理"
      End
      Begin VB.Menu ryxxlr 
         Caption         =   "人员信息录入"
      End
      Begin VB.Menu zwbdlr 
         Caption         =   "职务变动录入"
      End
      Begin VB.Menu zcbdlr 
         Caption         =   "职称变动录入"
      End
   End
   Begin VB.Menu yhgl 
      Caption         =   "   用户管理     "
      Begin VB.Menu tjyh 
         Caption         =   "添加用户"
      End
      Begin VB.Menu scyh 
         Caption         =   "删除用户"
      End
      Begin VB.Menu xgmm 
         Caption         =   "修改密码"
      End
      Begin VB.Menu zhx 
         Caption         =   "注  销"
      End
      Begin VB.Menu exit 
         Caption         =   "退  出"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub bmb_Click()
Form4.Show
End Sub

Private Sub exit_Click()
    Dim a As Integer
    a = MsgBox("确实要退出系统吗？", 1, "退出系统")
      If a = 1 Then
      Unload Me
      End If
End Sub

Private Sub Form_Activate()
If quanxian = 0 Then
                        Form1.glxt.Enabled = False
                        Form1.tjyh.Enabled = False
                        Form1.scyh.Enabled = False
                    Else
                        
                        Form1.glxt.Enabled = True
                        Form1.tjyh.Enabled = True
                        Form1.scyh.Enabled = True
                    End If
End Sub

Private Sub Form_Load()
Form1.Left = 100
Form1.Top = 90

End Sub

Private Sub grjbxx_Click()
Form2.Show
End Sub



Private Sub jxjl_Click()
Form3.Show
End Sub

Private Sub jxqk_Click()
Form6.Show
End Sub

Private Sub ksb_Click()
Form5.Show
End Sub

Private Sub ryxxlr_Click()
Form7.Show
End Sub

Private Sub scyh_Click()
Form11.Show
End Sub

Private Sub sjcl_Click()
Form15.Show
End Sub

Private Sub tjyh_Click()
Form10.Show
End Sub

Private Sub xgmm_Click()
frmchangepsw.Show
End Sub

Private Sub zcbd_Click()
Form14.Show
End Sub

Private Sub zcbdlr_Click()
Form16.Show
End Sub

Private Sub zhx_Click()
frmlogin.Show
End Sub

Private Sub zwbd_Click()
Form13.Show
End Sub

Private Sub zwbdlr_Click()
Form9.Show
End Sub