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

📄 frmrecordedit.frm

📁 1、以DLL形式提供医生工作站 2、 根据【检查项目】
💻 FRM
📖 第 1 页 / 共 5 页
字号:
         Height          =   330
         Index           =   6
         Left            =   14085
         TabIndex        =   57
         Top             =   165
         Visible         =   0   'False
         Width           =   975
      End
      Begin VB.Label lblDisChkDoctor 
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         Caption         =   "诊断医生"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   14235
         TabIndex        =   52
         Top             =   840
         Visible         =   0   'False
         Width           =   480
      End
      Begin VB.Label lblCheckDoctor 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   14730
         TabIndex        =   51
         Top             =   825
         Visible         =   0   'False
         Width           =   375
      End
      Begin VB.Label lblCNumber 
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         Caption         =   "CT 编 号"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   195
         TabIndex        =   50
         Top             =   285
         Width           =   975
      End
      Begin VB.Label lblPName 
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         Caption         =   "姓    名"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   240
         Left            =   3765
         TabIndex        =   49
         Top             =   285
         Width           =   960
      End
      Begin VB.Label lblPSex 
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         Caption         =   "性    别"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   7200
         TabIndex        =   48
         Top             =   285
         Width           =   975
      End
      Begin VB.Label lblPAge 
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         Caption         =   "年    龄"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   300
         Left            =   10740
         TabIndex        =   47
         Top             =   285
         Width           =   975
      End
      Begin VB.Label lblCheckPart 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "检查部位"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   7200
         TabIndex        =   46
         Top             =   1455
         Width           =   975
      End
   End
   Begin VB.PictureBox picBottom 
      Align           =   2  'Align Bottom
      BackColor       =   &H00F1E7DA&
      Height          =   495
      Left            =   0
      ScaleHeight     =   435
      ScaleWidth      =   15195
      TabIndex        =   53
      Top             =   10170
      Width           =   15255
      Begin VB.Label lblDateTime 
         BackColor       =   &H00354B34&
         BackStyle       =   0  'Transparent
         Caption         =   "未知"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   8400
         TabIndex        =   59
         Top             =   120
         Width           =   6015
      End
      Begin VB.Label lblIdentity 
         BackColor       =   &H00354B34&
         BackStyle       =   0  'Transparent
         Caption         =   "未知"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   5685
         TabIndex        =   58
         Top             =   120
         Width           =   3135
      End
      Begin VB.Label lblDepartment 
         BackColor       =   &H00354B34&
         BackStyle       =   0  'Transparent
         Caption         =   "未知"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   0
         TabIndex        =   55
         Top             =   120
         Width           =   2055
      End
      Begin VB.Label lblUser 
         BackColor       =   &H00354B34&
         BackStyle       =   0  'Transparent
         Caption         =   "未知"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   2280
         TabIndex        =   54
         Top             =   120
         Width           =   3135
      End
   End
   Begin VB.Frame frmReport 
      BackColor       =   &H00F1E7DA&
      Height          =   8295
      Left            =   0
      TabIndex        =   43
      Top             =   2250
      Width           =   15135
      Begin VB.Frame frmEditCommand 
         BackColor       =   &H00F1E7DA&
         Caption         =   "编辑按钮"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   3975
         Left            =   11200
         TabIndex        =   83
         Top             =   1440
         Width           =   3600
         Begin VB.Frame frmDiagnoseTemplate 
            BackColor       =   &H00F1E7DA&
            Caption         =   "参考模板"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   1335
            Left            =   1920
            TabIndex        =   84
            Top             =   1320
            Width           =   1455
            Begin VB.OptionButton optDiagnoseTemplate 
               BackColor       =   &H00F1E7DA&
               Caption         =   "私有模板"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   10.5
                  Charset         =   134
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Index           =   1
               Left            =   120
               TabIndex        =   27
               Top             =   840
               Value           =   -1  'True
               Width           =   1215
            End
            Begin VB.OptionButton optDiagnoseTemplate 
               BackColor       =   &H00F1E7DA&
               Caption         =   "公共模板"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   10.5
                  Charset         =   134
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Index           =   0
               Left            =   120
               TabIndex        =   26
               Top             =   360
               Width           =   1215
            End
         End
         Begin GetData.XPB btnSave 
            Height          =   375
            Left            =   240
            TabIndex        =   22
            Top             =   2280
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   661
            Caption         =   "保存报告"
            FontColor       =   -2147483630
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin GetData.XPB btnLookPhoto 
            Height          =   375
            Left            =   240
            TabIndex        =   19

⌨️ 快捷键说明

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