📄 各区段金额统计.frm
字号:
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 = 355
Text = "Text10"
Top = 6360
Visible = 0 'False
Width = 765
End
Begin VB.TextBox Text9
DataField = "站售全价"
DataSource = "Data5"
Height = 315
Index = 2
Left = 390
TabIndex = 354
Text = "Text9"
Top = 5760
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text9
DataField = "站售半价"
DataSource = "Data5"
Height = 315
Index = 1
Left = 540
TabIndex = 353
Text = "Text9"
Top = 5070
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text8
DataField = "票价收入"
DataSource = "Data4"
Height = 315
Index = 3
Left = 2550
TabIndex = 352
Text = "Text8"
Top = 4470
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text8
DataField = "车厢"
DataSource = "Data4"
Height = 315
Index = 2
Left = 2580
TabIndex = 351
Text = "Text8"
Top = 4020
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text7
DataField = "班组"
DataSource = "Data3"
Height = 375
Index = 3
Left = 600
TabIndex = 350
Text = "Text7"
Top = 4470
Visible = 0 'False
Width = 915
End
Begin VB.TextBox Text7
DataField = "车次"
DataSource = "Data3"
Height = 375
Index = 2
Left = 600
TabIndex = 349
Text = "Text7"
Top = 4020
Visible = 0 'False
Width = 915
End
Begin VB.TextBox Text7
DataField = "发车日期"
DataSource = "Data3"
Height = 375
Index = 1
Left = 570
TabIndex = 348
Text = "Text7"
Top = 3390
Visible = 0 'False
Width = 915
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00C0E0FF&
ForeColor = &H80000008&
Height = 10815
Left = 0
MouseIcon = "各区段金额统计.frx":0000
ScaleHeight = 190.236
ScaleMode = 6 'Millimeter
ScaleWidth = 296.598
TabIndex = 1
Top = 30
Width = 16845
Begin VB.TextBox Text3
DataField = "涨幅调整"
DataSource = "Data2"
Height = 315
Left = 7230
TabIndex = 377
Text = "Text3"
Top = 4920
Visible = 0 'False
Width = 1125
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 4560
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "涨幅调整"
Top = 4890
Visible = 0 'False
Width = 2175
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "Label9"
Height = 285
Left = 6930
TabIndex = 365
Top = 2550
Width = 1395
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "车 次"
Height = 255
Left = 9240
TabIndex = 364
Top = 1530
Width = 825
End
Begin VB.Line Line3
X1 = 179.388
X2 = 179.388
Y1 = 24.871
Y2 = 40.217
End
Begin VB.Label Label7
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label7"
Height = 225
Left = 10350
TabIndex = 363
Top = 1950
Width = 825
End
Begin VB.Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label6"
Height = 255
Left = 9180
TabIndex = 362
Top = 1950
Width = 825
End
Begin VB.Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label5"
Height = 255
Left = 7080
TabIndex = 361
Top = 1950
Width = 1635
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "车 厢"
Height = 225
Left = 10350
TabIndex = 360
Top = 1530
Width = 795
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "发 车 日 期"
Height = 255
Left = 7320
TabIndex = 359
Top = 1500
Width = 1185
End
Begin VB.Line Line2
X1 = 156.104
X2 = 156.104
Y1 = 24.871
Y2 = 40.217
End
Begin VB.Line Line1
X1 = 121.179
X2 = 199.496
Y1 = 32.279
Y2 = 32.279
End
Begin VB.Shape Shape1
Height = 885
Left = 6840
Top = 1410
Width = 4455
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 333
Left = 0
TabIndex = 340
Top = 150
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 332
Left = 0
TabIndex = 339
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 331
Left = 0
TabIndex = 338
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 330
Left = 0
TabIndex = 337
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 329
Left = 0
TabIndex = 336
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 328
Left = 0
TabIndex = 335
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 327
Left = 0
TabIndex = 334
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 326
Left = 0
TabIndex = 333
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 325
Left = 0
TabIndex = 332
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 324
Left = 0
TabIndex = 331
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 323
Left = 0
TabIndex = 330
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 322
Left = 0
TabIndex = 329
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 321
Left = 0
TabIndex = 328
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 320
Left = 0
TabIndex = 327
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 319
Left = 0
TabIndex = 326
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 318
Left = 0
TabIndex = 325
Top = 0
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -