📄 frmsick_tnb_yfdj.frm
字号:
Caption = " g"
Height = 255
Left = 2370
TabIndex = 100
Top = 2310
Width = 255
End
Begin VB.Label Label26
Caption = " g"
Height = 255
Left = 2370
TabIndex = 99
Top = 1950
Width = 255
End
Begin VB.Label Label24
Caption = " g"
Height = 255
Left = 1290
TabIndex = 98
Top = 2310
Width = 255
End
Begin VB.Label Label23
Caption = " g"
Height = 255
Left = 1290
TabIndex = 97
Top = 1950
Width = 255
End
Begin VB.Label Label21
Caption = "蔬菜"
Height = 255
Left = 2730
TabIndex = 96
Top = 2310
Width = 375
End
Begin VB.Label Label20
Caption = "副食"
Height = 255
Left = 2730
TabIndex = 95
Top = 1950
Width = 375
End
Begin VB.Label Label18
Caption = "蔬菜"
Height = 255
Left = 1650
TabIndex = 94
Top = 2310
Width = 375
End
Begin VB.Label Label17
Caption = "副食"
Height = 255
Left = 1650
TabIndex = 93
Top = 1950
Width = 375
End
Begin VB.Label Label15
Caption = "蔬菜"
Height = 255
Left = 570
TabIndex = 92
Top = 2310
Width = 375
End
Begin VB.Label Label14
Caption = "副食"
Height = 255
Left = 570
TabIndex = 91
Top = 1950
Width = 375
End
Begin VB.Label Label36
Caption = "晚餐后"
Height = 255
Left = 3150
TabIndex = 90
Top = 4080
Width = 615
End
Begin VB.Label Label37
Caption = "每次"
Height = 255
Left = 3150
TabIndex = 89
Top = 4440
Width = 495
End
Begin VB.Label Label42
Caption = "分钟"
Height = 255
Left = 4110
TabIndex = 88
Top = 4080
Width = 405
End
Begin VB.Label Label43
Caption = "分钟"
Height = 255
Left = 4110
TabIndex = 87
Top = 4440
Width = 405
End
End
Begin VB.Frame Frame8
Caption = "综合症状"
Height = 1695
Left = 150
TabIndex = 30
Top = 2130
Width = 5355
Begin VB.CheckBox ChkcostaAche
Caption = "胁痛"
Height = 195
Left = 2490
TabIndex = 58
Top = 930
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox ChkskinItch
Caption = "皮肤瘙痒"
Height = 225
Left = 4200
TabIndex = 57
Top = 1290
UseMaskColor = -1 'True
Width = 1035
End
Begin VB.CheckBox Chkblur
Caption = "视物不清"
Height = 225
Left = 3180
TabIndex = 56
Top = 1290
UseMaskColor = -1 'True
Width = 1035
End
Begin VB.CheckBox ChkhaunchAcerbity
Caption = "腰酸"
Height = 225
Left = 120
TabIndex = 55
Top = 1290
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chkgiddy
Caption = "头晕脑胀"
Height = 225
Left = 2100
TabIndex = 54
Top = 1290
UseMaskColor = -1 'True
Width = 1035
End
Begin VB.CheckBox Chkheartache
Caption = "心疼"
Height = 225
Left = 1440
TabIndex = 53
Top = 1290
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chklumbago
Caption = "腰疼"
Height = 225
Left = 780
TabIndex = 52
Top = 1290
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chkwindy
Caption = "腹胀"
Height = 195
Left = 4650
TabIndex = 51
Top = 930
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chkwan_zhang
Caption = "腕胀"
Height = 195
Left = 3930
TabIndex = 50
Top = 930
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chkna_cha
Caption = "纳差"
Height = 195
Left = 3210
TabIndex = 49
Top = 930
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox ChkcostaBulge
Caption = "胁胀"
Height = 195
Left = 1830
TabIndex = 48
Top = 930
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chkirritancy
Caption = "五心烦热"
Height = 195
Left = 810
TabIndex = 47
Top = 930
UseMaskColor = -1 'True
Width = 1015
End
Begin VB.CheckBox Chktestiness
Caption = "易怒"
Height = 195
Left = 120
TabIndex = 46
Top = 930
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chkfantod
Caption = "烦燥"
Height = 225
Left = 4530
TabIndex = 45
Top = 600
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox ChkmoreDream
Caption = "多梦"
Height = 225
Left = 3810
TabIndex = 44
Top = 600
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chkforgetful
Caption = "健忘"
Height = 225
Left = 2970
TabIndex = 43
Top = 600
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chkinsomnia
Caption = "失眠"
Height = 225
Left = 2190
TabIndex = 42
Top = 600
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox ChkloseHeart
Caption = "气短"
Height = 225
Left = 1470
TabIndex = 41
Top = 600
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chkpalpitation
Caption = "心悸"
Height = 225
Left = 810
TabIndex = 40
Top = 600
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox ChkthoraxBored
Caption = "胸闷"
Height = 225
Left = 120
TabIndex = 39
Top = 600
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Check7
Caption = "Check7"
Height = 255
Index = 6
Left = 8040
TabIndex = 38
Top = 360
Width = 1095
End
Begin VB.CheckBox Chkmouthdry
Caption = "口干"
Height = 180
Left = 120
TabIndex = 37
Top = 233
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chkmouththirsty
Caption = "口渴"
Height = 180
Left = 750
TabIndex = 36
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -