📄 sk_print04.frm
字号:
VERSION 5.00
Begin VB.Form sk_print04
BorderStyle = 1 'Fixed Single
Caption = "齐英天肛肠医院综合信息管理系统"
ClientHeight = 5100
ClientLeft = 45
ClientTop = 330
ClientWidth = 9675
Icon = "sk_print04.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5100
ScaleWidth = 9675
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "关 闭"
Height = 375
Left = 7800
TabIndex = 56
Top = 840
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "姓名"
Height = 255
Left = 1440
TabIndex = 2
Top = 960
Width = 855
End
Begin VB.OptionButton Option2
Caption = "卡号"
Height = 255
Left = 600
TabIndex = 4
Top = 960
Value = -1 'True
Width = 1335
End
Begin VB.CommandButton Command6
Caption = "查 询"
Default = -1 'True
Height = 375
Left = 4680
TabIndex = 3
Top = 840
Width = 1095
End
Begin VB.TextBox s_ma
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 375
Left = 2280
TabIndex = 0
Top = 840
Width = 2175
End
Begin VB.CommandButton Command2
Caption = "打 印"
Enabled = 0 'False
Height = 375
Left = 6240
TabIndex = 1
Top = 840
Width = 1095
End
Begin VB.Label 操作员
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 7920
TabIndex = 55
Top = 4440
Width = 90
End
Begin VB.Label 金额
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 8040
TabIndex = 54
Top = 3960
Width = 90
End
Begin VB.Label 大写
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 2520
TabIndex = 53
Top = 3960
Width = 90
End
Begin VB.Label tijianfei1
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 5760
TabIndex = 52
Top = 3480
Width = 90
End
Begin VB.Label chaungfei
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 4560
TabIndex = 51
Top = 3480
Width = 90
End
Begin VB.Label shoushu1
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 3600
TabIndex = 50
Top = 3480
Width = 90
End
Begin VB.Label chuzhi1
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 2520
TabIndex = 49
Top = 3480
Width = 90
End
Begin VB.Label zaotoufei1
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 7920
TabIndex = 48
Top = 2280
Width = 90
End
Begin VB.Label huayanfei1
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 6720
TabIndex = 47
Top = 2280
Width = 90
End
Begin VB.Label dianzhenfei
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 5760
TabIndex = 46
Top = 2280
Width = 90
End
Begin VB.Label zhongcao
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 3600
TabIndex = 45
Top = 2280
Width = 90
End
Begin VB.Label zhongcheng
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 2400
TabIndex = 44
Top = 2280
Width = 90
End
Begin VB.Label xiyao
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 1440
TabIndex = 43
Top = 2280
Width = 90
End
Begin VB.Label 姓名
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "00"
Height = 180
Left = 840
TabIndex = 42
Top = 1320
Visible = 0 'False
Width = 180
End
Begin VB.Label 时间
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "Label1"
Height = 180
Left = 2040
TabIndex = 41
Top = 1320
Visible = 0 'False
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "Label1"
Height = 180
Left = 5160
TabIndex = 40
Top = 3960
Visible = 0 'False
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 4680
TabIndex = 39
Top = 2280
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 1440
TabIndex = 38
Top = 3480
Width = 90
End
Begin VB.Label 化验
AutoSize = -1 'True
Height = 180
Left = 8880
TabIndex = 37
Top = 2160
Width = 90
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "体检费"
Height = 180
Left = 5760
TabIndex = 36
Top = 2880
Width = 540
End
Begin VB.Label Label26
AutoSize = -1 'True
Caption = "床费"
Height = 180
Left = 4680
TabIndex = 35
Top = 2880
Width = 360
End
Begin VB.Label Label25
AutoSize = -1 'True
Caption = "手术费"
Height = 180
Left = 3600
TabIndex = 34
Top = 2880
Width = 540
End
Begin VB.Line Line17
BorderWidth = 2
X1 = 8880
X2 = 8880
Y1 = 1560
Y2 = 4320
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "照透费"
Height = 180
Left = 7920
TabIndex = 33
Top = 1680
Width = 540
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "化验费"
Height = 180
Left = 6840
TabIndex = 32
Top = 1680
Width = 540
End
Begin VB.Line Line16
X1 = 6600
X2 = 6600
Y1 = 1560
Y2 = 3840
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "电诊费"
Height = 180
Left = 5760
TabIndex = 31
Top = 1680
Width = 540
End
Begin VB.Line Line15
X1 = 5520
X2 = 5520
Y1 = 1560
Y2 = 3840
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "检查费"
Height = 180
Left = 4680
TabIndex = 30
Top = 1680
Width = 540
End
Begin VB.Line Line14
X1 = 4440
X2 = 4440
Y1 = 1560
Y2 = 3840
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "中草药"
Height = 180
Left = 3600
TabIndex = 29
Top = 1680
Width = 540
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "处置费"
Height = 180
Left = 2520
TabIndex = 28
Top = 2880
Width = 540
End
Begin VB.Line Line13
X1 = 3360
X2 = 3360
Y1 = 1560
Y2 = 3840
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "中成药"
Height = 180
Left = 2520
TabIndex = 27
Top = 1680
Width = 540
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "治疗费"
Height = 180
Left = 1440
TabIndex = 26
Top = 2880
Width = 540
End
Begin VB.Line Line12
X1 = 2280
X2 = 2280
Y1 = 1560
Y2 = 4320
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "西药费"
Height = 180
Left = 1440
TabIndex = 25
Top = 1680
Width = 540
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "金 额"
Height = 180
Left = 480
TabIndex = 24
Top = 3480
Width = 630
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "￥："
Height = 180
Left = 7680
TabIndex = 23
Top = 3960
Width = 360
End
Begin VB.Line Line11
X1 = 7680
X2 = 7680
Y1 = 1560
Y2 = 3840
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "合计人民币（大写）"
Height = 180
Left = 480
TabIndex = 22
Top = 3960
Width = 1620
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "金 额"
Height = 180
Left = 480
TabIndex = 21
Top = 2280
Width = 630
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "收费项目"
Height = 180
Left = 480
TabIndex = 20
Top = 2880
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "收费项目"
Height = 180
Left = 480
TabIndex = 19
Top = 1680
Width = 720
End
Begin VB.Line Line10
X1 = 1320
X2 = 1320
Y1 = 1560
Y2 = 3840
End
Begin VB.Line Line8
BorderWidth = 2
X1 = 360
X2 = 8880
Y1 = 4320
Y2 = 4320
End
Begin VB.Line Line7
X1 = 360
X2 = 8880
Y1 = 3840
Y2 = 3840
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -