frmsick_tnb_main.frm

医院糖尿病管理系统．是客户机服务器架构的

                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   3
               Left            =   585
               TabIndex        =   59
               Top             =   540
               Width           =   960
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               Caption         =   "身份证号"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   12
               Left            =   5460
               TabIndex        =   58
               Top             =   540
               Width           =   960
            End
            Begin VB.Label LabelField 
               AutoSize        =   -1  'True
               Caption         =   "性    别"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   1
               Left            =   5460
               TabIndex        =   57
               Top             =   945
               Width           =   960
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               Caption         =   "合同医院3"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   7
               Left            =   465
               TabIndex        =   56
               Top             =   4545
               Width           =   1080
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               Caption         =   "合同医院4"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   6
               Left            =   5340
               TabIndex        =   55
               Top             =   4545
               Width           =   1080
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               Caption         =   "保 险 号"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   5
               Left            =   5460
               TabIndex        =   54
               Top             =   3750
               Width           =   960
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               Caption         =   "合同医院1"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   4
               Left            =   465
               TabIndex        =   53
               Top             =   4140
               Width           =   1080
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               Caption         =   "来京日期"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   3
               Left            =   5460
               TabIndex        =   52
               Top             =   4950
               Width           =   960
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               Caption         =   "合同医院2"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   2
               Left            =   5340
               TabIndex        =   51
               Top             =   4155
               Width           =   1080
            End
            Begin VB.Label LabelField 
               AutoSize        =   -1  'True
               Caption         =   "家庭住址"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   10
               Left            =   585
               TabIndex        =   50
               Top             =   2940
               Width           =   960
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               Caption         =   "单位电话"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   10
               Left            =   5460
               TabIndex        =   49
               Top             =   2550
               Width           =   960
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               Caption         =   "工作单位"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   9
               Left            =   585
               TabIndex        =   48
               Top             =   2535
               Width           =   960
            End
            Begin VB.Label LabelField 
               AutoSize        =   -1  'True
               Caption         =   "出 生 地"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   7
               Left            =   585
               TabIndex        =   47
               Top             =   4950
               Width           =   960
            End
            Begin VB.Label LabelField 
               AutoSize        =   -1  'True
               Caption         =   "文化程度"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   4
               Left            =   5460
               TabIndex        =   46
               Top             =   1740
               Width           =   960
            End
            Begin VB.Label LabelField 
               AutoSize        =   -1  'True
               Caption         =   "婚姻状况"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   3
               Left            =   585
               TabIndex        =   45
               Top             =   2130
               Width           =   960
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               Caption         =   "出生日期"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   1
               Left            =   585
               TabIndex        =   44
               Top             =   1335
               Width           =   960
            End
            Begin VB.Label LabelField 
               AutoSize        =   -1  'True
               Caption         =   "户    口"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   240
               Index           =   6
               Left            =   5460
               TabIndex        =   43
               Top             =   3345
               Width           =   960
            End
            Begin VB.Label Label6 
               AutoSize        =   -1  'True
               Caption         =   "住宅电话"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   12
                  Charset         =   134
                  Weight          =   400
                  Underline