frm_main.frm

从网络上下载的VB的人事档案管理系统,经过修改.加入了些功能.希望对大家有帮助

VERSION 5.00
Begin VB.Form frm_main 
   Caption         =   "人事档案管理系统"
   ClientHeight    =   6660
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9000
   Icon            =   "frm_main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "frm_main.frx":08CA
   ScaleHeight     =   6660
   ScaleWidth      =   9000
   StartUpPosition =   2  '屏幕中心
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   1170
      Index           =   3
      Left            =   2160
      TabIndex        =   3
      Top             =   3195
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   1170
      Index           =   0
      Left            =   2130
      TabIndex        =   0
      Top             =   1500
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   1170
      Index           =   8
      Left            =   5625
      TabIndex        =   8
      Top             =   4710
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   1170
      Index           =   7
      Left            =   3900
      TabIndex        =   7
      Top             =   4710
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   1170
      Index           =   6
      Left            =   2160
      TabIndex        =   6
      Top             =   4710
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   1170
      Index           =   5
      Left            =   5625
      TabIndex        =   5
      Top             =   3195
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   1170
      Index           =   4
      Left            =   3900
      TabIndex        =   4
      Top             =   3195
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   1170
      Index           =   2
      Left            =   5730
      TabIndex        =   2
      Top             =   1500
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   1170
      Index           =   1
      Left            =   3960
      TabIndex        =   1
      Top             =   1560
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   4770
      Index           =   9
      Left            =   1815
      TabIndex        =   9
      Top             =   1215
      Width           =   5340
   End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Resize()
  On Error Resume Next
  Me.Width = 9120
  Me.Height = 7155
End Sub

Private Sub Label1_Click(Index As Integer)
  Select Case Index
    Case 0
        If QX(0) Then
            Load main_rsxx
            main_rsxx.Show
        Else
            MsgBox "权限不够！不能使用该功能"
        End If
    Case 1
        If QX(1) Then
            Load main_bmgl
            main_bmgl.Show
        Else
            MsgBox "权限不够！不能使用该功能"
        End If
    Case 2
        If QX(2) Then
            Load main_rckh
            main_rckh.Show
        Else
            MsgBox "权限不够！不能使用该功能"
        End If
    Case 3
        If QX(3) Then
            Load main_rsbd
            main_rsbd.Show
        Else
            MsgBox "权限不够！不能使用该功能"
        End If
    Case 4
        If QX(4) Then
            Load main_jypx
            main_jypx.Show
        Else
            MsgBox "权限不够！不能使用该功能"
        End If
    Case 5
        If QX(5) Then
            Load main_jccx
            main_jccx.Show
        Else
            MsgBox "权限不够！不能使用该功能"
        End If
    Case 6
        If QX(6) Then
            Load main_tj
            main_tj.Show
        Else
            MsgBox "权限不够！不能使用该功能"
        End If
    Case 7
        If QX(7) Then
            Load frmUserinfo
            frmUserinfo.Show
        Else
            frmRework.Show
        End If
        'Shell App.Path & "\数据备份与恢复.exe", vbNormalFocus
    Case 8
      End
  End Select
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  For i = 0 To 8
      Label1(i).BorderStyle = 0
  Next i
  If Index < 9 Then Label1(Index).BorderStyle = 1
End Sub