Database Comparer VCL 6.4.908.0 D5-XE10.1

unit ADOX_TLB; // ************************************************************************ // // WARNING // ------- // The types declared in this file were generated from data read from a // Type Library. If this type library is explicitly or indirectly (via // another type library referring to this type library) re-imported, or the // 'Refresh' command of the Type Library Editor activated while editing the // Type Library, the contents of this file will be regenerated and all // manual modifications will be lost. // ************************************************************************ // // PASTLWTR : 1.2 // File generated on 02.03.2007 20:06:33 from Type Library described below. // ************************************************************************ // // Type Lib: C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msadox.dll (1) // LIBID: {00000600-0000-0010-8000-00AA006D2EA4} // LCID: 0 // Helpfile: C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\ado270.chm // HelpString: Microsoft ADO Ext. 2.8 for DDL and Security // DepndLst: // (1) v2.0 stdole, (C:\WIN2003\system32\stdole2.tlb) // Errors: // Hint: TypeInfo 'Property' changed to 'Property_' // Hint: TypeInfo 'Procedure' changed to 'Procedure_' // Hint: Parameter 'Object' of _DynaCollection.Append changed to 'Object_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of Columns.Append changed to 'Type_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of Keys.Append changed to 'Type_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Symbol 'Type' renamed to 'type_' // ************************************************************************ // {$I Comparer.INC} {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. {$IFDEF Delphi6} {$WARN SYMBOL_PLATFORM OFF} {$WRITEABLECONST ON} {$VARPROPSETTER ON} {$ENDIF} interface uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, {$IFDEF Delphi6}Variants{$ELSE}OleCtrls{$ENDIF}; // *********************************************************************// // GUIDS declared in the TypeLibrary. Following prefixes are used: // Type Libraries : LIBID_xxxx // CoClasses : CLASS_xxxx // DISPInterfaces : DIID_xxxx // Non-DISP interfaces: IID_xxxx // *********************************************************************// const // TypeLibrary Major and minor versions ADOXMajorVersion = 2; ADOXMinorVersion = 8; LIBID_ADOX: TGUID = '{00000600-0000-0010-8000-00AA006D2EA4}'; IID__Collection: TGUID = '{00000512-0000-0010-8000-00AA006D2EA4}'; IID__DynaCollection: TGUID = '{00000513-0000-0010-8000-00AA006D2EA4}'; IID__Catalog: TGUID = '{00000603-0000-0010-8000-00AA006D2EA4}'; IID_Tables: TGUID = '{00000611-0000-0010-8000-00AA006D2EA4}'; IID__Table: TGUID = '{00000610-0000-0010-8000-00AA006D2EA4}'; CLASS_Table: TGUID = '{00000609-0000-0010-8000-00AA006D2EA4}'; IID_Columns: TGUID = '{0000061D-0000-0010-8000-00AA006D2EA4}'; IID__Column: TGUID = '{0000061C-0000-0010-8000-00AA006D2EA4}'; CLASS_Column: TGUID = '{0000061B-0000-0010-8000-00AA006D2EA4}'; IID_Properties: TGUID = '{00000504-0000-0010-8000-00AA006D2EA4}'; IID_Property_: TGUID = '{00000503-0000-0010-8000-00AA006D2EA4}'; IID_Indexes: TGUID = '{00000620-0000-0010-8000-00AA006D2EA4}'; IID__Index: TGUID = '{0000061F-0000-0010-8000-00AA006D2EA4}'; CLASS_Index: TGUID = '{0000061E-0000-0010-8000-00AA006D2EA4}'; IID_Keys: TGUID = '{00000623-0000-0010-8000-00AA006D2EA4}'; IID__Key: TGUID = '{00000622-0000-0010-8000-00AA006D2EA4}'; CLASS_Key: TGUID = '{00000621-0000-0010-8000-00AA006D2EA4}'; IID_Procedures: TGUID = '{00000626-0000-0010-8000-00AA006D2EA4}'; IID_Procedure_: TGUID = '{00000625-0000-0010-8000-00AA006D2EA4}'; IID_Views: TGUID = '{00000614-0000-0010-8000-00AA006D2EA4}'; IID_View: TGUID = '{00000613-0000-0010-8000-00AA006D2EA4}'; IID_Groups: TGUID = '{00000617-0000-0010-8000-00AA006D2EA4}'; IID__Group25: TGUID = '{00000616-0000-0010-8000-00AA006D2EA4}'; IID__Group: TGUID = '{00000628-0000-0010-8000-00AA006D2EA4}'; CLASS_Group: TGUID = '{00000615-0000-0010-8000-00AA006D2EA4}'; IID_Users: TGUID = '{0000061A-0000-0010-8000-00AA006D2EA4}'; IID__User25: TGUID = '{00000619-0000-0010-8000-00AA006D2EA4}'; IID__User: TGUID = '{00000627-0000-0010-8000-00AA006D2EA4}'; CLASS_User: TGUID = '{00000618-0000-0010-8000-00AA006D2EA4}'; CLASS_Catalog: TGUID = '{00000602-0000-0010-8000-00AA006D2EA4}'; // *********************************************************************// // Declaration of Enumerations defined in Type Library // *********************************************************************// // Constants for enum ColumnAttributesEnum type ColumnAttributesEnum = TOleEnum; const adColFixed = $00000001; adColNullable = $00000002; // Constants for enum SortOrderEnum type SortOrderEnum = TOleEnum; const adSortAscending = $00000001; adSortDescending = $00000002; // Constants for enum DataTypeEnum type DataTypeEnum = TOleEnum; const adEmpty = $00000000; adTinyInt = $00000010; adSmallInt = $00000002; adInteger = $00000003; adBigInt = $00000014; adUnsignedTinyInt = $00000011; adUnsignedSmallInt = $00000012; adUnsignedInt = $00000013; adUnsignedBigInt = $00000015; adSingle = $00000004; adDouble = $00000005; adCurrency = $00000006; adDecimal = $0000000E; adNumeric = $00000083; adBoolean = $0000000B; adError = $0000000A; adUserDefined = $00000084; adVariant = $0000000C; adIDispatch = $00000009; adIUnknown = $0000000D; adGUID = $00000048; adDate = $00000007; adDBDate = $00000085; adDBTime = $00000086; adDBTimeStamp = $00000087; adBSTR = $00000008; adChar = $00000081; adVarChar = $000000C8; adLongVarChar = $000000C9; adWChar = $00000082; adVarWChar = $000000CA; adLongVarWChar = $000000CB; adBinary = $00000080; adVarBinary = $000000CC; adLongVarBinary = $000000CD; adChapter = $00000088; adFileTime = $00000040; adPropVariant = $0000008A; adVarNumeric = $0000008B; // Constants for enum AllowNullsEnum type AllowNullsEnum = TOleEnum; const adIndexNullsAllow = $00000000; adIndexNullsDisallow = $00000001; adIndexNullsIgnore = $00000002; adIndexNullsIgnoreAny = $00000004; // Constants for enum RuleEnum type RuleEnum = TOleEnum; const adRINone = $00000000; adRICascade = $00000001; adRISetNull = $00000002; adRISetDefault = $00000003; // Constants for enum KeyTypeEnum type KeyTypeEnum = TOleEnum; const adKeyPrimary = $00000001; adKeyForeign = $00000002; adKeyUnique = $00000003; // Constants for enum ObjectTypeEnum type ObjectTypeEnum = TOleEnum; const adPermObjProviderSpecific = $FFFFFFFF; adPermObjTable = $00000001; adPermObjColumn = $00000002; adPermObjDatabase = $00000003; adPermObjProcedure = $00000004; adPermObjView = $00000005; // Constants for enum RightsEnum type RightsEnum = TOleEnum; const adRightNone = $00000000; adRightDrop = $00000100; adRightExclusive = $00000200; adRightReadDesign = $00000400; adRightWriteDesign = $00000800; adRightWithGrant = $00001000; adRightReference = $00002000; adRightCreate = $00004000; adRightInsert = $00008000; adRightDelete = $00010000; adRightReadPermissions = $00020000; adRightWritePermi