📄 双向金额统计.frm
字号:
VERSION 5.00
Begin VB.Form 双向金额统计
BorderStyle = 1 'Fixed Single
Caption = "客票统计"
ClientHeight = 8715
ClientLeft = 45
ClientTop = 330
ClientWidth = 11850
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 581
ScaleMode = 0 'User
ScaleWidth = 796.031
Begin VB.Data Data4
Caption = "Data4"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 8190
Visible = 0 'False
Width = 1155
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 405
Left = 930
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "日期车次"
Top = 7080
Visible = 0 'False
Width = 2955
End
Begin VB.TextBox Text2
DataField = "车售全价"
DataSource = "Data1"
Height = 315
Left = 840
TabIndex = 337
Text = "Text2"
Top = 6360
Visible = 0 'False
Width = 1005
End
Begin VB.TextBox Text1
DataField = "站售全价"
DataSource = "Data1"
Height = 315
Left = 360
TabIndex = 336
Text = "Text1"
Top = 8100
Visible = 0 'False
Width = 1005
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 1170
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1710
Visible = 0 'False
Width = 2310
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 8265
Left = 330
ScaleHeight = 145.786
ScaleMode = 6 'Millimeter
ScaleWidth = 188.119
TabIndex = 0
Top = 60
Width = 10665
Begin VB.TextBox Text10
DataField = "车售半价"
DataSource = "Data6"
Height = 315
Index = 4
Left = 4920
TabIndex = 359
Text = "Text10"
Top = 6360
Visible = 0 'False
Width = 765
End
Begin VB.TextBox Text10
DataField = "车售全价"
DataSource = "Data6"
Height = 315
Index = 3
Left = 3990
TabIndex = 358
Text = "Text10"
Top = 6360
Visible = 0 'False
Width = 765
End
Begin VB.TextBox Text10
DataField = "站售全价"
DataSource = "Data6"
Height = 315
Index = 1
Left = 2250
TabIndex = 357
Text = "Text10"
Top = 6330
Visible = 0 'False
Width = 765
End
Begin VB.TextBox Text8
DataField = "外局收入"
DataSource = "Data4"
Height = 315
Index = 5
Left = 2760
TabIndex = 356
Text = "Text8"
Top = 5400
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text8
DataField = "车补收入"
DataSource = "Data4"
Height = 315
Index = 4
Left = 2640
TabIndex = 355
Text = "Text8"
Top = 4920
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text12
DataField = "铺位"
DataSource = "Data7"
Height = 345
Index = 6
Left = 8550
TabIndex = 354
Text = "Text12"
Top = 3900
Visible = 0 'False
Width = 1305
End
Begin VB.TextBox Text12
DataField = "发车日期"
DataSource = "Data7"
Height = 345
Index = 1
Left = 4770
TabIndex = 353
Text = "Text12"
Top = 3300
Visible = 0 'False
Width = 1305
End
Begin VB.TextBox Text12
DataField = "票类"
DataSource = "Data7"
Height = 345
Index = 5
Left = 7170
TabIndex = 352
Text = "Text12"
Top = 3900
Visible = 0 'False
Width = 1305
End
Begin VB.TextBox Text12
DataField = "到站"
DataSource = "Data7"
Height = 345
Index = 4
Left = 5850
TabIndex = 351
Text = "Text12"
Top = 3870
Visible = 0 'False
Width = 1305
End
Begin VB.TextBox Text12
DataField = "始发"
DataSource = "Data7"
Height = 345
Index = 3
Left = 4560
TabIndex = 350
Text = "Text12"
Top = 3870
Visible = 0 'False
Width = 1305
End
Begin VB.TextBox Text12
DataField = "车厢"
DataSource = "Data7"
Height = 345
Index = 2
Left = 6420
TabIndex = 349
Text = "Text12"
Top = 3330
Visible = 0 'False
Width = 1305
End
Begin VB.TextBox Text8
DataField = "班组"
DataSource = "Data4"
Height = 315
Index = 0
Left = 2580
TabIndex = 348
Text = "Text8"
Top = 3030
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text8
DataField = "发车日期"
DataSource = "Data4"
Height = 315
Index = 1
Left = 2610
TabIndex = 347
Text = "Text8"
Top = 3510
Visible = 0 'False
Width = 705
End
Begin VB.Data Data5
Caption = "Data5"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 660
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2070
Visible = 0 'False
Width = 2955
End
Begin VB.Data Data6
Caption = "Data6"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 660
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 450
Visible = 0 'False
Width = 2145
End
Begin VB.TextBox Text11
DataField = "日期"
DataSource = "Data7"
Height = 345
Left = 750
TabIndex = 346
Text = "Text11"
Top = 2370
Visible = 0 'False
Width = 1305
End
Begin VB.Data Data7
Caption = "Data7"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 630
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 900
Visible = 0 'False
Width = 1845
End
Begin VB.TextBox Text10
DataField = "站售半价"
DataSource = "Data6"
Height = 315
Index = 2
Left = 3120
TabIndex = 345
Text = "Text10"
Top = 6360
Visible = 0 'False
Width = 765
End
Begin VB.TextBox Text9
DataField = "站售全价"
DataSource = "Data5"
Height = 315
Index = 2
Left = 390
TabIndex = 344
Text = "Text9"
Top = 5760
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text9
DataField = "站售半价"
DataSource = "Data5"
Height = 315
Index = 1
Left = 540
TabIndex = 343
Text = "Text9"
Top = 5070
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text8
DataField = "票价收入"
DataSource = "Data4"
Height = 315
Index = 3
Left = 2550
TabIndex = 342
Text = "Text8"
Top = 4470
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text8
DataField = "车厢"
DataSource = "Data4"
Height = 315
Index = 2
Left = 2580
TabIndex = 341
Text = "Text8"
Top = 4020
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text7
DataField = "班组"
DataSource = "Data3"
Height = 375
Index = 3
Left = 600
TabIndex = 340
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -