📄 出院费用汇总查询.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmLeaveHospitalCollectQuery
BorderStyle = 1 'Fixed Single
Caption = "住院管理-出院患者费用汇总查询"
ClientHeight = 5730
ClientLeft = 645
ClientTop = 1140
ClientWidth = 7980
ControlBox = 0 'False
LinkTopic = "Form32"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5730
ScaleWidth = 7980
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Command3
Caption = "单项明细打印 &D"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2685
TabIndex = 49
Top = 5070
Width = 2250
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "出院费用汇总查询.frx":0000
Height = 4140
Left = 120
OleObjectBlob = "出院费用汇总查询.frx":0010
TabIndex = 48
Top = 660
Visible = 0 'False
Width = 7845
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 1 'ODBCCursor
DefaultType = 1 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 6945
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 900
Visible = 0 'False
Width = 2265
End
Begin VB.PictureBox Picture1
Height = 75
Index = 1
Left = -90
Picture = "出院费用汇总查询.frx":09D3
ScaleHeight = 15
ScaleWidth = 8100
TabIndex = 44
Top = 600
Width = 8160
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 = 1080
Locked = -1 'True
TabIndex = 43
Text = "Text1"
Top = 120
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 = 3735
Locked = -1 'True
TabIndex = 42
Text = "Text1"
Top = 120
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 = 21
Left = 6435
Locked = -1 'True
TabIndex = 41
Text = "Text1"
Top = 120
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 = 105
TabIndex = 40
Top = 5055
Width = 2250
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 = 0
Left = 1695
Locked = -1 'True
TabIndex = 20
Text = "Text1"
Top = 900
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 = 1
Left = 5190
Locked = -1 'True
TabIndex = 19
Text = "Text1"
Top = 900
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 = 2
Left = 1695
Locked = -1 'True
TabIndex = 18
Text = "Text1"
Top = 1554
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 = 3
Left = 5190
Locked = -1 'True
TabIndex = 17
Text = "Text1"
Top = 1554
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 = 4
Left = 1695
Locked = -1 'True
TabIndex = 16
Text = "Text1"
Top = 2208
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 = 5
Left = 5190
Locked = -1 'True
TabIndex = 15
Text = "Text1"
Top = 2208
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 = 6
Left = 1695
Locked = -1 'True
TabIndex = 14
Text = "Text1"
Top = 2862
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 = 5190
Locked = -1 'True
TabIndex = 13
Text = "Text1"
Top = 2862
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 = 1695
Locked = -1 'True
TabIndex = 12
Text = "Text1"
Top = 3516
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 = 9
Left = 5190
Locked = -1 'True
TabIndex = 11
Text = "Text1"
Top = 3516
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 = 10
Left = 1695
Locked = -1 'True
TabIndex = 10
Text = "Text1"
Top = 4170
Width = 1425
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -