- VERSION 5.00
- Begin VB.Form frm_main_lead
- Caption = "人事档案管理系统"
- ClientHeight = 6750
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 9000
- Icon = "frm_main_lead.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- Picture = "frm_main_lead.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_lead"
- 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