form1.frm

学生管理系统,用VB开发的,若需要可提供相关论文

VERSION 5.00
Begin VB.Form frmmain 
   BackColor       =   &H8000000A&
   BorderStyle     =   0  'None
   Caption         =   "人事档案管理"
   ClientHeight    =   4875
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   6270
   FillStyle       =   0  'Solid
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5241.936
   ScaleMode       =   0  'User
   ScaleWidth      =   4991.044
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Image Image1 
      Height          =   4890
      Left            =   0
      Picture         =   "Form1.frx":0442
      Top             =   0
      Width           =   6300
   End
   Begin VB.Menu sys 
      Caption         =   "系统"
      Begin VB.Menu userm 
         Caption         =   "用户管理"
      End
      Begin VB.Menu line 
         Caption         =   "-"
      End
      Begin VB.Menu modify 
         Caption         =   "修改密码"
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu quit 
         Caption         =   "退出"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu manage 
      Caption         =   "管理"
      Begin VB.Menu menupcl 
         Caption         =   "人事卡片表"
         Shortcut        =   ^C
      End
      Begin VB.Menu line2 
         Caption         =   "-"
      End
      Begin VB.Menu menuprl 
         Caption         =   "个人简历表"
         Shortcut        =   ^R
      End
      Begin VB.Menu line3 
         Caption         =   "-"
      End
      Begin VB.Menu menufml 
         Caption         =   "家庭成员表"
         Shortcut        =   ^M
      End
   End
   Begin VB.Menu print 
      Caption         =   "报表打印"
      Begin VB.Menu base 
         Caption         =   "基本表"
         Begin VB.Menu ppcl 
            Caption         =   "人事卡片表"
         End
         Begin VB.Menu line5 
            Caption         =   "-"
         End
         Begin VB.Menu pprl 
            Caption         =   "个人简历表"
         End
         Begin VB.Menu line6 
            Caption         =   "-"
         End
         Begin VB.Menu pfml 
            Caption         =   "家庭成员表"
         End
      End
      Begin VB.Menu gg 
         Caption         =   "-"
      End
      Begin VB.Menu tongji 
         Caption         =   "统计报表"
         Begin VB.Menu xuelib 
            Caption         =   "学历统计表"
         End
         Begin VB.Menu line7 
            Caption         =   "-"
         End
         Begin VB.Menu zhichengb 
            Caption         =   "职称统计表"
         End
         Begin VB.Menu line8 
            Caption         =   "-"
         End
         Begin VB.Menu minzub 
            Caption         =   "民族统计表"
         End
         Begin VB.Menu line9 
            Caption         =   "-"
         End
         Begin VB.Menu zmb 
            Caption         =   "政治面貌统计表"
         End
         Begin VB.Menu line10 
            Caption         =   "-"
         End
         Begin VB.Menu trb 
            Caption         =   "退休人员统计表"
         End
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu helpfile 
         Caption         =   "帮助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu ab 
         Caption         =   "-"
      End
      Begin VB.Menu aloutsoft 
         Caption         =   "关于"
         Shortcut        =   ^A
      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 aloutsoft_Click()
frmmain.Visible = False
frmabout.Visible = True


End Sub

Private Sub Form_Load()
If frmLogin.Combo1.Text = "管理员" And gusername = "administrator" Then
  userm.Enabled = True
Else
  userm.Enabled = False
End If

'Select Case frmLogin.Combo1.Text

     'Case "一般用户"
     
           'userm.Enabled = False
            
     'Case "管理员"
     
            'userm.Enabled = True
           ' userz.Enabled = False
            

 ' End Select
  


End Sub

Private Sub Form_Unload(Cancel As Integer)

Cancel = MsgBox("确定退出系统吗？", vbQuestion + vbYesNo, "人事档案管理系统")
If Cancel = vbYes Then
   End
Else
   Exit Sub
   
End If


End Sub

Private Sub helpfile_Click()
If Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE e:\man\help\index.htm", vbMaximizedFocus) Then

End If

End Sub

Private Sub menufml_Click()
Me.Hide
frmfml.Visible = True

End Sub

Private Sub menupcl_Click()
Me.Hide
frmpcl.Visible = True


End Sub

Private Sub menuprl_Click()
Me.Hide
frmprl.Visible = True

End Sub


Private Sub minzub_Click()
drp6.Show
End Sub

Private Sub modify_Click()
Me.Hide
frmpassword.Visible = True


End Sub

Private Sub pfml_Click()
Me.Hide
report3.Visible = True

End Sub

Private Sub ppcl_Click()
Me.Hide
report1.Visible = True
End Sub

Private Sub pprl_Click()
Me.Hide
report2.Visible = True
End Sub

Private Sub quit_Click()
Dim sele As Integer
sele = MsgBox("确定退出系统吗？", vbQuestion + vbYesNo, "人事档案管理系统")
If sele = vbYes Then
   End
 Else
   Exit Sub
   


End If





End Sub

Private Sub trb_Click()
drp8.Show

End Sub

Private Sub userm_Click()
Me.Hide
frmuser.Visible = True

End Sub

Private Sub xuelib_Click()
drp4.Show

End Sub

Private Sub zhichengb_Click()
drp5.Show
End Sub

Private Sub zmb_Click()
drp7.Show
End Sub