📄 单面查询1.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmSingle
BackColor = &H00C0C000&
ClientHeight = 8385
ClientLeft = -1530
ClientTop = 390
ClientWidth = 11925
ControlBox = 0 'False
FillColor = &H8000000B&
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 8385
ScaleWidth = 11925
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 10000
Left = 6720
Top = 6765
End
Begin VB.PictureBox Picture1
Height = 8745
Left = 9540
Picture = "单面查询1.frx":0000
ScaleHeight = 8685
ScaleWidth = 11985
TabIndex = 63
Top = 5115
Width = 12045
Begin VB.Timer Timer3
Interval = 100
Left = 3585
Top = 3765
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "请将磁卡背朝自己,从槽中平稳划过,听到'嘟'的一声即可。"
BeginProperty Font
Name = "隶书"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 615
Left = 9900
TabIndex = 67
Top = 225
Width = 11490
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = ",听到'嘟'的一声即可。"
BeginProperty Font
Name = "隶书"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 705
Left = 21255
TabIndex = 66
Top = 225
Width = 7635
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = ",听到'嘟'的一声即可。"
BeginProperty Font
Name = "隶书"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 705
Left = 2685
TabIndex = 65
Top = 225
Width = 7605
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "请将磁卡背朝自己,从槽中平稳划过,听到'嘟'的一声即可。"
BeginProperty Font
Name = "隶书"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 615
Left = -8565
TabIndex = 64
Top = 240
Width = 11370
End
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "单面查询1.frx":33464
Height = 5520
Left = 225
OleObjectBlob = "单面查询1.frx":33474
TabIndex = 62
Top = 3000
Width = 11490
End
Begin VB.Timer Timer1
Interval = 700
Left = 3705
Top = 7530
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 420
Left = 6450
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 6765
Width = 3120
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
Caption = "0.00"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 450
Index = 19
Left = 6870
TabIndex = 83
Top = 2325
Width = 1605
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
Caption = "化验费"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 450
Index = 19
Left = 5880
TabIndex = 82
Top = 2325
Width = 1005
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
Caption = "0.00"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 450
Index = 0
Left = 4290
TabIndex = 76
Top = 150
Width = 1605
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
Caption = "0.00"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 450
Index = 1
Left = 4290
TabIndex = 75
Top = 585
Width = 1605
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
Caption = "0.00"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 450
Index = 2
Left = 4290
TabIndex = 74
Top = 1020
Width = 1605
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
Caption = "0.00"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 450
Index = 3
Left = 4290
TabIndex = 73
Top = 1455
Width = 1605
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
Caption = "0.00"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 450
Index = 4
Left = 4290
TabIndex = 72
Top = 1890
Width = 1605
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
Caption = "0.00"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 450
Index = 18
Left = 4290
TabIndex = 70
Top = 2325
Width = 1605
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
Caption = "120费"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 450
Index = 18
Left = 3300
TabIndex = 68
Top = 2325
Width = 1005
End
Begin VB.Label Label4
BackColor = &H00FFFFC0&
Caption = "Label4"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Index = 18
Left = 3300
TabIndex = 69
Top = 2355
Width = 1005
End
Begin VB.Label Label1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
Caption = "手术费"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 450
Index = 4
Left = 3300
TabIndex = 50
Top = 1890
Width = 1005
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 435
Index = 17
Left = 9885
TabIndex = 29
Top = 2265
Width = 1710
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Caption = "余 额"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C000&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -