开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
frm_main_lead.frm
资源名称：qiyerenshiguanli.rar　[点击查看]
上传用户：ake0106
上传日期：2022-07-23
资源大小：4052k
文件大小：4k
源码类别：

企业管理

开发平台：

Visual Basic

frm_main_lead.frm：源码内容
  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
  117. Private Sub Label1_Click(Index As Integer)
  118.   Select Case Index
  119.     Case 0
  120.       Load main_rsxx
  121.       main_rsxx.Show
  122.     Case 1
  123.       Load main_bmgl
  124.       main_bmgl.Show
  125.     Case 2
  126.       Load main_rckh
  127.       main_rckh.Show
  128.     Case 3
  129.       Load main_rsbd
  130.       main_rsbd.Show
  131.     Case 4
  132.       Load main_jypx
  133.       main_jypx.Show
  134.     Case 5
  135.       Load main_jccx
  136.       main_jccx.Show
  137.     Case 6
  138.       Load main_tj
  139.       main_tj.Show
  140.     Case 7
  141.       Shell App.Path & "数据备份与恢复.exe", vbNormalFocus
  142.     Case 8
  143.       End
  144.   End Select
  145. End Sub
  146. Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  147.   For i = 0 To 8
  148.       Label1(i).BorderStyle = 0
  149.   Next i
  150.   If Index < 9 Then Label1(Index).BorderStyle = 1
  151. End Sub