📄 frmsick_tnb_yfdj.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FrmSick_Tnb_Yfdj
Caption = "糖尿病患者防治登记表"
ClientHeight = 6990
ClientLeft = 60
ClientTop = 345
ClientWidth = 11820
LinkTopic = "Form1"
ScaleHeight = 6990
ScaleWidth = 11820
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Caption = "疾病详情"
Height = 6915
Left = 30
TabIndex = 3
Top = 60
Width = 10545
Begin VB.TextBox Txtfaimlyhistory
Height = 1335
Left = 3000
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 160
Top = 5490
Width = 2535
End
Begin VB.TextBox Txtpasshistory
Height = 915
Left = 150
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 158
Top = 5880
Width = 2745
End
Begin VB.Frame Frame12
Caption = "血糖（mmol/l）"
Height = 615
Left = 2190
TabIndex = 143
Top = 210
Width = 3315
Begin VB.TextBox TxtNull
Height = 270
Left = 360
TabIndex = 147
Top = 240
Width = 465
End
Begin VB.TextBox TxtTwoHours
Height = 270
Left = 1890
TabIndex = 146
Top = 240
Width = 465
End
Begin VB.TextBox TxtThreeHours
Height = 270
Left = 1140
TabIndex = 145
Top = 240
Width = 465
End
Begin VB.TextBox TxtOneHour
Height = 270
Left = 2700
TabIndex = 144
Top = 240
Width = 495
End
Begin VB.Label Label111
Caption = "oh"
Height = 255
Left = 120
TabIndex = 151
Top = 240
Width = 255
End
Begin VB.Label Label112
Caption = "3h"
Height = 255
Left = 930
TabIndex = 150
Top = 240
Width = 255
End
Begin VB.Label Label113
Caption = "2h"
Height = 255
Left = 1680
TabIndex = 149
Top = 240
Width = 255
End
Begin VB.Label Label114
Caption = "1h"
Height = 255
Left = 2490
TabIndex = 148
Top = 240
Width = 255
End
End
Begin VB.Frame Frame11
Caption = "舌、脉"
Height = 615
Left = 120
TabIndex = 136
Top = 930
Width = 3315
Begin VB.TextBox TxtlinguaQuality
Height = 270
Left = 510
TabIndex = 139
Top = 240
Width = 600
End
Begin VB.TextBox Txtpulse
Height = 270
Left = 1530
TabIndex = 138
Top = 240
Width = 600
End
Begin VB.TextBox TxtlinguaTundra
Height = 270
Left = 2610
TabIndex = 137
Top = 240
Width = 600
End
Begin VB.Label Label117
Caption = "脉象"
Height = 255
Left = 1170
TabIndex = 142
Top = 285
Width = 375
End
Begin VB.Label Label116
Caption = "舌苔"
Height = 195
Left = 2220
TabIndex = 141
Top = 270
Width = 375
End
Begin VB.Label Label115
Caption = "舌质"
Height = 255
Left = 120
TabIndex = 140
Top = 285
Width = 375
End
End
Begin VB.Frame Frame10
Caption = "体重指数"
Height = 555
Left = 3510
TabIndex = 129
Top = 990
Width = 1995
Begin VB.TextBox TxtpassWeight
Height = 270
Left = 240
TabIndex = 131
Top = 210
Width = 495
End
Begin VB.TextBox TxtnowWeight
Height = 270
Left = 1260
TabIndex = 130
Top = 180
Width = 435
End
Begin VB.Label Label121
Caption = "原"
Height = 255
Left = 60
TabIndex = 135
Top = 240
Width = 255
End
Begin VB.Label Label1
Caption = "kg"
Height = 255
Left = 750
TabIndex = 134
Top = 210
Width = 255
End
Begin VB.Label Label2
Caption = "现"
Height = 255
Left = 1020
TabIndex = 133
Top = 240
Width = 255
End
Begin VB.Label Label3
Caption = "kg"
Height = 195
Left = 1710
TabIndex = 132
Top = 240
Width = 255
End
End
Begin VB.Frame Frame9
Caption = "处理"
Height = 5655
Left = 5760
TabIndex = 59
Top = 1230
Width = 4695
Begin VB.TextBox Txtaesculapius
Height = 300
Left = 1170
TabIndex = 86
Top = 5280
Width = 2295
End
Begin VB.TextBox TxtsportPower
Height = 270
Left = 1470
TabIndex = 85
Top = 4890
Width = 1455
End
Begin VB.TextBox TxtBreakfasTime
Height = 270
Left = 840
TabIndex = 84
Top = 4440
Width = 375
End
Begin VB.TextBox TxtLunchTime
Height = 270
Left = 2310
TabIndex = 83
Top = 4440
Width = 375
End
Begin VB.TextBox TxtafterLunch
Height = 270
Left = 2280
TabIndex = 82
Top = 4080
Width = 375
End
Begin VB.TextBox TxtafterBreakfast
Height = 270
Left = 810
TabIndex = 81
Top = 4080
Width = 375
End
Begin VB.TextBox Txtmedication
Height = 735
Left = 1410
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 80
Top = 300
Width = 3105
End
Begin VB.TextBox TxtBreakfastStapleFood
Height = 270
Left = 930
TabIndex = 79
Top = 1575
Width = 375
End
Begin VB.TextBox TxtLunchStapleFood
Height = 270
Left = 2010
TabIndex = 78
Top = 1575
Width = 375
End
Begin VB.TextBox TxtdinnerStapleFood
Height = 270
Left = 3090
TabIndex = 77
Top = 1575
Width = 375
End
Begin VB.CheckBox ChkfastWalk
Caption = "快走"
Height = 225
Left = 1800
TabIndex = 76
Top = 2850
Width = 705
End
Begin VB.CheckBox Chkdance
Caption = "跳舞"
Height = 255
Left = 2580
TabIndex = 75
Top = 2850
Width = 705
End
Begin VB.CheckBox Chkbadminton
Caption = "羽毛球"
Height = 225
Left = 900
TabIndex = 74
Top = 3120
Width = 855
End
Begin VB.CheckBox Chkbowling
Caption = "保龄球"
Height = 255
Left = 1770
TabIndex = 73
Top = 3090
Width = 855
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -