⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmaffirmlvw.frm

📁 本系统可用于医院和专业体检中心的健康体检管理
💻 FRM
📖 第 1 页 / 共 5 页
字号:
      End
      Begin VB.Label Label40 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "体检序号:"
         Height          =   255
         Index           =   1
         Left            =   15
         TabIndex        =   71
         Top             =   375
         Width           =   1365
      End
      Begin VB.Label Label20 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "档案号:"
         Height          =   255
         Index           =   1
         Left            =   -735
         TabIndex        =   70
         Top             =   -195
         Width           =   1365
      End
      Begin VB.Label Label20 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "系统档案号:"
         Height          =   255
         Index           =   0
         Left            =   3540
         TabIndex        =   69
         Top             =   180
         Visible         =   0   'False
         Width           =   1425
      End
      Begin VB.Label Label21 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "姓名:"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   15
         TabIndex        =   68
         Top             =   1635
         Width           =   1365
      End
      Begin VB.Label Label24 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "家庭电话:"
         Height          =   255
         Left            =   15
         TabIndex        =   67
         Top             =   4575
         Width           =   1365
      End
      Begin VB.Label Label25 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "办公电话:"
         Height          =   255
         Left            =   15
         TabIndex        =   66
         Top             =   4995
         Width           =   1365
      End
      Begin VB.Label Label26 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "移动电话:"
         Height          =   255
         Left            =   15
         TabIndex        =   65
         Top             =   5415
         Width           =   1365
      End
      Begin VB.Label Label27 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "联系地址:"
         Height          =   255
         Left            =   15
         TabIndex        =   64
         Top             =   7095
         Width           =   1365
      End
      Begin VB.Label Label28 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "邮政编码:"
         Height          =   255
         Left            =   15
         TabIndex        =   63
         Top             =   6255
         Width           =   1365
      End
      Begin VB.Label Label29 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "体检日期:"
         Height          =   255
         Left            =   15
         TabIndex        =   62
         Top             =   6675
         Width           =   1365
      End
      Begin VB.Label Label19 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "身份证号:"
         Height          =   255
         Left            =   15
         TabIndex        =   61
         Top             =   4155
         Width           =   1365
      End
      Begin VB.Label Label30 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "性别:"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   15
         TabIndex        =   60
         Top             =   2895
         Width           =   1365
      End
      Begin VB.Label Label32 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "年龄:"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   15
         TabIndex        =   59
         Top             =   3735
         Width           =   1365
      End
      Begin VB.Label Label17 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "婚否:"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   15
         TabIndex        =   58
         Top             =   3315
         Width           =   1365
      End
      Begin VB.Label Label34 
         BackStyle       =   0  'Transparent
         Caption         =   "cm"
         Height          =   255
         Left            =   6570
         TabIndex        =   57
         Top             =   4290
         Visible         =   0   'False
         Width           =   465
      End
      Begin VB.Label Label95 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "岁"
         Height          =   255
         Left            =   2100
         TabIndex        =   56
         Top             =   3750
         Width           =   315
      End
      Begin VB.Label Label64 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "所属团体:"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   15
         TabIndex        =   55
         Top             =   2055
         Width           =   1365
      End
      Begin VB.Label Label33 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "电子邮件:"
         Height          =   255
         Index           =   0
         Left            =   15
         TabIndex        =   54
         Top             =   5835
         Width           =   1365
      End
      Begin VB.Label lblGSelfBH 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "档案号:"
         Height          =   255
         Left            =   45
         TabIndex        =   53
         Top             =   1215
         Width           =   1335
      End
      Begin VB.Label Label40 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "当日体检序号:"
         Height          =   255
         Index           =   0
         Left            =   2400
         TabIndex        =   52
         Top             =   -15
         Visible         =   0   'False
         Width           =   1365
      End
      Begin VB.Label Label41 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "所属分组:"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   15
         TabIndex        =   51
         Top             =   2475
         Width           =   1365
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00D3DABC&
      Caption         =   "操作"
      Height          =   825
      Left            =   4410
      TabIndex        =   10
      Top             =   8040
      Width           =   9420
      Begin XPControls.XPCommandButton cmdExit 
         Height          =   375
         Left            =   8520
         TabIndex        =   11
         Top             =   300
         Width           =   795
         _ExtentX        =   1402
         _ExtentY        =   661
         Caption         =   "退出"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin XPControls.XPCommandButton cmdRefresh 
         Height          =   375
         Left            =   135
         TabIndex        =   12
         Top             =   300
         Width           =   855
         _ExtentX        =   1508
         _ExtentY        =   661
         Caption         =   "刷新"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin XPControls.XPCommandButton cmdAffirm 
         Height          =   375
         Left            =   3099
         TabIndex        =   13
         Top             =   300
         Width           =   945
         _ExtentX        =   1667
         _ExtentY        =   661
         Enabled         =   0   'False
         Caption         =   "确认登记"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin XPControls.XPCommandButton CmdCancelAffirm 
         Height          =   375
         Left            =   5255
         TabIndex        =   14
         Top             =   300
         Width           =   945
         _ExtentX        =   1667
         _ExtentY        =   661
         Enabled         =   0   'False
         Caption         =   "取消登记"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin XPControls.XPCommandButton cmdAdd 
         Height          =   375
         Left            =   1123
         TabIndex        =   15
         Top             =   300
         Width           =   855
         _ExtentX        =   1508
         _ExtentY        =   661
         Caption         =   "添加"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin XPControls.XPCommandButton cmdModify 
         Height          =   375
         Left            =   2111
         TabIndex        =   16
         Top             =   300
         Width           =   855
         _ExtentX        =   1508
         _ExtentY        =   661
         Enabled         =   0   'False
         Caption         =   "修改"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin XPControls.XPCommandButton cmdFaKa 
         Height          =   405
         Left            =   0
         TabIndex        =   17
         Top             =   0
         Visible         =   0   'False
         Width           =   1065
         _ExtentX        =   1879
         _ExtentY        =   714
         Enabled         =   0   'False
         Caption         =   "发卡(&K)"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin XPControls.XPCommandButton cmdPrintGuider 
         Height          =   375
         Left            =   4177
         TabIndex        =   18
         Top             =   300
         Width           =   945

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -