📄 form3.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form Form3
AutoRedraw = -1 'True
Caption = "数据记录3507"
ClientHeight = 6870
ClientLeft = 3285
ClientTop = 3150
ClientWidth = 6390
Icon = "Form3.frx":0000
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 6870
ScaleWidth = 6390
WindowState = 2 'Maximized
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "Form3.frx":030A
Height = 10335
Left = 30
TabIndex = 0
Top = 30
Width = 15315
_ExtentX = 27014
_ExtentY = 18230
_Version = 393216
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 9
BeginProperty Column00
DataField = "时间日期"
Caption = "时间日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "温区一"
Caption = "温区一"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "温区二"
Caption = "温区二"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "温区三"
Caption = "温区三"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "温区四"
Caption = "温区四"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "温区五"
Caption = "温区五"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "温区六"
Caption = "温区六"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "温区七"
Caption = "温区七"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "网带速度"
Caption = "网带速度"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 2564.788
EndProperty
BeginProperty Column01
EndProperty
BeginProperty Column02
EndProperty
BeginProperty Column03
EndProperty
BeginProperty Column04
EndProperty
BeginProperty Column05
EndProperty
BeginProperty Column06
EndProperty
BeginProperty Column07
EndProperty
BeginProperty Column08
EndProperty
EndProperty
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 1590
Top = 90
Visible = 0 'False
Width = 1890
_ExtentX = 3334
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 3750
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Timer Timer1
Interval = 5000
Left = 630
Top = 60
End
Begin VB.Menu 刷新记录
Caption = "刷新记录"
End
Begin VB.Menu 查看记录
Caption = "查看记录"
End
Begin VB.Menu 选择记录
Caption = "选择记录"
End
Begin VB.Menu 退出
Caption = "退出"
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
刷新记录.Enabled = False
选择记录.Enabled = False
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path + "\记录\" + Format(Now, "yy-mm-dd") + ".mdb;Persist Security Info=False;"
Adodc1.RecordSource = "数据记录3507"
Adodc1.Refresh
End Sub
Private Sub Timer1_Timer()
Adodc1.Refresh
Adodc1.Recordset.MoveLast
End Sub
Private Sub 查看记录_Click()
Timer1.Enabled = False
查看记录.Enabled = False
刷新记录.Enabled = True
选择记录.Enabled = True
End Sub
Private Sub 刷新记录_Click()
查看记录.Enabled = True
Timer1.Enabled = True
刷新记录.Enabled = False
选择记录.Enabled = False
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path + "\记录\" + Format(Now, "yy-mm-dd") + ".mdb;Persist Security Info=False;"
Adodc1.RecordSource = "数据记录3507"
Adodc1.Refresh
End Sub
Private Sub 退出_Click()
Unload Me
End Sub
Private Sub 选择记录_Click()
Dim dengli As String
Dim liujia As String
On Error GoTo nofile
CommonDialog1.DialogTitle = "选择记录文件"
CommonDialog1.CancelError = True
CommonDialog1.Filter = "记录文件(*.mdb)|*.mdb|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
If Len(CommonDialog1.filename) = 0 Then
Exit Sub
End If
filename = CommonDialog1.filename
dengli = Right$(filename, 12)
liujia = Left$(dengli, 8)
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path + "\记录\" + liujia + ".mdb;Persist Security Info=False;"
Adodc1.RecordSource = "数据记录3507"
Adodc1.Refresh
nofile:
If Err.Number = 32755 Then Exit Sub
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -