📄 双向人数统计.frm
字号:
VERSION 5.00
Begin VB.Form 双向人数统计
AutoRedraw = -1 'True
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 Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "D:\程序\第六章\班组统计.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 3660
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "B2"
Top = 4380
Visible = 0 'False
Width = 2445
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 615
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "日期车次"
Top = 7335
Visible = 0 'False
Width = 1770
End
Begin VB.CommandButton Command7
Caption = "全列打印"
Height = 285
Left = 2550
TabIndex = 1275
Top = 8220
Width = 1185
End
Begin VB.CommandButton Command6
Caption = "全列乘车人数统计"
Height = 285
Left = 5400
TabIndex = 1274
Top = 8220
Width = 1725
End
Begin VB.CommandButton Command5
Caption = "上一车厢"
Height = 285
Left = 7140
TabIndex = 358
Top = 8220
Width = 1185
End
Begin VB.CommandButton Command4
Caption = "下一车厢"
Height = 285
Left = 8310
TabIndex = 357
Top = 8220
Width = 1305
End
Begin VB.CommandButton Command3
Caption = "各区段金额统计"
Height = 285
Left = 3720
TabIndex = 356
Top = 8220
Width = 1665
End
Begin VB.CommandButton Command2
Caption = "返 回"
Height = 285
Left = 9617
MousePointer = 1 'Arrow
TabIndex = 5
Top = 8220
Width = 945
End
Begin VB.CommandButton Command1
Caption = "单车打印"
Height = 285
Left = 1350
MousePointer = 1 'Arrow
TabIndex = 4
Top = 8220
Width = 1185
End
Begin VB.VScrollBar VScroll1
Height = 7815
LargeChange = 10
Left = 11190
Max = 44
SmallChange = 10
TabIndex = 3
Top = 90
Width = 285
End
Begin VB.HScrollBar HScroll1
Height = 255
LargeChange = 60
Left = 330
Max = 100
SmallChange = 20
TabIndex = 2
Top = 7920
Width = 10845
End
Begin VB.PictureBox Picture1
Height = 7845
Left = 330
ScaleHeight = 137.319
ScaleMode = 6 'Millimeter
ScaleWidth = 195.527
TabIndex = 0
Top = 60
Width = 11145
Begin VB.TextBox Text2
DataField = "票类"
DataSource = "Data3"
Height = 270
Index = 5
Left = 6690
TabIndex = 1298
Text = "Text2"
Top = 5550
Visible = 0 'False
Width = 975
End
Begin VB.TextBox Text2
DataField = "到站"
DataSource = "Data3"
Height = 270
Index = 4
Left = 5400
TabIndex = 1297
Text = "Text2"
Top = 5610
Visible = 0 'False
Width = 975
End
Begin VB.TextBox Text2
DataField = "始发"
DataSource = "Data3"
Height = 270
Index = 3
Left = 4230
TabIndex = 1296
Text = "Text2"
Top = 5580
Visible = 0 'False
Width = 975
End
Begin VB.TextBox Text2
DataField = "车厢"
DataSource = "Data3"
Height = 270
Index = 2
Left = 3120
TabIndex = 1295
Text = "Text2"
Top = 5550
Visible = 0 'False
Width = 975
End
Begin VB.TextBox Text3
DataField = "车补人数"
DataSource = "Data2"
Height = 285
Index = 4
Left = 1980
TabIndex = 1293
Text = "Text3"
Top = 3960
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text1
DataField = "班组"
DataSource = "Data1"
Height = 375
Index = 3
Left = 270
TabIndex = 1282
Text = "Text1"
Top = 5760
Visible = 0 'False
Width = 1155
End
Begin VB.TextBox Text1
DataField = "车次"
DataSource = "Data1"
Height = 375
Index = 2
Left = 210
TabIndex = 1281
Text = "Text1"
Top = 4740
Visible = 0 'False
Width = 1155
End
Begin VB.TextBox Text2
DataField = "发车日期"
DataSource = "Data3"
Height = 270
Index = 1
Left = 2070
TabIndex = 1280
Text = "Text2"
Top = 5490
Visible = 0 'False
Width = 975
End
Begin VB.TextBox Text1
DataField = "发车日期"
DataSource = "Data1"
Height = 375
Index = 1
Left = 300
TabIndex = 1279
Text = "Text1"
Top = 3960
Visible = 0 'False
Width = 1155
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
DataSource = "Data3"
ForeColor = &H80000008&
Height = 10815
Left = 0
MouseIcon = "双向人数统计.frx":0000
ScaleHeight = 190.765
ScaleMode = 6 'Millimeter
ScaleWidth = 297.127
TabIndex = 1
Top = 30
Width = 16845
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = "D:\程序\第六章\原始记录.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 2550
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "A2"
Top = 6180
Visible = 0 'False
Width = 1815
End
Begin VB.TextBox Text3
DataField = "站售人数"
DataSource = "Data2"
Height = 285
Index = 3
Left = 1950
TabIndex = 1278
Text = "Text3"
Top = 3540
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text3
DataField = "车厢"
DataSource = "Data2"
Height = 285
Index = 2
Left = 1920
TabIndex = 1277
Text = "Text3"
Top = 3030
Visible = 0 'False
Width = 705
End
Begin VB.TextBox Text3
DataField = "发车日期"
DataSource = "Data2"
Height = 285
Index = 1
Left = 1920
TabIndex = 1276
Text = "Text3"
Top = 2400
Visible = 0 'False
Width = 705
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "Label17"
Height = 345
Left = 6300
TabIndex = 1294
Top = 2580
Width = 2085
End
Begin VB.Label Label16
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label16"
Height = 285
Left = 10680
TabIndex = 1292
Top = 1980
Width = 1245
End
Begin VB.Label Label15
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label15"
Height = 255
Left = 9570
TabIndex = 1291
Top = 1980
Width = 765
End
Begin VB.Label Label14
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label14"
Height = 225
Left = 8640
TabIndex = 1290
Top = 1980
Width = 735
End
Begin VB.Label Label13
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label13"
Height = 255
Left = 6450
TabIndex = 1289
Top = 1980
Width = 1725
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "公免人数合计"
Height = 255
Left = 10740
TabIndex = 1288
Top = 1650
Width = 1755
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "车 厢"
Height = 195
Left = 9630
TabIndex = 1287
Top = 1620
Width = 705
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -