?? 單面查詢.frm
字號:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmSingle
BackColor = &H00C0C000&
ClientHeight = 8385
ClientLeft = -135
ClientTop = 1845
ClientWidth = 11925
ControlBox = 0 'False
FillColor = &H8000000B&
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 8385
ScaleWidth = 11925
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 10000
Left = 4680
Top = 5115
End
Begin VB.PictureBox Picture1
Height = 8745
Left = 6720
Picture = "單面查詢.frx":0000
ScaleHeight = 8685
ScaleWidth = 11985
TabIndex = 76
Top = 3525
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 = 80
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 = 79
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 = 78
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 = -8700
TabIndex = 77
Top = 225
Width = 11370
End
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "單面查詢.frx":33464
Height = 5370
Left = 135
OleObjectBlob = "單面查詢.frx":33474
TabIndex = 75
Top = 3150
Width = 11715
End
Begin VB.Timer Timer1
Interval = 700
Left = 3900
Top = 3810
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 420
Left = 4050
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 5415
Width = 3120
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Caption = "120車費"
BeginProperty Font
Name = "隸書"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C000&
Height = 345
Index = 18
Left = 6345
TabIndex = 82
Top = 2565
Width = 975
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
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 = &H00C000C0&
Height = 345
Index = 18
Left = 7335
TabIndex = 81
Top = 2565
Width = 1575
End
Begin VB.Label Label5
BackColor = &H80000010&
Caption = "Label5"
Height = 345
Index = 18
Left = 7425
TabIndex = 84
Top = 2640
Width = 1575
End
Begin VB.Label Label4
BackColor = &H80000010&
Caption = "Label4"
Height = 345
Index = 18
Left = 6420
TabIndex = 83
Top = 2640
Width = 975
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&
Height = 345
Index = 4
Left = 6345
TabIndex = 63
Top = 2100
Width = 975
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 = 4215
TabIndex = 34
Top = 2430
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&
Height = 435
Index = 17
Left = 3240
TabIndex = 33
Top = 2430
Width = 960
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 = 16
Left = 4215
TabIndex = 32
Top = 1755
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&
Height = 435
Index = 16
Left = 3240
TabIndex = 31
Top = 1755
Width = 960
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = " "
BeginProperty Font
Name = "隸書"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 435
Index = 15
Left = 4215
TabIndex = 30
Top = 1080
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&
Height = 435
Index = 15
Left = 3240
TabIndex = 29
Top = 1080
Width = 960
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 = 13
Left = 1365
TabIndex = 26
Top = 2430
Width = 1455
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -