📄 frmquerybook.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "crystl32.ocx"
Begin VB.Form frmquerybook
Caption = "查询今年报表"
ClientHeight = 7470
ClientLeft = 60
ClientTop = 345
ClientWidth = 11730
Icon = "frmquerybook.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
Picture = "frmquerybook.frx":0442
ScaleHeight = 7470
ScaleWidth = 11730
WindowState = 2 'Maximized
Begin Crystal.CrystalReport CrystalReport1
Left = 480
Top = 2580
_ExtentX = 741
_ExtentY = 741
_Version = 348160
PrintFileLinesPerPage= 60
End
Begin VB.PictureBox Picture1
BackColor = &H00C0E0FF&
Height = 6525
Index = 0
Left = 1470
ScaleHeight = 6465
ScaleWidth = 8175
TabIndex = 0
Top = 300
Width = 8235
Begin VB.Frame Frame1
BackColor = &H00C0E0FF&
Height = 585
Left = 240
TabIndex = 51
Top = 30
Width = 7725
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "退出"
Height = 375
Left = 6480
TabIndex = 56
Top = 150
Width = 915
End
Begin VB.CommandButton Command1
Caption = "查询"
Default = -1 'True
Height = 375
Left = 3360
TabIndex = 55
Top = 150
Width = 915
End
Begin VB.ComboBox Combo1
BackColor = &H80000018&
Height = 300
Left = 210
TabIndex = 54
Top = 180
Width = 1365
End
Begin VB.ComboBox Combo2
BackColor = &H80000018&
Height = 300
Left = 1740
TabIndex = 53
Top = 180
Visible = 0 'False
Width = 1275
End
Begin VB.CommandButton Command3
Caption = "打印"
Height = 375
Left = 5430
TabIndex = 52
Top = 150
Width = 945
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 315
Left = 1740
TabIndex = 57
Top = 180
Visible = 0 'False
Width = 1305
_ExtentX = 2302
_ExtentY = 556
_Version = 393216
CalendarBackColor= -2147483624
CalendarTitleBackColor= -2147483624
Format = 55246849
CurrentDate = 37803
MaxDate = 46022
MinDate = 36526
End
End
Begin VB.PictureBox Picture1
BackColor = &H00C0E0FF&
Height = 5655
Index = 1
Left = 240
ScaleHeight = 5595
ScaleWidth = 7665
TabIndex = 1
Top = 660
Width = 7725
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2070
TabIndex = 58
Top = 390
Width = 240
End
Begin VB.Shape Shape1
Height = 4425
Left = 120
Top = 1110
Width = 7485
End
Begin VB.Shape Shape2
Height = 405
Left = 120
Top = 1110
Width = 4245
End
Begin VB.Line Line1
X1 = 210
X2 = 7620
Y1 = 1110
Y2 = 1110
End
Begin VB.Line Line2
X1 = 4350
X2 = 4350
Y1 = 1140
Y2 = 5520
End
Begin VB.Line Line3
X1 = 2160
X2 = 2160
Y1 = 1530
Y2 = 5520
End
Begin VB.Line Line4
X1 = 1110
X2 = 1110
Y1 = 1530
Y2 = 5520
End
Begin VB.Line Line5
X1 = 3210
X2 = 3210
Y1 = 1530
Y2 = 5520
End
Begin VB.Line Line6
X1 = 6450
X2 = 6450
Y1 = 1140
Y2 = 1860
End
Begin VB.Line Line7
X1 = 5430
X2 = 5430
Y1 = 1140
Y2 = 1890
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "今日医药费总额："
Height = 180
Index = 0
Left = 600
TabIndex = 50
Top = 1260
Width = 1440
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "处 方 量"
Height = 180
Index = 5
Left = 4530
TabIndex = 49
Top = 1260
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "挂 号 费"
Height = 180
Index = 6
Left = 5580
TabIndex = 48
Top = 1290
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "上交自负金额"
Height = 405
Index = 7
Left = 6720
TabIndex = 47
Top = 1140
Width = 600
WordWrap = -1 'True
End
Begin VB.Line Line8
X1 = 4380
X2 = 7590
Y1 = 1500
Y2 = 1500
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "医 生"
Height = 180
Index = 8
Left = 330
TabIndex = 46
Top = 1650
Width = 540
End
Begin VB.Line Line9
X1 = 180
X2 = 7590
Y1 = 1890
Y2 = 1890
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "处 方 量"
Height = 180
Index = 9
Left = 1260
TabIndex = 45
Top = 1650
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "药 费 额"
Height = 180
Index = 10
Left = 2340
TabIndex = 44
Top = 1620
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "处方单价"
Height = 180
Index = 11
Left = 3390
TabIndex = 43
Top = 1650
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "其 它"
Height = 180
Index = 12
Left = 5400
TabIndex = 42
Top = 2040
Width = 1080
End
Begin VB.Line Line10
X1 = 180
X2 = 7590
Y1 = 2280
Y2 = 2280
End
Begin VB.Line Line11
X1 = 150
X2 = 7590
Y1 = 2670
Y2 = 2670
End
Begin VB.Line Line12
X1 = 180
X2 = 7590
Y1 = 3090
Y2 = 3090
End
Begin VB.Line Line13
X1 = 180
X2 = 7620
Y1 = 3480
Y2 = 3480
End
Begin VB.Line Line14
X1 = 180
X2 = 7590
Y1 = 3870
Y2 = 3870
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -