📄 frmsick_tnb_main.frm
字号:
Begin VB.CheckBox ChkBrother
Caption = "兄弟"
Height = 180
Left = 3760
TabIndex = 126
Top = 3000
Width = 885
End
Begin VB.CheckBox ChkParent
Caption = "父母"
Height = 180
Left = 2720
TabIndex = 125
Top = 3000
Width = 885
End
Begin VB.CheckBox ChkGrandparent
Caption = "祖父母"
Height = 180
Left = 1680
TabIndex = 124
Top = 3000
Width = 885
End
Begin VB.CommandButton CmdListJcBB
Caption = "临床病历观察表"
Height = 1035
Left = 8670
TabIndex = 109
Top = 4560
Width = 1605
End
Begin VB.TextBox TxtDoctordeal
Height = 1425
IMEMode = 1 'ON
Left = 870
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 106
Top = 4560
Width = 7725
End
Begin VB.TextBox TxtAesculapius
Height = 300
Left = 9090
TabIndex = 105
Top = 5670
Width = 1215
End
Begin VB.Frame Frame1
Caption = "查体："
Height = 585
Left = 150
TabIndex = 89
Top = 3240
Width = 10125
Begin VB.TextBox TxtBloodPressureL
Height = 270
IMEMode = 1 'ON
Left = 9420
TabIndex = 104
Top = 210
Width = 555
End
Begin VB.TextBox TxtLinguaQuality
Height = 270
IMEMode = 1 'ON
Left = 630
TabIndex = 95
Top = 210
Width = 735
End
Begin VB.TextBox TxtLinguaTundra
Height = 270
IMEMode = 1 'ON
Left = 1860
TabIndex = 94
Top = 210
Width = 735
End
Begin VB.TextBox TxtPulse
Height = 270
IMEMode = 1 'ON
Left = 2910
TabIndex = 93
Top = 210
Width = 735
End
Begin VB.TextBox TxtHight
Height = 270
IMEMode = 1 'ON
Left = 5610
TabIndex = 92
Top = 210
Width = 735
End
Begin VB.TextBox TxtWeight
Height = 270
IMEMode = 1 'ON
Left = 7080
TabIndex = 91
Top = 210
Width = 735
End
Begin VB.TextBox TxtBloodPressureH
Height = 270
IMEMode = 1 'ON
Left = 8730
TabIndex = 90
Top = 210
Width = 555
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "/"
Height = 180
Left = 9300
TabIndex = 110
Top = 240
Width = 90
End
Begin VB.Label Label99
AutoSize = -1 'True
Caption = "舌质"
Height = 180
Left = 240
TabIndex = 103
Top = 255
Width = 360
End
Begin VB.Label Label100
AutoSize = -1 'True
Caption = "舌苔"
Height = 180
Left = 1470
TabIndex = 102
Top = 255
Width = 360
End
Begin VB.Label Label101
AutoSize = -1 'True
Caption = "脉"
Height = 180
Left = 2700
TabIndex = 101
Top = 255
Width = 180
End
Begin VB.Label Label102
AutoSize = -1 'True
Caption = "身高"
Height = 180
Left = 5220
TabIndex = 100
Top = 255
Width = 360
End
Begin VB.Label Label103
AutoSize = -1 'True
Caption = "体重"
Height = 180
Left = 6690
TabIndex = 99
Top = 255
Width = 360
End
Begin VB.Label Label104
AutoSize = -1 'True
Caption = "血压"
Height = 180
Left = 8340
TabIndex = 98
Top = 255
Width = 360
End
Begin VB.Label Label107
AutoSize = -1 'True
Caption = "M"
Height = 180
Left = 6420
TabIndex = 97
Top = 255
Width = 90
End
Begin VB.Label Label108
AutoSize = -1 'True
Caption = "Kg"
Height = 180
Left = 7890
TabIndex = 96
Top = 255
Width = 180
End
End
Begin VB.TextBox TxtNowSick
Height = 645
IMEMode = 1 'ON
Left = 870
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 86
Top = 1530
Width = 9405
End
Begin VB.TextBox TxtNarrate
Height = 675
IMEMode = 1 'ON
Left = 870
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 85
Top = 510
Width = 9405
End
Begin VB.TextBox TxtPasthistory
Height = 735
IMEMode = 1 'ON
Left = 870
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 84
Top = 2190
Width = 9405
End
Begin VB.TextBox TxtTiptopbloodcandy
BackColor = &H00FFFFFF&
Height = 300
IMEMode = 1 'ON
Left = 1800
TabIndex = 72
Top = 1200
Width = 705
End
Begin VB.ComboBox CmbUseInsulin
Height = 300
IMEMode = 2 'OFF
ItemData = "FrmSick_Tnb_main.frx":03BE
Left = 4920
List = "FrmSick_Tnb_main.frx":03C8
Style = 2 'Dropdown List
TabIndex = 71
Top = 1200
Width = 735
End
Begin VB.ComboBox CmbFamilialhistory
Height = 300
IMEMode = 2 'OFF
ItemData = "FrmSick_Tnb_main.frx":03D4
Left = 870
List = "FrmSick_Tnb_main.frx":03DE
Style = 2 'Dropdown List
TabIndex = 70
Top = 2940
Width = 615
End
Begin VB.Frame Frame11
Caption = "诊断："
Height = 585
Left = 150
TabIndex = 65
Top = 3870
Width = 10125
Begin VB.ComboBox CmbChina_diagnose
Height = 300
IMEMode = 2 'OFF
Left = 870
TabIndex = 67
Top = 180
Width = 4185
End
Begin VB.ComboBox CmbWestern_diagnose
Height = 300
IMEMode = 2 'OFF
ItemData = "FrmSick_Tnb_main.frx":03EA
Left = 5910
List = "FrmSick_Tnb_main.frx":03F4
TabIndex = 66
Top = 180
Width = 4065
End
Begin VB.Label Label98
AutoSize = -1 'True
Caption = "中医诊断"
Height = 180
Left = 120
TabIndex = 69
Top = 240
Width = 720
End
Begin VB.Label Label105
AutoSize = -1 'True
Caption = "西医诊断"
Height = 180
Left = 5160
TabIndex = 68
Top = 240
Width = 720
End
End
Begin VB.TextBox TxtNumber
Height = 300
Left = 3480
TabIndex = 64
Top = 180
Width = 1605
End
Begin VB.TextBox TxtCourse
Height = 300
IMEMode = 1 'ON
Left = 6090
MultiLine = -1 'True
TabIndex = 63
Top = 180
Width = 4185
End
Begin MSComCtl2.DTPicker DtpSeeDcotordate
Height = 300
Left = 870
TabIndex = 73
Top = 180
Width = 1305
_ExtentX = 2302
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -