📄 frmsick_tnb_fz.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FrmSick_Tnb_Fz
Caption = "糖尿病医院复诊病历"
ClientHeight = 6990
ClientLeft = 165
ClientTop = 450
ClientWidth = 11820
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 6990
ScaleWidth = 11820
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton CmdRefresh
Caption = "刷新[&R]"
Height = 405
Left = 10620
TabIndex = 166
Top = 120
Width = 1155
End
Begin VB.CommandButton CmdExit
Caption = "退出[&E]"
Height = 405
Left = 10620
TabIndex = 165
Top = 6540
Width = 1155
End
Begin VB.CommandButton CmdSave
Caption = "保存[&S]"
Height = 405
Left = 10620
TabIndex = 164
Top = 6120
Width = 1155
End
Begin VB.Frame Frame1
Caption = "疾病详情"
Height = 6915
Left = 0
TabIndex = 1
Top = 30
Width = 10545
Begin VB.ComboBox Comdefecate
Height = 300
ItemData = "FrmSick_Tnb_Fz.frx":0000
Left = 720
List = "FrmSick_Tnb_Fz.frx":000D
TabIndex = 133
Top = 5430
Width = 1575
End
Begin VB.ComboBox Comothersace
Height = 300
Left = 1050
TabIndex = 131
Top = 5895
Width = 1215
End
Begin VB.CheckBox ChkinsulinLunck
Caption = "中N"
Height = 180
Left = 3060
TabIndex = 113
Top = 6420
Width = 735
End
Begin VB.CheckBox ChkinsulinDinner
Caption = "晚N"
Height = 180
Left = 3810
TabIndex = 112
Top = 6390
Width = 735
End
Begin VB.CheckBox ChkinsulinMorn
Caption = "早N"
Height = 180
Left = 2220
TabIndex = 111
Top = 6390
Width = 735
End
Begin VB.TextBox Txtnowlowcandy
Height = 270
Left = 4050
TabIndex = 110
Top = 5910
Width = 1455
End
Begin VB.Frame Frame7
Caption = "胖"
Height = 525
Left = 150
TabIndex = 106
Top = 1590
Width = 2385
Begin VB.CheckBox Chkfat_all
Caption = "全身"
Height = 255
Left = 120
TabIndex = 109
Top = 210
Width = 675
End
Begin VB.CheckBox Chkfat_stomach
Caption = "腹部"
Height = 255
Left = 870
TabIndex = 108
Top = 210
Width = 675
End
Begin VB.CheckBox Chkfat_limb
Caption = "四肢"
Height = 195
Left = 1620
TabIndex = 107
Top = 270
Width = 675
End
End
Begin VB.Frame Frame2
Caption = "瘦"
Height = 525
Left = 2670
TabIndex = 102
Top = 1590
Width = 2835
Begin VB.CheckBox Chkthin_all
Caption = "全身"
Height = 225
Left = 240
TabIndex = 105
Top = 180
Width = 675
End
Begin VB.CheckBox Chkthin_stomach
Caption = "腹部"
Height = 225
Left = 1050
TabIndex = 104
Top = 180
Width = 675
End
Begin VB.CheckBox Chkthin_limb
Caption = "四肢"
Height = 255
Left = 1920
TabIndex = 103
Top = 150
Width = 675
End
End
Begin VB.Frame Frame4
Caption = "小便"
Height = 555
Left = 2430
TabIndex = 97
Top = 5310
Width = 3075
Begin VB.CheckBox Chkpiss_short_red
Caption = "短赤"
Height = 225
Left = 120
TabIndex = 101
Top = 240
Width = 670
End
Begin VB.CheckBox Chkpiss_clear_long
Caption = "清长"
Height = 225
Left = 840
TabIndex = 100
Top = 240
Width = 670
End
Begin VB.CheckBox Chkpiss_disadvantage
Caption = "不利"
Height = 225
Left = 2220
TabIndex = 99
Top = 240
Width = 670
End
Begin VB.CheckBox Chkpiss_acerbity
Caption = "涩痛"
Height = 225
Left = 1500
TabIndex = 98
Top = 240
Width = 670
End
End
Begin VB.Frame Frame5
Caption = "浮肿"
Height = 615
Left = 150
TabIndex = 93
Top = 4620
Width = 5355
Begin VB.CheckBox Chk2lower_limbs
Caption = "双下肢"
Height = 255
Left = 720
TabIndex = 96
Top = 210
Width = 855
End
Begin VB.CheckBox Chkwhole_Body
Caption = "全身"
Height = 225
Left = 1590
TabIndex = 95
Top = 240
Width = 675
End
Begin VB.CheckBox Chkeyelid
Caption = "眼睑"
Height = 255
Left = 60
TabIndex = 94
Top = 210
Width = 705
End
End
Begin VB.Frame Frame6
Caption = "麻、凉（热）、疼"
Height = 615
Left = 150
TabIndex = 87
Top = 3900
Width = 5355
Begin VB.CheckBox ChkHCAupper_limbs
Caption = "上肢"
Height = 195
Left = 60
TabIndex = 92
Top = 240
Width = 660
End
Begin VB.CheckBox ChkHCAlower_limbs
Caption = "下肢"
Height = 195
Left = 720
TabIndex = 91
Top = 240
Width = 660
End
Begin VB.CheckBox ChkHCA_back
Caption = "背部"
Height = 195
Left = 1410
TabIndex = 90
Top = 240
Width = 660
End
Begin VB.CheckBox ChkHCA_abdomen
Caption = "腹部"
Height = 195
Left = 2070
TabIndex = 89
Top = 240
Width = 660
End
Begin VB.CheckBox ChkHCAwhole_Body
Caption = "全身"
Height = 195
Left = 2730
TabIndex = 88
Top = 240
Width = 660
End
End
Begin VB.Frame Frame8
Caption = "综合症状"
Height = 1695
Left = 150
TabIndex = 59
Top = 2130
Width = 5355
Begin VB.CheckBox ChkcalfAcerbitybulge
Caption = "小腿酸胀"
Height = 180
Left = 4290
TabIndex = 79
Top = 233
UseMaskColor = -1 'True
Width = 1015
End
Begin VB.CheckBox ChkbodyWeakness
Caption = "周身伐力"
Height = 180
Left = 3294
TabIndex = 81
Top = 233
UseMaskColor = -1 'True
Width = 1035
End
Begin VB.CheckBox Chktimesstale
Caption = "多尿"
Height = 180
Left = 2658
TabIndex = 82
Top = 233
UseMaskColor = -1 'True
Width = 670
End
Begin VB.CheckBox Chktimesfoods
Caption = "多食"
Height = 180
Left = 2040
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -