📄 费用汇总查询.frm
字号:
VERSION 5.00
Begin VB.Form frmPatientCollectQuery
BorderStyle = 1 'Fixed Single
Caption = "住院管理-患者费用汇总查询"
ClientHeight = 5820
ClientLeft = 435
ClientTop = 750
ClientWidth = 8040
ControlBox = 0 'False
LinkTopic = "Form30"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5820
ScaleWidth = 8040
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 6
Left = 1815
Locked = -1 'True
TabIndex = 44
Text = "Text1"
Top = 2964
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 7
Left = 5760
Locked = -1 'True
TabIndex = 43
Text = "Text1"
Top = 2964
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 8
Left = 1815
Locked = -1 'True
TabIndex = 42
Text = "Text1"
Top = 3657
Width = 1425
End
Begin VB.CommandButton Command2
Caption = "费用汇总打印 &P"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 915
TabIndex = 41
Top = 5130
Width = 2475
End
Begin VB.TextBox Text1
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 21
Left = 6555
Locked = -1 'True
TabIndex = 40
Text = "Text1"
Top = 105
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 20
Left = 3810
Locked = -1 'True
TabIndex = 39
Text = "Text1"
Top = 105
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 19
Left = 990
Locked = -1 'True
TabIndex = 38
Text = "Text1"
Top = 105
Width = 1425
End
Begin VB.PictureBox Picture1
Height = 75
Index = 1
Left = -90
Picture = "费用汇总查询.frx":0000
ScaleHeight = 15
ScaleWidth = 8100
TabIndex = 34
Top = 585
Width = 8160
End
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "返回患者查询 &F"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4425
TabIndex = 33
Top = 5130
Width = 2475
End
Begin VB.PictureBox Picture1
Height = 75
Index = 0
Left = -90
Picture = "费用汇总查询.frx":108C
ScaleHeight = 15
ScaleWidth = 8100
TabIndex = 32
Top = 4950
Width = 8160
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 18
Left = 4740
Locked = -1 'True
TabIndex = 31
Text = "Text1"
Top = 7635
Visible = 0 'False
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 17
Left = 10500
Locked = -1 'True
TabIndex = 30
Text = "Text1"
Top = 7095
Visible = 0 'False
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 16
Left = 7635
Locked = -1 'True
TabIndex = 29
Text = "Text1"
Top = 7080
Visible = 0 'False
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 15
Left = 4755
Locked = -1 'True
TabIndex = 28
Text = "Text1"
Top = 7080
Visible = 0 'False
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 14
Left = 10500
Locked = -1 'True
TabIndex = 27
Text = "Text1"
Top = 6495
Visible = 0 'False
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 13
Left = 7635
Locked = -1 'True
TabIndex = 26
Text = "Text1"
Top = 6480
Visible = 0 'False
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 360
Index = 12
Left = 4755
Locked = -1 'True
TabIndex = 25
Text = "Text1"
Top = 6480
Visible = 0 'False
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -