frmsick_tnb_fz.frm

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

            TabIndex        =   83
            Top             =   233
            UseMaskColor    =   -1  'True
            Width           =   660
         End
         Begin VB.CheckBox ChktimesDrink 
            Caption         =   "多饮"
            Height          =   180
            Left            =   1386
            TabIndex        =   84
            Top             =   233
            UseMaskColor    =   -1  'True
            Width           =   675
         End
         Begin VB.CheckBox Chkmouththirsty 
            Caption         =   "口渴"
            Height          =   180
            Left            =   750
            TabIndex        =   86
            Top             =   233
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkmouthdry 
            Caption         =   "口干"
            Height          =   180
            Left            =   120
            TabIndex        =   85
            Top             =   233
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Check7 
            Caption         =   "Check7"
            Height          =   255
            Index           =   6
            Left            =   8040
            TabIndex        =   80
            Top             =   360
            Width           =   1095
         End
         Begin VB.CheckBox ChkthoraxBored 
            Caption         =   "胸闷"
            Height          =   225
            Left            =   120
            TabIndex        =   0
            Top             =   600
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkpalpitation 
            Caption         =   "心悸"
            Height          =   225
            Left            =   810
            TabIndex        =   78
            Top             =   600
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox ChkloseHeart 
            Caption         =   "气短"
            Height          =   225
            Left            =   1470
            TabIndex        =   77
            Top             =   600
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkinsomnia 
            Caption         =   "失眠"
            Height          =   225
            Left            =   2190
            TabIndex        =   76
            Top             =   600
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkforgetful 
            Caption         =   "健忘"
            Height          =   225
            Left            =   2970
            TabIndex        =   75
            Top             =   600
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox ChkmoreDream 
            Caption         =   "多梦"
            Height          =   225
            Left            =   3810
            TabIndex        =   74
            Top             =   600
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkfantod 
            Caption         =   "烦燥"
            Height          =   225
            Left            =   4530
            TabIndex        =   73
            Top             =   600
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chktestiness 
            Caption         =   "易怒"
            Height          =   195
            Left            =   120
            TabIndex        =   72
            Top             =   930
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkirritancy 
            Caption         =   "五心烦热"
            Height          =   195
            Left            =   810
            TabIndex        =   71
            Top             =   930
            UseMaskColor    =   -1  'True
            Width           =   1015
         End
         Begin VB.CheckBox ChkcostaBulge 
            Caption         =   "胁胀"
            Height          =   195
            Left            =   1830
            TabIndex        =   70
            Top             =   930
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkna_cha 
            Caption         =   "纳差"
            Height          =   195
            Left            =   3210
            TabIndex        =   69
            Top             =   930
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkwan_zhang 
            Caption         =   "腕胀"
            Height          =   195
            Left            =   3930
            TabIndex        =   68
            Top             =   930
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkwindy 
            Caption         =   "腹胀"
            Height          =   195
            Left            =   4650
            TabIndex        =   67
            Top             =   930
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chklumbago 
            Caption         =   "腰疼"
            Height          =   225
            Left            =   780
            TabIndex        =   66
            Top             =   1290
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkheartache 
            Caption         =   "心疼"
            Height          =   225
            Left            =   1440
            TabIndex        =   65
            Top             =   1290
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkgiddy 
            Caption         =   "头晕脑胀"
            Height          =   225
            Left            =   2100
            TabIndex        =   64
            Top             =   1290
            UseMaskColor    =   -1  'True
            Width           =   1035
         End
         Begin VB.CheckBox ChkhaunchAcerbity 
            Caption         =   "腰酸"
            Height          =   225
            Left            =   120
            TabIndex        =   63
            Top             =   1290
            UseMaskColor    =   -1  'True
            Width           =   670
         End
         Begin VB.CheckBox Chkblur 
            Caption         =   "视物不清"
            Height          =   225
            Left            =   3180
            TabIndex        =   62
            Top             =   1290
            UseMaskColor    =   -1  'True
            Width           =   1035
         End
         Begin VB.CheckBox ChkskinItch 
            Caption         =   "皮肤瘙痒"
            Height          =   225
            Left            =   4200
            TabIndex        =   61
            Top             =   1290
            UseMaskColor    =   -1  'True
            Width           =   1035
         End
         Begin VB.CheckBox ChkcostaAche 
            Caption         =   "胁痛"
            Height          =   195
            Left            =   2490
            TabIndex        =   60
            Top             =   930
            UseMaskColor    =   -1  'True
            Width           =   670
         End
      End
      Begin VB.Frame Frame9 
         Caption         =   "处理"
         Height          =   6585
         Left            =   5700
         TabIndex        =   15
         Top             =   180
         Width           =   4695
         Begin VB.TextBox TxtDinnerTime 
            Height          =   270
            Left            =   3720
            TabIndex        =   163
            Top             =   4860
            Width           =   375
         End
         Begin VB.TextBox TxtafterDinner 
            Height          =   270
            Left            =   3690
            TabIndex        =   158
            Top             =   4500
            Width           =   375
         End
         Begin VB.CheckBox Chkswimming 
            Caption         =   "游泳"
            Height          =   255
            Left            =   2580
            TabIndex        =   157
            Top             =   3540
            Width           =   675
         End
         Begin VB.CheckBox Chkshadowboxing 
            Caption         =   "太极拳"
            Height          =   195
            Left            =   900
            TabIndex        =   156
            Top             =   3300
            Width           =   855
         End
         Begin VB.TextBox TxtBreakfastSecondary 
            Height          =   270
            Left            =   930
            TabIndex        =   143
            Top             =   2145
            Width           =   375
         End
         Begin VB.TextBox TxtBreakfastGreens 
            Height          =   270
            Left            =   930
            TabIndex        =   142
            Top             =   2505
            Width           =   375
         End
         Begin VB.TextBox TxtLunchSecondary 
            Height          =   270
            Left            =   2010
            TabIndex        =   141
            Top             =   2130
            Width           =   375
         End
         Begin VB.TextBox TxtLunchGreens 
            Height          =   270
            Left            =   2010
            TabIndex        =   140
            Top             =   2505
            Width           =   375
         End
         Begin VB.TextBox TxtdinnerSecondary 
            Height          =   270
            Left            =   3090
            TabIndex        =   139
            Top             =   2130
            Width           =   375
         End
         Begin VB.TextBox TxtdinnerGreens 
            Height          =   270
            Left            =   3120
            TabIndex        =   138
            Top             =   2490
            Width           =   375
         End
         Begin VB.TextBox TxtotherWay 
            Height          =   270
            Left            =   900
            TabIndex        =   32
            Top             =   3870
            Width           =   2775
         End
         Begin VB.CheckBox ChktableTennis 
            Caption         =   "乒乓球"
            Height          =   255
            Left            =   3300
            TabIndex        =   31
            Top             =   3270