📄 formfzbl.frm
字号:
Width = 735
End
End
Begin VB.Frame Frame1
Caption = "胖"
Height = 615
Left = 3720
TabIndex = 53
Top = 3600
Width = 3135
Begin VB.CheckBox fatCheck
Caption = "四肢"
Height = 255
Index = 2
Left = 2040
TabIndex = 56
Top = 240
Width = 735
End
Begin VB.CheckBox fatCheck
Caption = "腹部"
Height = 255
Index = 1
Left = 1200
TabIndex = 55
Top = 240
Width = 735
End
Begin VB.CheckBox fatCheck
Caption = "全身"
Height = 255
Index = 0
Left = 240
TabIndex = 54
Top = 240
Width = 735
End
End
Begin MSComCtl2.DTPicker recordData
Height = 375
Left = 1440
TabIndex = 102
Top = 600
Width = 1215
_ExtentX = 2143
_ExtentY = 661
_Version = 393216
Format = 24641537
CurrentDate = 38719
End
Begin VB.Label Label7
Caption = "现用化学降糖药物及胰岛素："
Height = 255
Left = 7320
TabIndex = 144
Top = 5040
Width = 2415
End
Begin VB.Label Label6
Caption = "家族史："
Height = 255
Left = 7320
TabIndex = 143
Top = 3960
Width = 735
End
Begin VB.Label Label5
Caption = "既往史："
Height = 255
Left = 7320
TabIndex = 142
Top = 4440
Width = 735
End
Begin VB.Label Label4
Caption = "其他症状："
Height = 255
Left = 7320
TabIndex = 141
Top = 3480
Width = 975
End
Begin VB.Label Label51
Caption = "登记时间"
Height = 255
Left = 480
TabIndex = 107
Top = 720
Width = 735
End
End
Begin VB.Frame Frame13
Caption = "病人基本信息录入"
Height = 975
Left = 480
TabIndex = 38
Top = 480
Width = 13575
Begin VB.ComboBox sexCombo1
Height = 300
ItemData = "formfzbl.frx":0054
Left = 3480
List = "formfzbl.frx":005E
TabIndex = 44
Text = "男"
Top = 360
Width = 735
End
Begin VB.TextBox illmanNumber
Height = 375
Left = 11760
TabIndex = 43
Top = 360
Width = 975
End
Begin VB.TextBox illmanOn
Height = 390
Left = 9480
TabIndex = 42
Top = 360
Width = 1095
End
Begin VB.TextBox illmanhight
Height = 375
Left = 7320
TabIndex = 41
Top = 360
Width = 615
End
Begin VB.TextBox illmanage
Height = 375
Left = 5520
TabIndex = 40
Top = 360
Width = 735
End
Begin VB.TextBox illname
Height = 375
Left = 840
TabIndex = 39
Top = 360
Width = 1215
End
Begin VB.Label Label61
Caption = "M"
Height = 255
Left = 8040
TabIndex = 51
Top = 480
Width = 135
End
Begin VB.Label Label60
BackColor = &H00C0C0C0&
Caption = "编号"
Height = 255
Left = 11400
TabIndex = 50
Top = 480
Width = 375
End
Begin VB.Label Label59
Caption = "病历号"
Height = 255
Left = 8880
TabIndex = 49
Top = 480
Width = 615
End
Begin VB.Label Label58
Caption = "身高"
Height = 255
Left = 6840
TabIndex = 48
Top = 480
Width = 375
End
Begin VB.Label Label57
Caption = "年龄"
Height = 255
Left = 5040
TabIndex = 47
Top = 480
Width = 375
End
Begin VB.Label Label56
Caption = "性别"
Height = 255
Left = 2880
TabIndex = 46
Top = 480
Width = 375
End
Begin VB.Label Label55
Caption = "姓名"
Height = 255
Left = 360
TabIndex = 45
Top = 480
Width = 375
End
End
Begin VB.Frame Frame7
Caption = "处理"
Height = 7335
Left = -74760
TabIndex = 1
Top = 360
Width = 14055
Begin VB.Frame evening_pText
Caption = "（2）饮食处方"
Height = 2415
Left = 240
TabIndex = 147
Top = 4680
Width = 6015
Begin VB.TextBox morning_pText
Height = 270
Left = 720
TabIndex = 156
Top = 600
Width = 735
End
Begin VB.TextBox morning_sText
Height = 270
Left = 720
TabIndex = 155
Top = 1200
Width = 735
End
Begin VB.TextBox morning_oText
Height = 270
Left = 720
TabIndex = 154
Top = 1800
Width = 735
End
Begin VB.TextBox noon_pText
Height = 270
Index = 0
Left = 2640
TabIndex = 153
Top = 600
Width = 735
End
Begin VB.TextBox noon_sText
Height = 270
Left = 2640
TabIndex = 152
Top = 1200
Width = 735
End
Begin VB.TextBox noon_oText
Height = 270
Left = 2640
TabIndex = 151
Top = 1800
Width = 735
End
Begin VB.TextBox noon_pText
Height = 270
Index = 1
Left = 4320
TabIndex = 150
Top = 600
Width = 855
End
Begin VB.TextBox evening_sText
Height = 270
Left = 4320
TabIndex = 149
Top = 1200
Width = 855
End
Begin VB.TextBox evening_oText
Height = 270
Left = 4320
TabIndex = 148
Top = 1800
Width = 855
End
Begin VB.Label Label10
Caption = "早餐"
Height = 255
Left = 960
TabIndex = 177
Top = 360
Width = 375
End
Begin VB.Label Label11
Caption = "午餐"
Height = 255
Left = 2760
TabIndex = 176
Top = 360
Width = 495
End
Begin VB.Label Label12
Caption = "晚餐"
Height = 255
Left = 4560
TabIndex = 175
Top = 360
Width = 495
End
Begin VB.Label Label13
Caption = "主食"
Height = 255
Left = 360
TabIndex = 174
Top = 600
Width = 375
End
Begin VB.Label Label14
Caption = "副食"
Height = 255
Left = 360
TabIndex = 173
Top = 1200
Width = 375
End
Begin VB.Label Label15
Caption = "蔬菜"
Height = 255
Left = 360
TabIndex = 172
Top = 1920
Width = 375
End
Begin VB.Label Label16
Caption = "主食"
Height = 255
Left = 2160
TabIndex = 171
Top = 600
Width = 375
End
Begin VB.Label Label17
Caption = "副食"
Height = 255
Left = 2160
TabIndex = 170
Top = 1200
Width = 375
End
Begin VB.Label Label18
Caption = "蔬菜"
Height = 255
Left = 2160
TabIndex = 169
Top = 1920
Width = 495
End
Begin VB.Label Label19
Caption = "主食"
Height = 255
Left = 3960
TabIndex = 168
Top = 600
Width = 375
End
Begin VB.Label Label20
Caption = "副食"
Height = 255
Left = 3960
TabIndex = 167
Top = 1200
Width = 495
End
Begin VB.Label Label21
Caption = "蔬菜"
Height = 255
Left = 3960
TabIndex = 166
Top = 1920
Width = 495
End
Begin VB.Label Label22
Caption = " g"
Height = 255
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -