form1.frm

医院工资管理系统 本实例以一个市级医院常用的工资管理系统为例

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "修改员工信息"
   ClientHeight    =   5310
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8385
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   5310
   ScaleWidth      =   8385
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Caption         =   "员工信息"
      Height          =   1215
      Left            =   0
      TabIndex        =   23
      Top             =   0
      Width           =   7935
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   0
         Left            =   1320
         TabIndex        =   31
         Top             =   360
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   1
         Left            =   3240
         TabIndex        =   30
         Top             =   360
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   2
         Left            =   5040
         TabIndex        =   29
         Top             =   360
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   3
         Left            =   6840
         TabIndex        =   28
         Top             =   360
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   4
         Left            =   1320
         TabIndex        =   27
         Top             =   795
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   5
         Left            =   3240
         TabIndex        =   26
         Top             =   795
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   6
         Left            =   5040
         TabIndex        =   25
         Top             =   795
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   7
         Left            =   6840
         TabIndex        =   24
         Top             =   795
         Width           =   855
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "姓    名"
         Height          =   180
         Left            =   360
         TabIndex        =   39
         Top             =   405
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "政治面貌"
         Height          =   180
         Left            =   2400
         TabIndex        =   38
         Top             =   405
         Width           =   720
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "职    务"
         Height          =   180
         Left            =   6000
         TabIndex        =   37
         Top             =   405
         Width           =   720
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "科    室"
         Height          =   180
         Left            =   4200
         TabIndex        =   36
         Top             =   405
         Width           =   720
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "生    日"
         Height          =   180
         Left            =   360
         TabIndex        =   35
         Top             =   840
         Width           =   720
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "军 烈 属"
         Height          =   180
         Left            =   2400
         TabIndex        =   34
         Top             =   840
         Width           =   720
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "出勤天数"
         Height          =   180
         Left            =   4200
         TabIndex        =   33
         Top             =   840
         Width           =   720
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         Caption         =   "缺勤天数"
         Height          =   180
         Left            =   6000
         TabIndex        =   32
         Top             =   840
         Width           =   720
      End
   End
   Begin VB.CommandButton modify 
      Caption         =   "修改"
      Height          =   375
      Index           =   4
      Left            =   2280
      TabIndex        =   22
      Top             =   4680
      Width           =   975
   End
   Begin VB.CommandButton exit 
      Caption         =   "退出"
      Height          =   375
      Index           =   6
      Left            =   3960
      TabIndex        =   21
      Top             =   4680
      Width           =   975
   End
   Begin VB.Frame Frame2 
      Caption         =   "工资信息"
      Height          =   3135
      Left            =   0
      TabIndex        =   0
      Top             =   1320
      Width           =   7935
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   16
         Left            =   6120
         TabIndex        =   10
         Top             =   1920
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   8
         Left            =   1440
         TabIndex        =   9
         Top             =   600
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   14
         Left            =   1440
         TabIndex        =   8
         Top             =   1920
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   9
         Left            =   3600
         TabIndex        =   7
         Top             =   600
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   15
         Left            =   3600
         TabIndex        =   6
         Top             =   1920
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   13
         Left            =   6120
         TabIndex        =   5
         Top             =   1320
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   12
         Left            =   3600
         TabIndex        =   4
         Top             =   1320
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         Height          =   270