frmsick_tnb_fz.frm

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

         Begin VB.Label Label16 
            Caption         =   "主食"
            Height          =   255
            Left            =   1650
            TabIndex        =   49
            Top             =   1800
            Width           =   375
         End
         Begin VB.Label Label13 
            Caption         =   "主食"
            Height          =   255
            Left            =   570
            TabIndex        =   48
            Top             =   1800
            Width           =   375
         End
         Begin VB.Label Label12 
            Caption         =   "晚餐"
            Height          =   255
            Left            =   3030
            TabIndex        =   47
            Top             =   1560
            Width           =   495
         End
         Begin VB.Label Label11 
            Caption         =   "午餐"
            Height          =   255
            Left            =   1890
            TabIndex        =   46
            Top             =   1560
            Width           =   495
         End
         Begin VB.Label Label10 
            Caption         =   "早餐"
            Height          =   255
            Left            =   810
            TabIndex        =   45
            Top             =   1560
            Width           =   495
         End
         Begin VB.Label Label9 
            Caption         =   "（2）饮食处方"
            Height          =   255
            Left            =   150
            TabIndex        =   44
            Top             =   1320
            Width           =   1335
         End
         Begin VB.Label Label8 
            Caption         =   "（1）药物方法"
            Height          =   255
            Left            =   150
            TabIndex        =   43
            Top             =   300
            Width           =   1215
         End
         Begin VB.Label Label38 
            Caption         =   "午餐后"
            Height          =   255
            Left            =   1710
            TabIndex        =   42
            Top             =   4500
            Width           =   615
         End
         Begin VB.Label Label39 
            Caption         =   "每次"
            Height          =   255
            Left            =   390
            TabIndex        =   41
            Top             =   4890
            Width           =   375
         End
         Begin VB.Label Label40 
            Caption         =   "每次"
            Height          =   255
            Left            =   1860
            TabIndex        =   40
            Top             =   4860
            Width           =   495
         End
         Begin VB.Label Label41 
            Caption         =   "分钟"
            Height          =   255
            Left            =   1230
            TabIndex        =   39
            Top             =   4500
            Width           =   405
         End
         Begin VB.Label Label44 
            Caption         =   "分钟"
            Height          =   255
            Left            =   2670
            TabIndex        =   38
            Top             =   4500
            Width           =   405
         End
         Begin VB.Label Label45 
            Caption         =   "分钟"
            Height          =   255
            Left            =   2670
            TabIndex        =   37
            Top             =   4860
            Width           =   405
         End
         Begin VB.Label Label46 
            Caption         =   "分钟"
            Height          =   255
            Left            =   1230
            TabIndex        =   36
            Top             =   4860
            Width           =   405
         End
         Begin VB.Label Label47 
            Caption         =   "运动强度"
            Height          =   255
            Left            =   240
            TabIndex        =   35
            Top             =   5370
            Width           =   765
         End
         Begin VB.Label Label48 
            Caption         =   "次（心率）"
            Height          =   255
            Left            =   3150
            TabIndex        =   34
            Top             =   5340
            Width           =   975
         End
         Begin VB.Label Label49 
            AutoSize        =   -1  'True
            Caption         =   "医师："
            Height          =   180
            Left            =   600
            TabIndex        =   33
            Top             =   5745
            Width           =   540
         End
      End
      Begin VB.Frame Frame10 
         Caption         =   "体重指数"
         Height          =   555
         Left            =   3510
         TabIndex        =   7
         Top             =   990
         Width           =   1995
         Begin VB.TextBox TxtnowWeight 
            Height          =   270
            Left            =   1260
            TabIndex        =   9
            Top             =   180
            Width           =   435
         End
         Begin VB.TextBox TxtpassWeight 
            Height          =   270
            Left            =   240
            TabIndex        =   8
            Top             =   210
            Width           =   495
         End
         Begin VB.Label Label3 
            Caption         =   "kg"
            Height          =   195
            Left            =   1710
            TabIndex        =   13
            Top             =   240
            Width           =   255
         End
         Begin VB.Label Label2 
            Caption         =   "现"
            Height          =   255
            Left            =   1020
            TabIndex        =   12
            Top             =   240
            Width           =   255
         End
         Begin VB.Label Label1 
            Caption         =   "kg"
            Height          =   255
            Left            =   750
            TabIndex        =   11
            Top             =   210
            Width           =   255
         End
         Begin VB.Label Label121 
            Caption         =   "原"
            Height          =   255
            Left            =   60
            TabIndex        =   10
            Top             =   240
            Width           =   255
         End
      End
      Begin VB.Frame Frame11 
         Caption         =   "舌、脉"
         Height          =   615
         Left            =   120
         TabIndex        =   3
         Top             =   930
         Width           =   3315
         Begin VB.TextBox TxtlinguaTundra 
            Height          =   270
            Left            =   2610
            TabIndex        =   137
            Top             =   240
            Width           =   600
         End
         Begin VB.TextBox Txtpulse 
            Height          =   270
            Left            =   1530
            TabIndex        =   136
            Top             =   240
            Width           =   600
         End
         Begin VB.TextBox TxtlinguaQuality 
            Height          =   270
            Left            =   510
            TabIndex        =   135
            Top             =   240
            Width           =   600
         End
         Begin VB.Label Label115 
            Caption         =   "舌质"
            Height          =   255
            Left            =   120
            TabIndex        =   6
            Top             =   285
            Width           =   375
         End
         Begin VB.Label Label116 
            Caption         =   "舌苔"
            Height          =   195
            Left            =   2220
            TabIndex        =   5
            Top             =   270
            Width           =   375
         End
         Begin VB.Label Label117 
            Caption         =   "脉象"
            Height          =   255
            Left            =   1170
            TabIndex        =   4
            Top             =   285
            Width           =   375
         End
      End
      Begin VB.Frame Frame12 
         Caption         =   "血糖（mmol/l）"
         Height          =   615
         Left            =   2190
         TabIndex        =   2
         Top             =   210
         Width           =   3315
         Begin VB.TextBox TxtOneHour 
            Height          =   270
            Left            =   2700
            TabIndex        =   126
            Top             =   240
            Width           =   495
         End
         Begin VB.TextBox TxtThreeHours 
            Height          =   270
            Left            =   1140
            TabIndex        =   125
            Top             =   240
            Width           =   465
         End
         Begin VB.TextBox TxtTwoHours 
            Height          =   270
            Left            =   1890
            TabIndex        =   124
            Top             =   240
            Width           =   465
         End
         Begin VB.TextBox TxtNull 
            Height          =   270
            Left            =   360
            TabIndex        =   123
            Top             =   240
            Width           =   465
         End
         Begin VB.Label Label114 
            Caption         =   "1h"
            Height          =   255
            Left            =   2490
            TabIndex        =   130
            Top             =   240
            Width           =   255
         End
         Begin VB.Label Label113 
            Caption         =   "2h"
            Height          =   255
            Left            =   1680
            TabIndex        =   129
            Top             =   240
            Width           =   255
         End
         Begin VB.Label Label112 
            Caption         =   "3h"
            Height          =   255
            Left            =   930
            TabIndex        =   128
            Top             =   240
            Width           =   255
         End
         Begin VB.Label Label111 
            Caption         =   "oh"
            Height          =   255
            Left            =   120
            TabIndex        =   127
            Top             =   240
            Width           =   255
         End
      End
      Begin MSComCtl2.DTPicker DtpreSeeDoctordate