frmquery_c.frm

本系统可用于医院和专业体检中心的健康体检管理

         End
         Begin VB.Frame Frame12 
            BackColor       =   &H00D3DABC&
            Caption         =   "家庭史"
            Height          =   1155
            Left            =   210
            TabIndex        =   132
            Top             =   2220
            Width           =   8715
            Begin VB.CheckBox chkJZL 
               BackColor       =   &H00D3DABC&
               Caption         =   "父亲"
               Enabled         =   0   'False
               Height          =   285
               Index           =   1
               Left            =   5850
               TabIndex        =   141
               Top             =   480
               Width           =   855
            End
            Begin VB.CheckBox chkJZL 
               BackColor       =   &H00D3DABC&
               Caption         =   "母亲"
               Height          =   285
               Index           =   0
               Left            =   4860
               TabIndex        =   140
               Top             =   480
               Width           =   855
            End
            Begin VB.TextBox txtJQT 
               Height          =   285
               Left            =   1260
               Locked          =   -1  'True
               TabIndex        =   139
               Top             =   780
               Width           =   5895
            End
            Begin VB.CheckBox chkJTNB 
               BackColor       =   &H00D3DABC&
               Caption         =   "父亲"
               Enabled         =   0   'False
               Height          =   285
               Index           =   1
               Left            =   5850
               TabIndex        =   138
               Top             =   210
               Width           =   855
            End
            Begin VB.CheckBox chkJTNB 
               BackColor       =   &H00D3DABC&
               Caption         =   "母亲"
               Enabled         =   0   'False
               Height          =   285
               Index           =   0
               Left            =   4860
               TabIndex        =   137
               Top             =   210
               Width           =   855
            End
            Begin VB.CheckBox chkJJSB 
               BackColor       =   &H00D3DABC&
               Caption         =   "父亲"
               Enabled         =   0   'False
               Height          =   285
               Index           =   1
               Left            =   2280
               TabIndex        =   136
               Top             =   480
               Width           =   855
            End
            Begin VB.CheckBox chkJJSB 
               BackColor       =   &H00D3DABC&
               Caption         =   "母亲"
               Enabled         =   0   'False
               Height          =   285
               Index           =   0
               Left            =   1290
               TabIndex        =   135
               Top             =   480
               Width           =   855
            End
            Begin VB.CheckBox chkJGXY 
               BackColor       =   &H00D3DABC&
               Caption         =   "父亲"
               Enabled         =   0   'False
               Height          =   285
               Index           =   1
               Left            =   2280
               TabIndex        =   134
               Top             =   210
               Width           =   855
            End
            Begin VB.CheckBox chkJGXY 
               BackColor       =   &H00D3DABC&
               Caption         =   "母亲"
               Enabled         =   0   'False
               Height          =   285
               Index           =   0
               Left            =   1290
               TabIndex        =   133
               Top             =   210
               Width           =   855
            End
            Begin VB.Label Label89 
               BackStyle       =   0  'Transparent
               Caption         =   "其它"
               Height          =   255
               Left            =   540
               TabIndex        =   146
               Top             =   795
               Width           =   735
            End
            Begin VB.Label Label1 
               BackStyle       =   0  'Transparent
               Caption         =   "肿瘤"
               Height          =   255
               Index           =   17
               Left            =   4140
               TabIndex        =   145
               Top             =   525
               Width           =   735
            End
            Begin VB.Label Label1 
               BackStyle       =   0  'Transparent
               Caption         =   "精神病"
               Height          =   255
               Index           =   15
               Left            =   540
               TabIndex        =   144
               Top             =   525
               Width           =   735
            End
            Begin VB.Label Label1 
               BackStyle       =   0  'Transparent
               Caption         =   "糖尿病"
               Height          =   255
               Index           =   16
               Left            =   4140
               TabIndex        =   143
               Top             =   255
               Width           =   735
            End
            Begin VB.Label Label1 
               BackStyle       =   0  'Transparent
               Caption         =   "高血压"
               Height          =   255
               Index           =   14
               Left            =   540
               TabIndex        =   142
               Top             =   255
               Width           =   735
            End
         End
         Begin VB.Frame Frame13 
            BackColor       =   &H00D3DABC&
            Caption         =   "个人史"
            Height          =   1905
            Left            =   210
            TabIndex        =   97
            Top             =   240
            Width           =   8715
            Begin VB.TextBox txtGRS 
               Height          =   285
               Index           =   7
               Left            =   6150
               Locked          =   -1  'True
               TabIndex        =   106
               Top             =   1215
               Width           =   1245
            End
            Begin VB.TextBox txtGRS 
               Height          =   285
               Index           =   5
               Left            =   6150
               Locked          =   -1  'True
               TabIndex        =   105
               Top             =   885
               Width           =   1245
            End
            Begin VB.TextBox txtGRS 
               Height          =   285
               Index           =   3
               Left            =   6150
               Locked          =   -1  'True
               TabIndex        =   104
               Top             =   555
               Width           =   1245
            End
            Begin VB.TextBox txtGRS 
               Height          =   285
               Index           =   1
               Left            =   6150
               Locked          =   -1  'True
               TabIndex        =   103
               Top             =   240
               Width           =   1245
            End
            Begin VB.TextBox txtGRS 
               Height          =   285
               Index           =   6
               Left            =   2460
               Locked          =   -1  'True
               TabIndex        =   102
               Top             =   1215
               Width           =   1245
            End
            Begin VB.TextBox txtGRS 
               Height          =   285
               Index           =   4
               Left            =   2460
               Locked          =   -1  'True
               TabIndex        =   101
               Top             =   885
               Width           =   1245
            End
            Begin VB.TextBox txtGRS 
               Height          =   285
               Index           =   2
               Left            =   2460
               Locked          =   -1  'True
               TabIndex        =   100
               Top             =   570
               Width           =   1245
            End
            Begin VB.TextBox txtGRS 
               Height          =   285
               Index           =   0
               Left            =   2460
               Locked          =   -1  'True
               TabIndex        =   99
               Top             =   240
               Width           =   1245
            End
            Begin VB.TextBox txtGQT 
               Height          =   285
               Left            =   1620
               Locked          =   -1  'True
               TabIndex        =   98
               Top             =   1500
               Width           =   6015
            End
            Begin VB.Label Label81 
               BackStyle       =   0  'Transparent
               Caption         =   "年"
               Height          =   255
               Index           =   7
               Left            =   7440
               TabIndex        =   131
               Top             =   1230
               Width           =   345
            End
            Begin VB.Label Label81 
               BackStyle       =   0  'Transparent
               Caption         =   "年"
               Height          =   255
               Index           =   6
               Left            =   3750
               TabIndex        =   130
               Top             =   1230
               Width           =   345
            End
            Begin VB.Label Label81 
               BackStyle       =   0  'Transparent
               Caption         =   "年"
               Height          =   255
               Index           =   5
               Left            =   7440
               TabIndex        =   129
               Top             =   900
               Width           =   345
            End
            Begin VB.Label Label81 
               BackStyle       =   0  'Transparent
               Caption         =   "年"
               Height          =   255
               Index           =   4
               Left            =   3750
               TabIndex        =   128
               Top             =   900
               Width           =   345
            End
            Begin VB.Label Label81 
               BackStyle       =   0  'Transparent
               Caption         =   "年"
               Height          =   255
               Index           =   3
               Left            =   7440
               TabIndex        =   127
               Top             =   570
               Width           =   345
            End
            Begin VB.Label Label81 
               BackStyle       =   0  'Transparent
               Caption         =   "年"
               Height          =   255
               Index           =   2
               Left            =   3750
               TabIndex        =   126
               Top             =   585
               Width           =   345
            End
            Begin VB.Label Label81 
               BackStyle       =   0  'Transparent
               Caption         =   "年"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   9
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   1
               Left            =   7440
               TabIndex        =   125
               Top             =   255
               Width           =   345
            End
            Begin VB.Label Label81 
               BackStyle       =   0  'Transparent
               Caption         =   "年"
               Height          =   255
               Index           =   0
               Left            =   3750
               TabIndex        =   124
               Top             =   255
               Width           =   345