moddatabase.bas

用VB实现的数据库转换工具,可以将DBF转换为Access数据库

Attribute VB_Name = "modDatabase"
Option Explicit
Public Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_DRAWFRAME = &H20
Public g_dbConnect As New ClsDatabase '连接Access数据库
Public g_dbConnect1 As New ClsDatabase '连接FoxPro数据库
Public g_db1ConnectString As String 'ForPro路径
Public g_dbBackUp As New ClsDatabase
Sub Main()
g_dbConnect.OpenDb
g_db1ConnectString = App.path & "\gstapollo.dbf"
g_dbConnect1.OpenDb1
frmMain.Show
End Sub

'运行报警记录注释
Public Function ProcessDeviceType(strType As String) As String
Select Case Trim(strType)
    Case "XPPHO"
        ProcessDeviceType = "XP95型光电感烟Photo Optical"
    Case "XPTHM"
        ProcessDeviceType = "XP95型感温(标准)Thermal Std"
    Case "XPHTM"
        ProcessDeviceType = "XP95型感温(高温)Thermal High"
    Case "XPION"
        ProcessDeviceType = "XP95型离子感烟Ionisation"
    Case "XPMCP"
        ProcessDeviceType = "XP95型手动按钮Manual Call Point"
    Case "XPMULT"
        ProcessDeviceType = "XP95型烟温复合Multi Senso"
    Case "XPI_O" 'XP95型输入/输出模块Input / Output、XP95型输出模块Output、XP95型3输入/3输出模块3 I/O
        ProcessDeviceType = "XP95型输入输出模块M"
    Case "XPSCU" 'XP95型讯响器控制模块Sounder Control、XP95型回路讯响器Loop Sounder
        ProcessDeviceType = "XP95型讯响器M"
    Case "XPZMU"
        ProcessDeviceType = "XP95型防区监视模块Zone Monitor"
    Case "XPSMU"
        ProcessDeviceType = "XP95型开关监视模块 Switch Monitor"
    Case "XPMSM"
        ProcessDeviceType = "XP95型迷你开关监视模块Mini Switch Monitor"
    Case "XMAINS"
        ProcessDeviceType = "XP95型强电输入/输出模块Mains Switching"
    Case "XPBEAM"
        ProcessDeviceType = "XP95型光束对射Beam Detector"
    Case "XFLAME"
        ProcessDeviceType = "XP95型火焰探测Flame Detector"
    Case Else
        ProcessDeviceType = "未知"
End Select
End Function