frm_main.frm

1系统功能分析 系统开发的总体任务是实现学生信息关系的系统化

VERSION 5.00
Begin VB.Form frm_main 
   Caption         =   "人事档案管理系统"
   ClientHeight    =   6750
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9000
   Icon            =   "frm_main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "frm_main.frx":08CA
   ScaleHeight     =   6750
   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            =   3885
      TabIndex        =   1
      Top             =   1500
      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
      Load main_rsxx
      main_rsxx.Show
    Case 1
      Load main_bmgl
      main_bmgl.Show
    Case 2
      Load main_rckh
      main_rckh.Show
    Case 3
      Load main_rsbd
      main_rsbd.Show
    Case 4
      Load main_jypx
      main_jypx.Show
    Case 5
      Load main_jccx
      main_jccx.Show
    Case 6
      Load main_tj
      main_tj.Show
    Case 7
      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