VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsPgApp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' pgAdmin II - PostgreSQL Tools
' Copyright (C) 2001 - 2003, The pgAdmin Development Team
' This software is released under the pgAdmin Public Licence
'
' clsPgApp.cls - class export application function/form

Public frmAbout As pgAdmin2.frmAbout                        'frmAbout.frm
Public frmAggregate As pgAdmin2.frmAggregate                'frmAggregate.frm
Public frmCast As pgAdmin2.frmCast                          'frmCast.frm
Public frmClone As pgAdmin2.frmClone                        'frmClone.frm
Public frmColumn As pgAdmin2.frmColumn                      'frmColumn.frm
Public frmConnect As pgAdmin2.frmConnect                    'frmConnect.frm
Public frmConversion As pgAdmin2.frmConversion              'frmConversion.frm
Public frmDatabase As pgAdmin2.frmDatabase                  'frmDatabase.frm
Public frmDomain As pgAdmin2.frmDomain                      'frmDomain.frm
Public frmDummy As pgAdmin2.frmDummy                        'frmDummy.frm
Public frmError As pgAdmin2.frmError                        'frmError.frm
Public frmFind As pgAdmin2.frmFind                          'frmFind.frm
Public frmForeignKey As pgAdmin2.frmForeignKey              'frmForeignKey.frm
Public frmFunction As pgAdmin2.frmFunction                  'frmFunction.frm
Public frmGroup As pgAdmin2.frmGroup                        'frmGroup.frm
Public frmImportColumn As pgAdmin2.frmImportColumn          'frmImportColumn.frm
Public frmIndex As pgAdmin2.frmIndex                        'frmIndex.frm
Public frmLanguage As pgAdmin2.frmLanguage                  'frmLanguage.frm
Public frmLog As pgAdmin2.frmLog                            'frmLog.frm
Public frmMain As pgAdmin2.frmMain                          'frmMain.frm
Public frmNamespace As pgAdmin2.frmNamespace                'frmNamespace.frm
Public frmOperator As pgAdmin2.frmOperator                  'frmOperator.frm
Public frmOptions As pgAdmin2.frmOptions                    'frmOptions.frm
Public frmPassword As pgAdmin2.frmPassword                  'frmPassword.frm
Public frmRecordLog As pgAdmin2.frmRecordLog                'frmRecordLog.frm
Public frmRule As pgAdmin2.frmRule                          'frmRule.frm
Public frmSequence As pgAdmin2.frmSequence                  'frmSequence.frm
Public frmServer As pgAdmin2.frmServer                      'frmServer.frm
Public frmSplash As pgAdmin2.frmSplash                      'frmSplash.frm
Public frmSQLExplain As pgAdmin2.frmSQLExplain              'frmSQLExplain.frm
Public frmSQLInput As pgAdmin2.frmSQLInput                  'frmSQLInput.frm
Public frmSQLOutput As pgAdmin2.frmSQLOutput                'frmSQLOutput.frm
Public frmSQLWizard As pgAdmin2.frmSQLWizard                'frmSQLWizard.frm
Public frmTable As pgAdmin2.frmTable                        'frmTable.frm
Public frmTip As pgAdmin2.frmTip                            'frmTip.frm
Public frmTrigger As pgAdmin2.frmTrigger                    'frmTrigger.frm
Public frmType As pgAdmin2.frmType                          'frmType.frm
Public frmUpgradeWizard As pgAdmin2.frmUpgradeWizard        'frmUpgradeWizard.frm
Public frmUser As pgAdmin2.frmUser                          'frmUser.frm
Public frmView As pgAdmin2.frmView                          'frmView.frm

''''''''''''''''''''''''''''''''''''''''''''''''''
'Module: basActions
'File: basActions.bas
Public Sub Vacuum(bAnalyse As Boolean)
  Call basActions.Vacuum(bAnalyse)
End Sub

Public Sub Reindex()
  Call basActions.Reindex()

End Sub

Public Sub Drop()
  Call basActions.Drop()

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''
'Module: basAPI
'File: basAPI.bas
''''''''''''''''''''''''''''''''''''''''''''''''''
'Module: basClone
'File: basClone.bas
'Inizialize clone object
Public Sub InitClone()
  Call basClone.InitClone()

End Sub

'clear object database
Public Sub ClearObjDb()
  Call basClone.ClearObjDb()

End Sub

'copy object database
Public Sub CopyObjDb()
  Call basClone.CopyObjDb()

End Sub

'paste object database
Public Sub PasteObjDb()
  Call basClone.PasteObjDb()

End Sub

'clone type
Public Function CloneType(szNewName As String, szDatabase As String, szNamespace As String) 'As pgType
'  CloneType = basClone.CloneType(szNewName,szDatabase,szNamespace)
End Function

'clone cast
Public Function CloneCast(szDatabase As String) 'As pgCast
'  CloneCast = basClone.CloneCast(szDatabase)
End Function

'clone operator
Public Function CloneOperator(szNewName As String, szDatabase As String, szNamespace As String) 'As pgOperator
'  CloneOperator = basClone.CloneOperator(szNewName,szDatabase,szNamespace)
End Function

'clone aggregate
Public Function CloneAggregate(szNewName As String, szDatabase As String, szNamespace As String) 'As pgAggregate
'  CloneAggregate = basClone.CloneAggregate(szNewName,szDatabase,szNamespace)
End Function

'clone function
Public Function CloneFunction(szNewName As String, szDatabase As String, szNamespace As String) 'As pgFunction
'  CloneFunction = basClone.CloneFunction(szNewName,szDatabase,szNamespace)
End Function

'clone domain
Public Function CloneDomain(szNewName As String, szDatabase As String, szNamespace As String) 'As pgDomain
'  CloneDomain = basClone.CloneDomain(szNewName,szDatabase,szNamespace)
End Function

'clone user
Public Function CloneUser(szNewName As String) 'As pgUser
'  CloneUser = basClone.CloneUser(szNewName)
End Function

'clone group
Public Function CloneGroup(szNewName As String) 'As pgGroup
'  CloneGroup = basClone.CloneGroup(szNewName)
End Function

'clone conversion
Public Function CloneConversion(szNewName As String, szDatabase As String, szNamespace As String) 'As pgConversion
'  CloneConversion = basClone.CloneConversion(szNewName,szDatabase,szNamespace)
End Function

'clone view
Public Function CloneView(szNewName As String, szDatabase As String, szNamespace As String) 'As pgView
'  CloneView = basClone.CloneView(szNewName,szDatabase,szNamespace)
End Function

'clone table
Public Function CloneTable(szNewName As String, szDatabase As String, szNamespace As String, Optional bCopyData As Boolean = False) 'As pgTable
'  CloneTable = basClone.CloneTable(szNewName,szDatabase,szNamespace,bCopyData,=,False)
End Function

Public Sub CloneAcl(objDb As Variant)
  Call basClone.CloneAcl(objDb)
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''
'Module: basGlobal
'File: basGlobal.bas
''''''''''''''''''''''''''''''''''''''''''''''''''
'Module: basMisc
'File: basMisc.bas
Public Sub Main()
  Call basMisc.Main()

End Sub

Public Function GetID() As String
  GetID = basMisc.GetID()
End Function

Public Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) As Long
  SetTopMostWindow = basMisc.SetTopMostWindow(hwnd,Topmost)
End Function

Public Sub BuildConnectionMenu()
  Call basMisc.BuildConnectionMenu()

End Sub

Public Sub BuildPluginsMenu()
  Call basMisc.BuildPluginsMenu()

End Sub

Public Sub LogError(lError As Long, szError As String, szRoutine As String)
  Call basMisc.LogError(lError,szError,szRoutine)
End Sub

Public Sub StartMsg(ByVal szMsg As String)
  Call basMisc.StartMsg(szMsg)
End Sub

Public Sub EndMsg(Optional ByVal szErr As String)
  Call basMisc.EndMsg(szErr)
End Sub

Public Function dbSZ(szData As String) As String
  dbSZ = basMisc.dbSZ(szData)
End Function

'This code is based on fmtID from the pg_dump code
Public Function fmtID(ByVal szData As String) As String
  fmtID = basMisc.fmtID(szData)
End Function

Public Function Bool2Bin(bData As Boolean) As Integer
  Bool2Bin = basMisc.Bool2Bin(bData)
End Function

Public Function Bin2Bool(iData As Integer) As Boolean
  Bin2Bool = basMisc.Bin2Bool(iData)
End Function

'Parse an ACL and return | delimited User/Access lists
Public Sub ParseACL(ByVal szACL As String, ByRef szUserlist As String, ByRef szAccesslist As String)
  Call basMisc.ParseACL(szACL,szUserlist,szAccesslist)
End Sub

'Format a typename
Public Function fmtTypeName(objType As pgType) As String
  fmtTypeName = basMisc.fmtTypeName(objType)
End Function

Public Sub AutoSizeColumnLv(lv As ListView)
  Call basMisc.AutoSizeColumnLv(lv)
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''
'Module: basPatch
'File: basPatch.bas
'Patch form
Public Sub PatchForm(objForm As Form)
  Call basPatch.PatchForm(objForm)
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''
'Module: basRegistry
'File: basRegistry.bas
Public Function RegRead(ByVal Hive As RegHives, ByVal Section As String, ByVal Key As String, Optional Default As Variant) As String
  RegRead = basRegistry.RegRead(Hive,Section,Key,Default)
End Function

Public Sub RegWrite(ByVal Hive As RegHives, ByVal Section As String, ByVal Key As String, ByVal ValType As RegTypes, ByVal Value As Variant)
  Call basRegistry.RegWrite(Hive,Section,Key,ValType,Value)
End Sub

Public Function RegGetSubkey(ByVal Hive As RegHives, ByVal Section As String, Idx As Long) As String
  RegGetSubkey = basRegistry.RegGetSubkey(Hive,Section,Idx)
End Function

Public Function RegReadAll(ByVal Hive As RegHives, ByVal Section As String, Idx As Long) As Variant
  RegReadAll = basRegistry.RegReadAll(Hive,Section,Idx)
End Function

Public Sub RegDelSubkey(ByVal Hive As RegHives, ByVal Section As String)
  Call basRegistry.RegDelSubkey(Hive,Section)
End Sub

Public Sub RegDelValue(ByVal Hive As RegHives, ByVal Section As String, ByVal Key As String)
  Call basRegistry.RegDelValue(Hive,Section,Key)
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''
'Module: basVarDb
'File: basVarDb.bas
'Initalization
Public Sub InitVarDb()
  Call basVarDb.InitVarDb()

End Sub

'return the definition var db from Collection
Public Function GetVarDb(szName As String) 'As VarDb
'  GetVarDb = basVarDb.GetVarDb(szName)
End Function

'return the image name of value
Public Function GetImageFromVal(szValue As String, TypeVar As TypeVarDb) As String
  GetImageFromVal = basVarDb.GetImageFromVal(szValue,TypeVar)
End Function


''''''''''''''''''''''''''''''''''''''''''''''''''
'Internal routine
'create collection forms activate
Public Function FormsActivate() As Collection
Dim objCol As New Collection
Dim objTmp

  For Each objTmp In VB.Forms
    objCol.Add objTmp
  Next
  Set FormsActivate = objCol
End Function

'get forms by name
Public Function FormByName(vData As String) As Form
Dim objTmp As Form
Dim objFrm As Form

  For Each objTmp In VB.Forms
    If LCase(objTmp.Name) = LCase(vData) Then
      Set objFrm = objTmp
      Exit For
    End If
  Next
  Set GetFormByName = objFrm
End Function

'return value of the const/enumerate by name
Public Function ConstByName(szName As String)

  Select Case LCase(szName)
    case LCase("SWP_NOMOVE")
      ConstByName=SWP_NOMOVE

    case LCase("SWP_NOSIZE")
      ConstByName=SWP_NOSIZE

    case LCase("SWP_NOACTIVATE")
      ConstByName=SWP_NOACTIVATE

    case LCase("FLAGS")
      ConstByName=FLAGS

    case LCase("CW_USEDEFAULT")
      ConstByName=CW_USEDEFAULT

    case LCase("WM_USER")
      ConstByName=WM_USER

    case LCase("TTF_CENTERTIP")
      ConstByName=TTF_CENTERTIP

    case LCase("TTF_SUBCLASS")
      ConstByName=TTF_SUBCLASS

    case LCase("TTM_ADDTOOLA")
      ConstByName=TTM_ADDTOOLA

    case LCase("TTM_GETTEXTA")
      ConstByName=TTM_GETTEXTA

    case LCase("TTM_SETMAXTIPWIDTH")
      ConstByName=TTM_SETMAXTIPWIDTH

    case LCase("TTM_SETTIPBKCOLOR")
      ConstByName=TTM_SETTIPBKCOLOR

    case LCase("TTM_SETTIPTEXTCOLOR")
      ConstByName=TTM_SETTIPTEXTCOLOR

    case LCase("TTM_UPDATETIPTEXTA")
      ConstByName=TTM_UPDATETIPTEXTA

    case LCase("TTS_ALWAYSTIP")
      ConstByName=TTS_ALWAYSTIP

    case LCase("TTS_BALLOON")
      ConstByName=TTS_BALLOON

    case LCase("HWND_TOPMOST")
      ConstByName=HWND_TOPMOST

    case LCase("HWND_NOTOPMOST")
      ConstByName=HWND_NOTOPMOST

    case LCase("READ_CONTROL")
      ConstByName=READ_CONTROL

    case LCase("SYNCHRONIZE")
      ConstByName=SYNCHRONIZE

    case LCase("STANDARD_RIGHTS_ALL")
      ConstByName=STANDARD_RIGHTS_ALL

    case LCase("STANDARD_RIGHTS_READ")
      ConstByName=STANDARD_RIGHTS_READ

    case LCase("STANDARD_RIGHTS_WRITE")
      ConstByName=STANDARD_RIGHTS_WRITE

    case LCase("KEY_QUERY_VALUE")
      ConstByName=KEY_QUERY_VALUE

    case LCase("KEY_SET_VALUE")
      ConstByName=KEY_SET_VALUE

    case LCase("KEY_CREATE_SUB_KEY")
      ConstByName=KEY_CREATE_SUB_KEY

    case LCase("KEY_ENUMERATE_SUB_KEYS")
      ConstByName=KEY_ENUMERATE_SUB_KEYS

    case LCase("KEY_NOTIFY")
      ConstByName=KEY_NOTIFY

    case LCase("KEY_CREATE_LINK")
      ConstByName=KEY_CREATE_LINK

    case LCase("KEY_ALL_ACCESS")
      ConstByName=KEY_ALL_ACCESS

    case LCase("KEY_READ")
      ConstByName=KEY_READ

    case LCase("KEY_EXECUTE")
      ConstByName=KEY_EXECUTE

    case LCase("KEY_WRITE")
      ConstByName=KEY_WRITE

    case LCase("REG_NONE")
      ConstByName=REG_NONE

    case LCase("REG_SZ")
      ConstByName=REG_SZ

    case LCase("REG_EXPAND_SZ")
      ConstByName=REG_EXPAND_SZ

    case LCase("REG_BINARY")
      ConstByName=REG_BINARY

    case LCase("REG_DWORD")
      ConstByName=REG_DWORD

    case LCase("REG_LINK")
      ConstByName=REG_LINK

    case LCase("REG_MULTI_SZ")
      ConstByName=REG_MULTI_SZ

    case LCase("REG_RESOURCE_LIST")
      ConstByName=REG_RESOURCE_LIST

    case LCase("ERROR_NONE")
      ConstByName=ERROR_NONE

    case LCase("ERROR_BADDB")
      ConstByName=ERROR_BADDB

    case LCase("ERROR_BADKEY")
      ConstByName=ERROR_BADKEY

    case LCase("ERROR_CANTOPEN")
      ConstByName=ERROR_CANTOPEN

    case LCase("ERROR_CANTREAD")
      ConstByName=ERROR_CANTREAD

    case LCase("ERROR_CANTWRITE")
      ConstByName=ERROR_CANTWRITE

    case LCase("ERROR_OUTOFMEMORY")
      ConstByName=ERROR_OUTOFMEMORY

    case LCase("ERROR_INVALID_PARAMETER")
      ConstByName=ERROR_INVALID_PARAMETER

    case LCase("ERROR_ACCESS_DENIED")
      ConstByName=ERROR_ACCESS_DENIED

    case LCase("ERROR_INVALID_PARAMETERS")
      ConstByName=ERROR_INVALID_PARAMETERS

    case LCase("ERROR_NO_MORE_ITEMS")
      ConstByName=ERROR_NO_MORE_ITEMS

    case LCase("SW_SHOWNORMAL")
      ConstByName=SW_SHOWNORMAL

    case LCase("SW_SHOW")
      ConstByName=SW_SHOW

    case LCase("ODBC_ADD_DSN")
      ConstByName=ODBC_ADD_DSN

    case LCase("ODBC_CONFIG_DSN")
      ConstByName=ODBC_CONFIG_DSN

    case LCase("ODBC_REMOVE_DSN")
      ConstByName=ODBC_REMOVE_DSN

    case LCase("ODBC_ADD_SYS_DSN")
      ConstByName=ODBC_ADD_SYS_DSN

    case LCase("ODBC_CONFIG_SYS_DSN")
      ConstByName=ODBC_CONFIG_SYS_DSN

    case LCase("ODBC_REMOVE_SYS_DSN")
      ConstByName=ODBC_REMOVE_SYS_DSN

    case LCase("ODBC_REMOVE_DEFAULT_DSN")
      ConstByName=ODBC_REMOVE_DEFAULT_DSN

    case LCase("HH_DISPLAY_TOPIC")
      ConstByName=HH_DISPLAY_TOPIC

    case LCase("HH_SET_WIN_TYPE")
      ConstByName=HH_SET_WIN_TYPE

    case LCase("HH_GET_WIN_TYPE")
      ConstByName=HH_GET_WIN_TYPE

    case LCase("HH_GET_WIN_HANDLE")
      ConstByName=HH_GET_WIN_HANDLE

    case LCase("HH_DISPLAY_TEXT_POPUP")
      ConstByName=HH_DISPLAY_TEXT_POPUP

    case LCase("HH_HELP_CONTEXT")
      ConstByName=HH_HELP_CONTEXT

    case LCase("HH_TP_HELP_CONTEXTMENU")
      ConstByName=HH_TP_HELP_CONTEXTMENU

    case LCase("HH_TP_HELP_WM_HELP")
      ConstByName=HH_TP_HELP_WM_HELP

    case LCase("SQL_ERROR")
      ConstByName=SQL_ERROR

    case LCase("SQL_INVALID_HANDLE")
      ConstByName=SQL_INVALID_HANDLE

    case LCase("SQL_NO_DATA_FOUND")
      ConstByName=SQL_NO_DATA_FOUND

    case LCase("SQL_SUCCESS")
      ConstByName=SQL_SUCCESS

    case LCase("SQL_SUCCESS_WITH_INFO")
      ConstByName=SQL_SUCCESS_WITH_INFO

    case LCase("SQL_FD_FETCH_NEXT")
      ConstByName=SQL_FD_FETCH_NEXT

    case LCase("SQL_FD_FETCH_FIRST")
      ConstByName=SQL_FD_FETCH_FIRST

    case LCase("SQL_FD_FETCH_LAST")
      ConstByName=SQL_FD_FETCH_LAST

    case LCase("SQL_FD_FETCH_PRIOR")
      ConstByName=SQL_FD_FETCH_PRIOR

    case LCase("SQL_FD_FETCH_ABSOLUTE")
      ConstByName=SQL_FD_FETCH_ABSOLUTE

    case LCase("SQL_FD_FETCH_RELATIVE")
      ConstByName=SQL_FD_FETCH_RELATIVE

    case LCase("SQL_FD_FETCH_RESUME")
      ConstByName=SQL_FD_FETCH_RESUME

    case LCase("SQL_FD_FETCH_BOOKMARK")
      ConstByName=SQL_FD_FETCH_BOOKMARK

    case LCase("SQL_DRIVER_NOPROMPT")
      ConstByName=SQL_DRIVER_NOPROMPT

    case LCase("SQL_DRIVER_COMPLETE")
      ConstByName=SQL_DRIVER_COMPLETE

    case LCase("SQL_DRIVER_PROMPT")
      ConstByName=SQL_DRIVER_PROMPT

    case LCase("SQL_DRIVER_COMPLETE_REQUIRED")
      ConstByName=SQL_DRIVER_COMPLETE_REQUIRED

    case LCase("SQL_INFO_FIRST")
      ConstByName=SQL_INFO_FIRST

    case LCase("SQL_ACTIVE_CONNECTIONS")
      ConstByName=SQL_ACTIVE_CONNECTIONS

    case LCase("SQL_ACTIVE_STATEMENTS")
      ConstByName=SQL_ACTIVE_STATEMENTS

    case LCase("SQL_DATA_SOURCE_NAME")
      ConstByName=SQL_DATA_SOURCE_NAME

    case LCase("SQL_DRIVER_HDBC")
      ConstByName=SQL_DRIVER_HDBC

    case LCase("SQL_DRIVER_HENV")
      ConstByName=SQL_DRIVER_HENV

    case LCase("SQL_DRIVER_HSTMT")
      ConstByName=SQL_DRIVER_HSTMT

    case LCase("SQL_DRIVER_NAME")
      ConstByName=SQL_DRIVER_NAME

    case LCase("SQL_DRIVER_VER")
      ConstByName=SQL_DRIVER_VER

    case LCase("SQL_FETCH_DIRECTION")
      ConstByName=SQL_FETCH_DIRECTION

    case LCase("SQL_ODBC_API_CONFORMANCE")
      ConstByName=SQL_ODBC_API_CONFORMANCE

    case LCase("SQL_ODBC_VER")
      ConstByName=SQL_ODBC_VER

    case LCase("SQL_ROW_UPDATES")
      ConstByName=SQL_ROW_UPDATES

    case LCase("SQL_ODBC_SAG_CLI_CONFORMANCE")
      ConstByName=SQL_ODBC_SAG_CLI_CONFORMANCE

    case LCase("SQL_SERVER_NAME")
      ConstByName=SQL_SERVER_NAME

    case LCase("SQL_SEARCH_PATTERN_ESCAPE")
      ConstByName=SQL_SEARCH_PATTERN_ESCAPE

    case LCase("SQL_ODBC_SQL_CONFORMANCE")
      ConstByName=SQL_ODBC_SQL_CONFORMANCE

    case LCase("SQL_DBMS_NAME")
      ConstByName=SQL_DBMS_NAME

    case LCase("SQL_DBMS_VER")
      ConstByName=SQL_DBMS_VER

    case LCase("SQL_ACCESSIBLE_TABLES")
      ConstByName=SQL_ACCESSIBLE_TABLES

    case LCase("SQL_ACCESSIBLE_PROCEDURES")
      ConstByName=SQL_ACCESSIBLE_PROCEDURES

    case LCase("SQL_PROCEDURES")
      ConstByName=SQL_PROCEDURES

    case LCase("SQL_CONCAT_NULL_BEHAVIOR")
      ConstByName=SQL_CONCAT_NULL_BEHAVIOR

    case LCase("SQL_CURSOR_COMMIT_BEHAVIOR")
      ConstByName=SQL_CURSOR_COMMIT_BEHAVIOR

    case LCase("SQL_CURSOR_ROLLBACK_BEHAVIOR")
      ConstByName=SQL_CURSOR_ROLLBACK_BEHAVIOR

    case LCase("SQL_DATA_SOURCE_READ_ONLY")
      ConstByName=SQL_DATA_SOURCE_READ_ONLY

    case LCase("SQL_DEFAULT_TXN_ISOLATION")
      ConstByName=SQL_DEFAULT_TXN_ISOLATION

    case LCase("SQL_EXPRESSIONS_IN_ORDERBY")
      ConstByName=SQL_EXPRESSIONS_IN_ORDERBY

    case LCase("SQL_IDENTIFIER_CASE")
      ConstByName=SQL_IDENTIFIER_CASE

    case LCase("SQL_IDENTIFIER_QUOTE_CHAR")
      ConstByName=SQL_IDENTIFIER_QUOTE_CHAR

    case LCase("SQL_MAX_COLUMN_NAME_LEN")
      ConstByName=SQL_MAX_COLUMN_NAME_LEN

    case LCase("SQL_MAX_CURSOR_NAME_LEN")
      ConstByName=SQL_MAX_CURSOR_NAME_LEN

    case LCase("SQL_MAX_OWNER_NAME_LEN")
      ConstByName=SQL_MAX_OWNER_NAME_LEN

    case LCase("SQL_MAX_PROCEDURE_NAME_LEN")
      ConstByName=SQL_MAX_PROCEDURE_NAME_LEN

    case LCase("SQL_MAX_QUALIFIER_NAME_LEN")
      ConstByName=SQL_MAX_QUALIFIER_NAME_LEN

    case LCase("SQL_MAX_TABLE_NAME_LEN")
      ConstByName=SQL_MAX_TABLE_NAME_LEN

    case LCase("SQL_MULT_RESULT_SETS")
      ConstByName=SQL_MULT_RESULT_SETS

    case LCase("SQL_MULTIPLE_ACTIVE_TXN")
      ConstByName=SQL_MULTIPLE_ACTIVE_TXN

    case LCase("SQL_OUTER_JOINS")
      ConstByName=SQL_OUTER_JOINS

    case LCase("SQL_OWNER_TERM")
      ConstByName=SQL_OWNER_TERM

    case LCase("SQL_PROCEDURE_TERM")
      ConstByName=SQL_PROCEDURE_TERM

    case LCase("SQL_QUALIFIER_NAME_SEPARATOR")
      ConstByName=SQL_QUALIFIER_NAME_SEPARATOR

    case LCase("SQL_QUALIFIER_TERM")
      ConstByName=SQL_QUALIFIER_TERM

    case LCase("SQL_SCROLL_CONCURRENCY")
      ConstByName=SQL_SCROLL_CONCURRENCY

    case LCase("SQL_SCROLL_OPTIONS")
      ConstByName=SQL_SCROLL_OPTIONS

    case LCase("SQL_TABLE_TERM")
      ConstByName=SQL_TABLE_TERM

    case LCase("SQL_TXN_CAPABLE")
      ConstByName=SQL_TXN_CAPABLE

    case LCase("SQL_USER_NAME")
      ConstByName=SQL_USER_NAME

    case LCase("SQL_CONVERT_FUNCTIONS")
      ConstByName=SQL_CONVERT_FUNCTIONS

    case LCase("SQL_NUMERIC_FUNCTIONS")
      ConstByName=SQL_NUMERIC_FUNCTIONS

    case LCase("SQL_STRING_FUNCTIONS")
      ConstByName=SQL_STRING_FUNCTIONS

    case LCase("SQL_SYSTEM_FUNCTIONS")
      ConstByName=SQL_SYSTEM_FUNCTIONS

    case LCase("SQL_TIMEDATE_FUNCTIONS")
      ConstByName=SQL_TIMEDATE_FUNCTIONS

    case LCase("SQL_CONVERT_BIGINT")
      ConstByName=SQL_CONVERT_BIGINT

    case LCase("SQL_CONVERT_BINARY")
      ConstByName=SQL_CONVERT_BINARY

    case LCase("SQL_CONVERT_BIT")
      ConstByName=SQL_CONVERT_BIT

    case LCase("SQL_CONVERT_CHAR")
      ConstByName=SQL_CONVERT_CHAR

    case LCase("SQL_CONVERT_DATE")
      ConstByName=SQL_CONVERT_DATE

    case LCase("SQL_CONVERT_DECIMAL")
      ConstByName=SQL_CONVERT_DECIMAL

    case LCase("SQL_CONVERT_DOUBLE")
      ConstByName=SQL_CONVERT_DOUBLE

    case LCase("SQL_CONVERT_FLOAT")
      ConstByName=SQL_CONVERT_FLOAT

    case LCase("SQL_CONVERT_INTEGER")
      ConstByName=SQL_CONVERT_INTEGER

    case LCase("SQL_CONVERT_LONGVARCHAR")
      ConstByName=SQL_CONVERT_LONGVARCHAR

    case LCase("SQL_CONVERT_NUMERIC")
      ConstByName=SQL_CONVERT_NUMERIC

    case LCase("SQL_CONVERT_REAL")
      ConstByName=SQL_CONVERT_REAL

    case LCase("SQL_CONVERT_SMALLINT")
      ConstByName=SQL_CONVERT_SMALLINT

    case LCase("SQL_CONVERT_TIME")
      ConstByName=SQL_CONVERT_TIME

    case LCase("SQL_CONVERT_TIMESTAMP")
      ConstByName=SQL_CONVERT_TIMESTAMP

    case LCase("SQL_CONVERT_TINYINT")
      ConstByName=SQL_CONVERT_TINYINT

    case LCase("SQL_CONVERT_VARBINARY")
      ConstByName=SQL_CONVERT_VARBINARY

    case LCase("SQL_CONVERT_VARCHAR")
      ConstByName=SQL_CONVERT_VARCHAR

    case LCase("SQL_CONVERT_LONGVARBINARY")
      ConstByName=SQL_CONVERT_LONGVARBINARY

    case LCase("SQL_TXN_ISOLATION_OPTION")
      ConstByName=SQL_TXN_ISOLATION_OPTION

    case LCase("SQL_ODBC_SQL_OPT_IEF")
      ConstByName=SQL_ODBC_SQL_OPT_IEF

    case LCase("SQL_CORRELATION_NAME")
      ConstByName=SQL_CORRELATION_NAME

    case LCase("SQL_NON_NULLABLE_COLUMNS")
      ConstByName=SQL_NON_NULLABLE_COLUMNS

    case LCase("SQL_DRIVER_HLIB")
      ConstByName=SQL_DRIVER_HLIB

    case LCase("SQL_DRIVER_ODBC_VER")
      ConstByName=SQL_DRIVER_ODBC_VER

    case LCase("SQL_LOCK_TYPES")
      ConstByName=SQL_LOCK_TYPES

    case LCase("SQL_POS_OPERATIONS")
      ConstByName=SQL_POS_OPERATIONS

    case LCase("SQL_POSITIONED_STATEMENTS")
      ConstByName=SQL_POSITIONED_STATEMENTS

    case LCase("SQL_GETDATA_EXTENSIONS")
      ConstByName=SQL_GETDATA_EXTENSIONS

    case LCase("SQL_BOOKMARK_PERSISTENCE")
      ConstByName=SQL_BOOKMARK_PERSISTENCE

    case LCase("SQL_STATIC_SENSITIVITY")
      ConstByName=SQL_STATIC_SENSITIVITY

    case LCase("SQL_FILE_USAGE")
      ConstByName=SQL_FILE_USAGE

    case LCase("SQL_NULL_COLLATION")
      ConstByName=SQL_NULL_COLLATION

    case LCase("SQL_ALTER_TABLE")
      ConstByName=SQL_ALTER_TABLE

    case LCase("SQL_COLUMN_ALIAS")
      ConstByName=SQL_COLUMN_ALIAS

    case LCase("SQL_GROUP_BY")
      ConstByName=SQL_GROUP_BY

    case LCase("SQL_KEYWORDS")
      ConstByName=SQL_KEYWORDS

    case LCase("SQL_ORDER_BY_COLUMNS_IN_SELECT")
      ConstByName=SQL_ORDER_BY_COLUMNS_IN_SELECT

    case LCase("SQL_OWNER_USAGE")
      ConstByName=SQL_OWNER_USAGE

    case LCase("SQL_QUALIFIER_USAGE")
      ConstByName=SQL_QUALIFIER_USAGE

    case LCase("SQL_QUOTED_IDENTIFIER_CASE")
      ConstByName=SQL_QUOTED_IDENTIFIER_CASE

    case LCase("SQL_SPECIAL_CHARACTERS")
      ConstByName=SQL_SPECIAL_CHARACTERS

    case LCase("SQL_SUBQUERIES")
      ConstByName=SQL_SUBQUERIES

    case LCase("SQL_UNION")
      ConstByName=SQL_UNION

    case LCase("SQL_MAX_COLUMNS_IN_GROUP_BY")
      ConstByName=SQL_MAX_COLUMNS_IN_GROUP_BY

    case LCase("SQL_MAX_COLUMNS_IN_INDEX")
      ConstByName=SQL_MAX_COLUMNS_IN_INDEX

    case LCase("SQL_MAX_COLUMNS_IN_ORDER_BY")
      ConstByName=SQL_MAX_COLUMNS_IN_ORDER_BY

    case LCase("SQL_MAX_COLUMNS_IN_SELECT")
      ConstByName=SQL_MAX_COLUMNS_IN_SELECT

    case LCase("SQL_MAX_COLUMNS_IN_TABLE")
      ConstByName=SQL_MAX_COLUMNS_IN_TABLE

    case LCase("SQL_MAX_INDEX_SIZE")
      ConstByName=SQL_MAX_INDEX_SIZE

    case LCase("SQL_MAX_ROW_SIZE_INCLUDES_LONG")
      ConstByName=SQL_MAX_ROW_SIZE_INCLUDES_LONG

    case LCase("SQL_MAX_ROW_SIZE")
      ConstByName=SQL_MAX_ROW_SIZE

    case LCase("SQL_MAX_STATEMENT_LEN")
      ConstByName=SQL_MAX_STATEMENT_LEN

    case LCase("SQL_MAX_TABLES_IN_SELECT")
      ConstByName=SQL_MAX_TABLES_IN_SELECT

    case LCase("SQL_MAX_USER_NAME_LEN")
      ConstByName=SQL_MAX_USER_NAME_LEN

    case LCase("SQL_MAX_CHAR_LITERAL_LEN")
      ConstByName=SQL_MAX_CHAR_LITERAL_LEN

    case LCase("SQL_TIMEDATE_ADD_INTERVALS")
      ConstByName=SQL_TIMEDATE_ADD_INTERVALS

    case LCase("SQL_TIMEDATE_DIFF_INTERVALS")
      ConstByName=SQL_TIMEDATE_DIFF_INTERVALS

    case LCase("SQL_NEED_LONG_DATA_LEN")
      ConstByName=SQL_NEED_LONG_DATA_LEN

    case LCase("SQL_MAX_BINARY_LITERAL_LEN")
      ConstByName=SQL_MAX_BINARY_LITERAL_LEN

    case LCase("SQL_LIKE_ESCAPE_CLAUSE")
      ConstByName=SQL_LIKE_ESCAPE_CLAUSE

    case LCase("SQL_QUALIFIER_LOCATION")
      ConstByName=SQL_QUALIFIER_LOCATION

    case LCase("SQL_INFO_LAST")
      ConstByName=SQL_INFO_LAST

    case LCase("SQL_INFO_DRIVER_START")
      ConstByName=SQL_INFO_DRIVER_START

    case LCase("regNull")
      ConstByName=regNull

    case LCase("regString")
      ConstByName=regString

    case LCase("regXString")
      ConstByName=regXString

    case LCase("regBinary")
      ConstByName=regBinary

    case LCase("regDWord")
      ConstByName=regDWord

    case LCase("regLink")
      ConstByName=regLink

    case LCase("regMultiString")
      ConstByName=regMultiString

    case LCase("regResList")
      ConstByName=regResList

    case LCase("HKEY_CLASSES_ROOT")
      ConstByName=HKEY_CLASSES_ROOT

    case LCase("HKEY_CURRENT_USER")
      ConstByName=HKEY_CURRENT_USER

    case LCase("HKEY_LOCAL_MACHINE")
      ConstByName=HKEY_LOCAL_MACHINE

    case LCase("HKEY_USERS")
      ConstByName=HKEY_USERS

    case LCase("HKEY_PERFORMANCE_DATA")
      ConstByName=HKEY_PERFORMANCE_DATA

    case LCase("HKEY_CURRENT_CONFIG")
      ConstByName=HKEY_CURRENT_CONFIG

    case LCase("HKEY_DYN_DATA")
      ConstByName=HKEY_DYN_DATA

    case LCase("scUserAgent")
      ConstByName=scUserAgent

    case LCase("INTERNET_OPEN_TYPE_PRECONFIG")
      ConstByName=INTERNET_OPEN_TYPE_PRECONFIG

    case LCase("INTERNET_DEFAULT_FTP_PORT")
      ConstByName=INTERNET_DEFAULT_FTP_PORT

    case LCase("INTERNET_DEFAULT_GOPHER_PORT")
      ConstByName=INTERNET_DEFAULT_GOPHER_PORT

    case LCase("INTERNET_DEFAULT_HTTP_PORT")
      ConstByName=INTERNET_DEFAULT_HTTP_PORT

    case LCase("INTERNET_DEFAULT_HTTPS_PORT")
      ConstByName=INTERNET_DEFAULT_HTTPS_PORT

    case LCase("INTERNET_DEFAULT_SOCKS_PORT")
      ConstByName=INTERNET_DEFAULT_SOCKS_PORT

    case LCase("INTERNET_SERVICE_FTP")
      ConstByName=INTERNET_SERVICE_FTP

    case LCase("INTERNET_SERVICE_GOPHER")
      ConstByName=INTERNET_SERVICE_GOPHER

    case LCase("INTERNET_SERVICE_HTTP")
      ConstByName=INTERNET_SERVICE_HTTP

    case LCase("INTERNET_FLAG_RELOAD")
      ConstByName=INTERNET_FLAG_RELOAD

    case LCase("HTTP_QUERY_CONTENT_TYPE")
      ConstByName=HTTP_QUERY_CONTENT_TYPE

    case LCase("HTTP_QUERY_CONTENT_LENGTH")
      ConstByName=HTTP_QUERY_CONTENT_LENGTH

    case LCase("HTTP_QUERY_EXPIRES")
      ConstByName=HTTP_QUERY_EXPIRES

    case LCase("HTTP_QUERY_LAST_MODIFIED")
      ConstByName=HTTP_QUERY_LAST_MODIFIED

    case LCase("HTTP_QUERY_PRAGMA")
      ConstByName=HTTP_QUERY_PRAGMA

    case LCase("HTTP_QUERY_VERSION")
      ConstByName=HTTP_QUERY_VERSION

    case LCase("HTTP_QUERY_STATUS_CODE")
      ConstByName=HTTP_QUERY_STATUS_CODE

    case LCase("HTTP_QUERY_STATUS_TEXT")
      ConstByName=HTTP_QUERY_STATUS_TEXT

    case LCase("HTTP_QUERY_RAW_HEADERS")
      ConstByName=HTTP_QUERY_RAW_HEADERS

    case LCase("HTTP_QUERY_RAW_HEADERS_CRLF")
      ConstByName=HTTP_QUERY_RAW_HEADERS_CRLF

    case LCase("HTTP_QUERY_FORWARDED")
      ConstByName=HTTP_QUERY_FORWARDED

    case LCase("HTTP_QUERY_SERVER")
      ConstByName=HTTP_QUERY_SERVER

    case LCase("HTTP_QUERY_USER_AGENT")
      ConstByName=HTTP_QUERY_USER_AGENT

    case LCase("HTTP_QUERY_SET_COOKIE")
      ConstByName=HTTP_QUERY_SET_COOKIE

    case LCase("HTTP_QUERY_REQUEST_METHOD")
      ConstByName=HTTP_QUERY_REQUEST_METHOD

    case LCase("HTTP_QUERY_FLAG_REQUEST_HEADERS")
      ConstByName=HTTP_QUERY_FLAG_REQUEST_HEADERS

    case LCase("INTERNET_OPTION_VERSION")
      ConstByName=INTERNET_OPTION_VERSION

    case LCase("HTTP_ADDREQ_FLAG_ADD_IF_NEW")
      ConstByName=HTTP_ADDREQ_FLAG_ADD_IF_NEW

    case LCase("HTTP_ADDREQ_FLAG_ADD")
      ConstByName=HTTP_ADDREQ_FLAG_ADD

    case LCase("HTTP_ADDREQ_FLAG_REPLACE")
      ConstByName=HTTP_ADDREQ_FLAG_REPLACE

    case LCase("LVM_FIRST")
      ConstByName=LVM_FIRST

    case LCase("LVM_SETCOLUMNWIDTH")
      ConstByName=LVM_SETCOLUMNWIDTH

    case LCase("LVSCW_AUTOSIZE")
      ConstByName=LVSCW_AUTOSIZE

    case LCase("LVSCW_AUTOSIZE_USEHEADER")
      ConstByName=LVSCW_AUTOSIZE_USEHEADER

    case LCase("VER_PLATFORM_WIN32s")
      ConstByName=VER_PLATFORM_WIN32s

    case LCase("VER_PLATFORM_WIN32_WINDOWS")
      ConstByName=VER_PLATFORM_WIN32_WINDOWS

    case LCase("VER_PLATFORM_WIN32_NT")
      ConstByName=VER_PLATFORM_WIN32_NT

    case LCase("SUPPORT_EMAIL")
      ConstByName=SUPPORT_EMAIL

    case LCase("QUOTE")
      ConstByName=QUOTE

    case LCase("DEFAULT_AUTOHIGHLIGHT")
      ConstByName=DEFAULT_AUTOHIGHLIGHT

  End Select
End Function


