📄 frmsick_tnb_main.frm
字号:
Height = 405
Left = 10710
TabIndex = 130
Top = 960
Width = 1155
End
Begin VB.CommandButton CmdFzUpdate
Caption = "修改[&U]"
Height = 405
Left = 10710
TabIndex = 129
Top = 540
Width = 1155
End
Begin VB.CommandButton CmdExit
Caption = "退出[&E]"
Height = 405
Index = 3
Left = 10710
TabIndex = 128
Top = 5790
Width = 1155
End
Begin MSFlexGridLib.MSFlexGrid MsFlexFZ
Height = 6135
Left = 120
TabIndex = 111
Top = 90
Width = 10545
_ExtentX = 18600
_ExtentY = 10821
_Version = 393216
Rows = 3
FixedRows = 2
SelectionMode = 2
End
Begin VB.CommandButton CmdExit
Caption = "退出[&E]"
Height = 405
Index = 1
Left = -64320
TabIndex = 88
Top = 5730
Width = 1155
End
Begin VB.CommandButton CmdCzSave
Caption = "保存[&S]"
Height = 405
Left = -64320
TabIndex = 87
Top = 5310
Width = 1155
End
Begin VB.Frame FramCz
Height = 6105
Left = -74850
TabIndex = 62
Top = 60
Width = 10425
Begin VB.CheckBox ChkSister
Caption = "姐妹"
Height = 180
Left = 4800
TabIndex = 127
Top = 3000
Width = 885
End
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":03DA
Left = 4920
List = "FrmSick_Tnb_main.frx":03E4
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":03F0
Left = 870
List = "FrmSick_Tnb_main.frx":03FA
Style = 2 'Dropdown List
TabIndex = 70
Top = 2940
Width = 615
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -