📄 sk_tuicount.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form sk_tuicount
BorderStyle = 1 'Fixed Single
Caption = "铁东区妇幼保健院信息管理系统"
ClientHeight = 4290
ClientLeft = 45
ClientTop = 330
ClientWidth = 9600
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4290
ScaleWidth = 9600
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command2
Caption = "打 印"
Enabled = 0 'False
Height = 375
Left = 6480
TabIndex = 40
Top = 600
Width = 1059
End
Begin VB.CommandButton Command1
Caption = "显 示"
Default = -1 'True
Height = 375
Left = 5160
TabIndex = 0
Top = 600
Width = 1059
End
Begin MSComCtl2.DTPicker v_sj2
Height = 375
Left = 3360
TabIndex = 1
Top = 600
Width = 1455
_ExtentX = 2566
_ExtentY = 661
_Version = 393216
Format = 204865537
CurrentDate = 38025
End
Begin MSComCtl2.DTPicker v_sj1
Height = 375
Left = 1200
TabIndex = 2
Top = 600
Width = 1575
_ExtentX = 2778
_ExtentY = 661
_Version = 393216
Format = 204865537
CurrentDate = 38025
End
Begin VB.Label 化验
AutoSize = -1 'True
Height = 180
Left = 8640
TabIndex = 39
Top = 1920
Width = 90
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "心 电 图"
Height = 180
Left = 5520
TabIndex = 38
Top = 2640
Width = 720
End
Begin VB.Label Label26
AutoSize = -1 'True
Caption = "B 超"
Height = 180
Left = 4440
TabIndex = 37
Top = 2640
Width = 630
End
Begin VB.Label Label25
AutoSize = -1 'True
Caption = "照 像 费"
Height = 180
Left = 3360
TabIndex = 36
Top = 2640
Width = 720
End
Begin VB.Line Line17
BorderWidth = 2
X1 = 9480
X2 = 9480
Y1 = 1320
Y2 = 4080
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "化 验"
Height = 180
Left = 8760
TabIndex = 35
Top = 1440
Width = 540
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "儿 检"
Height = 180
Left = 7680
TabIndex = 34
Top = 1440
Width = 540
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "访 视"
Height = 180
Left = 6600
TabIndex = 33
Top = 1440
Width = 540
End
Begin VB.Line Line16
X1 = 6360
X2 = 6360
Y1 = 1320
Y2 = 3600
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "处 置"
Height = 180
Left = 5520
TabIndex = 32
Top = 1440
Width = 540
End
Begin VB.Line Line15
X1 = 5280
X2 = 5280
Y1 = 1320
Y2 = 3600
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "妇 科"
Height = 180
Left = 4440
TabIndex = 31
Top = 1440
Width = 540
End
Begin VB.Line Line14
X1 = 4200
X2 = 4200
Y1 = 1320
Y2 = 3600
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "妇 检"
Height = 180
Left = 3360
TabIndex = 30
Top = 1440
Width = 630
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "手 术 费"
Height = 180
Left = 2280
TabIndex = 29
Top = 2640
Width = 720
End
Begin VB.Line Line13
X1 = 3120
X2 = 3120
Y1 = 1320
Y2 = 3600
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "出 生 证"
Height = 180
Left = 2280
TabIndex = 28
Top = 1440
Width = 720
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "检 查 费"
Height = 180
Left = 1200
TabIndex = 27
Top = 2640
Width = 720
End
Begin VB.Line Line12
X1 = 2040
X2 = 2040
Y1 = 1320
Y2 = 4080
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "药 费"
Height = 180
Left = 1200
TabIndex = 26
Top = 1440
Width = 630
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "金 额"
Height = 180
Left = 240
TabIndex = 25
Top = 3240
Width = 630
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "￥："
Height = 180
Left = 7440
TabIndex = 24
Top = 3720
Width = 360
End
Begin VB.Line Line11
X1 = 7440
X2 = 7440
Y1 = 1320
Y2 = 3600
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "合计人民币（大写）"
Height = 180
Left = 240
TabIndex = 23
Top = 3720
Width = 1620
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "金 额"
Height = 180
Left = 240
TabIndex = 22
Top = 2040
Width = 630
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "收费项目"
Height = 180
Left = 240
TabIndex = 21
Top = 2640
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "收费项目"
Height = 180
Left = 240
TabIndex = 20
Top = 1440
Width = 720
End
Begin VB.Line Line10
X1 = 1080
X2 = 1080
Y1 = 1320
Y2 = 3600
End
Begin VB.Line Line9
X1 = 8520
X2 = 8520
Y1 = 1320
Y2 = 3600
End
Begin VB.Line Line8
BorderWidth = 2
X1 = 120
X2 = 9480
Y1 = 4080
Y2 = 4080
End
Begin VB.Line Line7
X1 = 120
X2 = 9480
Y1 = 3600
Y2 = 3600
End
Begin VB.Line Line6
X1 = 120
X2 = 9480
Y1 = 3000
Y2 = 3000
End
Begin VB.Line Line5
X1 = 120
X2 = 9480
Y1 = 2400
Y2 = 2400
End
Begin VB.Line Line4
BorderWidth = 2
X1 = 120
X2 = 120
Y1 = 1320
Y2 = 4080
End
Begin VB.Line Line3
X1 = 120
X2 = 9480
Y1 = 1800
Y2 = 1800
End
Begin VB.Line Line2
BorderWidth = 2
X1 = 120
X2 = 9480
Y1 = 1320
Y2 = 1320
End
Begin VB.Label 药费
AutoSize = -1 'True
Height = 180
Left = 1200
TabIndex = 19
Top = 2040
Width = 90
End
Begin VB.Label 出生证
AutoSize = -1 'True
Height = 180
Left = 2160
TabIndex = 18
Top = 2040
Width = 90
End
Begin VB.Label 妇检
AutoSize = -1 'True
Height = 180
Left = 3360
TabIndex = 17
Top = 2040
Width = 90
End
Begin VB.Label 妇科
AutoSize = -1 'True
Height = 180
Left = 4320
TabIndex = 16
Top = 2040
Width = 90
End
Begin VB.Label 处置
AutoSize = -1 'True
Height = 180
Left = 5400
TabIndex = 15
Top = 1920
Width = 90
End
Begin VB.Label 访视
AutoSize = -1 'True
Height = 180
Left = 6480
TabIndex = 14
Top = 1920
Width = 90
End
Begin VB.Label 儿检
AutoSize = -1 'True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -