data.bas

一个网带烧结炉的程序,串口通讯,做工业自动化的可以参考

Attribute VB_Name = "data"
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

Public Const INVALID_HANDLE_VALUE = -1
Public Const MAX_PATH = 1024
Public WFD As WIN32_FIND_DATA
Public hItem As Long
Public Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type
Public Type WIN32_FIND_DATA
        dwFileAttributes As Long
        ftCreationTime As FILETIME
        ftLastAccessTime As FILETIME
        ftLastWriteTime As FILETIME
        nFileSizeHigh As Long
        nFileSizeLow As Long
        dwReserved0 As Long
        dwReserved1 As Long
        cFileTimeCount As String * MAX_PATH
        cAlternate As String * 14
End Type

Public Sub built()
Dim mytab As TableDef
Dim myfield As Field
Dim myrec As Recordset
Dim mydatabase As Database
Set mydatabase = CreateDatabase(App.Path + "\记录\" + Format(Now, "yy-mm-dd") + ".mdb", dbLangGeneral)
Set mytab = mydatabase.CreateTableDef("数据记录3507")
Set myfield = mytab.CreateField("时间日期", dbDate)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区一", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区二", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区三", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区四", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区五", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区六", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区七", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("网带速度", dbInteger)
mytab.Fields.Append myfield
mydatabase.TableDefs.Append mytab
Set myrec = mytab.OpenRecordset
myrec.AddNew
myrec(0) = Now
For i = 1 To 8
    myrec(i) = 0
Next i
myrec.Update
myrec.Close

Set mytab = mydatabase.CreateTableDef("数据记录3006")
Set myfield = mytab.CreateField("时间日期", dbDate)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区一", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区二", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区三", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区四", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区五", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("温区六", dbInteger)
mytab.Fields.Append myfield
Set myfield = mytab.CreateField("网带速度", dbInteger)
mytab.Fields.Append myfield
mydatabase.TableDefs.Append mytab
Set myrec = mytab.OpenRecordset
myrec.AddNew
myrec(0) = Now
For i = 1 To 7
    myrec(i) = 0
Next i
myrec.Update
myrec.Close
mydatabase.Close
End Sub