📄 zdrctj.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.6#0"; "TRANIMG2.OCX"
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form ZDRCTJ
BorderStyle = 1 'Fixed Single
Caption = "住房人次统计"
ClientHeight = 5670
ClientLeft = 150
ClientTop = 435
ClientWidth = 9210
Icon = "ZDRCTJ.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5670
ScaleWidth = 9210
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "ZDRCTJ.frx":0442
Height = 5655
Left = 0
OleObjectBlob = "ZDRCTJ.frx":0456
TabIndex = 15
Top = 0
Visible = 0 'False
Width = 9195
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "C:\jdgl\DATA\JDGL.MDB"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 405
Left = 600
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = $"ZDRCTJ.frx":2001
Top = 2040
Visible = 0 'False
Width = 2895
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 1320
Top = 0
End
Begin VB.Timer Timer2
Interval = 10
Left = 2160
Top = 0
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 30
Left = 3000
Top = 0
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 200
Left = 1080
TabIndex = 1
Top = 1000
Visible = 0 'False
Width = 7215
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 375
Index = 11
Left = 6600
TabIndex = 13
Top = 0
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 375
Index = 10
Left = 6000
TabIndex = 12
Top = 0
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 375
Index = 9
Left = 5400
TabIndex = 11
Top = 0
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 375
Index = 8
Left = 4800
TabIndex = 10
Top = 0
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 255
Index = 7
Left = 4200
TabIndex = 9
Top = 0
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 375
Index = 6
Left = 3600
TabIndex = 8
Top = 0
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 375
Index = 5
Left = 3000
TabIndex = 7
Top = 0
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 375
Index = 4
Left = 2400
TabIndex = 6
Top = 0
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 375
Index = 3
Left = 1800
TabIndex = 5
Top = 0
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 375
Index = 2
Left = 1200
TabIndex = 4
Top = 0
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 375
Index = 1
Left = 600
TabIndex = 3
Top = 0
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 375
Index = 0
Left = 0
TabIndex = 2
Top = 0
Width = 495
End
End
Begin DevPowerTransImg.TransImg TransImg1
Height = 495
Left = 8880
TabIndex = 0
Top = 680
Width = 1095
_ExtentX = 1931
_ExtentY = 873
AutoSize = 0 'False
MaskColor = 16777215
Transparent = -1 'True
End
Begin MSChart20Lib.MSChart MSChart1
Height = 5655
Left = 0
OleObjectBlob = "ZDRCTJ.frx":2198
TabIndex = 14
Top = 0
Width = 9195
End
Begin MSComDlg.CommonDialog CDLTEST
Left = 0
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Menu MNU1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -