📄 gnhjfrm.frm
字号:
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "年龄："
Height = 180
Left = 3720
TabIndex = 41
Top = 260
Width = 540
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "单位/住址："
Height = 180
Left = 5280
TabIndex = 40
Top = 255
Width = 990
End
End
Begin VB.Frame Frame3
Caption = "处方信息录入"
ForeColor = &H00808000&
Height = 615
Left = 120
TabIndex = 27
Top = 840
Width = 8175
Begin VB.ComboBox Combo2
Height = 300
Left = 840
TabIndex = 31
Text = "Combo2"
Top = 200
Width = 1095
End
Begin VB.TextBox Text4
Height = 300
Left = 2760
TabIndex = 30
Text = "Text4"
Top = 200
Width = 3735
End
Begin VB.ComboBox Combo3
Height = 300
ItemData = "gnhjfrm.frx":0016
Left = 5520
List = "gnhjfrm.frx":0035
TabIndex = 29
Text = "Combo3"
Top = 200
Visible = 0 'False
Width = 855
End
Begin VB.TextBox Text5
Height = 300
Left = 7320
MaxLength = 3
TabIndex = 28
Text = "Text5"
Top = 200
Width = 735
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "科别："
Height = 180
Left = 240
TabIndex = 34
Top = 260
Width = 540
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "名称："
Height = 180
Left = 2160
TabIndex = 33
Top = 260
Width = 540
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "数量："
Height = 180
Left = 6720
TabIndex = 32
Top = 260
Width = 540
End
End
Begin VB.Frame Frame5
Height = 1815
Left = 8400
TabIndex = 22
Top = 120
Width = 2535
Begin VB.CommandButton Command6
Caption = "返 回"
Height = 420
Left = 1320
TabIndex = 87
Top = 1200
Width = 1100
End
Begin VB.CommandButton Command5
Caption = "门诊划价"
Height = 420
Left = 120
TabIndex = 86
Top = 1200
Width = 1100
End
Begin VB.CommandButton Command1
Caption = "患者录入"
Height = 420
Left = 120
TabIndex = 26
Top = 240
Width = 1100
End
Begin VB.CommandButton Command2
Caption = "保存处方"
Height = 420
Left = 120
TabIndex = 25
Top = 720
Width = 1100
End
Begin VB.CommandButton Command3
Caption = "处方录入"
Height = 420
Left = 1320
TabIndex = 24
Top = 240
Width = 1100
End
Begin VB.CommandButton Command4
Caption = "打印处方"
Height = 420
Left = 1320
TabIndex = 23
Top = 720
Width = 1100
End
End
Begin VB.Frame Frame4
Caption = "处方信息内容"
ForeColor = &H00800080&
Height = 6255
Left = 120
TabIndex = 3
Top = 1920
Width = 10815
Begin VB.TextBox Text7
Height = 270
Left = 4800
TabIndex = 17
Text = "Text7"
Top = 5880
Width = 1220
End
Begin VB.TextBox Text6
Height = 270
Left = 2760
TabIndex = 16
Text = "Text6"
Top = 5880
Width = 1220
End
Begin VB.ComboBox Combo4
Height = 300
Left = 720
TabIndex = 15
Text = "Combo4"
Top = 5880
Width = 1220
End
Begin VB.Frame Frame7
Height = 5895
Left = 8280
TabIndex = 5
Top = 240
Width = 2415
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "Label17"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 210
Index = 19
Left = 1150
TabIndex = 83
Top = 5280
Visible = 0 'False
Width = 735
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "Label17"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 210
Index = 18
Left = 1150
TabIndex = 82
Top = 5018
Visible = 0 'False
Width = 735
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "Label17"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 210
Index = 17
Left = 1150
TabIndex = 81
Top = 4757
Visible = 0 'False
Width = 735
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "Label17"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 210
Index = 16
Left = 1150
TabIndex = 80
Top = 4496
Visible = 0 'False
Width = 735
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "Label17"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 210
Index = 15
Left = 1150
TabIndex = 79
Top = 4235
Visible = 0 'False
Width = 735
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "Label17"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 210
Index = 14
Left = 1150
TabIndex = 78
Top = 3974
Visible = 0 'False
Width = 735
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "Label16"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 19
Left = 240
TabIndex = 77
Top = 5280
Visible = 0 'False
Width = 735
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "Label16"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 18
Left = 240
TabIndex = 76
Top = 5018
Visible = 0 'False
Width = 735
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "Label16"
BeginProperty Font
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -