?? 查詢內容.frm
字號:
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 11
Left = 7380
TabIndex = 47
Top = 3870
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "嬰兒費"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 12
Left = 1650
TabIndex = 46
Top = 4470
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "放療費"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 13
Left = 4365
TabIndex = 45
Top = 4515
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "理療費"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 14
Left = 7380
TabIndex = 44
Top = 4470
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "鏡檢費"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 15
Left = 1650
TabIndex = 43
Top = 5070
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "病理費"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 16
Left = 4365
TabIndex = 42
Top = 5115
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "電診費"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 17
Left = 7380
TabIndex = 41
Top = 5070
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "其 它"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 18
Left = 1635
TabIndex = 40
Top = 5625
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "預交金"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 19
Left = 1725
TabIndex = 39
Top = 1380
Width = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "使用費用"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 20
Left = 4395
TabIndex = 38
Top = 1395
Width = 1215
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "剩余費用"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Index = 21
Left = 7155
TabIndex = 37
Top = 1395
Width = 1260
End
End
Begin VB.PictureBox picYJJ
Height = 8580
Left = 6330
ScaleHeight = 8520
ScaleWidth = 11850
TabIndex = 1
Top = 1230
Visible = 0 'False
Width = 11910
Begin MSDBGrid.DBGrid gridYJJ
Bindings = "查詢內容.frx":5A015
Height = 5055
Left = -30
OleObjectBlob = "查詢內容.frx":5A025
TabIndex = 8
Top = 1110
Width = 11865
End
Begin VB.TextBox yjjtext
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 405
Left = 2535
TabIndex = 4
Top = 6345
Width = 1665
End
Begin VB.TextBox Text2
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 405
Left = 5325
TabIndex = 3
Top = 6345
Width = 1620
End
Begin VB.TextBox Text3
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 405
Left = 8160
TabIndex = 2
Top = 6345
Width = 1680
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "odbc;uid=zwj;pwd=qqq;database=net207"
DatabaseName = "207his"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 1 'UseODBC
Exclusive = 0 'False
Height = 435
Left = 1530
Options = 0
ReadOnly = 0 'False
RecordsetType = 2 'Snapshot
RecordSource = ""
Top = 555
Visible = 0 'False
Width = 2505
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "現 金"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 1
Left = 1605
TabIndex = 7
Top = 6420
Width = 1335
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "支 票"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 2
Left = 4455
TabIndex = 6
Top = 6420
Width = 1335
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "總合計"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 3
Left = 7170
TabIndex = 5
Top = 6420
Width = 1335
End
End
Begin VB.PictureBox picYP
Height
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -