📄 患者使用药品查询.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmMedicineQuery
Caption = "住院管理-药品查询"
ClientHeight = 6840
ClientLeft = 735
ClientTop = 825
ClientWidth = 9495
ControlBox = 0 'False
LinkTopic = "Form37"
LockControls = -1 'True
Moveable = 0 'False
ScaleHeight = 6840
ScaleWidth = 9495
Begin VB.TextBox Text6
BackColor = &H00C0E0FF&
ForeColor = &H000000C0&
Height = 315
Left = 4755
TabIndex = 21
Text = "Text6"
Top = 135
Width = 1305
End
Begin VB.CheckBox chkYAO
Caption = "统方号"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 285
Index = 5
Left = 3525
TabIndex = 20
Top = 150
Width = 1305
End
Begin VB.CommandButton Command4
Caption = "清单打印 &P"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4835
TabIndex = 18
Top = 1170
Width = 2190
End
Begin VB.CommandButton Command3
Caption = "药品统计查询&T"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2485
TabIndex = 17
Top = 1170
Width = 2190
End
Begin VB.CommandButton Command1
Caption = "开始查询 &C"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 135
TabIndex = 16
Top = 1170
Width = 2190
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "退出查询 &Q"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 7185
TabIndex = 19
Top = 1170
Width = 2190
End
Begin VB.VScrollBar VScroll2
Height = 345
Left = 3300
Max = 10000
Min = -10000
TabIndex = 15
Top = 585
Width = 195
End
Begin VB.VScrollBar VScroll1
Height = 345
Left = 2055
Max = 10000
Min = -10000
TabIndex = 14
Top = 585
Width = 225
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
Height = 75
Left = 210
Picture = "患者使用药品查询.frx":0000
ScaleHeight = 15
ScaleWidth = 9000
TabIndex = 13
Top = 1680
Width = 9060
End
Begin VB.ComboBox Combo1
BackColor = &H00C0E0FF&
ForeColor = &H000000C0&
Height = 300
ItemData = "患者使用药品查询.frx":108C
Left = 7830
List = "患者使用药品查询.frx":1099
TabIndex = 12
Text = "Combo1"
Top = 600
Width = 1515
End
Begin VB.TextBox Text1
BackColor = &H00C0E0FF&
ForeColor = &H000000C0&
Height = 315
Left = 1110
TabIndex = 11
Text = "Text1"
Top = 150
Width = 1515
End
Begin VB.TextBox Text5
BackColor = &H00C0E0FF&
ForeColor = &H000000C0&
Height = 315
Left = 2355
Locked = -1 'True
TabIndex = 7
Text = "Text5"
Top = 600
Width = 1005
End
Begin VB.TextBox Text3
BackColor = &H00C0E0FF&
ForeColor = &H000000C0&
Height = 315
Left = 7830
TabIndex = 5
Text = "Text3"
Top = 150
Width = 1515
End
Begin VB.TextBox Text2
BackColor = &H00C0E0FF&
ForeColor = &H000000C0&
Height = 315
Left = 5055
TabIndex = 4
Text = "Text2"
Top = 600
Width = 1005
End
Begin VB.CheckBox chkYAO
Caption = "药品种类"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 285
Index = 4
Left = 6270
TabIndex = 3
Top = 600
Width = 1575
End
Begin VB.CheckBox chkYAO
Caption = "药品名称"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 285
Index = 2
Left = 6270
TabIndex = 2
Top = 150
Width = 1695
End
Begin VB.CheckBox chkYAO
Caption = "科室代码"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 285
Index = 1
Left = 3525
TabIndex = 1
Top = 600
Width = 2145
End
Begin VB.Data Data1
Caption = "Data1"
Connect = " "
DatabaseName = " "
DefaultCursorType= 0 'DefaultCursor
DefaultType = 1 'UseODBC
Exclusive = 0 'False
Height = 285
Left = 1830
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3450
Visible = 0 'False
Width = 2505
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "患者使用药品查询.frx":10B3
Height = 4815
Left = 120
OleObjectBlob = "患者使用药品查询.frx":10C3
TabIndex = 0
Top = 1890
Width = 9255
End
Begin VB.TextBox Text4
BackColor = &H00C0E0FF&
ForeColor = &H000000C0&
Height = 315
Left = 1095
Locked = -1 'True
TabIndex = 6
Text = "Text4"
Top = 600
Width = 1080
End
Begin VB.CheckBox chkYAO
Caption = "时间"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 285
Index = 3
Left = 180
TabIndex = 10
Top = 600
Width = 945
End
Begin VB.CheckBox chkYAO
Caption = "住院号"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 285
Index = 0
Left = 1380
TabIndex = 9
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -