frm_main_lead.frm
上传用户:wd52qq
上传日期:2022-07-24
资源大小:5366k
文件大小:4k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.Form frm_main_lead 
  3.    Caption         =   "人事档案管理系统"
  4.    ClientHeight    =   6750
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   9000
  8.    Icon            =   "frm_main_lead.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    Picture         =   "frm_main_lead.frx":08CA
  12.    ScaleHeight     =   6750
  13.    ScaleWidth      =   9000
  14.    StartUpPosition =   2  '屏幕中心
  15.    Begin VB.Label Label1 
  16.       BackStyle       =   0  'Transparent
  17.       Height          =   1170
  18.       Index           =   3
  19.       Left            =   2160
  20.       TabIndex        =   3
  21.       Top             =   3195
  22.       Width           =   1335
  23.    End
  24.    Begin VB.Label Label1 
  25.       BackStyle       =   0  'Transparent
  26.       Height          =   1170
  27.       Index           =   0
  28.       Left            =   2130
  29.       TabIndex        =   0
  30.       Top             =   1500
  31.       Width           =   1335
  32.    End
  33.    Begin VB.Label Label1 
  34.       BackStyle       =   0  'Transparent
  35.       Height          =   1170
  36.       Index           =   8
  37.       Left            =   5625
  38.       TabIndex        =   8
  39.       Top             =   4710
  40.       Width           =   1335
  41.    End
  42.    Begin VB.Label Label1 
  43.       BackStyle       =   0  'Transparent
  44.       Height          =   1170
  45.       Index           =   7
  46.       Left            =   3900
  47.       TabIndex        =   7
  48.       Top             =   4710
  49.       Width           =   1335
  50.    End
  51.    Begin VB.Label Label1 
  52.       BackStyle       =   0  'Transparent
  53.       Height          =   1170
  54.       Index           =   6
  55.       Left            =   2160
  56.       TabIndex        =   6
  57.       Top             =   4710
  58.       Width           =   1335
  59.    End
  60.    Begin VB.Label Label1 
  61.       BackStyle       =   0  'Transparent
  62.       Height          =   1170
  63.       Index           =   5
  64.       Left            =   5625
  65.       TabIndex        =   5
  66.       Top             =   3195
  67.       Width           =   1335
  68.    End
  69.    Begin VB.Label Label1 
  70.       BackStyle       =   0  'Transparent
  71.       Height          =   1170
  72.       Index           =   4
  73.       Left            =   3900
  74.       TabIndex        =   4
  75.       Top             =   3195
  76.       Width           =   1335
  77.    End
  78.    Begin VB.Label Label1 
  79.       BackStyle       =   0  'Transparent
  80.       Height          =   1170
  81.       Index           =   2
  82.       Left            =   5730
  83.       TabIndex        =   2
  84.       Top             =   1500
  85.       Width           =   1335
  86.    End
  87.    Begin VB.Label Label1 
  88.       BackStyle       =   0  'Transparent
  89.       Height          =   1170
  90.       Index           =   1
  91.       Left            =   3885
  92.       TabIndex        =   1
  93.       Top             =   1500
  94.       Width           =   1335
  95.    End
  96.    Begin VB.Label Label1 
  97.       BackStyle       =   0  'Transparent
  98.       Height          =   4770
  99.       Index           =   9
  100.       Left            =   1815
  101.       TabIndex        =   9
  102.       Top             =   1215
  103.       Width           =   5340
  104.    End
  105. End
  106. Attribute VB_Name = "frm_main_lead"
  107. Attribute VB_GlobalNameSpace = False
  108. Attribute VB_Creatable = False
  109. Attribute VB_PredeclaredId = True
  110. Attribute VB_Exposed = False
  111. Private Sub Form_Resize()
  112.   On Error Resume Next
  113.   Me.Width = 9120
  114.   Me.Height = 7155
  115. End Sub
  116. Private Sub Label1_Click(Index As Integer)
  117.   Select Case Index
  118.     Case 0
  119.       Load main_rsxx
  120.       main_rsxx.Show
  121.     Case 1
  122.       Load main_bmgl
  123.       main_bmgl.Show
  124.     Case 2
  125.       Load main_rckh
  126.       main_rckh.Show
  127.     Case 3
  128.       Load main_rsbd
  129.       main_rsbd.Show
  130.     Case 4
  131.       Load main_jypx
  132.       main_jypx.Show
  133.     Case 5
  134.       Load main_jccx
  135.       main_jccx.Show
  136.     Case 6
  137.       Load main_tj
  138.       main_tj.Show
  139.     Case 7
  140.       Shell App.Path & "数据备份与恢复.exe", vbNormalFocus
  141.     Case 8
  142.       End
  143.   End Select
  144. End Sub
  145. Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  146.   For i = 0 To 8
  147.       Label1(i).BorderStyle = 0
  148.   Next i
  149.   If Index < 9 Then Label1(Index).BorderStyle = 1
  150. End Sub