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

📄 dlgxtcs.frm

📁 本系统可用于医院和专业体检中心的健康体检管理
💻 FRM
📖 第 1 页 / 共 5 页
字号:
                  Left            =   210
                  TabIndex        =   90
                  Top             =   300
                  Value           =   -1  'True
                  Width           =   1215
               End
            End
            Begin VB.CheckBox chkSelfID 
               BackColor       =   &H00D3DABC&
               Caption         =   "自定义(包括条形码、磁卡、IC卡等)"
               Enabled         =   0   'False
               Height          =   405
               Left            =   150
               TabIndex        =   88
               Top             =   690
               Width           =   2625
            End
            Begin VB.CheckBox chkSystemID 
               BackColor       =   &H00D3DABC&
               Caption         =   "系统自带"
               Enabled         =   0   'False
               Height          =   405
               Left            =   150
               TabIndex        =   87
               Top             =   210
               Width           =   1305
            End
         End
         Begin VB.Frame FrameCmd 
            BackColor       =   &H00D3DABC&
            Caption         =   "操作"
            Height          =   915
            Index           =   2
            Left            =   3870
            TabIndex        =   83
            Top             =   3600
            Width           =   3045
            Begin XPControls.XPCommandButton cmdHealthIDSave 
               Height          =   375
               Left            =   1890
               TabIndex        =   84
               Top             =   360
               Width           =   825
               _ExtentX        =   1455
               _ExtentY        =   661
               Enabled         =   0   'False
               Caption         =   "保  存"
               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 cmdHealthIDModify 
               Height          =   375
               Left            =   390
               TabIndex        =   85
               Top             =   360
               Width           =   825
               _ExtentX        =   1455
               _ExtentY        =   661
               Caption         =   "修  改"
               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
         End
      End
      Begin VB.Frame fraBC 
         BackColor       =   &H00D3DABC&
         Height          =   4665
         Left            =   -74820
         TabIndex        =   33
         Top             =   420
         Width           =   7065
         Begin VB.Frame Frame3 
            BackColor       =   &H00D3DABC&
            Caption         =   "操作"
            Height          =   705
            Left            =   3120
            TabIndex        =   79
            Top             =   3870
            Width           =   3795
            Begin XPControls.XPCommandButton cmdBCSave 
               Height          =   315
               Left            =   420
               TabIndex        =   54
               Top             =   270
               Width           =   1185
               _ExtentX        =   2090
               _ExtentY        =   556
               Caption         =   "保  存"
               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 cmdBCDefault 
               Height          =   315
               Left            =   2190
               TabIndex        =   55
               Top             =   270
               Width           =   1185
               _ExtentX        =   2090
               _ExtentY        =   556
               Caption         =   "恢复默认值"
               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
         End
         Begin VB.Frame fraPersonCard 
            BackColor       =   &H00D3DABC&
            Caption         =   "身份证号(单位:mm)"
            ForeColor       =   &H00FF0000&
            Height          =   915
            Left            =   3120
            TabIndex        =   75
            Top             =   2910
            Width           =   3795
            Begin VB.CheckBox chkPrintIDCard 
               BackColor       =   &H00D3DABC&
               Caption         =   "打印"
               ForeColor       =   &H000000FF&
               Height          =   255
               Left            =   2850
               TabIndex        =   131
               Top             =   570
               Width           =   825
            End
            Begin VB.TextBox txtPersonCardX 
               Height          =   285
               Left            =   750
               TabIndex        =   51
               Top             =   240
               Width           =   600
            End
            Begin VB.TextBox txtPersonCardY 
               Height          =   285
               Left            =   2070
               TabIndex        =   52
               Top             =   240
               Width           =   600
            End
            Begin XPControls.XPCommandButton cmdPersonCardFont 
               Height          =   285
               Left            =   1950
               TabIndex        =   53
               Top             =   570
               Width           =   615
               _ExtentX        =   1085
               _ExtentY        =   503
               Caption         =   "字体..."
               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 VB.Label lblPersonCardX 
               BackStyle       =   0  'Transparent
               Caption         =   "X坐标"
               Height          =   285
               Left            =   180
               TabIndex        =   78
               Top             =   270
               Width           =   525
            End
            Begin VB.Label lblPersonCardY 
               BackStyle       =   0  'Transparent
               Caption         =   "Y坐标"
               Height          =   255
               Left            =   1530
               TabIndex        =   77
               Top             =   270
               Width           =   465
            End
            Begin VB.Label lblPersonCardFont 
               BackStyle       =   0  'Transparent
               Caption         =   "字体示例"
               Height          =   315
               Left            =   180
               TabIndex        =   76
               Top             =   570
               Width           =   1275
            End
         End
         Begin VB.Frame fraPersonName 
            BackColor       =   &H00D3DABC&
            Caption         =   "姓名+性别(单位:mm)"
            ForeColor       =   &H00FF0000&
            Height          =   915
            Left            =   3120
            TabIndex        =   71
            Top             =   1960
            Width           =   3795
            Begin VB.CheckBox chkPrintNameSex 
               BackColor       =   &H00D3DABC&
               Caption         =   "打印"
               ForeColor       =   &H000000FF&
               Height          =   255
               Left            =   2850
               TabIndex        =   132
               Top             =   570
               Width           =   825
            End
            Begin VB.TextBox txtPersonNameY 
               Height          =   285
               Left            =   2070
               TabIndex        =   49
               Top             =   240
               Width           =   600
            End
            Begin VB.TextBox txtPersonNameX 
               Height          =   285
               Left            =   750
               TabIndex        =   48
               Top             =   240
               Width           =   600
            End
            Begin XPControls.XPCommandButton cmdPersonNameFont 
               Height          =   285
               Left            =   1950
               TabIndex        =   50
               Top             =   570
               Width           =   615
               _ExtentX        =   1085
               _ExtentY        =   503
               Caption         =   "字体..."
               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 VB.Label lblPersonNameFont 
               BackStyle       =   0  'Transparent
               Caption         =   "字体示例"
               Height          =   315
               Left            =   180
               TabIndex        =   74
               Top             =   570
               Width           =   1275
            End
            Begin VB.Label lblPersonNameY 
               BackStyle       =   0  'Transparent
               Caption         =   "Y坐标"
               Height          =   255
               Left            =   1530
               TabIndex        =   73
               Top             =   270
               Width           =   465
            End
            Begin VB.Label lblPersonNameX 
               BackStyle       =   0  'Transparent
               Caption         =   "X坐标"
               Height          =   285
               Left            =   180
               TabIndex        =   72
               Top             =   270
               Width           =   525
            End
         End
         Begin VB.Frame fraBarCode 
            BackColor       =   &H00D3DABC&
            Caption         =   "条形码(单位:mm)"
            ForeColor       =   &H00FF0000&
            Height          =   885
            Left            =   3120
            TabIndex        =   67
            Top             =   120
            Width           =   3795
            Begin VB.TextBox txtBarCodeW 
               Height          =   285
               Left            =   750
               TabIndex        =   136
               ToolTipText     =   "该参数对Code39编码不起作用"
               Top             =   540
               Width           =   615
            End
            Begin VB.TextBox txtBarCodeX 
               Height          =   285
               Left            =   750
               TabIndex        =   42
               Top             =   240
               Width           =   600
            End
            Begin VB.TextBox txtBarCodeY 
               Height          =   285
               Left            =   1950
               TabIndex        =   43

⌨️ 快捷键说明

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