📄 frmsum.frm
字号:
Index = 9
Left = 2400
TabIndex = 10
Top = 960
Width = 800
End
Begin VB.TextBox Text17
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Index = 8
Left = 720
TabIndex = 9
Top = 960
Width = 800
End
Begin VB.TextBox Text17
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Index = 7
Left = 5760
TabIndex = 8
Top = 600
Width = 800
End
Begin VB.TextBox Text17
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Index = 6
Left = 4080
TabIndex = 7
Top = 600
Width = 800
End
Begin VB.TextBox Text17
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Index = 5
Left = 2400
TabIndex = 6
Top = 600
Width = 800
End
Begin VB.TextBox Text17
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Index = 4
Left = 5760
TabIndex = 4
Top = 240
Width = 800
End
Begin VB.TextBox Text17
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Index = 3
Left = 4080
TabIndex = 3
Top = 240
Width = 800
End
Begin VB.TextBox Text17
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Index = 2
Left = 2400
TabIndex = 2
Top = 240
Width = 800
End
Begin VB.TextBox Text17
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Index = 1
Left = 720
TabIndex = 5
Top = 600
Width = 800
End
Begin VB.TextBox Text42
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 2100
Left = 6720
MultiLine = -1 'True
TabIndex = 28
Top = 600
Width = 1600
End
Begin VB.TextBox Text17
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Index = 0
Left = 720
TabIndex = 1
Top = 240
Width = 800
End
Begin VB.Label Label49
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "其它费"
Height = 180
Left = 3435
TabIndex = 97
Top = 2450
Width = 540
End
Begin VB.Label Label48
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "检查费"
Height = 180
Left = 1750
TabIndex = 96
Top = 2450
Width = 540
End
Begin VB.Label Label47
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ＣＴ费"
Height = 180
Left = 120
TabIndex = 95
Top = 2450
Width = 540
End
Begin VB.Label Label46
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "费用登记备忘"
ForeColor = &H000000FF&
Height = 180
Left = 6975
TabIndex = 94
Top = 300
Width = 1080
End
Begin VB.Label Label20
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "床位费"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 57
Top = 285
Width = 540
End
Begin VB.Label Label21
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "Ｂ超费"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 56
Top = 1395
Width = 540
End
Begin VB.Label Label22
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "治疗费"
ForeColor = &H00000000&
Height = 180
Left = 3430
TabIndex = 55
Top = 285
Width = 540
End
Begin VB.Label Label23
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "诊疗费"
ForeColor = &H00000000&
Height = 180
Left = 5120
TabIndex = 54
Top = 285
Width = 540
End
Begin VB.Label Label24
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "放射费"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 53
Top = 660
Width = 540
End
Begin VB.Label Label25
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "五 防"
ForeColor = &H00000000&
Height = 180
Left = 1755
TabIndex = 52
Top = 660
Width = 540
End
Begin VB.Label Label26
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "护理费"
ForeColor = &H00000000&
Height = 180
Left = 3430
TabIndex = 51
Top = 660
Width = 540
End
Begin VB.Label Label27
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "化验费"
ForeColor = &H00000000&
Height = 180
Left = 5120
TabIndex = 50
Top = 660
Width = 540
End
Begin VB.Label Label28
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "心电费"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 49
Top = 1020
Width = 540
End
Begin VB.Label Label29
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "脑电费"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 48
Top = 2115
Width = 540
End
Begin VB.Label Label30
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "胃镜费"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 47
Top = 1755
Width = 540
End
Begin VB.Label Label31
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "输血费"
ForeColor = &H00000000&
Height = 180
Left = 5120
TabIndex = 46
Top = 1035
Width = 540
End
Begin VB.Label Label32
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "输氧费"
ForeColor = &H00000000&
Height = 180
Left = 3430
TabIndex = 45
Top = 1035
Width = 540
End
Begin VB.Label Label33
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "生活费"
ForeColor = &H00000000&
Height = 180
Left = 1755
TabIndex = 44
Top = 1395
Width = 540
End
Begin VB.Label Label34
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "保护费"
ForeColor = &H00000000&
Height = 180
Left = 3430
TabIndex = 43
Top = 1395
Width = 540
End
Begin VB.Label Label35
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "取暖费"
ForeColor = &H00000000&
Height = 180
Left = 5120
TabIndex = 42
Top = 1395
Width = 540
End
Begin VB.Label Label36
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "西药费"
ForeColor = &H00000000&
Height = 180
Left = 1750
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -