📄 formfzbl.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form formfzdjb
Caption = "糖尿病患者防治登记表"
ClientHeight = 9510
ClientLeft = 165
ClientTop = 450
ClientWidth = 14700
LinkTopic = "Form2"
ScaleHeight = 9510
ScaleWidth = 14700
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton clear
Caption = "清除"
Height = 375
Left = 5400
TabIndex = 179
Top = 9000
Width = 975
End
Begin VB.CommandButton NewIllMan
Caption = "添加病人"
Height = 375
Left = 7080
TabIndex = 178
Top = 9000
Width = 1455
End
Begin TabDlg.SSTab SSTab1
Height = 8775
Left = 0
TabIndex = 0
Top = 0
Width = 14655
_ExtentX = 25850
_ExtentY = 15478
_Version = 393216
TabHeight = 520
TabCaption(0) = "病人基本信息录入(第一页)"
TabPicture(0) = "formfzbl.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame13"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame14"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "病人基本信息录入(第二页)"
TabPicture(1) = "formfzbl.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame7"
Tab(1).ControlCount= 1
TabCaption(2) = "使用说明"
TabPicture(2) = "formfzbl.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).ControlCount= 0
Begin VB.Frame Frame14
Caption = "疾病信息"
Height = 6975
Left = 480
TabIndex = 52
Top = 1560
Width = 13575
Begin VB.TextBox hx_InsulinText
Height = 375
Left = 9960
TabIndex = 140
Top = 4920
Width = 3015
End
Begin VB.TextBox familiyHistoryText
Height = 375
Left = 8400
TabIndex = 139
Text = " "
Top = 3840
Width = 1695
End
Begin VB.TextBox pssHistoryText
Height = 390
Left = 8400
TabIndex = 138
Top = 4320
Width = 1335
End
Begin VB.TextBox otherText
Height = 375
Left = 8400
TabIndex = 137
Top = 3360
Width = 1695
End
Begin VB.Frame Frame8
Caption = "综合症状"
Height = 2775
Left = 7080
TabIndex = 108
Top = 360
Width = 6255
Begin VB.CheckBox zh_Check
Caption = "胁痛"
Height = 255
Index = 18
Left = 3480
TabIndex = 136
Top = 1320
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "皮肤瘙痒"
Height = 255
Index = 27
Left = 4680
TabIndex = 135
Top = 1680
Width = 1095
End
Begin VB.CheckBox zh_Check
Caption = "视物不清"
Height = 255
Index = 26
Left = 4680
TabIndex = 134
Top = 1320
Width = 1095
End
Begin VB.CheckBox zh_Check
Caption = "腰酸"
Height = 255
Index = 25
Left = 2640
TabIndex = 133
Top = 1680
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "头晕脑胀"
Height = 255
Index = 24
Left = 4680
TabIndex = 132
Top = 960
Width = 1095
End
Begin VB.CheckBox zh_Check
Caption = "头疼"
Height = 255
Index = 23
Left = 480
TabIndex = 131
Top = 2040
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "腰疼"
Height = 255
Index = 22
Left = 3480
TabIndex = 130
Top = 1680
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "腹胀"
Height = 255
Index = 21
Left = 1920
TabIndex = 129
Top = 1680
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "脘胀"
Height = 195
Index = 20
Left = 1200
TabIndex = 128
Top = 1740
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "纳差"
Height = 255
Index = 19
Left = 480
TabIndex = 127
Top = 1680
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "胁胀"
Height = 255
Index = 17
Left = 2640
TabIndex = 126
Top = 1320
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "五心烦热"
Height = 255
Index = 16
Left = 4680
TabIndex = 125
Top = 600
Width = 1095
End
Begin VB.CheckBox zh_Check
Caption = "易怒"
Height = 255
Index = 15
Left = 1920
TabIndex = 124
Top = 1320
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "烦燥"
Height = 255
Index = 14
Left = 1200
TabIndex = 123
Top = 1320
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "多梦"
Height = 255
Index = 13
Left = 480
TabIndex = 122
Top = 1320
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "健忘"
Height = 255
Index = 12
Left = 3480
TabIndex = 121
Top = 960
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "失眠"
Height = 255
Index = 11
Left = 2640
TabIndex = 120
Top = 960
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "气短"
Height = 255
Index = 10
Left = 1920
TabIndex = 119
Top = 960
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "心悸"
Height = 255
Index = 9
Left = 1200
TabIndex = 118
Top = 960
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "胸闷"
Height = 255
Index = 8
Left = 480
TabIndex = 117
Top = 960
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "小腿酸胀"
Height = 255
Index = 7
Left = 2640
TabIndex = 116
Top = 2040
Width = 1095
End
Begin VB.CheckBox Check7
Caption = "Check7"
Height = 255
Index = 6
Left = 8040
TabIndex = 115
Top = 360
Width = 1095
End
Begin VB.CheckBox zh_Check
Caption = "周身伐力"
Height = 255
Index = 5
Left = 1440
TabIndex = 114
Top = 2040
Width = 1095
End
Begin VB.CheckBox zh_Check
Caption = "多尿"
Height = 255
Index = 4
Left = 3480
TabIndex = 113
Top = 600
Width = 735
End
Begin VB.CheckBox Check7
Caption = "多食"
Height = 255
Index = 3
Left = 2640
TabIndex = 112
Top = 600
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "多饮"
Height = 255
Index = 2
Left = 1920
TabIndex = 111
Top = 600
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "口干"
Height = 255
Index = 0
Left = 480
TabIndex = 110
Top = 600
Width = 735
End
Begin VB.CheckBox zh_Check
Caption = "口渴"
Height = 255
Index = 1
Left = 1200
TabIndex = 109
Top = 600
Width = 735
End
End
Begin VB.Frame Frame2
Caption = "瘦"
Height = 615
Left = 3720
TabIndex = 103
Top = 4320
Width = 3135
Begin VB.CheckBox shinCheck
Caption = "四肢"
Height = 255
Index = 2
Left = 2040
TabIndex = 106
Top = 240
Width = 735
End
Begin VB.CheckBox shinCheck
Caption = "腹部"
Height = 255
Index = 1
Left = 1200
TabIndex = 105
Top = 240
Width = 735
End
Begin VB.CheckBox shinCheck
Caption = "全身"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -