home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue32 / survive / SQLOLE_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-02-14  |  325.7 KB  |  7,031 lines
  1. unit SQLOLE_TLB;
  2.  
  3. { This file contains pascal declarations imported from a type library.
  4.   This file will be written during each import or refresh of the type
  5.   library editor.  Changes to this file will be discarded during the
  6.   refresh process. }
  7.  
  8. { Microsoft SQLOLE Object Library }
  9. { Version 6.5 }
  10.  
  11. { Conversion log:
  12.   Warning: 'Property' is a reserved word. Property changed to Property_
  13.   Warning: 'Type' is a reserved word. Property_.Type changed to Type_
  14.   Warning: 'Set' is a reserved word. Property_.Set changed to Set_
  15.   Warning: 'Object' is a reserved word. Parameter 'Object' in Databases.Add changed to 'Object_'
  16.   Warning: 'Object' is a reserved word. Parameter 'Object' in Tables.Add changed to 'Object_'
  17.   Warning: 'Object' is a reserved word. Parameter 'Object' in Columns.Add changed to 'Object_'
  18.   Warning: 'Object' is a reserved word. Parameter 'Object' in Views.Add changed to 'Object_'
  19.   Warning: 'Object' is a reserved word. Parameter 'Object' in UserDefinedDatatypes.Add changed to 'Object_'
  20.   Warning: 'Object' is a reserved word. Parameter 'Object' in Defaults.Add changed to 'Object_'
  21.   Warning: 'Object' is a reserved word. Parameter 'Object' in Rules.Add changed to 'Object_'
  22.   Warning: 'Object' is a reserved word. Parameter 'Object' in Users.Add changed to 'Object_'
  23.   Warning: 'Object' is a reserved word. Parameter 'Object' in Groups.Add changed to 'Object_'
  24.   Warning: 'Object' is a reserved word. Parameter 'Object' in StoredProcedures.Add changed to 'Object_'
  25.   Warning: 'Object' is a reserved word. Parameter 'Object' in Indexes.Add changed to 'Object_'
  26.   Warning: 'Object' is a reserved word. Parameter 'Object' in Keys.Add changed to 'Object_'
  27.   Warning: 'Object' is a reserved word. Parameter 'Object' in Triggers.Add changed to 'Object_'
  28.   Warning: 'Object' is a reserved word. Parameter 'Object' in Devices.Add changed to 'Object_'
  29.   Warning: 'Object' is a reserved word. Parameter 'Object' in Alerts.Add changed to 'Object_'
  30.   Warning: 'Object' is a reserved word. Parameter 'Object' in Logins.Add changed to 'Object_'
  31.   Warning: 'Object' is a reserved word. Parameter 'Object' in Languages.Add changed to 'Object_'
  32.   Warning: 'Object' is a reserved word. Parameter 'Object' in RemoteServers.Add changed to 'Object_'
  33.   Warning: 'Object' is a reserved word. Parameter 'Object' in RemoteLogins.Add changed to 'Object_'
  34.   Warning: 'Object' is a reserved word. Parameter 'Object' in Tasks.Add changed to 'Object_'
  35.   Warning: 'Object' is a reserved word. Parameter 'Object' in Operators.Add changed to 'Object_'
  36.   Warning: 'Object' is a reserved word. Parameter 'Object' in Publications.Add changed to 'Object_'
  37.   Warning: 'Object' is a reserved word. Parameter 'Object' in Articles.Add changed to 'Object_'
  38.   Warning: 'Object' is a reserved word. Parameter 'Object' in Subscriptions.Add changed to 'Object_'
  39.   Warning: 'Object' is a reserved word. Parameter 'Object' in Checks.Add changed to 'Object_'
  40.   Warning: 'Object' is a reserved word. Parameter 'Object' in ServerGroups.Add changed to 'Object_'
  41.   Warning: 'Object' is a reserved word. Parameter 'Object' in RegisteredServers.Add changed to 'Object_'
  42.   Warning: 'Type' is a reserved word. DBObject.Type changed to Type_
  43.   Warning: 'Type' is a reserved word. SubscriberInfo.Type changed to Type_
  44.   Warning: 'Type' is a reserved word. _StoredProcedure.Type changed to Type_
  45.   Warning: 'Type' is a reserved word. _Index.Type changed to Type_
  46.   Warning: 'Type' is a reserved word. _Key.Type changed to Type_
  47.   Warning: 'Type' is a reserved word. _Trigger.Type changed to Type_
  48.   Warning: 'Type' is a reserved word. _Device.Type changed to Type_
  49.   Warning: Parent Interface has a member with name: Invoke. _Task.Invoke changed to Invoke_
  50.   Warning: QueryResults.GetColumnBinary return parameter of type PSafeArray was written as OleVariant
  51.  }
  52.  
  53. interface
  54.  
  55. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  56.  
  57. const
  58.   LIBID_SQLOLE: TGUID = '{00026B00-0000-0000-C000-000000000046}';
  59.  
  60. const
  61.  
  62. { SQLOLE_OBJECT_TYPE }
  63.  
  64.   SQLOLEObj_Unknown = 16384;
  65.   SQLOLEObj_Application = 0;
  66.   SQLOLEObj_UserDefinedDatatype = 1;
  67.   SQLOLEObj_SystemTable = 2;
  68.   SQLOLEObj_View = 4;
  69.   SQLOLEObj_UserTable = 8;
  70.   SQLOLEObj_StoredProcedure = 16;
  71.   SQLOLEObj_Default = 64;
  72.   SQLOLEObj_Rule = 128;
  73.   SQLOLEObj_Trigger = 256;
  74.   SQLOLEObj_AllDatabaseUserObjects = 509;
  75.   SQLOLEObj_AllDatabaseObjects = 511;
  76.   SQLOLEObj_SystemDatatype = 10021;
  77.   SQLOLEObj_User = 10022;
  78.   SQLOLEObj_Group = 10023;
  79.   SQLOLEObj_Index = 10024;
  80.   SQLOLEObj_Key = 10025;
  81.   SQLOLEObj_Column = 10026;
  82.   SQLOLEObj_DBObject = 10027;
  83.   SQLOLEObj_DBOption = 10028;
  84.   SQLOLEObj_ProcedureParameter = 10029;
  85.   SQLOLEObj_Permission = 10033;
  86.   SQLOLEObj_IntegratedSecurity = 10034;
  87.   SQLOLEObj_Check = 10035;
  88.   SQLOLEObj_DRIDefault = 10036;
  89.   SQLOLEObj_SQLServer = 10050;
  90.   SQLOLEObj_Database = 10051;
  91.   SQLOLEObj_Device = 10052;
  92.   SQLOLEObj_Login = 10054;
  93.   SQLOLEObj_Language = 10055;
  94.   SQLOLEObj_RemoteServer = 10056;
  95.   SQLOLEObj_RemoteLogin = 10057;
  96.   SQLOLEObj_Configuration = 10059;
  97.   SQLOLEObj_ConfigValue = 10060;
  98.   SQLOLEObj_AlertSystem = 10061;
  99.   SQLOLEObj_Executive = 10062;
  100.   SQLOLEObj_QueryResults = 10063;
  101.   SQLOLEObj_TransactionLog = 10064;
  102.   SQLOLEObj_Registry = 10065;
  103.   SQLOLEObj_Transfer = 10066;
  104.   SQLOLEObj_Backup = 10067;
  105.   SQLOLEObj_Task = 10068;
  106.   SQLOLEObj_Alert = 10069;
  107.   SQLOLEObj_Operator = 10070;
  108.   SQLOLEObj_HistoryFilter = 10071;
  109.   SQLOLEObj_Publication = 10072;
  110.   SQLOLEObj_Article = 10073;
  111.   SQLOLEObj_Subscription = 10074;
  112.   SQLOLEObj_SubscriberInfo = 10075;
  113.   SQLOLEObj_AutoProperty = 10076;
  114.   SQLOLEObj_ServerGroup = 10077;
  115.   SQLOLEObj_RegisteredServer = 10078;
  116.   SQLOLEObj_BulkCopy = 10079;
  117.  
  118. { SQLOLE_KEY_TYPE }
  119.  
  120.   SQLOLEKey_Unknown = 0;
  121.   SQLOLEKey_Primary = 1;
  122.   SQLOLEKey_Unique = 2;
  123.   SQLOLEKey_Foreign = 3;
  124.  
  125. { SQLOLE_DEVICE_TYPE }
  126.  
  127.   SQLOLEDevice_Unknown = 100;
  128.   SQLOLEDevice_Database = 0;
  129.   SQLOLEDevice_DiskDump = 2;
  130.   SQLOLEDevice_FloppyADump = 3;
  131.   SQLOLEDevice_FloppyBDump = 4;
  132.   SQLOLEDevice_TapeDump = 5;
  133.   SQLOLEDevice_PipeDump = 6;
  134.   SQLOLEDevice_CDROM = 7;
  135.  
  136. { SQLOLE_MIRROR_TYPE }
  137.  
  138.   SQLOLEMirror_None = 0;
  139.   SQLOLEMirror_Inactive = 64;
  140.   SQLOLEMirror_RunningOnMirror = 320;
  141.   SQLOLEMirror_Active = 576;
  142.  
  143. { SQLOLE_PRIVILEGE_TYPE }
  144.  
  145.   SQLOLEPriv_Unknown = 0;
  146.   SQLOLEPriv_Select = 1;
  147.   SQLOLEPriv_Insert = 2;
  148.   SQLOLEPriv_Update = 4;
  149.   SQLOLEPriv_Delete = 8;
  150.   SQLOLEPriv_Execute = 16;
  151.   SQLOLEPriv_References = 32;
  152.   SQLOLEPriv_AllObjectPrivs = 63;
  153.   SQLOLEPriv_CreateTable = 128;
  154.   SQLOLEPriv_CreateDatabase = 256;
  155.   SQLOLEPriv_CreateView = 512;
  156.   SQLOLEPriv_CreateProcedure = 1024;
  157.   SQLOLEPriv_DumpDatabase = 2048;
  158.   SQLOLEPriv_CreateDefault = 4096;
  159.   SQLOLEPriv_DumpTransaction = 8192;
  160.   SQLOLEPriv_CreateRule = 16384;
  161.   SQLOLEPriv_AllDatabasePrivs = 32640;
  162.  
  163. { SQLOLE_PROCEDURE_TYPE }
  164.  
  165.   SQLOLEProc_Unknown = 0;
  166.   SQLOLEProc_Standard = 1;
  167.   SQLOLEProc_Extended = 2;
  168.   SQLOLEProc_Macro = 3;
  169.   SQLOLEProc_ReplicationFilter = 4;
  170.  
  171. { SQLOLE_TRIGGER_TYPE }
  172.  
  173.   SQLOLETrig_Unknown = 0;
  174.   SQLOLETrig_Insert = 1;
  175.   SQLOLETrig_Update = 2;
  176.   SQLOLETrig_Delete = 4;
  177.   SQLOLETrig_All = 7;
  178.  
  179. { SQLOLE_INDEX_TYPE }
  180.  
  181.   SQLOLEIndex_Default = 0;
  182.   SQLOLEIndex_IgnoreDupKey = 1;
  183.   SQLOLEIndex_Unique = 2;
  184.   SQLOLEIndex_IgnoreDupRow = 4;
  185.   SQLOLEIndex_Clustered = 16;
  186.   SQLOLEIndex_AllowDupRow = 64;
  187.   SQLOLEIndex_SortedData = 512;
  188.   SQLOLEIndex_SortedDataReorg = 8192;
  189.   SQLOLEIndex_Valid = 8791;
  190.   SQLOLEIndex_DRIPrimaryKey = 2048;
  191.   SQLOLEIndex_DRIUniqueKey = 4096;
  192.   SQLOLEIndex_DRIIndex = 6144;
  193.  
  194. { SQLOLE_QUERY_DATATYPE }
  195.  
  196.   SQLOLE_DTypeUnknown = 0;
  197.   SQLOLE_DTypeChar = 47;
  198.   SQLOLE_DTypeText = 35;
  199.   SQLOLE_DTypeVarchar = 39;
  200.   SQLOLE_DTypeVarBinary = 37;
  201.   SQLOLE_DTypeBinary = 45;
  202.   SQLOLE_DTypeImage = 34;
  203.   SQLOLE_DTypeFloat4 = 59;
  204.   SQLOLE_DTypeFloat8 = 62;
  205.   SQLOLE_DTypeInt1 = 48;
  206.   SQLOLE_DTypeInt2 = 52;
  207.   SQLOLE_DTypeInt4 = 56;
  208.   SQLOLE_DTypeMoney4 = 122;
  209.   SQLOLE_DTypeMoney = 60;
  210.   SQLOLE_DTypeDateTime = 61;
  211.   SQLOLE_DTypeDateTime4 = 58;
  212.   SQLOLE_DTypeBit = 50;
  213.  
  214. { SQLOLE_AUDIT_TYPE }
  215.  
  216.   SQLOLEAudit_None = 0;
  217.   SQLOLEAudit_Success = 1;
  218.   SQLOLEAudit_Failure = 2;
  219.   SQLOLEAudit_All = 3;
  220.  
  221. { SQLOLE_SECURITY_TYPE }
  222.  
  223.   SQLOLESecurity_Min = 0;
  224.   SQLOLESecurity_Normal = 0;
  225.   SQLOLESecurity_Integrated = 1;
  226.   SQLOLESecurity_Mixed = 2;
  227.   SQLOLESecurity_Max = 2;
  228.  
  229. { SQLOLE_MEDIA_TYPE }
  230.  
  231.   SQLOLEMedia_Floppy = 1;
  232.   SQLOLEMedia_FixedDisk = 2;
  233.   SQLOLEMedia_Tape = 4;
  234.   SQLOLEMedia_CDROM = 8;
  235.   SQLOLEMedia_All = 15;
  236.  
  237. { SQLOLE_PERFMON_TYPE }
  238.  
  239.   SQLOLEPerfmon_None = 1000;
  240.   SQLOLEPerfmon_MinSet = 0;
  241.   SQLOLEPerfmon_Continuous = 0;
  242.   SQLOLEPerfmon_OnDemand = 1;
  243.   SQLOLEPerfmon_MaxSet = 1;
  244.  
  245. { SQLOLE_STARTSRV_TYPE }
  246.  
  247.   SQLOLEStart_NoServiceControl = 1;
  248.   SQLOLEStart_NTErrorLogging = 2;
  249.   SQLOLEStart_SingleUser = 4;
  250.   SQLOLEStart_StartAndConnect = 8;
  251.   SQLOLEStart_RealTime = 16;
  252.   SQLOLEStart_Defaults = 10;
  253.  
  254. { SQLOLE_DBSTATUS_TYPE }
  255.  
  256.   SQLOLEDBStat_Normal = 0;
  257.   SQLOLEDBStat_Loading = 32;
  258.   SQLOLEDBStat_Recovering = 192;
  259.   SQLOLEDBStat_Suspect = 256;
  260.   SQLOLEDBStat_Offline = 512;
  261.   SQLOLEDBStat_Inaccessible = 992;
  262.   SQLOLEDBStat_EmergencyMode = 32768;
  263.   SQLOLEDBStat_All = 33760;
  264.  
  265. { SQLOLE_COPYDATA_TYPE }
  266.  
  267.   SQLOLECopyData_False = 0;
  268.   SQLOLECopyData_Replace = 1;
  269.   SQLOLECopyData_Append = 2;
  270.  
  271. { SQLOLE_DATAFILE_TYPE }
  272.  
  273.   SQLOLEDataFile_CommaDelimitedChar = 1;
  274.   SQLOLEDataFile_Default = 1;
  275.   SQLOLEDataFile_TabDelimitedChar = 2;
  276.   SQLOLEDataFile_SpecialDelimitedChar = 3;
  277.   SQLOLEDataFile_NativeFormat = 4;
  278.   SQLOLEDataFile_UseFormatFile = 5;
  279.  
  280. { SQLOLE_STATUSINFO_TYPE }
  281.  
  282.   SQLOLEStatInfo_Unknown = 0;
  283.   SQLOLEStatInfo_DatabaseStatus = 1;
  284.   SQLOLEStatInfo_DatabaseSpace = 2;
  285.   SQLOLEStatInfo_AutoVerifyConnection = 4;
  286.   SQLOLEStatInfo_All = 7;
  287.  
  288. { SQLOLE_SCRIPT_TYPE }
  289.  
  290.   SQLOLEScript_Default = 4;
  291.   SQLOLEScript_Drops = 1;
  292.   SQLOLEScript_ObjectPermissions = 2;
  293.   SQLOLEScript_PrimaryObject = 4;
  294.   SQLOLEScript_ClusteredIndexes = 8;
  295.   SQLOLEScript_Triggers = 16;
  296.   SQLOLEScript_DatabasePermissions = 32;
  297.   SQLOLEScript_Permissions = 34;
  298.   SQLOLEScript_ToFileOnly = 64;
  299.   SQLOLEScript_Bindings = 128;
  300.   SQLOLEScript_AppendToFile = 256;
  301.   SQLOLEScript_NoDRI = 512;
  302.   SQLOLEScript_UDDTsToBaseType = 1024;
  303.   SQLOLEScript_42Syntax = 2048;
  304.   SQLOLEScript_ODBCSyntax = 3584;
  305.   SQLOLEScript_IncludeIfNotExists = 4096;
  306.   SQLOLEScript_NonClusteredIndexes = 8192;
  307.   SQLOLEScript_Indexes = 73736;
  308.   SQLOLEScript_Aliases = 16384;
  309.   SQLOLEScript_NoCommandTerm = 32768;
  310.   SQLOLEScript_DRIIndexes = 65536;
  311.   SQLOLEScript_IncludeHeaders = 131072;
  312.   SQLOLEScript_OwnerQualify = 262144;
  313.   SQLOLEScript_TimestampToBinary = 524288;
  314.   SQLOLEScript_SortedData = 1048576;
  315.   SQLOLEScript_SortedDataReorg = 2097152;
  316.   SQLOLEScript_TransferDefault = 422143;
  317.   SQLOLEScript_DRI_NonClustered = 4194304;
  318.   SQLOLEScript_DRI_Clustered = 8388608;
  319.   SQLOLEScript_DRI_Checks = 16777216;
  320.   SQLOLEScript_DRI_Defaults = 33554432;
  321.   SQLOLEScript_DRI_UniqueKeys = 67108864;
  322.   SQLOLEScript_DRI_ForeignKeys = 134217728;
  323.   SQLOLEScript_DRI_PrimaryKey = 268435456;
  324.   SQLOLEScript_DRI_AllKeys = 469762048;
  325.   SQLOLEScript_DRI_AllConstraints = 520093696;
  326.   SQLOLEScript_DRI_All = 532676608;
  327.   SQLOLEScript_DRIWithNoCheck = 536870912;
  328.   SQLOLEScript_NoIdentity = 1073741824;
  329.   SQLOLEScript_UseQuotedIdentifiers = $80000000;
  330.  
  331. { SQLOLE_XFRSCRIPTMODE_TYPE }
  332.  
  333.   SQLOLEXfrFile_Default = 1;
  334.   SQLOLEXfrFile_SummaryFiles = 1;
  335.   SQLOLEXfrFile_SingleFile = 2;
  336.   SQLOLEXfrFile_SingleFilePerObject = 4;
  337.  
  338. { SQLOLE_DEPENDENCY_TYPE }
  339.  
  340.   SQLOLEDep_Parents = 0;
  341.   SQLOLEDep_FullHierarchy = 65536;
  342.   SQLOLEDep_OrderDescending = 131072;
  343.   SQLOLEDep_Children = 262144;
  344.   SQLOLEDep_ReturnInputObject = 524288;
  345.   SQLOLEDep_FirstLevelOnly = 1048576;
  346.   SQLOLEDep_DRIOnly = 2097152;
  347.   SQLOLEDep_Valid = 4128768;
  348.  
  349. { SQLOLE_OBJSORT_TYPE }
  350.  
  351.   SQLOLEObjSort_Name = 0;
  352.   SQLOLEObjSort_Type = 1;
  353.   SQLOLEObjSort_Owner = 2;
  354.   SQLOLEObjSort_Date = 3;
  355.  
  356. { SQLOLE_COMPLETION_TYPE }
  357.  
  358.   SQLOLEComp_Unknown = 4096;
  359.   SQLOLEComp_None = 0;
  360.   SQLOLEComp_Success = 1;
  361.   SQLOLEComp_Failure = 2;
  362.   SQLOLEComp_Always = 3;
  363.   SQLOLEComp_Running = 4;
  364.   SQLOLEComp_Aborted = 8;
  365.   SQLOLEComp_Skipped = 16;
  366.   SQLOLEComp_All = 31;
  367.  
  368. { SQLOLE_EVENT_TYPE }
  369.  
  370.   SQLOLEEvent_Unknown = 0;
  371.   SQLOLEEvent_Info = 1;
  372.   SQLOLEEvent_Warning = 2;
  373.   SQLOLEEvent_Error = 4;
  374.   SQLOLEEvent_AuditSuccess = 8;
  375.   SQLOLEEvent_AuditFailure = 16;
  376.   SQLOLEEvent_All = 31;
  377.  
  378. { SQLOLE_SVCSTATUS_TYPE }
  379.  
  380.   SQLOLESvc_Unknown = 0;
  381.   SQLOLESvc_Running = 1;
  382.   SQLOLESvc_Paused = 2;
  383.   SQLOLESvc_Stopped = 3;
  384.   SQLOLESvc_Starting = 4;
  385.   SQLOLESvc_Stopping = 5;
  386.   SQLOLESvc_Continuing = 6;
  387.   SQLOLESvc_Pausing = 7;
  388.  
  389. { SQLOLE_FREQUENCY_TYPE }
  390.  
  391.   SQLOLEFreq_Unknown = 0;
  392.   SQLOLEFreq_OneTime = 1;
  393.   SQLOLEFreq_OnDemand = 2;
  394.   SQLOLEFreq_Daily = 4;
  395.   SQLOLEFreq_Weekly = 8;
  396.   SQLOLEFreq_Monthly = 16;
  397.   SQLOLEFreq_MonthlyRelative = 32;
  398.   SQLOLEFreq_Autostart = 64;
  399.   SQLOLEFreq_Recurring = 124;
  400.   SQLOLEFreq_Valid = 127;
  401.  
  402. { SQLOLE_FREQSUB_TYPE }
  403.  
  404.   SQLOLEFreqSub_Unknown = 0;
  405.   SQLOLEFreqSub_Once = 1;
  406.   SQLOLEFreqSub_Minute = 4;
  407.   SQLOLEFreqSub_Hour = 8;
  408.   SQLOLEFreqSub_Valid = 13;
  409.  
  410. { SQLOLE_FREQRELATIVE_TYPE }
  411.  
  412.   SQLOLEFreqRel_Unknown = 0;
  413.   SQLOLEFreqRel_First = 1;
  414.   SQLOLEFreqRel_Second = 2;
  415.   SQLOLEFreqRel_Third = 4;
  416.   SQLOLEFreqRel_Fourth = 8;
  417.   SQLOLEFreqRel_Last = 16;
  418.   SQLOLEFreqRel_Valid = 31;
  419.  
  420. { SQLOLE_WEEKDAY_TYPE }
  421.  
  422.   SQLOLEWeek_Unknown = 0;
  423.   SQLOLEWeek_Sunday = 1;
  424.   SQLOLEWeek_Monday = 2;
  425.   SQLOLEWeek_Tuesday = 4;
  426.   SQLOLEWeek_Wednesday = 8;
  427.   SQLOLEWeek_Thursday = 16;
  428.   SQLOLEWeek_Friday = 32;
  429.   SQLOLEWeek_Saturday = 64;
  430.   SQLOLEWeek_WeekDays = 62;
  431.   SQLOLEWeek_WeekEnds = 65;
  432.   SQLOLEWeek_EveryDay = 127;
  433.  
  434. { SQLOLE_MONTHDAY_TYPE }
  435.  
  436.   SQLOLEMonth_Unknown = 0;
  437.   SQLOLEMonth_MinValid = 1;
  438.   SQLOLEMonth_Sunday = 1;
  439.   SQLOLEMonth_Monday = 2;
  440.   SQLOLEMonth_Tuesday = 3;
  441.   SQLOLEMonth_Wednesday = 4;
  442.   SQLOLEMonth_Thursday = 5;
  443.   SQLOLEMonth_Friday = 6;
  444.   SQLOLEMonth_Saturday = 7;
  445.   SQLOLEMonth_Day = 8;
  446.   SQLOLEMonth_WeekDay = 9;
  447.   SQLOLEMonth_WeekEndDay = 10;
  448.   SQLOLEMonth_MaxValid = 10;
  449.  
  450. { SQLOLE_SRVOPTION_TYPE }
  451.  
  452.   SQLOLESrvOpt_Unknown = 0;
  453.   SQLOLESrvOpt_RPC = 1;
  454.   SQLOLESrvOpt_Publisher = 2;
  455.   SQLOLESrvOpt_Subscriber = 4;
  456.   SQLOLESrvOpt_Distributor = 8;
  457.   SQLOLESrvOpt_DistPublisher = 16;
  458.   SQLOLESrvOpt_ODBCDatasource = 32;
  459.   SQLOLESrvOpt_Valid = 63;
  460.  
  461. { SQLOLE_SUBSCRIBERINFO_TYPE }
  462.  
  463.   SQLOLESubInfo_SQLServer = 0;
  464.   SQLOLESubInfo_ODBCDatasource = 1;
  465.  
  466. { SQLOLE_TABLEATT_TYPE }
  467.  
  468.   SQLOLETabAtt_Identity = 1;
  469.   SQLOLETabAtt_SystemObject = 2;
  470.   SQLOLETabAtt_ForeignKey = 4;
  471.   SQLOLETabAtt_Referenced = 8;
  472.   SQLOLETabAtt_Published = 32;
  473.   SQLOLETabAtt_Replicated = 64;
  474.   SQLOLETabAtt_Check = 128;
  475.   SQLOLETabAtt_Replica = 256;
  476.   SQLOLETabAtt_PrimaryKey = 512;
  477.   SQLOLETabAtt_Unique = 1024;
  478.   SQLOLETabAtt_Default = 2048;
  479.   SQLOLETabAtt_ReplCheck = 4096;
  480.   SQLOLETabAtt_HasConstraint = 7300;
  481.  
  482. { SQLOLE_INITIALSYNC_TYPE }
  483.  
  484.   SQLOLEInitSync_Unknown = 10;
  485.   SQLOLEInitSync_Min = 0;
  486.   SQLOLEInitSync_BCPNative = 0;
  487.   SQLOLEInitSync_BCPChar = 1;
  488.   SQLOLEInitSync_TableDumpLoad = 2;
  489.   SQLOLEInitSync_Max = 2;
  490.  
  491. { SQLOLE_REPFREQ_TYPE }
  492.  
  493.   SQLOLERepFreq_Unknown = 1000;
  494.   SQLOLERepFreq_Min = 0;
  495.   SQLOLERepFreq_Continuous = 0;
  496.   SQLOLERepFreq_Snapshot = 1;
  497.   SQLOLERepFreq_Max = 1;
  498.  
  499. { SQLOLE_REPLICATION_TYPE }
  500.  
  501.   SQLOLERep_Unknown = 256;
  502.   SQLOLERep_LogBased = 1;
  503.   SQLOLERep_ManualFilterProc = 2;
  504.   SQLOLERep_LogBasedManualFilterProc = 3;
  505.   SQLOLERep_ManualSyncView = 4;
  506.   SQLOLERep_LogBasedManualSyncView = 5;
  507.   SQLOLERep_LogBasedManualBoth = 7;
  508.   SQLOLERep_Valid = 7;
  509.  
  510. { SQLOLE_SUBSYNC_TYPE }
  511.  
  512.   SQLOLESubSync_Unknown = 1000;
  513.   SQLOLESubSync_Min = 0;
  514.   SQLOLESubSync_Manual = 0;
  515.   SQLOLESubSync_Auto = 1;
  516.   SQLOLESubSync_Default = 1;
  517.   SQLOLESubSync_None = 2;
  518.   SQLOLESubSync_Max = 2;
  519.  
  520. { SQLOLE_PREARTICLE_TYPE }
  521.  
  522.   SQLOLEPreArt_Min = 0;
  523.   SQLOLEPreArt_None = 0;
  524.   SQLOLEPreArt_DropTable = 1;
  525.   SQLOLEPreArt_DeleteRows = 2;
  526.   SQLOLEPreArt_TruncateTable = 3;
  527.   SQLOLEPreArt_Max = 3;
  528.  
  529. { SQLOLE_SUBSTATUS_TYPE }
  530.  
  531.   SQLOLESubStat_Unknown = 1000;
  532.   SQLOLESubStat_Default = 1000;
  533.   SQLOLESubStat_Min = 0;
  534.   SQLOLESubStat_Inactive = 0;
  535.   SQLOLESubStat_Unsynced = 1;
  536.   SQLOLESubStat_Active = 2;
  537.   SQLOLESubStat_Max = 2;
  538.  
  539. { SQLOLE_RUNPRIORITY_TYPE }
  540.  
  541.   SQLOLERunPri_Unknown = 100;
  542.   SQLOLERunPri_Min = 1;
  543.   SQLOLERunPri_Idle = -15;
  544.   SQLOLERunPri_Lowest = -2;
  545.   SQLOLERunPri_BelowNormal = -1;
  546.   SQLOLERunPri_Normal = 0;
  547.   SQLOLERunPri_AboveNormal = 1;
  548.   SQLOLERunPri_Highest = 2;
  549.   SQLOLERunPri_TimeCritical = 15;
  550.  
  551. { SQLOLE_INTSECLOGIN_TYPE }
  552.  
  553.   SQLOLEIntSecLogin_Unknown = 0;
  554.   SQLOLEIntSecLogin_Min = 1;
  555.   SQLOLEIntSecLogin_Admin = 1;
  556.   SQLOLEIntSecLogin_User = 2;
  557.   SQLOLEIntSecLogin_Replication = 3;
  558.   SQLOLEIntSecLogin_Max = 3;
  559.  
  560. { SQLOLE_NOTIFY_TYPE }
  561.  
  562.   SQLOLENotify_None = 0;
  563.   SQLOLENotify_Email = 1;
  564.   SQLOLENotify_Pager = 2;
  565.   SQLOLENotify_Both = 3;
  566.   SQLOLENotify_Valid = 3;
  567.  
  568. { SQLOLE_ENUMNOTIFY_TYPE }
  569.  
  570.   SQLOLEEnumNotify_Min = 1;
  571.   SQLOLEEnumNotify_All = 1;
  572.   SQLOLEEnumNotify_Actual = 2;
  573.   SQLOLEEnumNotify_Target = 3;
  574.   SQLOLEEnumNotify_Max = 3;
  575.  
  576. { SQLOLE_VERIFYCONN_TYPE }
  577.  
  578.   SQLOLEConn_LastState = 1;
  579.   SQLOLEConn_CurrentState = 2;
  580.   SQLOLEConn_ReconnectIfDead = 6;
  581.   SQLOLEConn_Valid = 7;
  582.  
  583. { SQLOLE_EXEC_TYPE }
  584.  
  585.   SQLOLEExec_Default = 0;
  586.   SQLOLEExec_NoCommandTerm = 1;
  587.   SQLOLEExec_ContinueOnError = 2;
  588.   SQLOLEExec_NoExec = 4;
  589.   SQLOLEExec_ParseOnly = 8;
  590.  
  591. { SQLOLE_CONFIGVALUE_TYPE }
  592.  
  593.   SQLOLEConfig_RecoveryInterval = 101;
  594.   SQLOLEConfig_AllowUpdates = 102;
  595.   SQLOLEConfig_UserConnections = 103;
  596.   SQLOLEConfig_Memory = 104;
  597.   SQLOLEConfig_OpenDatabases = 105;
  598.   SQLOLEConfig_Locks = 106;
  599.   SQLOLEConfig_OpenObjects = 107;
  600.   SQLOLEConfig_ProcedureCache = 108;
  601.   SQLOLEConfig_FillFactor = 109;
  602.   SQLOLEConfig_DatabaseSize = 111;
  603.   SQLOLEConfig_MediaRetention = 112;
  604.   SQLOLEConfig_RecoveryFlags = 113;
  605.   SQLOLEConfig_NestedTriggers = 115;
  606.   SQLOLEConfig_RemoteAccess = 117;
  607.   SQLOLEConfig_DefaultLanguage = 124;
  608.   SQLOLEConfig_LanguageInCache = 125;
  609.   SQLOLEConfig_TempdbInRamMB = 501;
  610.   SQLOLEConfig_MaxAsyncIO = 502;
  611.   SQLOLEConfig_MaxWorkerThreads = 503;
  612.   SQLOLEConfig_NetworkPacketSize = 505;
  613.   SQLOLEConfig_RAWorkerThreads = 508;
  614.   SQLOLEConfig_ShowAdvancedOption = 518;
  615.   SQLOLEConfig_LEThresholdPercent = 521;
  616.   SQLOLEConfig_LEThresholdMaximum = 523;
  617.   SQLOLEConfig_BackupThreads = 540;
  618.   SQLOLEConfig_BackupBufferSize = 541;
  619.   SQLOLEConfig_RemoteProcTrans = 542;
  620.   SQLOLEConfig_RemoteConnTimeout = 543;
  621.   SQLOLEConfig_TimeSlice = 1110;
  622.   SQLOLEConfig_RemoteSites = 1119;
  623.   SQLOLEConfig_DefaultSortorderId = 1123;
  624.   SQLOLEConfig_HashBuckets = 1504;
  625.   SQLOLEConfig_SortPages = 1505;
  626.   SQLOLEConfig_MaxLazywriteIO = 1506;
  627.   SQLOLEConfig_RASlotsPerThread = 1509;
  628.   SQLOLEConfig_RAPrefetches = 1510;
  629.   SQLOLEConfig_RADelay = 1511;
  630.   SQLOLEConfig_RACacheMissLimit = 1512;
  631.   SQLOLEConfig_RACacheHitLimit = 1513;
  632.   SQLOLEConfig_SpinCounter = 1514;
  633.   SQLOLEConfig_FreeBuffers = 1515;
  634.   SQLOLEConfig_SMPConcurrency = 1516;
  635.   SQLOLEConfig_PriorityBoost = 1517;
  636.   SQLOLEConfig_RemoteLoginTimeout = 1519;
  637.   SQLOLEConfig_RemoteQueryTimeout = 1520;
  638.   SQLOLEConfig_LEThresholdMinimum = 1522;
  639.   SQLOLEConfig_LogwriteSleepMS = 1530;
  640.   SQLOLEConfig_CursorThreshold = 1531;
  641.   SQLOLEConfig_SetWorkingSetSize = 1532;
  642.   SQLOLEConfig_ResourceTimeout = 1533;
  643.   SQLOLEConfig_UserOptions = 1534;
  644.   SQLOLEConfig_ProcessorAffinityMask = 1535;
  645.   SQLOLEConfig_MaxTextReplSize = 1536;
  646.  
  647. { SQLOLE_SRVUSERPROFILE_TYPE }
  648.  
  649.   SQLOLESrvUserProf_None = 0;
  650.   SQLOLESrvUserProf_SaLogin = 1;
  651.   SQLOLESrvUserProf_CreateDatabase = 2;
  652.   SQLOLESrvUserProf_CreateXP = 4;
  653.   SQLOLESrvUserProf_AllProfileBits = 7;
  654.  
  655. { SQLOLE_DBUSERPROFILE_TYPE }
  656.  
  657.   SQLOLEDbUserProf_None = 0;
  658.   SQLOLEDbUserProf_DboLogin = 1;
  659.   SQLOLEDbUserProf_CreateTable = 2;
  660.   SQLOLEDbUserProf_CreateView = 4;
  661.   SQLOLEDbUserProf_CreateProcedure = 8;
  662.   SQLOLEDbUserProf_DumpDatabase = 16;
  663.   SQLOLEDbUserProf_CreateDefault = 32;
  664.   SQLOLEDbUserProf_DumpTransaction = 64;
  665.   SQLOLEDbUserProf_CreateRule = 128;
  666.   SQLOLEDbUserProf_AllProfileBits = 255;
  667.   SQLOLEDbUserProf_InvalidLogin = 1073741824;
  668.   SQLOLEDbUserProf_InaccessibleDb = $80000000;
  669.   SQLOLEDbUserProf_DbNotAvailable = -1073741824;
  670.  
  671. { SQLOLE_ERROR_TYPE }
  672.  
  673.   SQLOLE_E_DBLIBFIRSTERROR = 10000;
  674.   SQLOLE_E_DBLIBLASTERROR = 10200;
  675.   SQLOLE_E_FIRSTERROR = 20480;
  676.   SQLOLE_ECAT_MASK = 24320;
  677.   SQLOLE_ECAT_INVALIDCONTEXT = 20480;
  678.   SQLOLE_E_ALREADYCONN = 20480;
  679.   SQLOLE_E_ALREADYCOLL = 20481;
  680.   SQLOLE_E_NOTCONN = 20482;
  681.   SQLOLE_E_CANTDROPSERVER = 20483;
  682.   SQLOLE_E_NOCOMPLEXALTER = 20484;
  683.   SQLOLE_E_PROPNEEDSCREATE = 20485;
  684.   SQLOLE_E_COLTYPEFIXED = 20486;
  685.   SQLOLE_E_COLTYPENONNULL = 20487;
  686.   SQLOLE_E_CANTCHANGEUDDT = 20488;
  687.   SQLOLE_E_BASETYPEFIXED = 20489;
  688.   SQLOLE_E_BASETYPENONNULL = 20490;
  689.   SQLOLE_E_ENUMORDINAL = 20491;
  690.   SQLOLE_E_CANTRENAMEUSER = 20492;
  691.   SQLOLE_E_CANTRENAMEGROUP = 20493;
  692.   SQLOLE_E_CANTRENAMELOGIN = 20494;
  693.   SQLOLE_E_CANTRENAMEDEVICE = 20495;
  694.   SQLOLE_E_NOTDUMPPROP = 20496;
  695.   SQLOLE_E_NOSERVERASSOC = 20497;
  696.   SQLOLE_E_NOTCOLLTYPE = 20498;
  697.   SQLOLE_E_CANTMODIFYDRIINDEX = 20499;
  698.   SQLOLE_E_CANTCHANGEPROCTYPE = 20500;
  699.   SQLOLE_E_CANTMODIFYINDEX = 20501;
  700.   SQLOLE_E_INVALIDPRIVOBJ = 20502;
  701.   SQLOLE_E_CANTCHANGETRIGTYPE = 20503;
  702.   SQLOLE_E_NOVIEWCOLALTER = 20504;
  703.   SQLOLE_E_CANTRENAMELANGUAGE = 20505;
  704.   SQLOLE_E_CANTRENAMERSERVER = 20506;
  705.   SQLOLE_E_CANTRENAMERLOGIN = 20507;
  706.   SQLOLE_E_MUSTBEDBDEV = 20508;
  707.   SQLOLE_E_NOINACTIVEMIRROR = 20509;
  708.   SQLOLE_E_NOACTIVEMIRROR = 20510;
  709.   SQLOLE_E_NOMIRROR = 20511;
  710.   SQLOLE_E_SERVERDISCONNECTED = 20512;
  711.   SQLOLE_E_CANTRENAMESERVER = 20513;
  712.   SQLOLE_E_CANTMODIFYTEXT = 20514;
  713.   SQLOLE_E_CANTMODIFYSYSTABLE = 20515;
  714.   SQLOLE_E_LOGINALREADYALIASED = 20516;
  715.   SQLOLE_E_LOGINALREADYUSER = 20517;
  716.   SQLOLE_E_CACHENORESULTS = 20518;
  717.   SQLOLE_E_ALREADYCREATED = 20519;
  718.   SQLOLE_E_NOTDISCONN = 20520;
  719.   SQLOLE_E_CANTMODIFYARTTABLE = 20521;
  720.   SQLOLE_E_CANTMODIFYSUBSERVER = 20522;
  721.   SQLOLE_E_BASETYPENOTNUMERIC = 20523;
  722.   SQLOLE_E_TOFILEBUTNOFILENAME = 20524;
  723.   SQLOLE_E_MUSTBEDISTSERVER = 20525;
  724.   SQLOLE_E_CANTMODIFYKEY = 20526;
  725.   SQLOLE_E_LISTCANTREFRESH = 20527;
  726.   SQLOLE_E_NOCOLTABLE = 20528;
  727.   SQLOLE_E_MUSTBEINALTER = 20529;
  728.   SQLOLE_E_CANTUNDEDICATELOGDEVICE = 20530;
  729.   SQLOLE_E_CANTRENAMESERVERGROUP = 20531;
  730.   SQLOLE_E_CANTRENAMEREGISTEREDSERVER = 20532;
  731.   SQLOLE_E_INDEXREBUILDKEYTYPE = 20533;
  732.   SQLOLE_E_REBUILDINDEXOPTIONS = 20534;
  733.   SQLOLE_E_IMPERSONATEXPONLY = 20535;
  734.   SQLOLE_ECAT_INVALIDOBJECT = 20736;
  735.   SQLOLE_E_OBJECTDROPPED = 20736;
  736.   SQLOLE_E_NOTSQLOLEOBJECT = 20737;
  737.   SQLOLE_E_OBJECTDETACHED = 20738;
  738.   SQLOLE_E_SERVERCLOSED = 20739;
  739.   SQLOLE_ECAT_INVALIDOBJECTDEFINITION = 20992;
  740.   SQLOLE_E_NOCOLUMNSADDED = 20992;
  741.   SQLOLE_E_COLUMNINCOMPLETE = 20993;
  742.   SQLOLE_E_TABLEINCOMPLETE = 20994;
  743.   SQLOLE_E_UDDTINCOMPLETE = 20995;
  744.   SQLOLE_E_RULEINCOMPLETE = 20996;
  745.   SQLOLE_E_DEFAULTINCOMPLETE = 20997;
  746.   SQLOLE_E_VIEWINCOMPLETE = 20998;
  747.   SQLOLE_E_USERINCOMPLETE = 20999;
  748.   SQLOLE_E_GROUPINCOMPLETE = 21000;
  749.   SQLOLE_E_PROCINCOMPLETE = 21001;
  750.   SQLOLE_E_USERALREADYEXISTS = 21002;
  751.   SQLOLE_E_GROUPALREADYEXISTS = 21003;
  752.   SQLOLE_E_COLUMNALREADYEXISTS = 21004;
  753.   SQLOLE_E_OBJECTALREADYEXISTS = 21005;
  754.   SQLOLE_E_INDEXALREADYEXISTS = 21006;
  755.   SQLOLE_E_DBALREADYEXISTS = 21007;
  756.   SQLOLE_E_LOGINALREADYEXISTS = 21008;
  757.   SQLOLE_E_DEVICEALREADYEXISTS = 21009;
  758.   SQLOLE_E_SKIPONLYTAPE = 21010;
  759.   SQLOLE_E_DEVICEINCOMPLETE = 21011;
  760.   SQLOLE_E_PROCALREADYEXISTS = 21012;
  761.   SQLOLE_E_UDDTALREADYEXISTS = 21013;
  762.   SQLOLE_E_TABLEALREADYEXISTS = 21014;
  763.   SQLOLE_E_RULEALREADYEXISTS = 21015;
  764.   SQLOLE_E_DEFAULTALREADYEXISTS = 21016;
  765.   SQLOLE_E_VIEWALREADYEXISTS = 21017;
  766.   SQLOLE_E_INDEXINCOMPLETE = 21018;
  767.   SQLOLE_E_TRIGINCOMPLETE = 21019;
  768.   SQLOLE_E_TRIGALREADYEXISTS = 21020;
  769.   SQLOLE_E_LANGUAGEINCOMPLETE = 21021;
  770.   SQLOLE_E_LANGUAGEALREADYEXISTS = 21022;
  771.   SQLOLE_E_LOGININCOMPLETE = 21023;
  772.   SQLOLE_E_RSERVERINCOMPLETE = 21024;
  773.   SQLOLE_E_RSERVERALREADYEXISTS = 21025;
  774.   SQLOLE_E_NULLRLOGINALREADYEXISTS = 21026;
  775.   SQLOLE_E_RLOGINALREADYEXISTS = 21027;
  776.   SQLOLE_E_REMOTENEEDSLOCAL = 21028;
  777.   SQLOLE_E_BACKUPNEEDSDEVICE = 21029;
  778.   SQLOLE_E_NEEDMANUALFILTERNAME = 21030;
  779.   SQLOLE_E_TASKINCOMPLETE = 21031;
  780.   SQLOLE_E_ARTINCOMPLETE = 21032;
  781.   SQLOLE_E_PUBINCOMPLETE = 21033;
  782.   SQLOLE_E_SUBINCOMPLETE = 21034;
  783.   SQLOLE_E_ALERTINCOMPLETE = 21035;
  784.   SQLOLE_E_OPERATORINCOMPLETE = 21036;
  785.   SQLOLE_E_NAMEMUSTMATCH = 21037;
  786.   SQLOLE_E_TRIGREQTABLENAME = 21038;
  787.   SQLOLE_E_MUSTBESYNCTASK = 21039;
  788.   SQLOLE_E_NOEVENTCOMPLETION = 21040;
  789.   SQLOLE_E_FKEYINCOMPLETE = 21041;
  790.   SQLOLE_E_KEYINCOMPLETE = 21042;
  791.   SQLOLE_E_KEYALREADYEXISTS = 21043;
  792.   SQLOLE_E_CHECKINCOMPLETE = 21044;
  793.   SQLOLE_E_DRIDEFAULTINCOMPLETE = 21045;
  794.   SQLOLE_E_CHECKALREADYEXISTS = 21046;
  795.   SQLOLE_E_ONLYONEPRIMARYKEY = 21047;
  796.   SQLOLE_E_NEEDMANUALVIEWNAME = 21048;
  797.   SQLOLE_E_SERVERGROUPINCOMPLETE = 21049;
  798.   SQLOLE_E_REGISTEREDSERVERINCOMPLETE = 21050;
  799.   SQLOLE_E_SERVERGROUPALREADYEXISTS = 21051;
  800.   SQLOLE_E_REGISTEREDSERVERALREADYEXISTS = 21052;
  801.   SQLOLE_E_NEEDLOADTABLENAME = 21053;
  802.   SQLOLE_ECAT_INVALIDPARAMETER = 21248;
  803.   SQLOLE_E_BADCOLLEN = 21248;
  804.   SQLOLE_E_INVALIDPERFMONSET = 21249;
  805.   SQLOLE_E_BADDEVICETYPE = 21250;
  806.   SQLOLE_E_SIZEGREATERTHAN0 = 21251;
  807.   SQLOLE_E_RESULTSETOUTOFRANGE = 21252;
  808.   SQLOLE_E_OUTPUTPARAMREQUIRED = 21253;
  809.   SQLOLE_E_PROPTEXTNONNULL = 21254;
  810.   SQLOLE_E_BADPROCTYPE = 21255;
  811.   SQLOLE_E_BADFILLFACTOR = 21256;
  812.   SQLOLE_E_INVALIDINDEXTYPE = 21257;
  813.   SQLOLE_E_INVALIDPRIVTYPE = 21258;
  814.   SQLOLE_E_BADTRIGTYPE = 21259;
  815.   SQLOLE_E_INVALIDDAYOFWEEK = 21260;
  816.   SQLOLE_E_INVALIDMONTH = 21261;
  817.   SQLOLE_E_BADDAYCOUNT = 21262;
  818.   SQLOLE_E_BADMONTHCOUNT = 21263;
  819.   SQLOLE_E_BADCONFIGVALUE = 21264;
  820.   SQLOLE_E_INVALIDPARAMINDEX = 21265;
  821.   SQLOLE_E_INVALIDPARAMRANGE = 21266;
  822.   SQLOLE_E_INVALIDDBOBJTYPE = 21267;
  823.   SQLOLE_E_ROWCOLOUTOFRANGE = 21268;
  824.   SQLOLE_E_NONUNIQUENAME = 21269;
  825.   SQLOLE_E_NOTIMESTAMPUDDT = 21270;
  826.   SQLOLE_E_INVALIDNAME = 21271;
  827.   SQLOLE_E_INVALIDCOMPLETION = 21272;
  828.   SQLOLE_E_NAMETOOLONG = 21273;
  829.   SQLOLE_E_INVALIDFREQTYPE = 21274;
  830.   SQLOLE_E_INVALIDFREQSUBDAY = 21275;
  831.   SQLOLE_E_INVALIDFREQRELINTERVAL = 21276;
  832.   SQLOLE_E_BADWEEKLYINTERVAL = 21277;
  833.   SQLOLE_E_BADMONTHLYINTERVAL = 21278;
  834.   SQLOLE_E_BADMONTHLYRELINTERVAL = 21279;
  835.   SQLOLE_E_INVALIDSRVOPTION = 21280;
  836.   SQLOLE_E_INVALIDRUNPRIORITY = 21281;
  837.   SQLOLE_E_DBNAMEREQUIRED = 21282;
  838.   SQLOLE_E_PUBNAMEREQUIRED = 21283;
  839.   SQLOLE_E_PROPINDEXOUTOFRANGE = 21284;
  840.   SQLOLE_E_INVALIDNOTIFYTYPE = 21285;
  841.   SQLOLE_E_INVALIDENUMNOTIFYTYPE = 21286;
  842.   SQLOLE_E_INVALIDWEEKDAY = 21287;
  843.   SQLOLE_E_INVALIDOBJECTTYPE = 21288;
  844.   SQLOLE_E_OBJECTREQUIRED = 21289;
  845.   SQLOLE_E_INVALIDEVENTTYPE = 21290;
  846.   SQLOLE_E_INVALIDCOMPLETIONTYPE = 21291;
  847.   SQLOLE_E_INVALIDKEYTYPE = 21292;
  848.   SQLOLE_E_TABLEMUSTBECREATED = 21293;
  849.   SQLOLE_E_INVALIDPREARTICLE = 21294;
  850.   SQLOLE_E_INVALIDSECURITYMODE = 21295;
  851.   SQLOLE_E_INVALIDPREC = 21296;
  852.   SQLOLE_E_INVALIDDEPENDENCYTYPE = 21297;
  853.   SQLOLE_E_INVALIDVERIFYCONNTYPE = 21298;
  854.   SQLOLE_E_INVALIDSTATUSINFOTYPE = 21299;
  855.   SQLOLE_E_INVALIDFORWARDINGSEVERITY = 21300;
  856.   SQLOLE_E_INVALIDFORWARDINGSERVER = 21301;
  857.   SQLOLE_E_INVALIDRESTARTINTERVAL = 21302;
  858.   SQLOLE_E_INVALIDHISTORYROWSMAX = 21303;
  859.   SQLOLE_E_NAMETOOSHORT = 21304;
  860.   SQLOLE_E_UNEXPECTED = 21305;
  861.   SQLOLE_E_INVALIDHISTORYROWSPERTASKMAX = 21306;
  862.   SQLOLE_E_INVALIDOBJSORTTYPE = 21307;
  863.   SQLOLE_E_INVALIDEXECTYPE = 21308;
  864.   SQLOLE_ECAT_INVALIDPLATFORM = 21504;
  865.   SQLOLE_E_BACKUPSQL60ONLY = 21504;
  866.   SQLOLE_E_MSSQLONLY = 21505;
  867.   SQLOLE_E_WIN95REQUIRESCONN = 21506;
  868.   SQLOLE_E_NOTONWIN95 = 21507;
  869.   SQLOLE_E_SQL60ONLY = 21508;
  870.   SQLOLE_E_REPLSQL60ONLY = 21509;
  871.   SQLOLE_E_STARTUPPROCSQL60ONLY = 21510;
  872.   SQLOLE_E_NEEDSQLOLEPROCS = 21511;
  873.   SQLOLE_E_ALTERSQL60ONLY = 21512;
  874.   SQLOLE_E_SORTEDDATAREORGSQL60ONLY = 21513;
  875.   SQLOLE_E_MSSQLNTONLY = 21514;
  876.   SQLOLE_E_WIN95REQUIRESSQL60 = 21515;
  877.   SQLOLE_E_BACKUPSQL65ONLY = 21516;
  878.   SQLOLE_E_SQL65ONLY = 21517;
  879.   SQLOLE_E_ALERTSQL65ONLY = 21518;
  880.   SQLOLE_E_REMOTESQL65ONLY = 21519;
  881.   SQLOLE_E_PIPEDEVSQL60ONLY = 21520;
  882.   SQLOLE_E_FKEYSQL65ONLY = 21521;
  883.   SQLOLE_E_XPIMPERSONATESQL65ONLY = 21522;
  884.   SQLOLE_ECAT_ITEMNOTFOUND = 21760;
  885.   SQLOLE_E_RULENOTFOUND = 21760;
  886.   SQLOLE_E_DEFAULTNOTFOUND = 21761;
  887.   SQLOLE_E_TYPENOTFOUND = 21762;
  888.   SQLOLE_E_LOGINNOTFOUND = 21763;
  889.   SQLOLE_E_GROUPNOTFOUND = 21764;
  890.   SQLOLE_E_LANGNOTFOUND = 21765;
  891.   SQLOLE_E_DBNOTFOUND = 21766;
  892.   SQLOLE_E_DEVICENOTFOUND = 21767;
  893.   SQLOLE_E_COLUMNNOTFOUND = 21768;
  894.   SQLOLE_E_ORDOUTOFRANGE = 21769;
  895.   SQLOLE_E_NAMENOTFOUND = 21770;
  896.   SQLOLE_E_USERNOTFOUND = 21771;
  897.   SQLOLE_E_NAMENOTINCACHE = 21772;
  898.   SQLOLE_E_PROPNAMENOTFOUND = 21773;
  899.   SQLOLE_E_IDNOTFOUND = 21774;
  900.   SQLOLE_ECAT_UNPRIVILEGEDLOGIN = 22016;
  901.   SQLOLE_E_MUSTBESAORDBO = 22016;
  902.   SQLOLE_E_MUSTBESAORLOGIN = 22017;
  903.   SQLOLE_E_MUSTBESA = 22018;
  904.   SQLOLE_ECAT_EXECUTION = 22272;
  905.   SQLOLE_E_SYSPROCERROR = 22272;
  906.   SQLOLE_E_CACHEEXECERROR = 22273;
  907.   SQLOLE_E_INACCESSIBLEDB = 22274;
  908.   SQLOLE_E_BATCHCOMPLETEWITHERRORS = 22275;
  909.   SQLOLE_ECAT_CONNECTION = 22528;
  910.   SQLOLE_E_CANTRECONNDEADCONN = 22528;
  911.   SQLOLE_ECAT_RESOURCE = 22784;
  912.   SQLOLE_E_OUTOFMEMORY = 22784;
  913.   SQLOLE_E_NOMOREDEVNOS = 22785;
  914.   SQLOLE_ECAT_TRANSFER = 23040;
  915.   SQLOLE_E_USERABORTED = 23040;
  916.   SQLOLE_E_FILEPATHREQUIRED = 23041;
  917.   SQLOLE_ECAT_BCP = 23296;
  918.   SQLOLE_E_INCOMPATIBLEPROPS = 23296;
  919.   SQLOLE_E_BCPEXECFAILED = 23297;
  920.   SQLOLE_E_BCPINITFAILED = 23298;
  921.   SQLOLE_E_BCPCONTROLFAILED = 23299;
  922.   SQLOLE_E_BCPCOLFMTFAILED = 23300;
  923.   SQLOLE_E_SUSPENDINDEX = 23301;
  924.   SQLOLE_E_RESUMEINDEX = 23302;
  925.   SQLOLE_E_LASTERROR = 23295;
  926.  
  927. { SQLOLE_CONSTANTS_TYPE }
  928.  
  929.   SQLOLE_NOENDDATE = 99991231;
  930.   SQLOLE_NOENDTIME = 235959;
  931.   SQLOLE_USEEXISTINGFILLFACTOR = 0;
  932.  
  933. const
  934.  
  935. { Component class GUIDs }
  936.   Class_Application: TGUID = '{00026BA0-0000-0000-C000-000000000046}';
  937.   Class_SQLServer: TGUID = '{00026BA1-0000-0000-C000-000000000046}';
  938.   Class_Database: TGUID = '{00026BA2-0000-0000-C000-000000000046}';
  939.   Class_Table: TGUID = '{00026BA3-0000-0000-C000-000000000046}';
  940.   Class_Column: TGUID = '{00026BA4-0000-0000-C000-000000000046}';
  941.   Class_View: TGUID = '{00026BA5-0000-0000-C000-000000000046}';
  942.   Class_UserDefinedDatatype: TGUID = '{00026BA6-0000-0000-C000-000000000046}';
  943.   Class_Default: TGUID = '{00026BA7-0000-0000-C000-000000000046}';
  944.   Class_Rule: TGUID = '{00026BA8-0000-0000-C000-000000000046}';
  945.   Class_User: TGUID = '{00026BA9-0000-0000-C000-000000000046}';
  946.   Class_Group: TGUID = '{00026BAA-0000-0000-C000-000000000046}';
  947.   Class_StoredProcedure: TGUID = '{00026BAB-0000-0000-C000-000000000046}';
  948.   Class_Index: TGUID = '{00026BAC-0000-0000-C000-000000000046}';
  949.   Class_Key: TGUID = '{00026BAD-0000-0000-C000-000000000046}';
  950.   Class_Trigger: TGUID = '{00026BAE-0000-0000-C000-000000000046}';
  951.   Class_Device: TGUID = '{00026BAF-0000-0000-C000-000000000046}';
  952.   Class_Alert: TGUID = '{00026BB0-0000-0000-C000-000000000046}';
  953.   Class_Login: TGUID = '{00026BB1-0000-0000-C000-000000000046}';
  954.   Class_Language: TGUID = '{00026BB2-0000-0000-C000-000000000046}';
  955.   Class_RemoteServer: TGUID = '{00026BB3-0000-0000-C000-000000000046}';
  956.   Class_RemoteLogin: TGUID = '{00026BB4-0000-0000-C000-000000000046}';
  957.   Class_Task: TGUID = '{00026BB5-0000-0000-C000-000000000046}';
  958.   Class_Transfer: TGUID = '{00026BB6-0000-0000-C000-000000000046}';
  959.   Class_Backup: TGUID = '{00026BB7-0000-0000-C000-000000000046}';
  960.   Class_HistoryFilter: TGUID = '{00026BB8-0000-0000-C000-000000000046}';
  961.   Class_Operator: TGUID = '{00026BB9-0000-0000-C000-000000000046}';
  962.   Class_Publication: TGUID = '{00026BBA-0000-0000-C000-000000000046}';
  963.   Class_Article: TGUID = '{00026BBB-0000-0000-C000-000000000046}';
  964.   Class_Subscription: TGUID = '{00026BBC-0000-0000-C000-000000000046}';
  965.   Class_Check: TGUID = '{00026BBD-0000-0000-C000-000000000046}';
  966.   Class_ServerGroup: TGUID = '{00026BBE-0000-0000-C000-000000000046}';
  967.   Class_RegisteredServer: TGUID = '{00026BBF-0000-0000-C000-000000000046}';
  968.   Class_BulkCopy: TGUID = '{00026BC0-0000-0000-C000-000000000046}';
  969.  
  970. type
  971.  
  972. { Forward declarations: Interfaces }
  973.   _IVSQLOLEStdObject = interface;
  974.   _IVSQLOLEStdObjectDisp = dispinterface;
  975.   Properties = interface;
  976.   PropertiesDisp = dispinterface;
  977.   Property_ = interface;
  978.   Property_Disp = dispinterface;
  979.   SQLServers = interface;
  980.   SQLServersDisp = dispinterface;
  981.   Databases = interface;
  982.   DatabasesDisp = dispinterface;
  983.   Tables = interface;
  984.   TablesDisp = dispinterface;
  985.   Columns = interface;
  986.   ColumnsDisp = dispinterface;
  987.   Views = interface;
  988.   ViewsDisp = dispinterface;
  989.   UserDefinedDatatypes = interface;
  990.   UserDefinedDatatypesDisp = dispinterface;
  991.   Defaults = interface;
  992.   DefaultsDisp = dispinterface;
  993.   Rules = interface;
  994.   RulesDisp = dispinterface;
  995.   Users = interface;
  996.   UsersDisp = dispinterface;
  997.   Groups = interface;
  998.   GroupsDisp = dispinterface;
  999.   StoredProcedures = interface;
  1000.   StoredProceduresDisp = dispinterface;
  1001.   Indexes = interface;
  1002.   IndexesDisp = dispinterface;
  1003.   Keys = interface;
  1004.   KeysDisp = dispinterface;
  1005.   Triggers = interface;
  1006.   TriggersDisp = dispinterface;
  1007.   Devices = interface;
  1008.   DevicesDisp = dispinterface;
  1009.   Alerts = interface;
  1010.   AlertsDisp = dispinterface;
  1011.   Logins = interface;
  1012.   LoginsDisp = dispinterface;
  1013.   Languages = interface;
  1014.   LanguagesDisp = dispinterface;
  1015.   RemoteServers = interface;
  1016.   RemoteServersDisp = dispinterface;
  1017.   RemoteLogins = interface;
  1018.   RemoteLoginsDisp = dispinterface;
  1019.   Tasks = interface;
  1020.   TasksDisp = dispinterface;
  1021.   Operators = interface;
  1022.   OperatorsDisp = dispinterface;
  1023.   Publications = interface;
  1024.   PublicationsDisp = dispinterface;
  1025.   Articles = interface;
  1026.   ArticlesDisp = dispinterface;
  1027.   Subscriptions = interface;
  1028.   SubscriptionsDisp = dispinterface;
  1029.   Checks = interface;
  1030.   ChecksDisp = dispinterface;
  1031.   ServerGroups = interface;
  1032.   ServerGroupsDisp = dispinterface;
  1033.   RegisteredServers = interface;
  1034.   RegisteredServersDisp = dispinterface;
  1035.   Names = interface;
  1036.   NamesDisp = dispinterface;
  1037.   DBObject = interface;
  1038.   DBObjectDisp = dispinterface;
  1039.   DBOption = interface;
  1040.   DBOptionDisp = dispinterface;
  1041.   Configuration = interface;
  1042.   ConfigurationDisp = dispinterface;
  1043.   ConfigValue = interface;
  1044.   ConfigValueDisp = dispinterface;
  1045.   SubscriberInfo = interface;
  1046.   SubscriberInfoDisp = dispinterface;
  1047.   NameList = interface;
  1048.   NameListDisp = dispinterface;
  1049.   Executive = interface;
  1050.   ExecutiveDisp = dispinterface;
  1051.   QueryResults = interface;
  1052.   QueryResultsDisp = dispinterface;
  1053.   TransactionLog = interface;
  1054.   TransactionLogDisp = dispinterface;
  1055.   Registry = interface;
  1056.   RegistryDisp = dispinterface;
  1057.   SystemDatatypes = interface;
  1058.   SystemDatatypesDisp = dispinterface;
  1059.   SystemDatatype = interface;
  1060.   SystemDatatypeDisp = dispinterface;
  1061.   SQLObjectList = interface;
  1062.   SQLObjectListDisp = dispinterface;
  1063.   Permission = interface;
  1064.   PermissionDisp = dispinterface;
  1065.   IntegratedSecurity = interface;
  1066.   IntegratedSecurityDisp = dispinterface;
  1067.   DRIDefault = interface;
  1068.   DRIDefaultDisp = dispinterface;
  1069.   ConfigValues = interface;
  1070.   ConfigValuesDisp = dispinterface;
  1071.   AlertSystem = interface;
  1072.   AlertSystemDisp = dispinterface;
  1073.   _Application = interface;
  1074.   _ApplicationDisp = dispinterface;
  1075.   _SQLServer = interface;
  1076.   _SQLServerDisp = dispinterface;
  1077.   _Database = interface;
  1078.   _DatabaseDisp = dispinterface;
  1079.   _Table = interface;
  1080.   _TableDisp = dispinterface;
  1081.   _Column = interface;
  1082.   _ColumnDisp = dispinterface;
  1083.   _View = interface;
  1084.   _ViewDisp = dispinterface;
  1085.   _UserDefinedDatatype = interface;
  1086.   _UserDefinedDatatypeDisp = dispinterface;
  1087.   _Default = interface;
  1088.   _DefaultDisp = dispinterface;
  1089.   _Rule = interface;
  1090.   _RuleDisp = dispinterface;
  1091.   _User = interface;
  1092.   _UserDisp = dispinterface;
  1093.   _Group = interface;
  1094.   _GroupDisp = dispinterface;
  1095.   _StoredProcedure = interface;
  1096.   _StoredProcedureDisp = dispinterface;
  1097.   _Index = interface;
  1098.   _IndexDisp = dispinterface;
  1099.   _Key = interface;
  1100.   _KeyDisp = dispinterface;
  1101.   _Trigger = interface;
  1102.   _TriggerDisp = dispinterface;
  1103.   _Device = interface;
  1104.   _DeviceDisp = dispinterface;
  1105.   _Alert = interface;
  1106.   _AlertDisp = dispinterface;
  1107.   _Login = interface;
  1108.   _LoginDisp = dispinterface;
  1109.   _Language = interface;
  1110.   _LanguageDisp = dispinterface;
  1111.   _RemoteServer = interface;
  1112.   _RemoteServerDisp = dispinterface;
  1113.   _RemoteLogin = interface;
  1114.   _RemoteLoginDisp = dispinterface;
  1115.   _Task = interface;
  1116.   _TaskDisp = dispinterface;
  1117.   _Transfer = interface;
  1118.   _TransferDisp = dispinterface;
  1119.   _Backup = interface;
  1120.   _BackupDisp = dispinterface;
  1121.   _HistoryFilter = interface;
  1122.   _HistoryFilterDisp = dispinterface;
  1123.   _Operator = interface;
  1124.   _OperatorDisp = dispinterface;
  1125.   _Publication = interface;
  1126.   _PublicationDisp = dispinterface;
  1127.   _Article = interface;
  1128.   _ArticleDisp = dispinterface;
  1129.   _Subscription = interface;
  1130.   _SubscriptionDisp = dispinterface;
  1131.   _Check = interface;
  1132.   _CheckDisp = dispinterface;
  1133.   _ServerGroup = interface;
  1134.   _ServerGroupDisp = dispinterface;
  1135.   _RegisteredServer = interface;
  1136.   _RegisteredServerDisp = dispinterface;
  1137.   _BulkCopy = interface;
  1138.   _BulkCopyDisp = dispinterface;
  1139.   TransferSink = interface;
  1140.   ServerSink = interface;
  1141.   BackupSink = interface;
  1142.   BulkCopySink = interface;
  1143.  
  1144. { Forward declarations: CoClasses }
  1145.   Application = _Application;
  1146.   SQLServer = _SQLServer;
  1147.   Database = _Database;
  1148.   Table = _Table;
  1149.   Column = _Column;
  1150.   View = _View;
  1151.   UserDefinedDatatype = _UserDefinedDatatype;
  1152.   Default = _Default;
  1153.   Rule = _Rule;
  1154.   User = _User;
  1155.   Group = _Group;
  1156.   StoredProcedure = _StoredProcedure;
  1157.   Index = _Index;
  1158.   Key = _Key;
  1159.   Trigger = _Trigger;
  1160.   Device = _Device;
  1161.   Alert = _Alert;
  1162.   Login = _Login;
  1163.   Language = _Language;
  1164.   RemoteServer = _RemoteServer;
  1165.   RemoteLogin = _RemoteLogin;
  1166.   Task = _Task;
  1167.   Transfer = _Transfer;
  1168.   Backup = _Backup;
  1169.   HistoryFilter = _HistoryFilter;
  1170.   Operator = _Operator;
  1171.   Publication = _Publication;
  1172.   Article = _Article;
  1173.   Subscription = _Subscription;
  1174.   Check = _Check;
  1175.   ServerGroup = _ServerGroup;
  1176.   RegisteredServer = _RegisteredServer;
  1177.   BulkCopy = _BulkCopy;
  1178.  
  1179. { Forward declarations: Enums }
  1180.   SQLOLE_OBJECT_TYPE = TOleEnum;
  1181.   SQLOLE_KEY_TYPE = TOleEnum;
  1182.   SQLOLE_DEVICE_TYPE = TOleEnum;
  1183.   SQLOLE_MIRROR_TYPE = TOleEnum;
  1184.   SQLOLE_PRIVILEGE_TYPE = TOleEnum;
  1185.   SQLOLE_PROCEDURE_TYPE = TOleEnum;
  1186.   SQLOLE_TRIGGER_TYPE = TOleEnum;
  1187.   SQLOLE_INDEX_TYPE = TOleEnum;
  1188.   SQLOLE_QUERY_DATATYPE = TOleEnum;
  1189.   SQLOLE_AUDIT_TYPE = TOleEnum;
  1190.   SQLOLE_SECURITY_TYPE = TOleEnum;
  1191.   SQLOLE_MEDIA_TYPE = TOleEnum;
  1192.   SQLOLE_PERFMON_TYPE = TOleEnum;
  1193.   SQLOLE_STARTSRV_TYPE = TOleEnum;
  1194.   SQLOLE_DBSTATUS_TYPE = TOleEnum;
  1195.   SQLOLE_COPYDATA_TYPE = TOleEnum;
  1196.   SQLOLE_DATAFILE_TYPE = TOleEnum;
  1197.   SQLOLE_STATUSINFO_TYPE = TOleEnum;
  1198.   SQLOLE_SCRIPT_TYPE = TOleEnum;
  1199.   SQLOLE_XFRSCRIPTMODE_TYPE = TOleEnum;
  1200.   SQLOLE_DEPENDENCY_TYPE = TOleEnum;
  1201.   SQLOLE_OBJSORT_TYPE = TOleEnum;
  1202.   SQLOLE_COMPLETION_TYPE = TOleEnum;
  1203.   SQLOLE_EVENT_TYPE = TOleEnum;
  1204.   SQLOLE_SVCSTATUS_TYPE = TOleEnum;
  1205.   SQLOLE_FREQUENCY_TYPE = TOleEnum;
  1206.   SQLOLE_FREQSUB_TYPE = TOleEnum;
  1207.   SQLOLE_FREQRELATIVE_TYPE = TOleEnum;
  1208.   SQLOLE_WEEKDAY_TYPE = TOleEnum;
  1209.   SQLOLE_MONTHDAY_TYPE = TOleEnum;
  1210.   SQLOLE_SRVOPTION_TYPE = TOleEnum;
  1211.   SQLOLE_SUBSCRIBERINFO_TYPE = TOleEnum;
  1212.   SQLOLE_TABLEATT_TYPE = TOleEnum;
  1213.   SQLOLE_INITIALSYNC_TYPE = TOleEnum;
  1214.   SQLOLE_REPFREQ_TYPE = TOleEnum;
  1215.   SQLOLE_REPLICATION_TYPE = TOleEnum;
  1216.   SQLOLE_SUBSYNC_TYPE = TOleEnum;
  1217.   SQLOLE_PREARTICLE_TYPE = TOleEnum;
  1218.   SQLOLE_SUBSTATUS_TYPE = TOleEnum;
  1219.   SQLOLE_RUNPRIORITY_TYPE = TOleEnum;
  1220.   SQLOLE_INTSECLOGIN_TYPE = TOleEnum;
  1221.   SQLOLE_NOTIFY_TYPE = TOleEnum;
  1222.   SQLOLE_ENUMNOTIFY_TYPE = TOleEnum;
  1223.   SQLOLE_VERIFYCONN_TYPE = TOleEnum;
  1224.   SQLOLE_EXEC_TYPE = TOleEnum;
  1225.   SQLOLE_CONFIGVALUE_TYPE = TOleEnum;
  1226.   SQLOLE_SRVUSERPROFILE_TYPE = TOleEnum;
  1227.   SQLOLE_DBUSERPROFILE_TYPE = TOleEnum;
  1228.   SQLOLE_ERROR_TYPE = TOleEnum;
  1229.   SQLOLE_CONSTANTS_TYPE = TOleEnum;
  1230.  
  1231.   _IVSQLOLEStdObject = interface(IDispatch)
  1232.     ['{00026B01-0000-0000-C000-000000000046}']
  1233.   end;
  1234.  
  1235. { DispInterface declaration for Dual Interface _IVSQLOLEStdObject }
  1236.  
  1237.   _IVSQLOLEStdObjectDisp = dispinterface
  1238.     ['{00026B01-0000-0000-C000-000000000046}']
  1239.   end;
  1240.  
  1241.   Properties = interface(_IVSQLOLEStdObject)
  1242.     ['{00026B05-0000-0000-C000-000000000046}']
  1243.     function Get_Application: Application; safecall;
  1244.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1245.     function Get_UserData: Integer; safecall;
  1246.     procedure Set_UserData(Value: Integer); safecall;
  1247.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1248.     function Item(Index: OleVariant): Property_; safecall;
  1249.     function Get__NewEnum: IUnknown; safecall;
  1250.     function Get_Count: Integer; safecall;
  1251.     property Application: Application read Get_Application;
  1252.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1253.     property UserData: Integer read Get_UserData write Set_UserData;
  1254.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1255.     property _NewEnum: IUnknown read Get__NewEnum;
  1256.     property Count: Integer read Get_Count;
  1257.   end;
  1258.  
  1259. { DispInterface declaration for Dual Interface Properties }
  1260.  
  1261.   PropertiesDisp = dispinterface
  1262.     ['{00026B05-0000-0000-C000-000000000046}']
  1263.     property Application: Application readonly dispid 1;
  1264.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1265.     property UserData: Integer dispid 3;
  1266.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1267.     function Item(Index: OleVariant): Property_; dispid 0;
  1268.     property Count: Integer readonly dispid 5;
  1269.   end;
  1270.  
  1271.   Property_ = interface(_IVSQLOLEStdObject)
  1272.     ['{00026B06-0000-0000-C000-000000000046}']
  1273.     function Get_Application: Application; safecall;
  1274.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1275.     function Get_UserData: Integer; safecall;
  1276.     procedure Set_UserData(Value: Integer); safecall;
  1277.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1278.     function Get_Value: OleVariant; safecall;
  1279.     procedure Set_Value(Value: OleVariant); safecall;
  1280.     function Get_Properties: Properties; safecall;
  1281.     function Get_Name: WideString; safecall;
  1282.     function Get_Type_: Integer; safecall;
  1283.     function Get_Get: WordBool; safecall;
  1284.     function Get_Set_: WordBool; safecall;
  1285.     property Application: Application read Get_Application;
  1286.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1287.     property UserData: Integer read Get_UserData write Set_UserData;
  1288.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1289.     property Value: OleVariant read Get_Value write Set_Value;
  1290.     property Properties: Properties read Get_Properties;
  1291.     property Name: WideString read Get_Name;
  1292.     property Type_: Integer read Get_Type_;
  1293.     property Get: WordBool read Get_Get;
  1294.     property Set_: WordBool read Get_Set_;
  1295.   end;
  1296.  
  1297. { DispInterface declaration for Dual Interface Property_ }
  1298.  
  1299.   Property_Disp = dispinterface
  1300.     ['{00026B06-0000-0000-C000-000000000046}']
  1301.     property Application: Application readonly dispid 1;
  1302.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1303.     property UserData: Integer dispid 3;
  1304.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1305.     property Value: OleVariant dispid 0;
  1306.     property Properties: Properties readonly dispid 7;
  1307.     property Name: WideString readonly dispid 11;
  1308.     property Type_: Integer readonly dispid 12;
  1309.     property Get: WordBool readonly dispid 13;
  1310.     property Set_: WordBool readonly dispid 14;
  1311.   end;
  1312.  
  1313. { SQLOLE SQLServers }
  1314.  
  1315.   SQLServers = interface(_IVSQLOLEStdObject)
  1316.     ['{00026B11-0000-0000-C000-000000000046}']
  1317.     function Get_Application: Application; safecall;
  1318.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1319.     function Get_UserData: Integer; safecall;
  1320.     procedure Set_UserData(Value: Integer); safecall;
  1321.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1322.     function Item(Index: OleVariant): SQLServer; safecall;
  1323.     function Get__NewEnum: IUnknown; safecall;
  1324.     function Get_Count: Integer; safecall;
  1325.     function ItemByID(ID: Integer): SQLServer; safecall;
  1326.     property Application: Application read Get_Application;
  1327.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1328.     property UserData: Integer read Get_UserData write Set_UserData;
  1329.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1330.     property _NewEnum: IUnknown read Get__NewEnum;
  1331.     property Count: Integer read Get_Count;
  1332.   end;
  1333.  
  1334. { DispInterface declaration for Dual Interface SQLServers }
  1335.  
  1336.   SQLServersDisp = dispinterface
  1337.     ['{00026B11-0000-0000-C000-000000000046}']
  1338.     property Application: Application readonly dispid 1;
  1339.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1340.     property UserData: Integer dispid 3;
  1341.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1342.     function Item(Index: OleVariant): SQLServer; dispid 0;
  1343.     property Count: Integer readonly dispid 5;
  1344.     function ItemByID(ID: Integer): SQLServer; dispid 6;
  1345.   end;
  1346.  
  1347. { SQLOLE Databases }
  1348.  
  1349.   Databases = interface(_IVSQLOLEStdObject)
  1350.     ['{00026B12-0000-0000-C000-000000000046}']
  1351.     function Get_Application: Application; safecall;
  1352.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1353.     function Get_UserData: Integer; safecall;
  1354.     procedure Set_UserData(Value: Integer); safecall;
  1355.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1356.     function Item(Index: OleVariant): Database; safecall;
  1357.     function Get__NewEnum: IUnknown; safecall;
  1358.     function Get_Count: Integer; safecall;
  1359.     function ItemByID(ID: Integer): Database; safecall;
  1360.     procedure Add(const Object_: Database); safecall;
  1361.     procedure Remove(Index: OleVariant); safecall;
  1362.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1363.     property Application: Application read Get_Application;
  1364.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1365.     property UserData: Integer read Get_UserData write Set_UserData;
  1366.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1367.     property _NewEnum: IUnknown read Get__NewEnum;
  1368.     property Count: Integer read Get_Count;
  1369.   end;
  1370.  
  1371. { DispInterface declaration for Dual Interface Databases }
  1372.  
  1373.   DatabasesDisp = dispinterface
  1374.     ['{00026B12-0000-0000-C000-000000000046}']
  1375.     property Application: Application readonly dispid 1;
  1376.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1377.     property UserData: Integer dispid 3;
  1378.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1379.     function Item(Index: OleVariant): Database; dispid 0;
  1380.     property Count: Integer readonly dispid 5;
  1381.     function ItemByID(ID: Integer): Database; dispid 6;
  1382.     procedure Add(const Object_: Database); dispid 100;
  1383.     procedure Remove(Index: OleVariant); dispid 101;
  1384.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1385.   end;
  1386.  
  1387. { SQLOLE Tables }
  1388.  
  1389.   Tables = interface(_IVSQLOLEStdObject)
  1390.     ['{00026B13-0000-0000-C000-000000000046}']
  1391.     function Get_Application: Application; safecall;
  1392.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1393.     function Get_UserData: Integer; safecall;
  1394.     procedure Set_UserData(Value: Integer); safecall;
  1395.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1396.     function Item(Index: OleVariant): Table; safecall;
  1397.     function Get__NewEnum: IUnknown; safecall;
  1398.     function Get_Count: Integer; safecall;
  1399.     function ItemByID(ID: Integer): Table; safecall;
  1400.     procedure Add(const Object_: Table); safecall;
  1401.     procedure Remove(Index: OleVariant); safecall;
  1402.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1403.     property Application: Application read Get_Application;
  1404.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1405.     property UserData: Integer read Get_UserData write Set_UserData;
  1406.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1407.     property _NewEnum: IUnknown read Get__NewEnum;
  1408.     property Count: Integer read Get_Count;
  1409.   end;
  1410.  
  1411. { DispInterface declaration for Dual Interface Tables }
  1412.  
  1413.   TablesDisp = dispinterface
  1414.     ['{00026B13-0000-0000-C000-000000000046}']
  1415.     property Application: Application readonly dispid 1;
  1416.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1417.     property UserData: Integer dispid 3;
  1418.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1419.     function Item(Index: OleVariant): Table; dispid 0;
  1420.     property Count: Integer readonly dispid 5;
  1421.     function ItemByID(ID: Integer): Table; dispid 6;
  1422.     procedure Add(const Object_: Table); dispid 100;
  1423.     procedure Remove(Index: OleVariant); dispid 101;
  1424.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1425.   end;
  1426.  
  1427. { SQLOLE Columns }
  1428.  
  1429.   Columns = interface(_IVSQLOLEStdObject)
  1430.     ['{00026B14-0000-0000-C000-000000000046}']
  1431.     function Get_Application: Application; safecall;
  1432.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1433.     function Get_UserData: Integer; safecall;
  1434.     procedure Set_UserData(Value: Integer); safecall;
  1435.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1436.     function Item(Index: OleVariant): Column; safecall;
  1437.     function Get__NewEnum: IUnknown; safecall;
  1438.     function Get_Count: Integer; safecall;
  1439.     function ItemByID(ID: Integer): Column; safecall;
  1440.     procedure Add(const Object_: Column); safecall;
  1441.     procedure Remove(Index: OleVariant); safecall;
  1442.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1443.     property Application: Application read Get_Application;
  1444.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1445.     property UserData: Integer read Get_UserData write Set_UserData;
  1446.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1447.     property _NewEnum: IUnknown read Get__NewEnum;
  1448.     property Count: Integer read Get_Count;
  1449.   end;
  1450.  
  1451. { DispInterface declaration for Dual Interface Columns }
  1452.  
  1453.   ColumnsDisp = dispinterface
  1454.     ['{00026B14-0000-0000-C000-000000000046}']
  1455.     property Application: Application readonly dispid 1;
  1456.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1457.     property UserData: Integer dispid 3;
  1458.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1459.     function Item(Index: OleVariant): Column; dispid 0;
  1460.     property Count: Integer readonly dispid 5;
  1461.     function ItemByID(ID: Integer): Column; dispid 6;
  1462.     procedure Add(const Object_: Column); dispid 100;
  1463.     procedure Remove(Index: OleVariant); dispid 101;
  1464.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1465.   end;
  1466.  
  1467. { SQLOLE Views }
  1468.  
  1469.   Views = interface(_IVSQLOLEStdObject)
  1470.     ['{00026B15-0000-0000-C000-000000000046}']
  1471.     function Get_Application: Application; safecall;
  1472.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1473.     function Get_UserData: Integer; safecall;
  1474.     procedure Set_UserData(Value: Integer); safecall;
  1475.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1476.     function Item(Index: OleVariant): View; safecall;
  1477.     function Get__NewEnum: IUnknown; safecall;
  1478.     function Get_Count: Integer; safecall;
  1479.     function ItemByID(ID: Integer): View; safecall;
  1480.     procedure Add(const Object_: View); safecall;
  1481.     procedure Remove(Index: OleVariant); safecall;
  1482.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1483.     property Application: Application read Get_Application;
  1484.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1485.     property UserData: Integer read Get_UserData write Set_UserData;
  1486.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1487.     property _NewEnum: IUnknown read Get__NewEnum;
  1488.     property Count: Integer read Get_Count;
  1489.   end;
  1490.  
  1491. { DispInterface declaration for Dual Interface Views }
  1492.  
  1493.   ViewsDisp = dispinterface
  1494.     ['{00026B15-0000-0000-C000-000000000046}']
  1495.     property Application: Application readonly dispid 1;
  1496.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1497.     property UserData: Integer dispid 3;
  1498.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1499.     function Item(Index: OleVariant): View; dispid 0;
  1500.     property Count: Integer readonly dispid 5;
  1501.     function ItemByID(ID: Integer): View; dispid 6;
  1502.     procedure Add(const Object_: View); dispid 100;
  1503.     procedure Remove(Index: OleVariant); dispid 101;
  1504.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1505.   end;
  1506.  
  1507. { SQLOLE UserDefinedDatatypes }
  1508.  
  1509.   UserDefinedDatatypes = interface(_IVSQLOLEStdObject)
  1510.     ['{00026B16-0000-0000-C000-000000000046}']
  1511.     function Get_Application: Application; safecall;
  1512.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1513.     function Get_UserData: Integer; safecall;
  1514.     procedure Set_UserData(Value: Integer); safecall;
  1515.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1516.     function Item(Index: OleVariant): UserDefinedDatatype; safecall;
  1517.     function Get__NewEnum: IUnknown; safecall;
  1518.     function Get_Count: Integer; safecall;
  1519.     function ItemByID(ID: Integer): UserDefinedDatatype; safecall;
  1520.     procedure Add(const Object_: UserDefinedDatatype); safecall;
  1521.     procedure Remove(Index: OleVariant); safecall;
  1522.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1523.     property Application: Application read Get_Application;
  1524.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1525.     property UserData: Integer read Get_UserData write Set_UserData;
  1526.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1527.     property _NewEnum: IUnknown read Get__NewEnum;
  1528.     property Count: Integer read Get_Count;
  1529.   end;
  1530.  
  1531. { DispInterface declaration for Dual Interface UserDefinedDatatypes }
  1532.  
  1533.   UserDefinedDatatypesDisp = dispinterface
  1534.     ['{00026B16-0000-0000-C000-000000000046}']
  1535.     property Application: Application readonly dispid 1;
  1536.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1537.     property UserData: Integer dispid 3;
  1538.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1539.     function Item(Index: OleVariant): UserDefinedDatatype; dispid 0;
  1540.     property Count: Integer readonly dispid 5;
  1541.     function ItemByID(ID: Integer): UserDefinedDatatype; dispid 6;
  1542.     procedure Add(const Object_: UserDefinedDatatype); dispid 100;
  1543.     procedure Remove(Index: OleVariant); dispid 101;
  1544.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1545.   end;
  1546.  
  1547. { SQLOLE Defaults }
  1548.  
  1549.   Defaults = interface(_IVSQLOLEStdObject)
  1550.     ['{00026B17-0000-0000-C000-000000000046}']
  1551.     function Get_Application: Application; safecall;
  1552.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1553.     function Get_UserData: Integer; safecall;
  1554.     procedure Set_UserData(Value: Integer); safecall;
  1555.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1556.     function Item(Index: OleVariant): Default; safecall;
  1557.     function Get__NewEnum: IUnknown; safecall;
  1558.     function Get_Count: Integer; safecall;
  1559.     function ItemByID(ID: Integer): Default; safecall;
  1560.     procedure Add(const Object_: Default); safecall;
  1561.     procedure Remove(Index: OleVariant); safecall;
  1562.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1563.     property Application: Application read Get_Application;
  1564.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1565.     property UserData: Integer read Get_UserData write Set_UserData;
  1566.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1567.     property _NewEnum: IUnknown read Get__NewEnum;
  1568.     property Count: Integer read Get_Count;
  1569.   end;
  1570.  
  1571. { DispInterface declaration for Dual Interface Defaults }
  1572.  
  1573.   DefaultsDisp = dispinterface
  1574.     ['{00026B17-0000-0000-C000-000000000046}']
  1575.     property Application: Application readonly dispid 1;
  1576.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1577.     property UserData: Integer dispid 3;
  1578.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1579.     function Item(Index: OleVariant): Default; dispid 0;
  1580.     property Count: Integer readonly dispid 5;
  1581.     function ItemByID(ID: Integer): Default; dispid 6;
  1582.     procedure Add(const Object_: Default); dispid 100;
  1583.     procedure Remove(Index: OleVariant); dispid 101;
  1584.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1585.   end;
  1586.  
  1587. { SQLOLE Rules }
  1588.  
  1589.   Rules = interface(_IVSQLOLEStdObject)
  1590.     ['{00026B18-0000-0000-C000-000000000046}']
  1591.     function Get_Application: Application; safecall;
  1592.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1593.     function Get_UserData: Integer; safecall;
  1594.     procedure Set_UserData(Value: Integer); safecall;
  1595.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1596.     function Item(Index: OleVariant): Rule; safecall;
  1597.     function Get__NewEnum: IUnknown; safecall;
  1598.     function Get_Count: Integer; safecall;
  1599.     function ItemByID(ID: Integer): Rule; safecall;
  1600.     procedure Add(const Object_: Rule); safecall;
  1601.     procedure Remove(Index: OleVariant); safecall;
  1602.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1603.     property Application: Application read Get_Application;
  1604.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1605.     property UserData: Integer read Get_UserData write Set_UserData;
  1606.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1607.     property _NewEnum: IUnknown read Get__NewEnum;
  1608.     property Count: Integer read Get_Count;
  1609.   end;
  1610.  
  1611. { DispInterface declaration for Dual Interface Rules }
  1612.  
  1613.   RulesDisp = dispinterface
  1614.     ['{00026B18-0000-0000-C000-000000000046}']
  1615.     property Application: Application readonly dispid 1;
  1616.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1617.     property UserData: Integer dispid 3;
  1618.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1619.     function Item(Index: OleVariant): Rule; dispid 0;
  1620.     property Count: Integer readonly dispid 5;
  1621.     function ItemByID(ID: Integer): Rule; dispid 6;
  1622.     procedure Add(const Object_: Rule); dispid 100;
  1623.     procedure Remove(Index: OleVariant); dispid 101;
  1624.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1625.   end;
  1626.  
  1627. { SQLOLE Users }
  1628.  
  1629.   Users = interface(_IVSQLOLEStdObject)
  1630.     ['{00026B19-0000-0000-C000-000000000046}']
  1631.     function Get_Application: Application; safecall;
  1632.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1633.     function Get_UserData: Integer; safecall;
  1634.     procedure Set_UserData(Value: Integer); safecall;
  1635.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1636.     function Item(Index: OleVariant): User; safecall;
  1637.     function Get__NewEnum: IUnknown; safecall;
  1638.     function Get_Count: Integer; safecall;
  1639.     function ItemByID(ID: Integer): User; safecall;
  1640.     procedure Add(const Object_: User); safecall;
  1641.     procedure Remove(Index: OleVariant); safecall;
  1642.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1643.     property Application: Application read Get_Application;
  1644.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1645.     property UserData: Integer read Get_UserData write Set_UserData;
  1646.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1647.     property _NewEnum: IUnknown read Get__NewEnum;
  1648.     property Count: Integer read Get_Count;
  1649.   end;
  1650.  
  1651. { DispInterface declaration for Dual Interface Users }
  1652.  
  1653.   UsersDisp = dispinterface
  1654.     ['{00026B19-0000-0000-C000-000000000046}']
  1655.     property Application: Application readonly dispid 1;
  1656.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1657.     property UserData: Integer dispid 3;
  1658.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1659.     function Item(Index: OleVariant): User; dispid 0;
  1660.     property Count: Integer readonly dispid 5;
  1661.     function ItemByID(ID: Integer): User; dispid 6;
  1662.     procedure Add(const Object_: User); dispid 100;
  1663.     procedure Remove(Index: OleVariant); dispid 101;
  1664.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1665.   end;
  1666.  
  1667. { SQLOLE Groups }
  1668.  
  1669.   Groups = interface(_IVSQLOLEStdObject)
  1670.     ['{00026B1A-0000-0000-C000-000000000046}']
  1671.     function Get_Application: Application; safecall;
  1672.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1673.     function Get_UserData: Integer; safecall;
  1674.     procedure Set_UserData(Value: Integer); safecall;
  1675.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1676.     function Item(Index: OleVariant): Group; safecall;
  1677.     function Get__NewEnum: IUnknown; safecall;
  1678.     function Get_Count: Integer; safecall;
  1679.     function ItemByID(ID: Integer): Group; safecall;
  1680.     procedure Add(const Object_: Group); safecall;
  1681.     procedure Remove(Index: OleVariant); safecall;
  1682.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1683.     property Application: Application read Get_Application;
  1684.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1685.     property UserData: Integer read Get_UserData write Set_UserData;
  1686.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1687.     property _NewEnum: IUnknown read Get__NewEnum;
  1688.     property Count: Integer read Get_Count;
  1689.   end;
  1690.  
  1691. { DispInterface declaration for Dual Interface Groups }
  1692.  
  1693.   GroupsDisp = dispinterface
  1694.     ['{00026B1A-0000-0000-C000-000000000046}']
  1695.     property Application: Application readonly dispid 1;
  1696.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1697.     property UserData: Integer dispid 3;
  1698.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1699.     function Item(Index: OleVariant): Group; dispid 0;
  1700.     property Count: Integer readonly dispid 5;
  1701.     function ItemByID(ID: Integer): Group; dispid 6;
  1702.     procedure Add(const Object_: Group); dispid 100;
  1703.     procedure Remove(Index: OleVariant); dispid 101;
  1704.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1705.   end;
  1706.  
  1707. { SQLOLE Stored Procedures }
  1708.  
  1709.   StoredProcedures = interface(_IVSQLOLEStdObject)
  1710.     ['{00026B1B-0000-0000-C000-000000000046}']
  1711.     function Get_Application: Application; safecall;
  1712.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1713.     function Get_UserData: Integer; safecall;
  1714.     procedure Set_UserData(Value: Integer); safecall;
  1715.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1716.     function Item(Index: OleVariant): StoredProcedure; safecall;
  1717.     function Get__NewEnum: IUnknown; safecall;
  1718.     function Get_Count: Integer; safecall;
  1719.     function ItemByID(ID: Integer): StoredProcedure; safecall;
  1720.     procedure Add(const Object_: StoredProcedure); safecall;
  1721.     procedure Remove(Index: OleVariant); safecall;
  1722.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1723.     property Application: Application read Get_Application;
  1724.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1725.     property UserData: Integer read Get_UserData write Set_UserData;
  1726.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1727.     property _NewEnum: IUnknown read Get__NewEnum;
  1728.     property Count: Integer read Get_Count;
  1729.   end;
  1730.  
  1731. { DispInterface declaration for Dual Interface StoredProcedures }
  1732.  
  1733.   StoredProceduresDisp = dispinterface
  1734.     ['{00026B1B-0000-0000-C000-000000000046}']
  1735.     property Application: Application readonly dispid 1;
  1736.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1737.     property UserData: Integer dispid 3;
  1738.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1739.     function Item(Index: OleVariant): StoredProcedure; dispid 0;
  1740.     property Count: Integer readonly dispid 5;
  1741.     function ItemByID(ID: Integer): StoredProcedure; dispid 6;
  1742.     procedure Add(const Object_: StoredProcedure); dispid 100;
  1743.     procedure Remove(Index: OleVariant); dispid 101;
  1744.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1745.   end;
  1746.  
  1747. { SQLOLE Indexes }
  1748.  
  1749.   Indexes = interface(_IVSQLOLEStdObject)
  1750.     ['{00026B1C-0000-0000-C000-000000000046}']
  1751.     function Get_Application: Application; safecall;
  1752.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1753.     function Get_UserData: Integer; safecall;
  1754.     procedure Set_UserData(Value: Integer); safecall;
  1755.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1756.     function Item(ItemIndex: OleVariant): Index; safecall;
  1757.     function Get__NewEnum: IUnknown; safecall;
  1758.     function Get_Count: Integer; safecall;
  1759.     function ItemByID(ID: Integer): Index; safecall;
  1760.     procedure Add(const Object_: Index); safecall;
  1761.     procedure Remove(Index: OleVariant); safecall;
  1762.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1763.     property Application: Application read Get_Application;
  1764.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1765.     property UserData: Integer read Get_UserData write Set_UserData;
  1766.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1767.     property _NewEnum: IUnknown read Get__NewEnum;
  1768.     property Count: Integer read Get_Count;
  1769.   end;
  1770.  
  1771. { DispInterface declaration for Dual Interface Indexes }
  1772.  
  1773.   IndexesDisp = dispinterface
  1774.     ['{00026B1C-0000-0000-C000-000000000046}']
  1775.     property Application: Application readonly dispid 1;
  1776.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1777.     property UserData: Integer dispid 3;
  1778.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1779.     function Item(ItemIndex: OleVariant): Index; dispid 0;
  1780.     property Count: Integer readonly dispid 5;
  1781.     function ItemByID(ID: Integer): Index; dispid 6;
  1782.     procedure Add(const Object_: Index); dispid 100;
  1783.     procedure Remove(Index: OleVariant); dispid 101;
  1784.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1785.   end;
  1786.  
  1787. { SQLOLE Keys }
  1788.  
  1789.   Keys = interface(_IVSQLOLEStdObject)
  1790.     ['{00026B1D-0000-0000-C000-000000000046}']
  1791.     function Get_Application: Application; safecall;
  1792.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1793.     function Get_UserData: Integer; safecall;
  1794.     procedure Set_UserData(Value: Integer); safecall;
  1795.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1796.     function Item(ItemIndex: OleVariant): Key; safecall;
  1797.     function Get__NewEnum: IUnknown; safecall;
  1798.     function Get_Count: Integer; safecall;
  1799.     procedure Add(const Object_: Key); safecall;
  1800.     procedure Remove(Index: OleVariant); safecall;
  1801.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1802.     property Application: Application read Get_Application;
  1803.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1804.     property UserData: Integer read Get_UserData write Set_UserData;
  1805.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1806.     property _NewEnum: IUnknown read Get__NewEnum;
  1807.     property Count: Integer read Get_Count;
  1808.   end;
  1809.  
  1810. { DispInterface declaration for Dual Interface Keys }
  1811.  
  1812.   KeysDisp = dispinterface
  1813.     ['{00026B1D-0000-0000-C000-000000000046}']
  1814.     property Application: Application readonly dispid 1;
  1815.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1816.     property UserData: Integer dispid 3;
  1817.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1818.     function Item(ItemIndex: OleVariant): Key; dispid 0;
  1819.     property Count: Integer readonly dispid 5;
  1820.     procedure Add(const Object_: Key); dispid 100;
  1821.     procedure Remove(Index: OleVariant); dispid 101;
  1822.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1823.   end;
  1824.  
  1825. { SQLOLE Triggers }
  1826.  
  1827.   Triggers = interface(_IVSQLOLEStdObject)
  1828.     ['{00026B1E-0000-0000-C000-000000000046}']
  1829.     function Get_Application: Application; safecall;
  1830.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1831.     function Get_UserData: Integer; safecall;
  1832.     procedure Set_UserData(Value: Integer); safecall;
  1833.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1834.     function Item(Index: OleVariant): Trigger; safecall;
  1835.     function Get__NewEnum: IUnknown; safecall;
  1836.     function Get_Count: Integer; safecall;
  1837.     function ItemByID(ID: Integer): Trigger; safecall;
  1838.     procedure Add(const Object_: Trigger); safecall;
  1839.     procedure Remove(Index: OleVariant); safecall;
  1840.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1841.     property Application: Application read Get_Application;
  1842.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1843.     property UserData: Integer read Get_UserData write Set_UserData;
  1844.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1845.     property _NewEnum: IUnknown read Get__NewEnum;
  1846.     property Count: Integer read Get_Count;
  1847.   end;
  1848.  
  1849. { DispInterface declaration for Dual Interface Triggers }
  1850.  
  1851.   TriggersDisp = dispinterface
  1852.     ['{00026B1E-0000-0000-C000-000000000046}']
  1853.     property Application: Application readonly dispid 1;
  1854.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1855.     property UserData: Integer dispid 3;
  1856.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1857.     function Item(Index: OleVariant): Trigger; dispid 0;
  1858.     property Count: Integer readonly dispid 5;
  1859.     function ItemByID(ID: Integer): Trigger; dispid 6;
  1860.     procedure Add(const Object_: Trigger); dispid 100;
  1861.     procedure Remove(Index: OleVariant); dispid 101;
  1862.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1863.   end;
  1864.  
  1865. { SQLOLE Devices }
  1866.  
  1867.   Devices = interface(_IVSQLOLEStdObject)
  1868.     ['{00026B1F-0000-0000-C000-000000000046}']
  1869.     function Get_Application: Application; safecall;
  1870.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1871.     function Get_UserData: Integer; safecall;
  1872.     procedure Set_UserData(Value: Integer); safecall;
  1873.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1874.     function Item(Index: OleVariant): Device; safecall;
  1875.     function Get__NewEnum: IUnknown; safecall;
  1876.     function Get_Count: Integer; safecall;
  1877.     procedure Add(const Object_: Device); safecall;
  1878.     procedure Remove(Index: OleVariant); safecall;
  1879.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1880.     property Application: Application read Get_Application;
  1881.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1882.     property UserData: Integer read Get_UserData write Set_UserData;
  1883.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1884.     property _NewEnum: IUnknown read Get__NewEnum;
  1885.     property Count: Integer read Get_Count;
  1886.   end;
  1887.  
  1888. { DispInterface declaration for Dual Interface Devices }
  1889.  
  1890.   DevicesDisp = dispinterface
  1891.     ['{00026B1F-0000-0000-C000-000000000046}']
  1892.     property Application: Application readonly dispid 1;
  1893.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1894.     property UserData: Integer dispid 3;
  1895.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1896.     function Item(Index: OleVariant): Device; dispid 0;
  1897.     property Count: Integer readonly dispid 5;
  1898.     procedure Add(const Object_: Device); dispid 100;
  1899.     procedure Remove(Index: OleVariant); dispid 101;
  1900.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1901.   end;
  1902.  
  1903. { SQLOLE Alerts }
  1904.  
  1905.   Alerts = interface(_IVSQLOLEStdObject)
  1906.     ['{00026B20-0000-0000-C000-000000000046}']
  1907.     function Get_Application: Application; safecall;
  1908.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1909.     function Get_UserData: Integer; safecall;
  1910.     procedure Set_UserData(Value: Integer); safecall;
  1911.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1912.     function Item(Index: OleVariant): Alert; safecall;
  1913.     function Get__NewEnum: IUnknown; safecall;
  1914.     function Get_Count: Integer; safecall;
  1915.     function ItemByID(ID: Integer): Alert; safecall;
  1916.     procedure Add(const Object_: Alert); safecall;
  1917.     procedure Remove(Index: OleVariant); safecall;
  1918.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1919.     property Application: Application read Get_Application;
  1920.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1921.     property UserData: Integer read Get_UserData write Set_UserData;
  1922.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1923.     property _NewEnum: IUnknown read Get__NewEnum;
  1924.     property Count: Integer read Get_Count;
  1925.   end;
  1926.  
  1927. { DispInterface declaration for Dual Interface Alerts }
  1928.  
  1929.   AlertsDisp = dispinterface
  1930.     ['{00026B20-0000-0000-C000-000000000046}']
  1931.     property Application: Application readonly dispid 1;
  1932.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1933.     property UserData: Integer dispid 3;
  1934.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1935.     function Item(Index: OleVariant): Alert; dispid 0;
  1936.     property Count: Integer readonly dispid 5;
  1937.     function ItemByID(ID: Integer): Alert; dispid 6;
  1938.     procedure Add(const Object_: Alert); dispid 100;
  1939.     procedure Remove(Index: OleVariant); dispid 101;
  1940.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1941.   end;
  1942.  
  1943. { SQLOLE Logins }
  1944.  
  1945.   Logins = interface(_IVSQLOLEStdObject)
  1946.     ['{00026B21-0000-0000-C000-000000000046}']
  1947.     function Get_Application: Application; safecall;
  1948.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1949.     function Get_UserData: Integer; safecall;
  1950.     procedure Set_UserData(Value: Integer); safecall;
  1951.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1952.     function Item(Index: OleVariant): Login; safecall;
  1953.     function Get__NewEnum: IUnknown; safecall;
  1954.     function Get_Count: Integer; safecall;
  1955.     function ItemByID(ID: Integer): Login; safecall;
  1956.     procedure Add(const Object_: Login); safecall;
  1957.     procedure Remove(Index: OleVariant); safecall;
  1958.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1959.     property Application: Application read Get_Application;
  1960.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  1961.     property UserData: Integer read Get_UserData write Set_UserData;
  1962.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  1963.     property _NewEnum: IUnknown read Get__NewEnum;
  1964.     property Count: Integer read Get_Count;
  1965.   end;
  1966.  
  1967. { DispInterface declaration for Dual Interface Logins }
  1968.  
  1969.   LoginsDisp = dispinterface
  1970.     ['{00026B21-0000-0000-C000-000000000046}']
  1971.     property Application: Application readonly dispid 1;
  1972.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  1973.     property UserData: Integer dispid 3;
  1974.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  1975.     function Item(Index: OleVariant): Login; dispid 0;
  1976.     property Count: Integer readonly dispid 5;
  1977.     function ItemByID(ID: Integer): Login; dispid 6;
  1978.     procedure Add(const Object_: Login); dispid 100;
  1979.     procedure Remove(Index: OleVariant); dispid 101;
  1980.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  1981.   end;
  1982.  
  1983. { SQLOLE Languages }
  1984.  
  1985.   Languages = interface(_IVSQLOLEStdObject)
  1986.     ['{00026B22-0000-0000-C000-000000000046}']
  1987.     function Get_Application: Application; safecall;
  1988.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  1989.     function Get_UserData: Integer; safecall;
  1990.     procedure Set_UserData(Value: Integer); safecall;
  1991.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  1992.     function Item(Index: OleVariant): Language; safecall;
  1993.     function Get__NewEnum: IUnknown; safecall;
  1994.     function Get_Count: Integer; safecall;
  1995.     function ItemByID(ID: Integer): Language; safecall;
  1996.     procedure Add(const Object_: Language); safecall;
  1997.     procedure Remove(Index: OleVariant); safecall;
  1998.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  1999.     property Application: Application read Get_Application;
  2000.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2001.     property UserData: Integer read Get_UserData write Set_UserData;
  2002.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2003.     property _NewEnum: IUnknown read Get__NewEnum;
  2004.     property Count: Integer read Get_Count;
  2005.   end;
  2006.  
  2007. { DispInterface declaration for Dual Interface Languages }
  2008.  
  2009.   LanguagesDisp = dispinterface
  2010.     ['{00026B22-0000-0000-C000-000000000046}']
  2011.     property Application: Application readonly dispid 1;
  2012.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2013.     property UserData: Integer dispid 3;
  2014.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2015.     function Item(Index: OleVariant): Language; dispid 0;
  2016.     property Count: Integer readonly dispid 5;
  2017.     function ItemByID(ID: Integer): Language; dispid 6;
  2018.     procedure Add(const Object_: Language); dispid 100;
  2019.     procedure Remove(Index: OleVariant); dispid 101;
  2020.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  2021.   end;
  2022.  
  2023. { SQLOLE RemoteServers }
  2024.  
  2025.   RemoteServers = interface(_IVSQLOLEStdObject)
  2026.     ['{00026B23-0000-0000-C000-000000000046}']
  2027.     function Get_Application: Application; safecall;
  2028.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2029.     function Get_UserData: Integer; safecall;
  2030.     procedure Set_UserData(Value: Integer); safecall;
  2031.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2032.     function Item(Index: OleVariant): RemoteServer; safecall;
  2033.     function Get__NewEnum: IUnknown; safecall;
  2034.     function Get_Count: Integer; safecall;
  2035.     function ItemByID(ID: Integer): RemoteServer; safecall;
  2036.     procedure Add(const Object_: RemoteServer); safecall;
  2037.     procedure Remove(Index: OleVariant); safecall;
  2038.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  2039.     property Application: Application read Get_Application;
  2040.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2041.     property UserData: Integer read Get_UserData write Set_UserData;
  2042.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2043.     property _NewEnum: IUnknown read Get__NewEnum;
  2044.     property Count: Integer read Get_Count;
  2045.   end;
  2046.  
  2047. { DispInterface declaration for Dual Interface RemoteServers }
  2048.  
  2049.   RemoteServersDisp = dispinterface
  2050.     ['{00026B23-0000-0000-C000-000000000046}']
  2051.     property Application: Application readonly dispid 1;
  2052.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2053.     property UserData: Integer dispid 3;
  2054.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2055.     function Item(Index: OleVariant): RemoteServer; dispid 0;
  2056.     property Count: Integer readonly dispid 5;
  2057.     function ItemByID(ID: Integer): RemoteServer; dispid 6;
  2058.     procedure Add(const Object_: RemoteServer); dispid 100;
  2059.     procedure Remove(Index: OleVariant); dispid 101;
  2060.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  2061.   end;
  2062.  
  2063. { SQLOLE RemoteLogins }
  2064.  
  2065.   RemoteLogins = interface(_IVSQLOLEStdObject)
  2066.     ['{00026B24-0000-0000-C000-000000000046}']
  2067.     function Get_Application: Application; safecall;
  2068.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2069.     function Get_UserData: Integer; safecall;
  2070.     procedure Set_UserData(Value: Integer); safecall;
  2071.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2072.     function Item(Index: OleVariant): RemoteLogin; safecall;
  2073.     function Get__NewEnum: IUnknown; safecall;
  2074.     function Get_Count: Integer; safecall;
  2075.     procedure Add(const Object_: RemoteLogin); safecall;
  2076.     procedure Remove(Index: OleVariant); safecall;
  2077.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  2078.     property Application: Application read Get_Application;
  2079.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2080.     property UserData: Integer read Get_UserData write Set_UserData;
  2081.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2082.     property _NewEnum: IUnknown read Get__NewEnum;
  2083.     property Count: Integer read Get_Count;
  2084.   end;
  2085.  
  2086. { DispInterface declaration for Dual Interface RemoteLogins }
  2087.  
  2088.   RemoteLoginsDisp = dispinterface
  2089.     ['{00026B24-0000-0000-C000-000000000046}']
  2090.     property Application: Application readonly dispid 1;
  2091.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2092.     property UserData: Integer dispid 3;
  2093.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2094.     function Item(Index: OleVariant): RemoteLogin; dispid 0;
  2095.     property Count: Integer readonly dispid 5;
  2096.     procedure Add(const Object_: RemoteLogin); dispid 100;
  2097.     procedure Remove(Index: OleVariant); dispid 101;
  2098.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  2099.   end;
  2100.  
  2101. { SQLOLE Tasks }
  2102.  
  2103.   Tasks = interface(_IVSQLOLEStdObject)
  2104.     ['{00026B25-0000-0000-C000-000000000046}']
  2105.     function Get_Application: Application; safecall;
  2106.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2107.     function Get_UserData: Integer; safecall;
  2108.     procedure Set_UserData(Value: Integer); safecall;
  2109.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2110.     function Item(Index: OleVariant): Task; safecall;
  2111.     function Get__NewEnum: IUnknown; safecall;
  2112.     function Get_Count: Integer; safecall;
  2113.     function ItemByID(ID: Integer): Task; safecall;
  2114.     procedure Add(const Object_: Task); safecall;
  2115.     procedure Remove(Index: OleVariant); safecall;
  2116.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  2117.     property Application: Application read Get_Application;
  2118.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2119.     property UserData: Integer read Get_UserData write Set_UserData;
  2120.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2121.     property _NewEnum: IUnknown read Get__NewEnum;
  2122.     property Count: Integer read Get_Count;
  2123.   end;
  2124.  
  2125. { DispInterface declaration for Dual Interface Tasks }
  2126.  
  2127.   TasksDisp = dispinterface
  2128.     ['{00026B25-0000-0000-C000-000000000046}']
  2129.     property Application: Application readonly dispid 1;
  2130.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2131.     property UserData: Integer dispid 3;
  2132.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2133.     function Item(Index: OleVariant): Task; dispid 0;
  2134.     property Count: Integer readonly dispid 5;
  2135.     function ItemByID(ID: Integer): Task; dispid 6;
  2136.     procedure Add(const Object_: Task); dispid 100;
  2137.     procedure Remove(Index: OleVariant); dispid 101;
  2138.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  2139.   end;
  2140.  
  2141. { SQLOLE Operators }
  2142.  
  2143.   Operators = interface(_IVSQLOLEStdObject)
  2144.     ['{00026B29-0000-0000-C000-000000000046}']
  2145.     function Get_Application: Application; safecall;
  2146.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2147.     function Get_UserData: Integer; safecall;
  2148.     procedure Set_UserData(Value: Integer); safecall;
  2149.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2150.     function Item(Index: OleVariant): Operator; safecall;
  2151.     function Get__NewEnum: IUnknown; safecall;
  2152.     function Get_Count: Integer; safecall;
  2153.     function ItemByID(ID: Integer): Operator; safecall;
  2154.     procedure Add(const Object_: Operator); safecall;
  2155.     procedure Remove(Index: OleVariant); safecall;
  2156.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  2157.     property Application: Application read Get_Application;
  2158.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2159.     property UserData: Integer read Get_UserData write Set_UserData;
  2160.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2161.     property _NewEnum: IUnknown read Get__NewEnum;
  2162.     property Count: Integer read Get_Count;
  2163.   end;
  2164.  
  2165. { DispInterface declaration for Dual Interface Operators }
  2166.  
  2167.   OperatorsDisp = dispinterface
  2168.     ['{00026B29-0000-0000-C000-000000000046}']
  2169.     property Application: Application readonly dispid 1;
  2170.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2171.     property UserData: Integer dispid 3;
  2172.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2173.     function Item(Index: OleVariant): Operator; dispid 0;
  2174.     property Count: Integer readonly dispid 5;
  2175.     function ItemByID(ID: Integer): Operator; dispid 6;
  2176.     procedure Add(const Object_: Operator); dispid 100;
  2177.     procedure Remove(Index: OleVariant); dispid 101;
  2178.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  2179.   end;
  2180.  
  2181. { SQLOLE Publications }
  2182.  
  2183.   Publications = interface(_IVSQLOLEStdObject)
  2184.     ['{00026B2A-0000-0000-C000-000000000046}']
  2185.     function Get_Application: Application; safecall;
  2186.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2187.     function Get_UserData: Integer; safecall;
  2188.     procedure Set_UserData(Value: Integer); safecall;
  2189.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2190.     function Item(Index: OleVariant): Publication; safecall;
  2191.     function Get__NewEnum: IUnknown; safecall;
  2192.     function Get_Count: Integer; safecall;
  2193.     function ItemByID(ID: Integer): Publication; safecall;
  2194.     procedure Add(const Object_: Publication); safecall;
  2195.     procedure Remove(Index: OleVariant); safecall;
  2196.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  2197.     property Application: Application read Get_Application;
  2198.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2199.     property UserData: Integer read Get_UserData write Set_UserData;
  2200.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2201.     property _NewEnum: IUnknown read Get__NewEnum;
  2202.     property Count: Integer read Get_Count;
  2203.   end;
  2204.  
  2205. { DispInterface declaration for Dual Interface Publications }
  2206.  
  2207.   PublicationsDisp = dispinterface
  2208.     ['{00026B2A-0000-0000-C000-000000000046}']
  2209.     property Application: Application readonly dispid 1;
  2210.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2211.     property UserData: Integer dispid 3;
  2212.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2213.     function Item(Index: OleVariant): Publication; dispid 0;
  2214.     property Count: Integer readonly dispid 5;
  2215.     function ItemByID(ID: Integer): Publication; dispid 6;
  2216.     procedure Add(const Object_: Publication); dispid 100;
  2217.     procedure Remove(Index: OleVariant); dispid 101;
  2218.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  2219.   end;
  2220.  
  2221. { SQLOLE Articles }
  2222.  
  2223.   Articles = interface(_IVSQLOLEStdObject)
  2224.     ['{00026B2B-0000-0000-C000-000000000046}']
  2225.     function Get_Application: Application; safecall;
  2226.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2227.     function Get_UserData: Integer; safecall;
  2228.     procedure Set_UserData(Value: Integer); safecall;
  2229.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2230.     function Item(Index: OleVariant): Article; safecall;
  2231.     function Get__NewEnum: IUnknown; safecall;
  2232.     function Get_Count: Integer; safecall;
  2233.     function ItemByID(ID: Integer): Article; safecall;
  2234.     procedure Add(const Object_: Article); safecall;
  2235.     procedure Remove(Index: OleVariant); safecall;
  2236.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  2237.     property Application: Application read Get_Application;
  2238.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2239.     property UserData: Integer read Get_UserData write Set_UserData;
  2240.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2241.     property _NewEnum: IUnknown read Get__NewEnum;
  2242.     property Count: Integer read Get_Count;
  2243.   end;
  2244.  
  2245. { DispInterface declaration for Dual Interface Articles }
  2246.  
  2247.   ArticlesDisp = dispinterface
  2248.     ['{00026B2B-0000-0000-C000-000000000046}']
  2249.     property Application: Application readonly dispid 1;
  2250.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2251.     property UserData: Integer dispid 3;
  2252.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2253.     function Item(Index: OleVariant): Article; dispid 0;
  2254.     property Count: Integer readonly dispid 5;
  2255.     function ItemByID(ID: Integer): Article; dispid 6;
  2256.     procedure Add(const Object_: Article); dispid 100;
  2257.     procedure Remove(Index: OleVariant); dispid 101;
  2258.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  2259.   end;
  2260.  
  2261. { SQLOLE Subscriptions }
  2262.  
  2263.   Subscriptions = interface(_IVSQLOLEStdObject)
  2264.     ['{00026B2C-0000-0000-C000-000000000046}']
  2265.     function Get_Application: Application; safecall;
  2266.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2267.     function Get_UserData: Integer; safecall;
  2268.     procedure Set_UserData(Value: Integer); safecall;
  2269.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2270.     function Item(Index: OleVariant): Subscription; safecall;
  2271.     function Get__NewEnum: IUnknown; safecall;
  2272.     function Get_Count: Integer; safecall;
  2273.     procedure Add(const Object_: Subscription); safecall;
  2274.     procedure Remove(Index: OleVariant); safecall;
  2275.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  2276.     property Application: Application read Get_Application;
  2277.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2278.     property UserData: Integer read Get_UserData write Set_UserData;
  2279.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2280.     property _NewEnum: IUnknown read Get__NewEnum;
  2281.     property Count: Integer read Get_Count;
  2282.   end;
  2283.  
  2284. { DispInterface declaration for Dual Interface Subscriptions }
  2285.  
  2286.   SubscriptionsDisp = dispinterface
  2287.     ['{00026B2C-0000-0000-C000-000000000046}']
  2288.     property Application: Application readonly dispid 1;
  2289.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2290.     property UserData: Integer dispid 3;
  2291.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2292.     function Item(Index: OleVariant): Subscription; dispid 0;
  2293.     property Count: Integer readonly dispid 5;
  2294.     procedure Add(const Object_: Subscription); dispid 100;
  2295.     procedure Remove(Index: OleVariant); dispid 101;
  2296.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  2297.   end;
  2298.  
  2299. { SQLOLE DRI Checks }
  2300.  
  2301.   Checks = interface(_IVSQLOLEStdObject)
  2302.     ['{00026B2D-0000-0000-C000-000000000046}']
  2303.     function Get_Application: Application; safecall;
  2304.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2305.     function Get_UserData: Integer; safecall;
  2306.     procedure Set_UserData(Value: Integer); safecall;
  2307.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2308.     function Item(ItemIndex: OleVariant): Check; safecall;
  2309.     function Get__NewEnum: IUnknown; safecall;
  2310.     function Get_Count: Integer; safecall;
  2311.     procedure Add(const Object_: Check); safecall;
  2312.     procedure Remove(Index: OleVariant); safecall;
  2313.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  2314.     property Application: Application read Get_Application;
  2315.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2316.     property UserData: Integer read Get_UserData write Set_UserData;
  2317.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2318.     property _NewEnum: IUnknown read Get__NewEnum;
  2319.     property Count: Integer read Get_Count;
  2320.   end;
  2321.  
  2322. { DispInterface declaration for Dual Interface Checks }
  2323.  
  2324.   ChecksDisp = dispinterface
  2325.     ['{00026B2D-0000-0000-C000-000000000046}']
  2326.     property Application: Application readonly dispid 1;
  2327.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2328.     property UserData: Integer dispid 3;
  2329.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2330.     function Item(ItemIndex: OleVariant): Check; dispid 0;
  2331.     property Count: Integer readonly dispid 5;
  2332.     procedure Add(const Object_: Check); dispid 100;
  2333.     procedure Remove(Index: OleVariant); dispid 101;
  2334.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  2335.   end;
  2336.  
  2337. { SQLOLE DRI ServerGroups }
  2338.  
  2339.   ServerGroups = interface(_IVSQLOLEStdObject)
  2340.     ['{00026B2E-0000-0000-C000-000000000046}']
  2341.     function Get_Application: Application; safecall;
  2342.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2343.     function Get_UserData: Integer; safecall;
  2344.     procedure Set_UserData(Value: Integer); safecall;
  2345.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2346.     function Item(ItemIndex: OleVariant): ServerGroup; safecall;
  2347.     function Get__NewEnum: IUnknown; safecall;
  2348.     function Get_Count: Integer; safecall;
  2349.     procedure Add(const Object_: ServerGroup); safecall;
  2350.     procedure Remove(Index: OleVariant); safecall;
  2351.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  2352.     property Application: Application read Get_Application;
  2353.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2354.     property UserData: Integer read Get_UserData write Set_UserData;
  2355.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2356.     property _NewEnum: IUnknown read Get__NewEnum;
  2357.     property Count: Integer read Get_Count;
  2358.   end;
  2359.  
  2360. { DispInterface declaration for Dual Interface ServerGroups }
  2361.  
  2362.   ServerGroupsDisp = dispinterface
  2363.     ['{00026B2E-0000-0000-C000-000000000046}']
  2364.     property Application: Application readonly dispid 1;
  2365.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2366.     property UserData: Integer dispid 3;
  2367.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2368.     function Item(ItemIndex: OleVariant): ServerGroup; dispid 0;
  2369.     property Count: Integer readonly dispid 5;
  2370.     procedure Add(const Object_: ServerGroup); dispid 100;
  2371.     procedure Remove(Index: OleVariant); dispid 101;
  2372.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  2373.   end;
  2374.  
  2375. { SQLOLE DRI RegisteredServers }
  2376.  
  2377.   RegisteredServers = interface(_IVSQLOLEStdObject)
  2378.     ['{00026B2F-0000-0000-C000-000000000046}']
  2379.     function Get_Application: Application; safecall;
  2380.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2381.     function Get_UserData: Integer; safecall;
  2382.     procedure Set_UserData(Value: Integer); safecall;
  2383.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2384.     function Item(ItemIndex: OleVariant): RegisteredServer; safecall;
  2385.     function Get__NewEnum: IUnknown; safecall;
  2386.     function Get_Count: Integer; safecall;
  2387.     procedure Add(const Object_: RegisteredServer); safecall;
  2388.     procedure Remove(Index: OleVariant); safecall;
  2389.     procedure Refresh(ReleaseMemberObjects: OleVariant); safecall;
  2390.     property Application: Application read Get_Application;
  2391.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2392.     property UserData: Integer read Get_UserData write Set_UserData;
  2393.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2394.     property _NewEnum: IUnknown read Get__NewEnum;
  2395.     property Count: Integer read Get_Count;
  2396.   end;
  2397.  
  2398. { DispInterface declaration for Dual Interface RegisteredServers }
  2399.  
  2400.   RegisteredServersDisp = dispinterface
  2401.     ['{00026B2F-0000-0000-C000-000000000046}']
  2402.     property Application: Application readonly dispid 1;
  2403.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2404.     property UserData: Integer dispid 3;
  2405.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2406.     function Item(ItemIndex: OleVariant): RegisteredServer; dispid 0;
  2407.     property Count: Integer readonly dispid 5;
  2408.     procedure Add(const Object_: RegisteredServer); dispid 100;
  2409.     procedure Remove(Index: OleVariant); dispid 101;
  2410.     procedure Refresh(ReleaseMemberObjects: OleVariant); dispid 102;
  2411.   end;
  2412.  
  2413. { SQLOLE Names }
  2414.  
  2415.   Names = interface(_IVSQLOLEStdObject)
  2416.     ['{00026B40-0000-0000-C000-000000000046}']
  2417.     function Get_Application: Application; safecall;
  2418.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2419.     function Get_UserData: Integer; safecall;
  2420.     procedure Set_UserData(Value: Integer); safecall;
  2421.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2422.     function Item(Index: OleVariant): WideString; safecall;
  2423.     function Get__NewEnum: IUnknown; safecall;
  2424.     function Get_Count: Integer; safecall;
  2425.     procedure Add(const NewName: WideString); safecall;
  2426.     procedure Remove(Index: OleVariant); safecall;
  2427.     procedure Refresh; safecall;
  2428.     procedure Insert(const NewName: WideString; InsertBeforeItem: OleVariant); safecall;
  2429.     procedure Replace(const NewName: WideString; ReplaceItem: OleVariant); safecall;
  2430.     function FindName(const Name: WideString): Integer; safecall;
  2431.     property Application: Application read Get_Application;
  2432.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2433.     property UserData: Integer read Get_UserData write Set_UserData;
  2434.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2435.     property _NewEnum: IUnknown read Get__NewEnum;
  2436.     property Count: Integer read Get_Count;
  2437.   end;
  2438.  
  2439. { DispInterface declaration for Dual Interface Names }
  2440.  
  2441.   NamesDisp = dispinterface
  2442.     ['{00026B40-0000-0000-C000-000000000046}']
  2443.     property Application: Application readonly dispid 1;
  2444.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2445.     property UserData: Integer dispid 3;
  2446.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2447.     function Item(Index: OleVariant): WideString; dispid 0;
  2448.     property Count: Integer readonly dispid 5;
  2449.     procedure Add(const NewName: WideString); dispid 100;
  2450.     procedure Remove(Index: OleVariant); dispid 101;
  2451.     procedure Refresh; dispid 102;
  2452.     procedure Insert(const NewName: WideString; InsertBeforeItem: OleVariant); dispid 103;
  2453.     procedure Replace(const NewName: WideString; ReplaceItem: OleVariant); dispid 104;
  2454.     function FindName(const Name: WideString): Integer; dispid 105;
  2455.   end;
  2456.  
  2457. { SQLOLE DBObject }
  2458.  
  2459.   DBObject = interface(_IVSQLOLEStdObject)
  2460.     ['{00026B41-0000-0000-C000-000000000046}']
  2461.     function Get_Application: Application; safecall;
  2462.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2463.     function Get_UserData: Integer; safecall;
  2464.     procedure Set_UserData(Value: Integer); safecall;
  2465.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2466.     function Get_Properties: Properties; safecall;
  2467.     function Get_Name: WideString; safecall;
  2468.     procedure Set_Name(const Value: WideString); safecall;
  2469.     function Get_Owner: WideString; safecall;
  2470.     function Get_TypeName: WideString; safecall;
  2471.     function Get_Type_: SQLOLE_OBJECT_TYPE; safecall;
  2472.     function Get_CreateDate: WideString; safecall;
  2473.     function Get_ID: Integer; safecall;
  2474.     function Get_SystemObject: WordBool; safecall;
  2475.     procedure Remove; safecall;
  2476.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  2477.     function EnumDependencies(DependencyType: OleVariant): QueryResults; safecall;
  2478.     function ListPermissions(PrivilegeTypes: OleVariant): SQLObjectList; safecall;
  2479.     function ListUserPermissions(const UserName: WideString): SQLObjectList; safecall;
  2480.     property Application: Application read Get_Application;
  2481.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2482.     property UserData: Integer read Get_UserData write Set_UserData;
  2483.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2484.     property Properties: Properties read Get_Properties;
  2485.     property Name: WideString read Get_Name write Set_Name;
  2486.     property Owner: WideString read Get_Owner;
  2487.     property TypeName: WideString read Get_TypeName;
  2488.     property Type_: SQLOLE_OBJECT_TYPE read Get_Type_;
  2489.     property CreateDate: WideString read Get_CreateDate;
  2490.     property ID: Integer read Get_ID;
  2491.     property SystemObject: WordBool read Get_SystemObject;
  2492.   end;
  2493.  
  2494. { DispInterface declaration for Dual Interface DBObject }
  2495.  
  2496.   DBObjectDisp = dispinterface
  2497.     ['{00026B41-0000-0000-C000-000000000046}']
  2498.     property Application: Application readonly dispid 1;
  2499.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2500.     property UserData: Integer dispid 3;
  2501.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2502.     property Properties: Properties readonly dispid 7;
  2503.     property Name: WideString dispid 10;
  2504.     property Owner: WideString readonly dispid 11;
  2505.     property TypeName: WideString readonly dispid 12;
  2506.     property Type_: SQLOLE_OBJECT_TYPE readonly dispid 13;
  2507.     property CreateDate: WideString readonly dispid 14;
  2508.     property ID: Integer readonly dispid 15;
  2509.     property SystemObject: WordBool readonly dispid 16;
  2510.     procedure Remove; dispid 100;
  2511.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 101;
  2512.     function EnumDependencies(DependencyType: OleVariant): QueryResults; dispid 102;
  2513.     function ListPermissions(PrivilegeTypes: OleVariant): SQLObjectList; dispid 103;
  2514.     function ListUserPermissions(const UserName: WideString): SQLObjectList; dispid 104;
  2515.   end;
  2516.  
  2517. { SQLOLE DBOption }
  2518.  
  2519.   DBOption = interface(_IVSQLOLEStdObject)
  2520.     ['{00026B42-0000-0000-C000-000000000046}']
  2521.     function Get_Application: Application; safecall;
  2522.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2523.     function Get_UserData: Integer; safecall;
  2524.     procedure Set_UserData(Value: Integer); safecall;
  2525.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2526.     function Get_Properties: Properties; safecall;
  2527.     function Get_SelectIntoBulkCopy: WordBool; safecall;
  2528.     procedure Set_SelectIntoBulkCopy(Value: WordBool); safecall;
  2529.     function Get_DBOUseOnly: WordBool; safecall;
  2530.     procedure Set_DBOUseOnly(Value: WordBool); safecall;
  2531.     function Get_NoCheckpointOnRecovery: WordBool; safecall;
  2532.     procedure Set_NoCheckpointOnRecovery(Value: WordBool); safecall;
  2533.     function Get_ReadOnly: WordBool; safecall;
  2534.     procedure Set_ReadOnly(Value: WordBool); safecall;
  2535.     function Get_SingleUser: WordBool; safecall;
  2536.     procedure Set_SingleUser(Value: WordBool); safecall;
  2537.     function Get_TruncateLogOnCheckpoint: WordBool; safecall;
  2538.     procedure Set_TruncateLogOnCheckpoint(Value: WordBool); safecall;
  2539.     function Get_EnablePublishing: WordBool; safecall;
  2540.     procedure Set_EnablePublishing(Value: WordBool); safecall;
  2541.     function Get_ColumnsNullByDefault: WordBool; safecall;
  2542.     procedure Set_ColumnsNullByDefault(Value: WordBool); safecall;
  2543.     function Get_Offline: WordBool; safecall;
  2544.     procedure Set_Offline(Value: WordBool); safecall;
  2545.     function Get_EnableSubscribing: WordBool; safecall;
  2546.     procedure Set_EnableSubscribing(Value: WordBool); safecall;
  2547.     procedure Refresh; safecall;
  2548.     property Application: Application read Get_Application;
  2549.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2550.     property UserData: Integer read Get_UserData write Set_UserData;
  2551.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2552.     property Properties: Properties read Get_Properties;
  2553.     property SelectIntoBulkCopy: WordBool read Get_SelectIntoBulkCopy write Set_SelectIntoBulkCopy;
  2554.     property DBOUseOnly: WordBool read Get_DBOUseOnly write Set_DBOUseOnly;
  2555.     property NoCheckpointOnRecovery: WordBool read Get_NoCheckpointOnRecovery write Set_NoCheckpointOnRecovery;
  2556.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  2557.     property SingleUser: WordBool read Get_SingleUser write Set_SingleUser;
  2558.     property TruncateLogOnCheckpoint: WordBool read Get_TruncateLogOnCheckpoint write Set_TruncateLogOnCheckpoint;
  2559.     property EnablePublishing: WordBool read Get_EnablePublishing write Set_EnablePublishing;
  2560.     property ColumnsNullByDefault: WordBool read Get_ColumnsNullByDefault write Set_ColumnsNullByDefault;
  2561.     property Offline: WordBool read Get_Offline write Set_Offline;
  2562.     property EnableSubscribing: WordBool read Get_EnableSubscribing write Set_EnableSubscribing;
  2563.   end;
  2564.  
  2565. { DispInterface declaration for Dual Interface DBOption }
  2566.  
  2567.   DBOptionDisp = dispinterface
  2568.     ['{00026B42-0000-0000-C000-000000000046}']
  2569.     property Application: Application readonly dispid 1;
  2570.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2571.     property UserData: Integer dispid 3;
  2572.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2573.     property Properties: Properties readonly dispid 7;
  2574.     property SelectIntoBulkCopy: WordBool dispid 10;
  2575.     property DBOUseOnly: WordBool dispid 11;
  2576.     property NoCheckpointOnRecovery: WordBool dispid 12;
  2577.     property ReadOnly: WordBool dispid 13;
  2578.     property SingleUser: WordBool dispid 14;
  2579.     property TruncateLogOnCheckpoint: WordBool dispid 15;
  2580.     property EnablePublishing: WordBool dispid 16;
  2581.     property ColumnsNullByDefault: WordBool dispid 17;
  2582.     property Offline: WordBool dispid 18;
  2583.     property EnableSubscribing: WordBool dispid 19;
  2584.     procedure Refresh; dispid 101;
  2585.   end;
  2586.  
  2587. { SQLOLE Server Configuration }
  2588.  
  2589.   Configuration = interface(_IVSQLOLEStdObject)
  2590.     ['{00026B43-0000-0000-C000-000000000046}']
  2591.     function Get_Application: Application; safecall;
  2592.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2593.     function Get_UserData: Integer; safecall;
  2594.     procedure Set_UserData(Value: Integer); safecall;
  2595.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2596.     function Get_Properties: Properties; safecall;
  2597.     function Get_ConfigValues: ConfigValues; safecall;
  2598.     function Get_ShowAdvancedOptions: WordBool; safecall;
  2599.     procedure Set_ShowAdvancedOptions(Value: WordBool); safecall;
  2600.     function Get_Parameters: Names; safecall;
  2601.     procedure ReconfigureCurrentValues; safecall;
  2602.     procedure ReconfigureWithOverride; safecall;
  2603.     property Application: Application read Get_Application;
  2604.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2605.     property UserData: Integer read Get_UserData write Set_UserData;
  2606.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2607.     property Properties: Properties read Get_Properties;
  2608.     property ConfigValues: ConfigValues read Get_ConfigValues;
  2609.     property ShowAdvancedOptions: WordBool read Get_ShowAdvancedOptions write Set_ShowAdvancedOptions;
  2610.     property Parameters: Names read Get_Parameters;
  2611.   end;
  2612.  
  2613. { DispInterface declaration for Dual Interface Configuration }
  2614.  
  2615.   ConfigurationDisp = dispinterface
  2616.     ['{00026B43-0000-0000-C000-000000000046}']
  2617.     property Application: Application readonly dispid 1;
  2618.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2619.     property UserData: Integer dispid 3;
  2620.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2621.     property Properties: Properties readonly dispid 7;
  2622.     property ConfigValues: ConfigValues readonly dispid 0;
  2623.     property ShowAdvancedOptions: WordBool dispid 10;
  2624.     property Parameters: Names readonly dispid 11;
  2625.     procedure ReconfigureCurrentValues; dispid 100;
  2626.     procedure ReconfigureWithOverride; dispid 101;
  2627.   end;
  2628.  
  2629. { SQLOLE Server ConfigValue }
  2630.  
  2631.   ConfigValue = interface(_IVSQLOLEStdObject)
  2632.     ['{00026B44-0000-0000-C000-000000000046}']
  2633.     function Get_Application: Application; safecall;
  2634.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2635.     function Get_UserData: Integer; safecall;
  2636.     procedure Set_UserData(Value: Integer); safecall;
  2637.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2638.     function Get_Properties: Properties; safecall;
  2639.     function Get_Name: WideString; safecall;
  2640.     function Get_MinimumValue: Integer; safecall;
  2641.     function Get_MaximumValue: Integer; safecall;
  2642.     function Get_DynamicReconfigure: WordBool; safecall;
  2643.     function Get_CurrentValue: Integer; safecall;
  2644.     procedure Set_CurrentValue(Value: Integer); safecall;
  2645.     function Get_RunningValue: Integer; safecall;
  2646.     function Get_Description: WideString; safecall;
  2647.     function Get_ID: SQLOLE_CONFIGVALUE_TYPE; safecall;
  2648.     property Application: Application read Get_Application;
  2649.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2650.     property UserData: Integer read Get_UserData write Set_UserData;
  2651.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2652.     property Properties: Properties read Get_Properties;
  2653.     property Name: WideString read Get_Name;
  2654.     property MinimumValue: Integer read Get_MinimumValue;
  2655.     property MaximumValue: Integer read Get_MaximumValue;
  2656.     property DynamicReconfigure: WordBool read Get_DynamicReconfigure;
  2657.     property CurrentValue: Integer read Get_CurrentValue write Set_CurrentValue;
  2658.     property RunningValue: Integer read Get_RunningValue;
  2659.     property Description: WideString read Get_Description;
  2660.     property ID: SQLOLE_CONFIGVALUE_TYPE read Get_ID;
  2661.   end;
  2662.  
  2663. { DispInterface declaration for Dual Interface ConfigValue }
  2664.  
  2665.   ConfigValueDisp = dispinterface
  2666.     ['{00026B44-0000-0000-C000-000000000046}']
  2667.     property Application: Application readonly dispid 1;
  2668.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2669.     property UserData: Integer dispid 3;
  2670.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2671.     property Properties: Properties readonly dispid 7;
  2672.     property Name: WideString readonly dispid 10;
  2673.     property MinimumValue: Integer readonly dispid 11;
  2674.     property MaximumValue: Integer readonly dispid 12;
  2675.     property DynamicReconfigure: WordBool readonly dispid 13;
  2676.     property CurrentValue: Integer dispid 14;
  2677.     property RunningValue: Integer readonly dispid 15;
  2678.     property Description: WideString readonly dispid 16;
  2679.     property ID: SQLOLE_CONFIGVALUE_TYPE readonly dispid 17;
  2680.   end;
  2681.  
  2682. { SQLOLE Replication SubscriberInfo }
  2683.  
  2684.   SubscriberInfo = interface(_IVSQLOLEStdObject)
  2685.     ['{00027B45-0BCC-11CE-A4B3-00AA004A34D5}']
  2686.     function Get_Application: Application; safecall;
  2687.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2688.     function Get_UserData: Integer; safecall;
  2689.     procedure Set_UserData(Value: Integer); safecall;
  2690.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2691.     function Get_Properties: Properties; safecall;
  2692.     function Get_FrequencyType: SQLOLE_FREQUENCY_TYPE; safecall;
  2693.     procedure Set_FrequencyType(Value: SQLOLE_FREQUENCY_TYPE); safecall;
  2694.     function Get_FrequencyInterval: Integer; safecall;
  2695.     procedure Set_FrequencyInterval(Value: Integer); safecall;
  2696.     function Get_FrequencyRelativeInterval: SQLOLE_FREQRELATIVE_TYPE; safecall;
  2697.     procedure Set_FrequencyRelativeInterval(Value: SQLOLE_FREQRELATIVE_TYPE); safecall;
  2698.     function Get_FrequencyRecurrenceFactor: Integer; safecall;
  2699.     procedure Set_FrequencyRecurrenceFactor(Value: Integer); safecall;
  2700.     function Get_FrequencySubDay: SQLOLE_FREQSUB_TYPE; safecall;
  2701.     procedure Set_FrequencySubDay(Value: SQLOLE_FREQSUB_TYPE); safecall;
  2702.     function Get_FrequencySubDayInterval: Integer; safecall;
  2703.     procedure Set_FrequencySubDayInterval(Value: Integer); safecall;
  2704.     function Get_FlushFrequency: Integer; safecall;
  2705.     procedure Set_FlushFrequency(Value: Integer); safecall;
  2706.     function Get_ActiveStartDate: TDateTime; safecall;
  2707.     procedure Set_ActiveStartDate(Value: TDateTime); safecall;
  2708.     function Get_ActiveEndDate: TDateTime; safecall;
  2709.     procedure Set_ActiveEndDate(Value: TDateTime); safecall;
  2710.     function Get_LogBatchSize: Integer; safecall;
  2711.     procedure Set_LogBatchSize(Value: Integer); safecall;
  2712.     function Get_CommitTransactionCount: Integer; safecall;
  2713.     procedure Set_CommitTransactionCount(Value: Integer); safecall;
  2714.     function Get_Login: WideString; safecall;
  2715.     procedure Set_Login(const Value: WideString); safecall;
  2716.     function Get_Password: WideString; safecall;
  2717.     procedure Set_Password(const Value: WideString); safecall;
  2718.     function Get_Type_: SQLOLE_SUBSCRIBERINFO_TYPE; safecall;
  2719.     procedure Set_Type_(Value: SQLOLE_SUBSCRIBERINFO_TYPE); safecall;
  2720.     procedure Refresh; safecall;
  2721.     procedure BeginAlter; safecall;
  2722.     procedure DoAlter; safecall;
  2723.     procedure CancelAlter; safecall;
  2724.     function Get_Description: WideString; safecall;
  2725.     procedure Set_Description(const Value: WideString); safecall;
  2726.     property Application: Application read Get_Application;
  2727.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2728.     property UserData: Integer read Get_UserData write Set_UserData;
  2729.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2730.     property Properties: Properties read Get_Properties;
  2731.     property FrequencyType: SQLOLE_FREQUENCY_TYPE read Get_FrequencyType write Set_FrequencyType;
  2732.     property FrequencyInterval: Integer read Get_FrequencyInterval write Set_FrequencyInterval;
  2733.     property FrequencyRelativeInterval: SQLOLE_FREQRELATIVE_TYPE read Get_FrequencyRelativeInterval write Set_FrequencyRelativeInterval;
  2734.     property FrequencyRecurrenceFactor: Integer read Get_FrequencyRecurrenceFactor write Set_FrequencyRecurrenceFactor;
  2735.     property FrequencySubDay: SQLOLE_FREQSUB_TYPE read Get_FrequencySubDay write Set_FrequencySubDay;
  2736.     property FrequencySubDayInterval: Integer read Get_FrequencySubDayInterval write Set_FrequencySubDayInterval;
  2737.     property FlushFrequency: Integer read Get_FlushFrequency write Set_FlushFrequency;
  2738.     property ActiveStartDate: TDateTime read Get_ActiveStartDate write Set_ActiveStartDate;
  2739.     property ActiveEndDate: TDateTime read Get_ActiveEndDate write Set_ActiveEndDate;
  2740.     property LogBatchSize: Integer read Get_LogBatchSize write Set_LogBatchSize;
  2741.     property CommitTransactionCount: Integer read Get_CommitTransactionCount write Set_CommitTransactionCount;
  2742.     property Login: WideString read Get_Login write Set_Login;
  2743.     property Password: WideString read Get_Password write Set_Password;
  2744.     property Type_: SQLOLE_SUBSCRIBERINFO_TYPE read Get_Type_ write Set_Type_;
  2745.     property Description: WideString read Get_Description write Set_Description;
  2746.   end;
  2747.  
  2748. { DispInterface declaration for Dual Interface SubscriberInfo }
  2749.  
  2750.   SubscriberInfoDisp = dispinterface
  2751.     ['{00027B45-0BCC-11CE-A4B3-00AA004A34D5}']
  2752.     property Application: Application readonly dispid 1;
  2753.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2754.     property UserData: Integer dispid 3;
  2755.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2756.     property Properties: Properties readonly dispid 7;
  2757.     property FrequencyType: SQLOLE_FREQUENCY_TYPE dispid 10;
  2758.     property FrequencyInterval: Integer dispid 11;
  2759.     property FrequencyRelativeInterval: SQLOLE_FREQRELATIVE_TYPE dispid 12;
  2760.     property FrequencyRecurrenceFactor: Integer dispid 13;
  2761.     property FrequencySubDay: SQLOLE_FREQSUB_TYPE dispid 14;
  2762.     property FrequencySubDayInterval: Integer dispid 15;
  2763.     property FlushFrequency: Integer dispid 16;
  2764.     property ActiveStartDate: TDateTime dispid 17;
  2765.     property ActiveEndDate: TDateTime dispid 18;
  2766.     property LogBatchSize: Integer dispid 19;
  2767.     property CommitTransactionCount: Integer dispid 20;
  2768.     property Login: WideString dispid 21;
  2769.     property Password: WideString dispid 22;
  2770.     property Type_: SQLOLE_SUBSCRIBERINFO_TYPE dispid 23;
  2771.     procedure Refresh; dispid 101;
  2772.     procedure BeginAlter; dispid 102;
  2773.     procedure DoAlter; dispid 103;
  2774.     procedure CancelAlter; dispid 104;
  2775.     property Description: WideString dispid 24;
  2776.   end;
  2777.  
  2778. { SQLOLE Name List }
  2779.  
  2780.   NameList = interface(_IVSQLOLEStdObject)
  2781.     ['{00026B46-0000-0000-C000-000000000046}']
  2782.     function Get_Application: Application; safecall;
  2783.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2784.     function Get_UserData: Integer; safecall;
  2785.     procedure Set_UserData(Value: Integer); safecall;
  2786.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2787.     function Item(Index: OleVariant): WideString; safecall;
  2788.     function Get__NewEnum: IUnknown; safecall;
  2789.     function Get_Count: Integer; safecall;
  2790.     procedure Refresh; safecall;
  2791.     function FindName(const Name: WideString): Integer; safecall;
  2792.     property Application: Application read Get_Application;
  2793.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2794.     property UserData: Integer read Get_UserData write Set_UserData;
  2795.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2796.     property _NewEnum: IUnknown read Get__NewEnum;
  2797.     property Count: Integer read Get_Count;
  2798.   end;
  2799.  
  2800. { DispInterface declaration for Dual Interface NameList }
  2801.  
  2802.   NameListDisp = dispinterface
  2803.     ['{00026B46-0000-0000-C000-000000000046}']
  2804.     property Application: Application readonly dispid 1;
  2805.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2806.     property UserData: Integer dispid 3;
  2807.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2808.     function Item(Index: OleVariant): WideString; dispid 0;
  2809.     property Count: Integer readonly dispid 5;
  2810.     procedure Refresh; dispid 101;
  2811.     function FindName(const Name: WideString): Integer; dispid 105;
  2812.   end;
  2813.  
  2814. { SQLOLE Executive Object }
  2815.  
  2816.   Executive = interface(_IVSQLOLEStdObject)
  2817.     ['{00027B47-0BCC-11CE-A4B3-00AA004A34D5}']
  2818.     function Get_Application: Application; safecall;
  2819.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2820.     function Get_UserData: Integer; safecall;
  2821.     procedure Set_UserData(Value: Integer); safecall;
  2822.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2823.     function Get_Properties: Properties; safecall;
  2824.     function Get_Tasks: Tasks; safecall;
  2825.     function Get_Status: SQLOLE_SVCSTATUS_TYPE; safecall;
  2826.     function Get_AutoStart: WordBool; safecall;
  2827.     procedure Set_AutoStart(Value: WordBool); safecall;
  2828.     function Get_RestartSQLServerInterval: Integer; safecall;
  2829.     procedure Set_RestartSQLServerInterval(Value: Integer); safecall;
  2830.     function Get_AlertSystem: AlertSystem; safecall;
  2831.     function Get_RestartSQLServer: WordBool; safecall;
  2832.     procedure Set_RestartSQLServer(Value: WordBool); safecall;
  2833.     function Get_LimitHistoryRows: WordBool; safecall;
  2834.     procedure Set_LimitHistoryRows(Value: WordBool); safecall;
  2835.     function Get_LimitHistoryRowsMax: Integer; safecall;
  2836.     procedure Set_LimitHistoryRowsMax(Value: Integer); safecall;
  2837.     procedure Stop; safecall;
  2838.     procedure Start; safecall;
  2839.     function EnumSubSystems: QueryResults; safecall;
  2840.     function EnumQueuedTasks: QueryResults; safecall;
  2841.     function ListSubSystemTasks(const SubSystem: WideString): SQLObjectList; safecall;
  2842.     procedure ReassignLoginTasks(const OldLogin, NewLogin: WideString); safecall;
  2843.     procedure RemoveLoginTasks(const Login: WideString); safecall;
  2844.     procedure Refresh; safecall;
  2845.     procedure BeginAlter; safecall;
  2846.     procedure DoAlter; safecall;
  2847.     procedure CancelAlter; safecall;
  2848.     function Get_LimitHistoryRowsPerTaskMax: Integer; safecall;
  2849.     procedure Set_LimitHistoryRowsPerTaskMax(Value: Integer); safecall;
  2850.     property Application: Application read Get_Application;
  2851.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2852.     property UserData: Integer read Get_UserData write Set_UserData;
  2853.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2854.     property Properties: Properties read Get_Properties;
  2855.     property Tasks: Tasks read Get_Tasks;
  2856.     property Status: SQLOLE_SVCSTATUS_TYPE read Get_Status;
  2857.     property AutoStart: WordBool read Get_AutoStart write Set_AutoStart;
  2858.     property RestartSQLServerInterval: Integer read Get_RestartSQLServerInterval write Set_RestartSQLServerInterval;
  2859.     property AlertSystem: AlertSystem read Get_AlertSystem;
  2860.     property RestartSQLServer: WordBool read Get_RestartSQLServer write Set_RestartSQLServer;
  2861.     property LimitHistoryRows: WordBool read Get_LimitHistoryRows write Set_LimitHistoryRows;
  2862.     property LimitHistoryRowsMax: Integer read Get_LimitHistoryRowsMax write Set_LimitHistoryRowsMax;
  2863.     property LimitHistoryRowsPerTaskMax: Integer read Get_LimitHistoryRowsPerTaskMax write Set_LimitHistoryRowsPerTaskMax;
  2864.   end;
  2865.  
  2866. { DispInterface declaration for Dual Interface Executive }
  2867.  
  2868.   ExecutiveDisp = dispinterface
  2869.     ['{00027B47-0BCC-11CE-A4B3-00AA004A34D5}']
  2870.     property Application: Application readonly dispid 1;
  2871.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2872.     property UserData: Integer dispid 3;
  2873.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2874.     property Properties: Properties readonly dispid 7;
  2875.     property Tasks: Tasks readonly dispid 0;
  2876.     property Status: SQLOLE_SVCSTATUS_TYPE readonly dispid 11;
  2877.     property AutoStart: WordBool dispid 12;
  2878.     property RestartSQLServerInterval: Integer dispid 13;
  2879.     property AlertSystem: AlertSystem readonly dispid 14;
  2880.     property RestartSQLServer: WordBool dispid 15;
  2881.     property LimitHistoryRows: WordBool dispid 16;
  2882.     property LimitHistoryRowsMax: Integer dispid 17;
  2883.     procedure Stop; dispid 100;
  2884.     procedure Start; dispid 101;
  2885.     function EnumSubSystems: QueryResults; dispid 104;
  2886.     function EnumQueuedTasks: QueryResults; dispid 105;
  2887.     function ListSubSystemTasks(const SubSystem: WideString): SQLObjectList; dispid 106;
  2888.     procedure ReassignLoginTasks(const OldLogin, NewLogin: WideString); dispid 107;
  2889.     procedure RemoveLoginTasks(const Login: WideString); dispid 108;
  2890.     procedure Refresh; dispid 110;
  2891.     procedure BeginAlter; dispid 111;
  2892.     procedure DoAlter; dispid 112;
  2893.     procedure CancelAlter; dispid 113;
  2894.     property LimitHistoryRowsPerTaskMax: Integer dispid 18;
  2895.   end;
  2896.  
  2897. { SQLOLE QueryResults Object (from ExecuteWithResults) }
  2898.  
  2899.   QueryResults = interface(_IVSQLOLEStdObject)
  2900.     ['{00027B48-0BCC-11CE-A4B3-00AA004A34D5}']
  2901.     function Get_Application: Application; safecall;
  2902.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2903.     function Get_UserData: Integer; safecall;
  2904.     procedure Set_UserData(Value: Integer); safecall;
  2905.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2906.     function Get_Properties: Properties; safecall;
  2907.     function Get_ResultSets: Integer; safecall;
  2908.     function Get_CurrentResultSet: Integer; safecall;
  2909.     procedure Set_CurrentResultSet(Value: Integer); safecall;
  2910.     function Get_Rows: Integer; safecall;
  2911.     function Get_Columns: Integer; safecall;
  2912.     function Get_ColumnName(Column: Integer): WideString; safecall;
  2913.     function Get_ColumnType(Column: Integer): SQLOLE_QUERY_DATATYPE; safecall;
  2914.     function Get_ColumnMaxLength(Column: Integer): Integer; safecall;
  2915.     function GetColumnLong(Row, Column: Integer): Integer; safecall;
  2916.     function GetColumnBool(Row, Column: Integer): WordBool; safecall;
  2917.     function GetColumnFloat(Row, Column: Integer): Single; safecall;
  2918.     function GetColumnDouble(Row, Column: Integer): Double; safecall;
  2919.     function GetColumnString(Row, Column: Integer): WideString; safecall;
  2920.     function GetRangeString(Top, Left, Bottom, Right, RowDelim, ColDelim, ColWidths: OleVariant): WideString; safecall;
  2921.     procedure Refresh; safecall;
  2922.     function GetColumnDate(Row, Column: Integer): TDateTime; safecall;
  2923.     function GetColumnBinary(Row, Column: Integer): PSafeArray; safecall;
  2924.     property Application: Application read Get_Application;
  2925.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2926.     property UserData: Integer read Get_UserData write Set_UserData;
  2927.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2928.     property Properties: Properties read Get_Properties;
  2929.     property ResultSets: Integer read Get_ResultSets;
  2930.     property CurrentResultSet: Integer read Get_CurrentResultSet write Set_CurrentResultSet;
  2931.     property Rows: Integer read Get_Rows;
  2932.     property Columns: Integer read Get_Columns;
  2933.     property ColumnName[Column: Integer]: WideString read Get_ColumnName;
  2934.     property ColumnType[Column: Integer]: SQLOLE_QUERY_DATATYPE read Get_ColumnType;
  2935.     property ColumnMaxLength[Column: Integer]: Integer read Get_ColumnMaxLength;
  2936.   end;
  2937.  
  2938. { DispInterface declaration for Dual Interface QueryResults }
  2939.  
  2940.   QueryResultsDisp = dispinterface
  2941.     ['{00027B48-0BCC-11CE-A4B3-00AA004A34D5}']
  2942.     property Application: Application readonly dispid 1;
  2943.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  2944.     property UserData: Integer dispid 3;
  2945.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  2946.     property Properties: Properties readonly dispid 7;
  2947.     property ResultSets: Integer readonly dispid 10;
  2948.     property CurrentResultSet: Integer dispid 11;
  2949.     property Rows: Integer readonly dispid 12;
  2950.     property Columns: Integer readonly dispid 13;
  2951.     property ColumnName[Column: Integer]: WideString readonly dispid 14;
  2952.     property ColumnType[Column: Integer]: SQLOLE_QUERY_DATATYPE readonly dispid 15;
  2953.     property ColumnMaxLength[Column: Integer]: Integer readonly dispid 16;
  2954.     function GetColumnLong(Row, Column: Integer): Integer; dispid 100;
  2955.     function GetColumnBool(Row, Column: Integer): WordBool; dispid 101;
  2956.     function GetColumnFloat(Row, Column: Integer): Single; dispid 102;
  2957.     function GetColumnDouble(Row, Column: Integer): Double; dispid 103;
  2958.     function GetColumnString(Row, Column: Integer): WideString; dispid 104;
  2959.     function GetRangeString(Top, Left, Bottom, Right, RowDelim, ColDelim, ColWidths: OleVariant): WideString; dispid 105;
  2960.     procedure Refresh; dispid 106;
  2961.     function GetColumnDate(Row, Column: Integer): TDateTime; dispid 107;
  2962.     function GetColumnBinary(Row, Column: Integer): OleVariant; dispid 108;
  2963.   end;
  2964.  
  2965. { SQLOLE TransactionLog Object }
  2966.  
  2967.   TransactionLog = interface(_IVSQLOLEStdObject)
  2968.     ['{00026B49-0000-0000-C000-000000000046}']
  2969.     function Get_Application: Application; safecall;
  2970.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  2971.     function Get_UserData: Integer; safecall;
  2972.     procedure Set_UserData(Value: Integer); safecall;
  2973.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  2974.     function Get_Properties: Properties; safecall;
  2975.     function Get_CreateDate: WideString; safecall;
  2976.     function Get_LastDump: WideString; safecall;
  2977.     function Get_Size: Integer; safecall;
  2978.     function Get_SpaceAvailable: Integer; safecall;
  2979.     function Get_SpaceAvailableInMB: Single; safecall;
  2980.     function Get_SpaceAllocatedOnDevice(const DeviceName: WideString): Integer; safecall;
  2981.     function Get_IsLogOnSeparateDevice: WordBool; safecall;
  2982.     procedure DedicateLogDevices(const DeviceNames: WideString); safecall;
  2983.     procedure UndedicateLogDevices(const DeviceNames: WideString); safecall;
  2984.     procedure Dump(const DumpSpec: Backup); safecall;
  2985.     procedure Load(const LoadSpec: Backup); safecall;
  2986.     procedure Truncate; safecall;
  2987.     function ListDevices: SQLObjectList; safecall;
  2988.     function GenerateBackupSQL(const DumpSpec: Backup): WideString; safecall;
  2989.     property Application: Application read Get_Application;
  2990.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  2991.     property UserData: Integer read Get_UserData write Set_UserData;
  2992.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  2993.     property Properties: Properties read Get_Properties;
  2994.     property CreateDate: WideString read Get_CreateDate;
  2995.     property LastDump: WideString read Get_LastDump;
  2996.     property Size: Integer read Get_Size;
  2997.     property SpaceAvailable: Integer read Get_SpaceAvailable;
  2998.     property SpaceAvailableInMB: Single read Get_SpaceAvailableInMB;
  2999.     property SpaceAllocatedOnDevice[const DeviceName: WideString]: Integer read Get_SpaceAllocatedOnDevice;
  3000.     property IsLogOnSeparateDevice: WordBool read Get_IsLogOnSeparateDevice;
  3001.   end;
  3002.  
  3003. { DispInterface declaration for Dual Interface TransactionLog }
  3004.  
  3005.   TransactionLogDisp = dispinterface
  3006.     ['{00026B49-0000-0000-C000-000000000046}']
  3007.     property Application: Application readonly dispid 1;
  3008.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3009.     property UserData: Integer dispid 3;
  3010.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3011.     property Properties: Properties readonly dispid 7;
  3012.     property CreateDate: WideString readonly dispid 10;
  3013.     property LastDump: WideString readonly dispid 11;
  3014.     property Size: Integer readonly dispid 12;
  3015.     property SpaceAvailable: Integer readonly dispid 13;
  3016.     property SpaceAvailableInMB: Single readonly dispid 14;
  3017.     property SpaceAllocatedOnDevice[const DeviceName: WideString]: Integer readonly dispid 15;
  3018.     property IsLogOnSeparateDevice: WordBool readonly dispid 17;
  3019.     procedure DedicateLogDevices(const DeviceNames: WideString); dispid 100;
  3020.     procedure UndedicateLogDevices(const DeviceNames: WideString); dispid 101;
  3021.     procedure Dump(const DumpSpec: Backup); dispid 102;
  3022.     procedure Load(const LoadSpec: Backup); dispid 103;
  3023.     procedure Truncate; dispid 104;
  3024.     function ListDevices: SQLObjectList; dispid 105;
  3025.     function GenerateBackupSQL(const DumpSpec: Backup): WideString; dispid 106;
  3026.   end;
  3027.  
  3028. { SQLOLE VersionInfo Object }
  3029.  
  3030.   Registry = interface(_IVSQLOLEStdObject)
  3031.     ['{00026B4A-0000-0000-C000-000000000046}']
  3032.     function Get_Application: Application; safecall;
  3033.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3034.     function Get_UserData: Integer; safecall;
  3035.     procedure Set_UserData(Value: Integer); safecall;
  3036.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3037.     function Get_Properties: Properties; safecall;
  3038.     function Get_AutostartMail: WordBool; safecall;
  3039.     procedure Set_AutostartMail(Value: WordBool); safecall;
  3040.     function Get_AutostartServer: WordBool; safecall;
  3041.     procedure Set_AutostartServer(Value: WordBool); safecall;
  3042.     function Get_CaseSensitive: WordBool; safecall;
  3043.     function Get_CharacterSet: WideString; safecall;
  3044.     function Get_ErrorLogPath: WideString; safecall;
  3045.     procedure Set_ErrorLogPath(const Value: WideString); safecall;
  3046.     function Get_MailAccountName: WideString; safecall;
  3047.     procedure Set_MailAccountName(const Value: WideString); safecall;
  3048.     function Get_MailPassword: WideString; safecall;
  3049.     procedure Set_MailPassword(const Value: WideString); safecall;
  3050.     function Get_MasterDBPath: WideString; safecall;
  3051.     procedure Set_MasterDBPath(const Value: WideString); safecall;
  3052.     function Get_NTEventLogging: WordBool; safecall;
  3053.     function Get_NumberOfProcessors: Integer; safecall;
  3054.     function Get_PerfMonMode: SQLOLE_PERFMON_TYPE; safecall;
  3055.     procedure Set_PerfMonMode(Value: SQLOLE_PERFMON_TYPE); safecall;
  3056.     function Get_PhysicalMemory: Integer; safecall;
  3057.     function Get_AutostartLicensing: WordBool; safecall;
  3058.     procedure Set_AutostartLicensing(Value: WordBool); safecall;
  3059.     function Get_RegisteredOrganization: WideString; safecall;
  3060.     function Get_RegisteredOwner: WideString; safecall;
  3061.     function Get_SortOrder: WideString; safecall;
  3062.     function Get_SQLRootPath: WideString; safecall;
  3063.     procedure Set_SQLRootPath(const Value: WideString); safecall;
  3064.     function Get_TapeLoadWaitTime: Integer; safecall;
  3065.     procedure Set_TapeLoadWaitTime(Value: Integer); safecall;
  3066.     property Application: Application read Get_Application;
  3067.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3068.     property UserData: Integer read Get_UserData write Set_UserData;
  3069.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3070.     property Properties: Properties read Get_Properties;
  3071.     property AutostartMail: WordBool read Get_AutostartMail write Set_AutostartMail;
  3072.     property AutostartServer: WordBool read Get_AutostartServer write Set_AutostartServer;
  3073.     property CaseSensitive: WordBool read Get_CaseSensitive;
  3074.     property CharacterSet: WideString read Get_CharacterSet;
  3075.     property ErrorLogPath: WideString read Get_ErrorLogPath write Set_ErrorLogPath;
  3076.     property MailAccountName: WideString read Get_MailAccountName write Set_MailAccountName;
  3077.     property MailPassword: WideString read Get_MailPassword write Set_MailPassword;
  3078.     property MasterDBPath: WideString read Get_MasterDBPath write Set_MasterDBPath;
  3079.     property NTEventLogging: WordBool read Get_NTEventLogging;
  3080.     property NumberOfProcessors: Integer read Get_NumberOfProcessors;
  3081.     property PerfMonMode: SQLOLE_PERFMON_TYPE read Get_PerfMonMode write Set_PerfMonMode;
  3082.     property PhysicalMemory: Integer read Get_PhysicalMemory;
  3083.     property AutostartLicensing: WordBool read Get_AutostartLicensing write Set_AutostartLicensing;
  3084.     property RegisteredOrganization: WideString read Get_RegisteredOrganization;
  3085.     property RegisteredOwner: WideString read Get_RegisteredOwner;
  3086.     property SortOrder: WideString read Get_SortOrder;
  3087.     property SQLRootPath: WideString read Get_SQLRootPath write Set_SQLRootPath;
  3088.     property TapeLoadWaitTime: Integer read Get_TapeLoadWaitTime write Set_TapeLoadWaitTime;
  3089.   end;
  3090.  
  3091. { DispInterface declaration for Dual Interface Registry }
  3092.  
  3093.   RegistryDisp = dispinterface
  3094.     ['{00026B4A-0000-0000-C000-000000000046}']
  3095.     property Application: Application readonly dispid 1;
  3096.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3097.     property UserData: Integer dispid 3;
  3098.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3099.     property Properties: Properties readonly dispid 7;
  3100.     property AutostartMail: WordBool dispid 10;
  3101.     property AutostartServer: WordBool dispid 11;
  3102.     property CaseSensitive: WordBool readonly dispid 12;
  3103.     property CharacterSet: WideString readonly dispid 13;
  3104.     property ErrorLogPath: WideString dispid 15;
  3105.     property MailAccountName: WideString dispid 16;
  3106.     property MailPassword: WideString dispid 17;
  3107.     property MasterDBPath: WideString dispid 18;
  3108.     property NTEventLogging: WordBool readonly dispid 19;
  3109.     property NumberOfProcessors: Integer readonly dispid 20;
  3110.     property PerfMonMode: SQLOLE_PERFMON_TYPE dispid 21;
  3111.     property PhysicalMemory: Integer readonly dispid 22;
  3112.     property AutostartLicensing: WordBool dispid 24;
  3113.     property RegisteredOrganization: WideString readonly dispid 25;
  3114.     property RegisteredOwner: WideString readonly dispid 26;
  3115.     property SortOrder: WideString readonly dispid 27;
  3116.     property SQLRootPath: WideString dispid 28;
  3117.     property TapeLoadWaitTime: Integer dispid 29;
  3118.   end;
  3119.  
  3120. { SQLOLE SystemDatatypes }
  3121.  
  3122.   SystemDatatypes = interface(_IVSQLOLEStdObject)
  3123.     ['{00026B4B-0000-0000-C000-000000000046}']
  3124.     function Get_Application: Application; safecall;
  3125.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3126.     function Get_UserData: Integer; safecall;
  3127.     procedure Set_UserData(Value: Integer); safecall;
  3128.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3129.     function Item(Index: OleVariant): SystemDatatype; safecall;
  3130.     function Get__NewEnum: IUnknown; safecall;
  3131.     function Get_Count: Integer; safecall;
  3132.     property Application: Application read Get_Application;
  3133.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3134.     property UserData: Integer read Get_UserData write Set_UserData;
  3135.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3136.     property _NewEnum: IUnknown read Get__NewEnum;
  3137.     property Count: Integer read Get_Count;
  3138.   end;
  3139.  
  3140. { DispInterface declaration for Dual Interface SystemDatatypes }
  3141.  
  3142.   SystemDatatypesDisp = dispinterface
  3143.     ['{00026B4B-0000-0000-C000-000000000046}']
  3144.     property Application: Application readonly dispid 1;
  3145.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3146.     property UserData: Integer dispid 3;
  3147.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3148.     function Item(Index: OleVariant): SystemDatatype; dispid 0;
  3149.     property Count: Integer readonly dispid 5;
  3150.   end;
  3151.  
  3152. { SQLOLE SystemDatatype }
  3153.  
  3154.   SystemDatatype = interface(_IVSQLOLEStdObject)
  3155.     ['{00026B4C-0000-0000-C000-000000000046}']
  3156.     function Get_Application: Application; safecall;
  3157.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3158.     function Get_UserData: Integer; safecall;
  3159.     procedure Set_UserData(Value: Integer); safecall;
  3160.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3161.     function Get_Properties: Properties; safecall;
  3162.     function Get_Name: WideString; safecall;
  3163.     function Get_MaximumLength: Integer; safecall;
  3164.     function Get_AllowNulls: WordBool; safecall;
  3165.     function Get_IsNumeric: WordBool; safecall;
  3166.     function Get_AllowIdentity: WordBool; safecall;
  3167.     property Application: Application read Get_Application;
  3168.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3169.     property UserData: Integer read Get_UserData write Set_UserData;
  3170.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3171.     property Properties: Properties read Get_Properties;
  3172.     property Name: WideString read Get_Name;
  3173.     property MaximumLength: Integer read Get_MaximumLength;
  3174.     property AllowNulls: WordBool read Get_AllowNulls;
  3175.     property IsNumeric: WordBool read Get_IsNumeric;
  3176.     property AllowIdentity: WordBool read Get_AllowIdentity;
  3177.   end;
  3178.  
  3179. { DispInterface declaration for Dual Interface SystemDatatype }
  3180.  
  3181.   SystemDatatypeDisp = dispinterface
  3182.     ['{00026B4C-0000-0000-C000-000000000046}']
  3183.     property Application: Application readonly dispid 1;
  3184.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3185.     property UserData: Integer dispid 3;
  3186.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3187.     property Properties: Properties readonly dispid 7;
  3188.     property Name: WideString readonly dispid 10;
  3189.     property MaximumLength: Integer readonly dispid 11;
  3190.     property AllowNulls: WordBool readonly dispid 12;
  3191.     property IsNumeric: WordBool readonly dispid 13;
  3192.     property AllowIdentity: WordBool readonly dispid 14;
  3193.   end;
  3194.  
  3195. { Snapshot-List of specific objects (enum only) }
  3196.  
  3197.   SQLObjectList = interface(_IVSQLOLEStdObject)
  3198.     ['{00026B4D-0000-0000-C000-000000000046}']
  3199.     function Get_Application: Application; safecall;
  3200.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3201.     function Get_UserData: Integer; safecall;
  3202.     procedure Set_UserData(Value: Integer); safecall;
  3203.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3204.     function Item(Index: OleVariant): _IVSQLOLEStdObject; safecall;
  3205.     function Get__NewEnum: IUnknown; safecall;
  3206.     function Get_Count: Integer; safecall;
  3207.     procedure Refresh; safecall;
  3208.     property Application: Application read Get_Application;
  3209.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3210.     property UserData: Integer read Get_UserData write Set_UserData;
  3211.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3212.     property _NewEnum: IUnknown read Get__NewEnum;
  3213.     property Count: Integer read Get_Count;
  3214.   end;
  3215.  
  3216. { DispInterface declaration for Dual Interface SQLObjectList }
  3217.  
  3218.   SQLObjectListDisp = dispinterface
  3219.     ['{00026B4D-0000-0000-C000-000000000046}']
  3220.     property Application: Application readonly dispid 1;
  3221.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3222.     property UserData: Integer dispid 3;
  3223.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3224.     function Item(Index: OleVariant): _IVSQLOLEStdObject; dispid 0;
  3225.     property Count: Integer readonly dispid 5;
  3226.     procedure Refresh; dispid 102;
  3227.   end;
  3228.  
  3229. { SQLOLE Permission }
  3230.  
  3231.   Permission = interface(_IVSQLOLEStdObject)
  3232.     ['{00026B4E-0000-0000-C000-000000000046}']
  3233.     function Get_Application: Application; safecall;
  3234.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3235.     function Get_UserData: Integer; safecall;
  3236.     procedure Set_UserData(Value: Integer); safecall;
  3237.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3238.     function Get_Properties: Properties; safecall;
  3239.     function Get_PrivilegeTypeName: WideString; safecall;
  3240.     function Get_PrivilegeType: SQLOLE_PRIVILEGE_TYPE; safecall;
  3241.     function Get_ObjectName: WideString; safecall;
  3242.     function Get_ObjectOwner: WideString; safecall;
  3243.     function Get_ObjectTypeName: WideString; safecall;
  3244.     function Get_ObjectType: SQLOLE_OBJECT_TYPE; safecall;
  3245.     function Get_ObjectID: Integer; safecall;
  3246.     function Get_Grantee: WideString; safecall;
  3247.     function Get_Granted: WordBool; safecall;
  3248.     function ListPrivilegeColumns: SQLObjectList; safecall;
  3249.     property Application: Application read Get_Application;
  3250.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3251.     property UserData: Integer read Get_UserData write Set_UserData;
  3252.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3253.     property Properties: Properties read Get_Properties;
  3254.     property PrivilegeTypeName: WideString read Get_PrivilegeTypeName;
  3255.     property PrivilegeType: SQLOLE_PRIVILEGE_TYPE read Get_PrivilegeType;
  3256.     property ObjectName: WideString read Get_ObjectName;
  3257.     property ObjectOwner: WideString read Get_ObjectOwner;
  3258.     property ObjectTypeName: WideString read Get_ObjectTypeName;
  3259.     property ObjectType: SQLOLE_OBJECT_TYPE read Get_ObjectType;
  3260.     property ObjectID: Integer read Get_ObjectID;
  3261.     property Grantee: WideString read Get_Grantee;
  3262.     property Granted: WordBool read Get_Granted;
  3263.   end;
  3264.  
  3265. { DispInterface declaration for Dual Interface Permission }
  3266.  
  3267.   PermissionDisp = dispinterface
  3268.     ['{00026B4E-0000-0000-C000-000000000046}']
  3269.     property Application: Application readonly dispid 1;
  3270.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3271.     property UserData: Integer dispid 3;
  3272.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3273.     property Properties: Properties readonly dispid 7;
  3274.     property PrivilegeTypeName: WideString readonly dispid 12;
  3275.     property PrivilegeType: SQLOLE_PRIVILEGE_TYPE readonly dispid 13;
  3276.     property ObjectName: WideString readonly dispid 14;
  3277.     property ObjectOwner: WideString readonly dispid 15;
  3278.     property ObjectTypeName: WideString readonly dispid 16;
  3279.     property ObjectType: SQLOLE_OBJECT_TYPE readonly dispid 17;
  3280.     property ObjectID: Integer readonly dispid 18;
  3281.     property Grantee: WideString readonly dispid 19;
  3282.     property Granted: WordBool readonly dispid 20;
  3283.     function ListPrivilegeColumns: SQLObjectList; dispid 100;
  3284.   end;
  3285.  
  3286. { SQLOLE Security Object }
  3287.  
  3288.   IntegratedSecurity = interface(_IVSQLOLEStdObject)
  3289.     ['{00026B4F-0000-0000-C000-000000000046}']
  3290.     function Get_Application: Application; safecall;
  3291.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3292.     function Get_UserData: Integer; safecall;
  3293.     procedure Set_UserData(Value: Integer); safecall;
  3294.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3295.     function Get_Properties: Properties; safecall;
  3296.     function Get_MapUnderscore: WideString; safecall;
  3297.     procedure Set_MapUnderscore(const Value: WideString); safecall;
  3298.     function Get_MapDollarSign: WideString; safecall;
  3299.     procedure Set_MapDollarSign(const Value: WideString); safecall;
  3300.     function Get_MapPoundSign: WideString; safecall;
  3301.     procedure Set_MapPoundSign(const Value: WideString); safecall;
  3302.     function Get_SecurityMode: SQLOLE_SECURITY_TYPE; safecall;
  3303.     procedure Set_SecurityMode(Value: SQLOLE_SECURITY_TYPE); safecall;
  3304.     function Get_DefaultLogin: WideString; safecall;
  3305.     procedure Set_DefaultLogin(const Value: WideString); safecall;
  3306.     function Get_ImpersonateClient: WordBool; safecall;
  3307.     procedure Set_ImpersonateClient(Value: WordBool); safecall;
  3308.     function Get_DefaultDomain: WideString; safecall;
  3309.     procedure Set_DefaultDomain(const Value: WideString); safecall;
  3310.     function Get_AuditLevel: SQLOLE_AUDIT_TYPE; safecall;
  3311.     procedure Set_AuditLevel(Value: SQLOLE_AUDIT_TYPE); safecall;
  3312.     function Get_SetHostName: WordBool; safecall;
  3313.     procedure Set_SetHostName(Value: WordBool); safecall;
  3314.     procedure Refresh; safecall;
  3315.     procedure GrantNTLogin(const Account: WideString; LoginType: OleVariant); safecall;
  3316.     procedure RevokeNTLogin(const Account: WideString); safecall;
  3317.     function EnumAccountInfo(Account, ListAll: OleVariant): QueryResults; safecall;
  3318.     function EnumNTDomainGroups(Domain: OleVariant): QueryResults; safecall;
  3319.     property Application: Application read Get_Application;
  3320.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3321.     property UserData: Integer read Get_UserData write Set_UserData;
  3322.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3323.     property Properties: Properties read Get_Properties;
  3324.     property MapUnderscore: WideString read Get_MapUnderscore write Set_MapUnderscore;
  3325.     property MapDollarSign: WideString read Get_MapDollarSign write Set_MapDollarSign;
  3326.     property MapPoundSign: WideString read Get_MapPoundSign write Set_MapPoundSign;
  3327.     property SecurityMode: SQLOLE_SECURITY_TYPE read Get_SecurityMode write Set_SecurityMode;
  3328.     property DefaultLogin: WideString read Get_DefaultLogin write Set_DefaultLogin;
  3329.     property ImpersonateClient: WordBool read Get_ImpersonateClient write Set_ImpersonateClient;
  3330.     property DefaultDomain: WideString read Get_DefaultDomain write Set_DefaultDomain;
  3331.     property AuditLevel: SQLOLE_AUDIT_TYPE read Get_AuditLevel write Set_AuditLevel;
  3332.     property SetHostName: WordBool read Get_SetHostName write Set_SetHostName;
  3333.   end;
  3334.  
  3335. { DispInterface declaration for Dual Interface IntegratedSecurity }
  3336.  
  3337.   IntegratedSecurityDisp = dispinterface
  3338.     ['{00026B4F-0000-0000-C000-000000000046}']
  3339.     property Application: Application readonly dispid 1;
  3340.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3341.     property UserData: Integer dispid 3;
  3342.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3343.     property Properties: Properties readonly dispid 7;
  3344.     property MapUnderscore: WideString dispid 10;
  3345.     property MapDollarSign: WideString dispid 11;
  3346.     property MapPoundSign: WideString dispid 12;
  3347.     property SecurityMode: SQLOLE_SECURITY_TYPE dispid 13;
  3348.     property DefaultLogin: WideString dispid 14;
  3349.     property ImpersonateClient: WordBool dispid 15;
  3350.     property DefaultDomain: WideString dispid 16;
  3351.     property AuditLevel: SQLOLE_AUDIT_TYPE dispid 17;
  3352.     property SetHostName: WordBool dispid 18;
  3353.     procedure Refresh; dispid 100;
  3354.     procedure GrantNTLogin(const Account: WideString; LoginType: OleVariant); dispid 101;
  3355.     procedure RevokeNTLogin(const Account: WideString); dispid 102;
  3356.     function EnumAccountInfo(Account, ListAll: OleVariant): QueryResults; dispid 103;
  3357.     function EnumNTDomainGroups(Domain: OleVariant): QueryResults; dispid 104;
  3358.   end;
  3359.  
  3360. { SQLOLE DRI Default }
  3361.  
  3362.   DRIDefault = interface(_IVSQLOLEStdObject)
  3363.     ['{00026B50-0000-0000-C000-000000000046}']
  3364.     function Get_Application: Application; safecall;
  3365.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3366.     function Get_UserData: Integer; safecall;
  3367.     procedure Set_UserData(Value: Integer); safecall;
  3368.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3369.     function Get_Properties: Properties; safecall;
  3370.     function Get_Name: WideString; safecall;
  3371.     procedure Set_Name(const Value: WideString); safecall;
  3372.     function Get_Text: WideString; safecall;
  3373.     procedure Set_Text(const Value: WideString); safecall;
  3374.     procedure Remove; safecall;
  3375.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  3376.     property Application: Application read Get_Application;
  3377.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3378.     property UserData: Integer read Get_UserData write Set_UserData;
  3379.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3380.     property Properties: Properties read Get_Properties;
  3381.     property Name: WideString read Get_Name write Set_Name;
  3382.     property Text: WideString read Get_Text write Set_Text;
  3383.   end;
  3384.  
  3385. { DispInterface declaration for Dual Interface DRIDefault }
  3386.  
  3387.   DRIDefaultDisp = dispinterface
  3388.     ['{00026B50-0000-0000-C000-000000000046}']
  3389.     property Application: Application readonly dispid 1;
  3390.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3391.     property UserData: Integer dispid 3;
  3392.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3393.     property Properties: Properties readonly dispid 7;
  3394.     property Name: WideString dispid 9;
  3395.     property Text: WideString dispid 10;
  3396.     procedure Remove; dispid 100;
  3397.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 101;
  3398.   end;
  3399.  
  3400. { SQLOLE Configuration Values }
  3401.  
  3402.   ConfigValues = interface(_IVSQLOLEStdObject)
  3403.     ['{00026B51-0000-0000-C000-000000000046}']
  3404.     function Get_Application: Application; safecall;
  3405.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3406.     function Get_UserData: Integer; safecall;
  3407.     procedure Set_UserData(Value: Integer); safecall;
  3408.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3409.     function Item(Index: OleVariant): ConfigValue; safecall;
  3410.     function Get__NewEnum: IUnknown; safecall;
  3411.     function Get_Count: Integer; safecall;
  3412.     function ItemByID(ID: Integer): ConfigValue; safecall;
  3413.     procedure Refresh; safecall;
  3414.     property Application: Application read Get_Application;
  3415.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3416.     property UserData: Integer read Get_UserData write Set_UserData;
  3417.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3418.     property _NewEnum: IUnknown read Get__NewEnum;
  3419.     property Count: Integer read Get_Count;
  3420.   end;
  3421.  
  3422. { DispInterface declaration for Dual Interface ConfigValues }
  3423.  
  3424.   ConfigValuesDisp = dispinterface
  3425.     ['{00026B51-0000-0000-C000-000000000046}']
  3426.     property Application: Application readonly dispid 1;
  3427.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3428.     property UserData: Integer dispid 3;
  3429.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3430.     function Item(Index: OleVariant): ConfigValue; dispid 0;
  3431.     property Count: Integer readonly dispid 5;
  3432.     function ItemByID(ID: Integer): ConfigValue; dispid 6;
  3433.     procedure Refresh; dispid 100;
  3434.   end;
  3435.  
  3436. { SQLOLE AlertSystem }
  3437.  
  3438.   AlertSystem = interface(_IVSQLOLEStdObject)
  3439.     ['{00026B52-0000-0000-C000-000000000046}']
  3440.     function Get_Application: Application; safecall;
  3441.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3442.     function Get_UserData: Integer; safecall;
  3443.     procedure Set_UserData(Value: Integer); safecall;
  3444.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3445.     function Get_Properties: Properties; safecall;
  3446.     function Get_FailSafeOperator: WideString; safecall;
  3447.     procedure Set_FailSafeOperator(const Value: WideString); safecall;
  3448.     function Get_NotificationMethod: SQLOLE_NOTIFY_TYPE; safecall;
  3449.     procedure Set_NotificationMethod(Value: SQLOLE_NOTIFY_TYPE); safecall;
  3450.     function Get_ForwardingServer: WideString; safecall;
  3451.     procedure Set_ForwardingServer(const Value: WideString); safecall;
  3452.     function Get_ForwardingSeverity: Integer; safecall;
  3453.     procedure Set_ForwardingSeverity(Value: Integer); safecall;
  3454.     function Get_PagerToTemplate: WideString; safecall;
  3455.     procedure Set_PagerToTemplate(const Value: WideString); safecall;
  3456.     function Get_PagerCCTemplate: WideString; safecall;
  3457.     procedure Set_PagerCCTemplate(const Value: WideString); safecall;
  3458.     function Get_PagerSubjectTemplate: WideString; safecall;
  3459.     procedure Set_PagerSubjectTemplate(const Value: WideString); safecall;
  3460.     function Get_PagerSendSubjectOnly: WordBool; safecall;
  3461.     procedure Set_PagerSendSubjectOnly(Value: WordBool); safecall;
  3462.     procedure Refresh; safecall;
  3463.     procedure BeginAlter; safecall;
  3464.     procedure DoAlter; safecall;
  3465.     procedure CancelAlter; safecall;
  3466.     property Application: Application read Get_Application;
  3467.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3468.     property UserData: Integer read Get_UserData write Set_UserData;
  3469.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3470.     property Properties: Properties read Get_Properties;
  3471.     property FailSafeOperator: WideString read Get_FailSafeOperator write Set_FailSafeOperator;
  3472.     property NotificationMethod: SQLOLE_NOTIFY_TYPE read Get_NotificationMethod write Set_NotificationMethod;
  3473.     property ForwardingServer: WideString read Get_ForwardingServer write Set_ForwardingServer;
  3474.     property ForwardingSeverity: Integer read Get_ForwardingSeverity write Set_ForwardingSeverity;
  3475.     property PagerToTemplate: WideString read Get_PagerToTemplate write Set_PagerToTemplate;
  3476.     property PagerCCTemplate: WideString read Get_PagerCCTemplate write Set_PagerCCTemplate;
  3477.     property PagerSubjectTemplate: WideString read Get_PagerSubjectTemplate write Set_PagerSubjectTemplate;
  3478.     property PagerSendSubjectOnly: WordBool read Get_PagerSendSubjectOnly write Set_PagerSendSubjectOnly;
  3479.   end;
  3480.  
  3481. { DispInterface declaration for Dual Interface AlertSystem }
  3482.  
  3483.   AlertSystemDisp = dispinterface
  3484.     ['{00026B52-0000-0000-C000-000000000046}']
  3485.     property Application: Application readonly dispid 1;
  3486.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3487.     property UserData: Integer dispid 3;
  3488.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3489.     property Properties: Properties readonly dispid 7;
  3490.     property FailSafeOperator: WideString dispid 10;
  3491.     property NotificationMethod: SQLOLE_NOTIFY_TYPE dispid 11;
  3492.     property ForwardingServer: WideString dispid 12;
  3493.     property ForwardingSeverity: Integer dispid 13;
  3494.     property PagerToTemplate: WideString dispid 14;
  3495.     property PagerCCTemplate: WideString dispid 15;
  3496.     property PagerSubjectTemplate: WideString dispid 16;
  3497.     property PagerSendSubjectOnly: WordBool dispid 17;
  3498.     procedure Refresh; dispid 100;
  3499.     procedure BeginAlter; dispid 101;
  3500.     procedure DoAlter; dispid 102;
  3501.     procedure CancelAlter; dispid 103;
  3502.   end;
  3503.  
  3504. { SQLOLE Application Object }
  3505.  
  3506.   _Application = interface(_IVSQLOLEStdObject)
  3507.     ['{00027B70-0BCC-11CE-A4B3-00AA004A34D5}']
  3508.     function Get_Application: Application; safecall;
  3509.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3510.     function Get_UserData: Integer; safecall;
  3511.     procedure Set_UserData(Value: Integer); safecall;
  3512.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3513.     function Get_Properties: Properties; safecall;
  3514.     function Get_Name: WideString; safecall;
  3515.     function Get_FullName: WideString; safecall;
  3516.     function Get_SQLServers: SQLServers; safecall;
  3517.     function Get_DBLibraryVersionString: WideString; safecall;
  3518.     function Get_VersionMajor: Integer; safecall;
  3519.     function Get_VersionMinor: Integer; safecall;
  3520.     procedure Quit; safecall;
  3521.     function Get_GroupRegistrationServer: WideString; safecall;
  3522.     procedure Set_GroupRegistrationServer(const Value: WideString); safecall;
  3523.     function Get_ServerGroups: ServerGroups; safecall;
  3524.     function Get_GroupRegistrationVersion: Integer; safecall;
  3525.     function Get_VersionBuild: Integer; safecall;
  3526.     function Get_UseCurrentUserServerGroups: WordBool; safecall;
  3527.     procedure Set_UseCurrentUserServerGroups(Value: WordBool); safecall;
  3528.     function ListLocallyConfiguredSQLServers: NameList; safecall;
  3529.     function ListAnnouncedNetworkSQLServers: NameList; safecall;
  3530.     property Application: Application read Get_Application;
  3531.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3532.     property UserData: Integer read Get_UserData write Set_UserData;
  3533.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3534.     property Properties: Properties read Get_Properties;
  3535.     property Name: WideString read Get_Name;
  3536.     property FullName: WideString read Get_FullName;
  3537.     property SQLServers: SQLServers read Get_SQLServers;
  3538.     property DBLibraryVersionString: WideString read Get_DBLibraryVersionString;
  3539.     property VersionMajor: Integer read Get_VersionMajor;
  3540.     property VersionMinor: Integer read Get_VersionMinor;
  3541.     property GroupRegistrationServer: WideString read Get_GroupRegistrationServer write Set_GroupRegistrationServer;
  3542.     property ServerGroups: ServerGroups read Get_ServerGroups;
  3543.     property GroupRegistrationVersion: Integer read Get_GroupRegistrationVersion;
  3544.     property VersionBuild: Integer read Get_VersionBuild;
  3545.     property UseCurrentUserServerGroups: WordBool read Get_UseCurrentUserServerGroups write Set_UseCurrentUserServerGroups;
  3546.   end;
  3547.  
  3548. { DispInterface declaration for Dual Interface _Application }
  3549.  
  3550.   _ApplicationDisp = dispinterface
  3551.     ['{00027B70-0BCC-11CE-A4B3-00AA004A34D5}']
  3552.     property Application: Application readonly dispid 1;
  3553.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3554.     property UserData: Integer dispid 3;
  3555.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3556.     property Properties: Properties readonly dispid 7;
  3557.     property Name: WideString readonly dispid 0;
  3558.     property FullName: WideString readonly dispid 10;
  3559.     property SQLServers: SQLServers readonly dispid 11;
  3560.     property DBLibraryVersionString: WideString readonly dispid 12;
  3561.     property VersionMajor: Integer readonly dispid 13;
  3562.     property VersionMinor: Integer readonly dispid 14;
  3563.     procedure Quit; dispid 100;
  3564.     property GroupRegistrationServer: WideString dispid 15;
  3565.     property ServerGroups: ServerGroups readonly dispid 16;
  3566.     property GroupRegistrationVersion: Integer readonly dispid 17;
  3567.     property VersionBuild: Integer readonly dispid 18;
  3568.     property UseCurrentUserServerGroups: WordBool dispid 19;
  3569.     function ListLocallyConfiguredSQLServers: NameList; dispid 101;
  3570.     function ListAnnouncedNetworkSQLServers: NameList; dispid 102;
  3571.   end;
  3572.  
  3573. { SQLOLE SQLServer }
  3574.  
  3575.   _SQLServer = interface(_IVSQLOLEStdObject)
  3576.     ['{00027B71-0BCC-11CE-A4B3-00AA004A34D5}']
  3577.     function Get_Application: Application; safecall;
  3578.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3579.     function Get_UserData: Integer; safecall;
  3580.     procedure Set_UserData(Value: Integer); safecall;
  3581.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3582.     function Get_Properties: Properties; safecall;
  3583.     function Get_Databases: Databases; safecall;
  3584.     function Get_Password: WideString; safecall;
  3585.     procedure Set_Password(const Value: WideString); safecall;
  3586.     function Get_Name: WideString; safecall;
  3587.     procedure Set_Name(const Value: WideString); safecall;
  3588.     function Get_Login: WideString; safecall;
  3589.     procedure Set_Login(const Value: WideString); safecall;
  3590.     function Get_VersionString: WideString; safecall;
  3591.     function Get_Devices: Devices; safecall;
  3592.     function Get_VersionMajor: Integer; safecall;
  3593.     function Get_VersionMinor: Integer; safecall;
  3594.     function Get_CommandTerminator: WideString; safecall;
  3595.     procedure Set_CommandTerminator(const Value: WideString); safecall;
  3596.     function Get_TrueName: WideString; safecall;
  3597.     function Get_ConnectionID: Integer; safecall;
  3598.     function Get_TrueLogin: WideString; safecall;
  3599.     function Get_DistributionWorkingDirectory: WideString; safecall;
  3600.     procedure Set_DistributionWorkingDirectory(const Value: WideString); safecall;
  3601.     function Get_DistributionServer: WideString; safecall;
  3602.     function Get_DistributionDatabase: WideString; safecall;
  3603.     function Get_IntegratedSecurity: IntegratedSecurity; safecall;
  3604.     function Get_Languages: Languages; safecall;
  3605.     function Get_RemoteServers: RemoteServers; safecall;
  3606.     function Get_Logins: Logins; safecall;
  3607.     function Get_UserProfile: SQLOLE_SRVUSERPROFILE_TYPE; safecall;
  3608.     function Get_MaxNumericPrecision: Integer; safecall;
  3609.     function Get_NextDeviceNumber: Integer; safecall;
  3610.     function Get_QueryTimeout: Integer; safecall;
  3611.     procedure Set_QueryTimeout(Value: Integer); safecall;
  3612.     function Get_LoginTimeout: Integer; safecall;
  3613.     procedure Set_LoginTimeout(Value: Integer); safecall;
  3614.     function Get_NetPacketSize: Integer; safecall;
  3615.     procedure Set_NetPacketSize(Value: Integer); safecall;
  3616.     function Get_HostName: WideString; safecall;
  3617.     procedure Set_HostName(const Value: WideString); safecall;
  3618.     function Get_ApplicationName: WideString; safecall;
  3619.     procedure Set_ApplicationName(const Value: WideString); safecall;
  3620.     function Get_LoginSecure: WordBool; safecall;
  3621.     procedure Set_LoginSecure(Value: WordBool); safecall;
  3622.     function Get_ProcessID: Integer; safecall;
  3623.     function Get_Status: SQLOLE_SVCSTATUS_TYPE; safecall;
  3624.     function Get_Operators: Operators; safecall;
  3625.     function Get_Alerts: Alerts; safecall;
  3626.     function Get_Registry: Registry; safecall;
  3627.     function Get_Configuration: Configuration; safecall;
  3628.     function Get_Executive: Executive; safecall;
  3629.     function Get_ProcessInputBuffer(ProcessID: Integer): WideString; safecall;
  3630.     function Get_ProcessOutputBuffer(ProcessID: Integer): WideString; safecall;
  3631.     function Get_Language: WideString; safecall;
  3632.     procedure Set_Language(const Value: WideString); safecall;
  3633.     function Get_AutoReConnect: WordBool; safecall;
  3634.     procedure Set_AutoReConnect(Value: WordBool); safecall;
  3635.     function Get_StatusInfoRefetchInterval(StatusInfoType: SQLOLE_STATUSINFO_TYPE): Integer; safecall;
  3636.     procedure Set_StatusInfoRefetchInterval(StatusInfoType: SQLOLE_STATUSINFO_TYPE; Value: Integer); safecall;
  3637.     function Get_SaLogin: WordBool; safecall;
  3638.     procedure Connect(ServerName, Login, Password: OleVariant); safecall;
  3639.     procedure Close; safecall;
  3640.     procedure DisConnect; safecall;
  3641.     procedure KillProcess(lProcessID: Integer); safecall;
  3642.     procedure ExecuteImmediate(const Command: WideString; ExecType: OleVariant); safecall;
  3643.     function EnumHistory(HistoryFilter: OleVariant): QueryResults; safecall;
  3644.     procedure PurgeHistory(HistoryFilter: OleVariant); safecall;
  3645.     procedure ReConnect; safecall;
  3646.     procedure Shutdown(Wait: OleVariant); safecall;
  3647.     procedure Start(Server, Login, Password, MasterDBPath, ErrorLogPath, MasterMirrorPath, StartMode: OleVariant); safecall;
  3648.     procedure UnloadODSDLL(const DLLName: WideString); safecall;
  3649.     procedure KillDatabase(const DatabaseName: WideString); safecall;
  3650.     function ExecuteWithResults(const Command: WideString): QueryResults; safecall;
  3651.     function ListStartupProcedures: SQLObjectList; safecall;
  3652.     procedure BeginTransaction(TransactionName: OleVariant); safecall;
  3653.     procedure CommitTransaction(TransactionName: OleVariant); safecall;
  3654.     procedure SaveTransaction(const SavepointName: WideString); safecall;
  3655.     procedure RollbackTransaction(TransactionOrSavepointName: OleVariant); safecall;
  3656.     procedure CommandShellImmediate(const Command: WideString); safecall;
  3657.     function ReadErrorLog(LogNumber: OleVariant): QueryResults; safecall;
  3658.     function EnumErrorLogs: QueryResults; safecall;
  3659.     function EnumAvailableMedia(MediaType: OleVariant): QueryResults; safecall;
  3660.     function EnumDirectories(const PathName: WideString): QueryResults; safecall;
  3661.     function EnumServerAttributes: QueryResults; safecall;
  3662.     function EnumVersionInfo(Prefixes: OleVariant): QueryResults; safecall;
  3663.     function EnumLocks(WhoByID: OleVariant): QueryResults; safecall;
  3664.     function CommandShellWithResults(const Command: WideString): QueryResults; safecall;
  3665.     function ReadBackupHeader(const LoadSpec: Backup): QueryResults; safecall;
  3666.     function EnumPublicationDatabases: QueryResults; safecall;
  3667.     function EnumSubscriberSubscriptions(const Subscriber: WideString; SourceDatabase: OleVariant): QueryResults; safecall;
  3668.     function EnumProcesses(WhoByNameOrID: OleVariant): QueryResults; safecall;
  3669.     procedure Pause; safecall;
  3670.     procedure Continue; safecall;
  3671.     function EnumSubscriptionDatabases: QueryResults; safecall;
  3672.     procedure RemoveSubscriberSubscriptions(const Subscriber: WideString; SourceDatabase: OleVariant); safecall;
  3673.     function VerifyConnection(ReconnectIfDead: OleVariant): WordBool; safecall;
  3674.     function Get_NetName: WideString; safecall;
  3675.     function ExecuteWithResultsAndMessages(const Command: WideString; out Messages: WideString): QueryResults; safecall;
  3676.     function EnumLoginMappings: QueryResults; safecall;
  3677.     procedure UninstallPublishing; safecall;
  3678.     property Application: Application read Get_Application;
  3679.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3680.     property UserData: Integer read Get_UserData write Set_UserData;
  3681.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3682.     property Properties: Properties read Get_Properties;
  3683.     property Databases: Databases read Get_Databases;
  3684.     property Password: WideString read Get_Password write Set_Password;
  3685.     property Name: WideString read Get_Name write Set_Name;
  3686.     property Login: WideString read Get_Login write Set_Login;
  3687.     property VersionString: WideString read Get_VersionString;
  3688.     property Devices: Devices read Get_Devices;
  3689.     property VersionMajor: Integer read Get_VersionMajor;
  3690.     property VersionMinor: Integer read Get_VersionMinor;
  3691.     property CommandTerminator: WideString read Get_CommandTerminator write Set_CommandTerminator;
  3692.     property TrueName: WideString read Get_TrueName;
  3693.     property ConnectionID: Integer read Get_ConnectionID;
  3694.     property TrueLogin: WideString read Get_TrueLogin;
  3695.     property DistributionWorkingDirectory: WideString read Get_DistributionWorkingDirectory write Set_DistributionWorkingDirectory;
  3696.     property DistributionServer: WideString read Get_DistributionServer;
  3697.     property DistributionDatabase: WideString read Get_DistributionDatabase;
  3698.     property IntegratedSecurity: IntegratedSecurity read Get_IntegratedSecurity;
  3699.     property Languages: Languages read Get_Languages;
  3700.     property RemoteServers: RemoteServers read Get_RemoteServers;
  3701.     property Logins: Logins read Get_Logins;
  3702.     property UserProfile: SQLOLE_SRVUSERPROFILE_TYPE read Get_UserProfile;
  3703.     property MaxNumericPrecision: Integer read Get_MaxNumericPrecision;
  3704.     property NextDeviceNumber: Integer read Get_NextDeviceNumber;
  3705.     property QueryTimeout: Integer read Get_QueryTimeout write Set_QueryTimeout;
  3706.     property LoginTimeout: Integer read Get_LoginTimeout write Set_LoginTimeout;
  3707.     property NetPacketSize: Integer read Get_NetPacketSize write Set_NetPacketSize;
  3708.     property HostName: WideString read Get_HostName write Set_HostName;
  3709.     property ApplicationName: WideString read Get_ApplicationName write Set_ApplicationName;
  3710.     property LoginSecure: WordBool read Get_LoginSecure write Set_LoginSecure;
  3711.     property ProcessID: Integer read Get_ProcessID;
  3712.     property Status: SQLOLE_SVCSTATUS_TYPE read Get_Status;
  3713.     property Operators: Operators read Get_Operators;
  3714.     property Alerts: Alerts read Get_Alerts;
  3715.     property Registry: Registry read Get_Registry;
  3716.     property Configuration: Configuration read Get_Configuration;
  3717.     property Executive: Executive read Get_Executive;
  3718.     property ProcessInputBuffer[ProcessID: Integer]: WideString read Get_ProcessInputBuffer;
  3719.     property ProcessOutputBuffer[ProcessID: Integer]: WideString read Get_ProcessOutputBuffer;
  3720.     property Language: WideString read Get_Language write Set_Language;
  3721.     property AutoReConnect: WordBool read Get_AutoReConnect write Set_AutoReConnect;
  3722.     property StatusInfoRefetchInterval[StatusInfoType: SQLOLE_STATUSINFO_TYPE]: Integer read Get_StatusInfoRefetchInterval write Set_StatusInfoRefetchInterval;
  3723.     property SaLogin: WordBool read Get_SaLogin;
  3724.     property NetName: WideString read Get_NetName;
  3725.   end;
  3726.  
  3727. { DispInterface declaration for Dual Interface _SQLServer }
  3728.  
  3729.   _SQLServerDisp = dispinterface
  3730.     ['{00027B71-0BCC-11CE-A4B3-00AA004A34D5}']
  3731.     property Application: Application readonly dispid 1;
  3732.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3733.     property UserData: Integer dispid 3;
  3734.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3735.     property Properties: Properties readonly dispid 7;
  3736.     property Databases: Databases readonly dispid 0;
  3737.     property Password: WideString dispid 12;
  3738.     property Name: WideString dispid 13;
  3739.     property Login: WideString dispid 14;
  3740.     property VersionString: WideString readonly dispid 15;
  3741.     property Devices: Devices readonly dispid 16;
  3742.     property VersionMajor: Integer readonly dispid 17;
  3743.     property VersionMinor: Integer readonly dispid 18;
  3744.     property CommandTerminator: WideString dispid 19;
  3745.     property TrueName: WideString readonly dispid 20;
  3746.     property ConnectionID: Integer readonly dispid 21;
  3747.     property TrueLogin: WideString readonly dispid 22;
  3748.     property DistributionWorkingDirectory: WideString dispid 23;
  3749.     property DistributionServer: WideString readonly dispid 24;
  3750.     property DistributionDatabase: WideString readonly dispid 25;
  3751.     property IntegratedSecurity: IntegratedSecurity readonly dispid 26;
  3752.     property Languages: Languages readonly dispid 27;
  3753.     property RemoteServers: RemoteServers readonly dispid 28;
  3754.     property Logins: Logins readonly dispid 29;
  3755.     property UserProfile: SQLOLE_SRVUSERPROFILE_TYPE readonly dispid 30;
  3756.     property MaxNumericPrecision: Integer readonly dispid 31;
  3757.     property NextDeviceNumber: Integer readonly dispid 32;
  3758.     property QueryTimeout: Integer dispid 33;
  3759.     property LoginTimeout: Integer dispid 34;
  3760.     property NetPacketSize: Integer dispid 35;
  3761.     property HostName: WideString dispid 36;
  3762.     property ApplicationName: WideString dispid 37;
  3763.     property LoginSecure: WordBool dispid 38;
  3764.     property ProcessID: Integer readonly dispid 39;
  3765.     property Status: SQLOLE_SVCSTATUS_TYPE readonly dispid 40;
  3766.     property Operators: Operators readonly dispid 41;
  3767.     property Alerts: Alerts readonly dispid 42;
  3768.     property Registry: Registry readonly dispid 44;
  3769.     property Configuration: Configuration readonly dispid 45;
  3770.     property Executive: Executive readonly dispid 46;
  3771.     property ProcessInputBuffer[ProcessID: Integer]: WideString readonly dispid 47;
  3772.     property ProcessOutputBuffer[ProcessID: Integer]: WideString readonly dispid 48;
  3773.     property Language: WideString dispid 49;
  3774.     property AutoReConnect: WordBool dispid 50;
  3775.     property StatusInfoRefetchInterval[StatusInfoType: SQLOLE_STATUSINFO_TYPE]: Integer dispid 51;
  3776.     property SaLogin: WordBool readonly dispid 52;
  3777.     procedure Connect(ServerName, Login, Password: OleVariant); dispid 100;
  3778.     procedure Close; dispid 101;
  3779.     procedure DisConnect; dispid 102;
  3780.     procedure KillProcess(lProcessID: Integer); dispid 103;
  3781.     procedure ExecuteImmediate(const Command: WideString; ExecType: OleVariant); dispid 104;
  3782.     function EnumHistory(HistoryFilter: OleVariant): QueryResults; dispid 105;
  3783.     procedure PurgeHistory(HistoryFilter: OleVariant); dispid 106;
  3784.     procedure ReConnect; dispid 107;
  3785.     procedure Shutdown(Wait: OleVariant); dispid 108;
  3786.     procedure Start(Server, Login, Password, MasterDBPath, ErrorLogPath, MasterMirrorPath, StartMode: OleVariant); dispid 109;
  3787.     procedure UnloadODSDLL(const DLLName: WideString); dispid 110;
  3788.     procedure KillDatabase(const DatabaseName: WideString); dispid 111;
  3789.     function ExecuteWithResults(const Command: WideString): QueryResults; dispid 112;
  3790.     function ListStartupProcedures: SQLObjectList; dispid 113;
  3791.     procedure BeginTransaction(TransactionName: OleVariant); dispid 114;
  3792.     procedure CommitTransaction(TransactionName: OleVariant); dispid 115;
  3793.     procedure SaveTransaction(const SavepointName: WideString); dispid 116;
  3794.     procedure RollbackTransaction(TransactionOrSavepointName: OleVariant); dispid 117;
  3795.     procedure CommandShellImmediate(const Command: WideString); dispid 118;
  3796.     function ReadErrorLog(LogNumber: OleVariant): QueryResults; dispid 119;
  3797.     function EnumErrorLogs: QueryResults; dispid 120;
  3798.     function EnumAvailableMedia(MediaType: OleVariant): QueryResults; dispid 121;
  3799.     function EnumDirectories(const PathName: WideString): QueryResults; dispid 122;
  3800.     function EnumServerAttributes: QueryResults; dispid 123;
  3801.     function EnumVersionInfo(Prefixes: OleVariant): QueryResults; dispid 124;
  3802.     function EnumLocks(WhoByID: OleVariant): QueryResults; dispid 125;
  3803.     function CommandShellWithResults(const Command: WideString): QueryResults; dispid 126;
  3804.     function ReadBackupHeader(const LoadSpec: Backup): QueryResults; dispid 127;
  3805.     function EnumPublicationDatabases: QueryResults; dispid 128;
  3806.     function EnumSubscriberSubscriptions(const Subscriber: WideString; SourceDatabase: OleVariant): QueryResults; dispid 129;
  3807.     function EnumProcesses(WhoByNameOrID: OleVariant): QueryResults; dispid 130;
  3808.     procedure Pause; dispid 131;
  3809.     procedure Continue; dispid 132;
  3810.     function EnumSubscriptionDatabases: QueryResults; dispid 133;
  3811.     procedure RemoveSubscriberSubscriptions(const Subscriber: WideString; SourceDatabase: OleVariant); dispid 135;
  3812.     function VerifyConnection(ReconnectIfDead: OleVariant): WordBool; dispid 136;
  3813.     property NetName: WideString readonly dispid 53;
  3814.     function ExecuteWithResultsAndMessages(const Command: WideString; out Messages: WideString): QueryResults; dispid 139;
  3815.     function EnumLoginMappings: QueryResults; dispid 140;
  3816.     procedure UninstallPublishing; dispid 141;
  3817.   end;
  3818.  
  3819. { SQLOLE Database }
  3820.  
  3821.   _Database = interface(_IVSQLOLEStdObject)
  3822.     ['{00027B72-0BCC-11CE-A4B3-00AA004A34D5}']
  3823.     function Get_Application: Application; safecall;
  3824.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  3825.     function Get_UserData: Integer; safecall;
  3826.     procedure Set_UserData(Value: Integer); safecall;
  3827.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  3828.     function Get_Properties: Properties; safecall;
  3829.     function Get_Name: WideString; safecall;
  3830.     procedure Set_Name(const Value: WideString); safecall;
  3831.     function Get_Tables: Tables; safecall;
  3832.     function Get_SystemObject: WordBool; safecall;
  3833.     function Get_ID: Integer; safecall;
  3834.     function Get_UserProfile: SQLOLE_DBUSERPROFILE_TYPE; safecall;
  3835.     function Get_CreateForLoad: WordBool; safecall;
  3836.     procedure Set_CreateForLoad(Value: WordBool); safecall;
  3837.     function Get_Owner: WideString; safecall;
  3838.     function Get_Version: Integer; safecall;
  3839.     function Get_CreateDate: WideString; safecall;
  3840.     function Get_DataSpaceUsage: Single; safecall;
  3841.     function Get_UserName: WideString; safecall;
  3842.     procedure Set_UserName(const Value: WideString); safecall;
  3843.     function Get_Status: SQLOLE_DBSTATUS_TYPE; safecall;
  3844.     function Get_Size: Integer; safecall;
  3845.     function Get_SpaceAvailable: Integer; safecall;
  3846.     function Get_IndexSpaceUsage: Single; safecall;
  3847.     function Get_SpaceAvailableInMB: Single; safecall;
  3848.     function Get_Views: Views; safecall;
  3849.     function Get_StoredProcedures: StoredProcedures; safecall;
  3850.     function Get_Defaults: Defaults; safecall;
  3851.     function Get_Rules: Rules; safecall;
  3852.     function Get_UserDefinedDatatypes: UserDefinedDatatypes; safecall;
  3853.     function Get_Users: Users; safecall;
  3854.     function Get_Groups: Groups; safecall;
  3855.     function Get_SystemDatatypes: SystemDatatypes; safecall;
  3856.     function Get_Publications: Publications; safecall;
  3857.     function Get_SpaceAllocatedOnDevice(const DeviceName: WideString): Integer; safecall;
  3858.     function Get_TransactionLog: TransactionLog; safecall;
  3859.     function Get_DBOption: DBOption; safecall;
  3860.     function Get_ManualSyncPending(const PubServerName, PubDatabaseName, PublicationName, ArticleName: WideString): WordBool; safecall;
  3861.     function Get_MinimumSize: Integer; safecall;
  3862.     function Get_DboLogin: WordBool; safecall;
  3863.     procedure Grant(Privileges: SQLOLE_PRIVILEGE_TYPE; const GranteeNames: WideString); safecall;
  3864.     procedure Revoke(Privileges: SQLOLE_PRIVILEGE_TYPE; const RevokeeNames: WideString); safecall;
  3865.     procedure ExecuteImmediate(const Command: WideString; ExecType: OleVariant); safecall;
  3866.     procedure ExtendOnDevices(const DeviceNames: WideString); safecall;
  3867.     function GetObjectByName(const ObjectName: WideString; ObjectType: OleVariant): DBObject; safecall;
  3868.     procedure Checkpoint; safecall;
  3869.     function CheckTables: WideString; safecall;
  3870.     function CheckAllocations: WideString; safecall;
  3871.     function CheckCatalog: WideString; safecall;
  3872.     function CheckTextAllocsFast: WideString; safecall;
  3873.     function CheckTextAllocsFull: WideString; safecall;
  3874.     function GetMemoryUsage: WideString; safecall;
  3875.     function ExecuteWithResults(const Command: WideString): QueryResults; safecall;
  3876.     function ListObjectPermissions(PrivilegeTypes: OleVariant): SQLObjectList; safecall;
  3877.     function EnumLocks(Who: OleVariant): QueryResults; safecall;
  3878.     function ListDevices: SQLObjectList; safecall;
  3879.     function ListObjects(ObjectTypes, SortBy: OleVariant): SQLObjectList; safecall;
  3880.     function EnumDependencies(DependencyType: OleVariant): QueryResults; safecall;
  3881.     procedure SetOwner(const LoginName: WideString; TransferAliases, OverrideIfAlreadyUser: OleVariant); safecall;
  3882.     function ListDatabasePermissions(PrivilegeTypes: OleVariant): SQLObjectList; safecall;
  3883.     procedure Remove; safecall;
  3884.     procedure RecalcSpaceUsage; safecall;
  3885.     procedure Dump(const DumpSpec: Backup); safecall;
  3886.     procedure Load(const LoadSpec: Backup); safecall;
  3887.     procedure ManualSyncCompleted(const PubServerName, PubDatabaseName, PublicationName: WideString; ArticleName: OleVariant); safecall;
  3888.     function GenerateBackupSQL(const DumpSpec: Backup): WideString; safecall;
  3889.     function EnumCandidateKeys: QueryResults; safecall;
  3890.     function IsValidKeyDatatype(const KeyColType: WideString; ReferencingColType: OleVariant): WordBool; safecall;
  3891.     function GetDatatypeByName(const TypeName: WideString): _IVSQLOLEStdObject; safecall;
  3892.     procedure Shrink(NewSizeInMB: Integer); safecall;
  3893.     procedure Transfer(const TransferSpec: Transfer); safecall;
  3894.     function ScriptTransfer(const TransferSpec: Transfer; ScriptFileMode, ScriptFilePath: OleVariant): WideString; safecall;
  3895.     procedure CheckIdentityValues; safecall;
  3896.     function ExecuteWithResultsAndMessages(const Command: WideString; out Messages: WideString): QueryResults; safecall;
  3897.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  3898.     function CheckTablesDataOnly: WideString; safecall;
  3899.     function CheckAllocationsDataOnly: WideString; safecall;
  3900.     procedure UpdateIndexStatistics; safecall;
  3901.     function EnumLoginMappings: QueryResults; safecall;
  3902.     property Application: Application read Get_Application;
  3903.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  3904.     property UserData: Integer read Get_UserData write Set_UserData;
  3905.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  3906.     property Properties: Properties read Get_Properties;
  3907.     property Name: WideString read Get_Name write Set_Name;
  3908.     property Tables: Tables read Get_Tables;
  3909.     property SystemObject: WordBool read Get_SystemObject;
  3910.     property ID: Integer read Get_ID;
  3911.     property UserProfile: SQLOLE_DBUSERPROFILE_TYPE read Get_UserProfile;
  3912.     property CreateForLoad: WordBool read Get_CreateForLoad write Set_CreateForLoad;
  3913.     property Owner: WideString read Get_Owner;
  3914.     property Version: Integer read Get_Version;
  3915.     property CreateDate: WideString read Get_CreateDate;
  3916.     property DataSpaceUsage: Single read Get_DataSpaceUsage;
  3917.     property UserName: WideString read Get_UserName write Set_UserName;
  3918.     property Status: SQLOLE_DBSTATUS_TYPE read Get_Status;
  3919.     property Size: Integer read Get_Size;
  3920.     property SpaceAvailable: Integer read Get_SpaceAvailable;
  3921.     property IndexSpaceUsage: Single read Get_IndexSpaceUsage;
  3922.     property SpaceAvailableInMB: Single read Get_SpaceAvailableInMB;
  3923.     property Views: Views read Get_Views;
  3924.     property StoredProcedures: StoredProcedures read Get_StoredProcedures;
  3925.     property Defaults: Defaults read Get_Defaults;
  3926.     property Rules: Rules read Get_Rules;
  3927.     property UserDefinedDatatypes: UserDefinedDatatypes read Get_UserDefinedDatatypes;
  3928.     property Users: Users read Get_Users;
  3929.     property Groups: Groups read Get_Groups;
  3930.     property SystemDatatypes: SystemDatatypes read Get_SystemDatatypes;
  3931.     property Publications: Publications read Get_Publications;
  3932.     property SpaceAllocatedOnDevice[const DeviceName: WideString]: Integer read Get_SpaceAllocatedOnDevice;
  3933.     property TransactionLog: TransactionLog read Get_TransactionLog;
  3934.     property DBOption: DBOption read Get_DBOption;
  3935.     property ManualSyncPending[const PubServerName, PubDatabaseName, PublicationName, ArticleName: WideString]: WordBool read Get_ManualSyncPending;
  3936.     property MinimumSize: Integer read Get_MinimumSize;
  3937.     property DboLogin: WordBool read Get_DboLogin;
  3938.   end;
  3939.  
  3940. { DispInterface declaration for Dual Interface _Database }
  3941.  
  3942.   _DatabaseDisp = dispinterface
  3943.     ['{00027B72-0BCC-11CE-A4B3-00AA004A34D5}']
  3944.     property Application: Application readonly dispid 1;
  3945.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  3946.     property UserData: Integer dispid 3;
  3947.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  3948.     property Properties: Properties readonly dispid 7;
  3949.     property Name: WideString dispid 9;
  3950.     property Tables: Tables readonly dispid 0;
  3951.     property SystemObject: WordBool readonly dispid 10;
  3952.     property ID: Integer readonly dispid 11;
  3953.     property UserProfile: SQLOLE_DBUSERPROFILE_TYPE readonly dispid 12;
  3954.     property CreateForLoad: WordBool dispid 13;
  3955.     property Owner: WideString readonly dispid 14;
  3956.     property Version: Integer readonly dispid 15;
  3957.     property CreateDate: WideString readonly dispid 16;
  3958.     property DataSpaceUsage: Single readonly dispid 17;
  3959.     property UserName: WideString dispid 18;
  3960.     property Status: SQLOLE_DBSTATUS_TYPE readonly dispid 19;
  3961.     property Size: Integer readonly dispid 20;
  3962.     property SpaceAvailable: Integer readonly dispid 21;
  3963.     property IndexSpaceUsage: Single readonly dispid 22;
  3964.     property SpaceAvailableInMB: Single readonly dispid 24;
  3965.     property Views: Views readonly dispid 25;
  3966.     property StoredProcedures: StoredProcedures readonly dispid 26;
  3967.     property Defaults: Defaults readonly dispid 27;
  3968.     property Rules: Rules readonly dispid 28;
  3969.     property UserDefinedDatatypes: UserDefinedDatatypes readonly dispid 29;
  3970.     property Users: Users readonly dispid 30;
  3971.     property Groups: Groups readonly dispid 31;
  3972.     property SystemDatatypes: SystemDatatypes readonly dispid 32;
  3973.     property Publications: Publications readonly dispid 33;
  3974.     property SpaceAllocatedOnDevice[const DeviceName: WideString]: Integer readonly dispid 34;
  3975.     property TransactionLog: TransactionLog readonly dispid 35;
  3976.     property DBOption: DBOption readonly dispid 36;
  3977.     property ManualSyncPending[const PubServerName, PubDatabaseName, PublicationName, ArticleName: WideString]: WordBool readonly dispid 37;
  3978.     property MinimumSize: Integer readonly dispid 38;
  3979.     property DboLogin: WordBool readonly dispid 39;
  3980.     procedure Grant(Privileges: SQLOLE_PRIVILEGE_TYPE; const GranteeNames: WideString); dispid 100;
  3981.     procedure Revoke(Privileges: SQLOLE_PRIVILEGE_TYPE; const RevokeeNames: WideString); dispid 101;
  3982.     procedure ExecuteImmediate(const Command: WideString; ExecType: OleVariant); dispid 102;
  3983.     procedure ExtendOnDevices(const DeviceNames: WideString); dispid 103;
  3984.     function GetObjectByName(const ObjectName: WideString; ObjectType: OleVariant): DBObject; dispid 104;
  3985.     procedure Checkpoint; dispid 105;
  3986.     function CheckTables: WideString; dispid 106;
  3987.     function CheckAllocations: WideString; dispid 107;
  3988.     function CheckCatalog: WideString; dispid 108;
  3989.     function CheckTextAllocsFast: WideString; dispid 109;
  3990.     function CheckTextAllocsFull: WideString; dispid 110;
  3991.     function GetMemoryUsage: WideString; dispid 111;
  3992.     function ExecuteWithResults(const Command: WideString): QueryResults; dispid 112;
  3993.     function ListObjectPermissions(PrivilegeTypes: OleVariant): SQLObjectList; dispid 113;
  3994.     function EnumLocks(Who: OleVariant): QueryResults; dispid 114;
  3995.     function ListDevices: SQLObjectList; dispid 115;
  3996.     function ListObjects(ObjectTypes, SortBy: OleVariant): SQLObjectList; dispid 116;
  3997.     function EnumDependencies(DependencyType: OleVariant): QueryResults; dispid 117;
  3998.     procedure SetOwner(const LoginName: WideString; TransferAliases, OverrideIfAlreadyUser: OleVariant); dispid 118;
  3999.     function ListDatabasePermissions(PrivilegeTypes: OleVariant): SQLObjectList; dispid 119;
  4000.     procedure Remove; dispid 120;
  4001.     procedure RecalcSpaceUsage; dispid 121;
  4002.     procedure Dump(const DumpSpec: Backup); dispid 122;
  4003.     procedure Load(const LoadSpec: Backup); dispid 123;
  4004.     procedure ManualSyncCompleted(const PubServerName, PubDatabaseName, PublicationName: WideString; ArticleName: OleVariant); dispid 124;
  4005.     function GenerateBackupSQL(const DumpSpec: Backup): WideString; dispid 126;
  4006.     function EnumCandidateKeys: QueryResults; dispid 127;
  4007.     function IsValidKeyDatatype(const KeyColType: WideString; ReferencingColType: OleVariant): WordBool; dispid 128;
  4008.     function GetDatatypeByName(const TypeName: WideString): _IVSQLOLEStdObject; dispid 129;
  4009.     procedure Shrink(NewSizeInMB: Integer); dispid 130;
  4010.     procedure Transfer(const TransferSpec: Transfer); dispid 131;
  4011.     function ScriptTransfer(const TransferSpec: Transfer; ScriptFileMode, ScriptFilePath: OleVariant): WideString; dispid 132;
  4012.     procedure CheckIdentityValues; dispid 133;
  4013.     function ExecuteWithResultsAndMessages(const Command: WideString; out Messages: WideString): QueryResults; dispid 134;
  4014.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 135;
  4015.     function CheckTablesDataOnly: WideString; dispid 136;
  4016.     function CheckAllocationsDataOnly: WideString; dispid 137;
  4017.     procedure UpdateIndexStatistics; dispid 138;
  4018.     function EnumLoginMappings: QueryResults; dispid 139;
  4019.   end;
  4020.  
  4021. { SQLOLE Table }
  4022.  
  4023.   _Table = interface(_IVSQLOLEStdObject)
  4024.     ['{00027B73-0BCC-11CE-A4B3-00AA004A34D5}']
  4025.     function Get_Application: Application; safecall;
  4026.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4027.     function Get_UserData: Integer; safecall;
  4028.     procedure Set_UserData(Value: Integer); safecall;
  4029.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4030.     function Get_Properties: Properties; safecall;
  4031.     function Get_Name: WideString; safecall;
  4032.     procedure Set_Name(const Value: WideString); safecall;
  4033.     function Get_Columns: Columns; safecall;
  4034.     function Get_DataSpaceUsed: Integer; safecall;
  4035.     function Get_IndexSpaceUsed: Integer; safecall;
  4036.     function Get_Attributes: SQLOLE_TABLEATT_TYPE; safecall;
  4037.     function Get_Keys: Keys; safecall;
  4038.     function Get_Owner: WideString; safecall;
  4039.     function Get_ID: Integer; safecall;
  4040.     function Get_CreateDate: WideString; safecall;
  4041.     function Get_PrimaryKey: Key; safecall;
  4042.     function Get_Indexes: Indexes; safecall;
  4043.     function Get_Triggers: Triggers; safecall;
  4044.     function Get_Checks: Checks; safecall;
  4045.     function Get_ClusteredIndex: Index; safecall;
  4046.     function Get_SystemObject: WordBool; safecall;
  4047.     function Get_Rows: Integer; safecall;
  4048.     procedure BeginAlter; safecall;
  4049.     procedure DoAlter; safecall;
  4050.     procedure CancelAlter; safecall;
  4051.     procedure ReCompileReferences; safecall;
  4052.     procedure Grant(Privileges: SQLOLE_PRIVILEGE_TYPE; const GranteeNames: WideString; ColumnNames: OleVariant); safecall;
  4053.     procedure Revoke(Privileges: SQLOLE_PRIVILEGE_TYPE; const RevokeeNames: WideString; ColumnNames: OleVariant); safecall;
  4054.     function ListPermissions(PrivilegeTypes: OleVariant): SQLObjectList; safecall;
  4055.     function ListUserPermissions(const UserName: WideString): SQLObjectList; safecall;
  4056.     function CheckTable: WideString; safecall;
  4057.     function CheckTextAllocsFast: WideString; safecall;
  4058.     function CheckTextAllocsFull: WideString; safecall;
  4059.     procedure TruncateData; safecall;
  4060.     procedure UpdateStatistics; safecall;
  4061.     procedure Remove; safecall;
  4062.     function ListArticles: SQLObjectList; safecall;
  4063.     function EnumReferencedKeys(ReferencedTableName, IncludeAllCandidates: OleVariant): QueryResults; safecall;
  4064.     function EnumReferencedTables(IncludeAllCandidates: OleVariant): QueryResults; safecall;
  4065.     function EnumReferencingKeys(ReferencingTableName, IncludeAllCandidates: OleVariant): QueryResults; safecall;
  4066.     function EnumReferencingTables(IncludeAllCandidates: OleVariant): QueryResults; safecall;
  4067.     function EnumDependencies(DependencyType: OleVariant): QueryResults; safecall;
  4068.     procedure InsertColumn(const NewColumn: Column; const BeforeColumnName: WideString); safecall;
  4069.     procedure RecalcSpaceUsage; safecall;
  4070.     function EnumLastStatisticsUpdates(IndexName: OleVariant): QueryResults; safecall;
  4071.     function Script(ScriptType, ScriptFilePath, NewName: OleVariant): WideString; safecall;
  4072.     procedure DoAlterWithNoCheck; safecall;
  4073.     procedure Refresh; safecall;
  4074.     function ImportData(const Bcp: BulkCopy): Integer; safecall;
  4075.     function ExportData(const Bcp: BulkCopy): Integer; safecall;
  4076.     procedure RebuildIndexes(SortedDataType, FillFactor: OleVariant); safecall;
  4077.     procedure CheckIdentityValue; safecall;
  4078.     function CheckTableDataOnly: WideString; safecall;
  4079.     function Get_InAlter: WordBool; safecall;
  4080.     property Application: Application read Get_Application;
  4081.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4082.     property UserData: Integer read Get_UserData write Set_UserData;
  4083.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4084.     property Properties: Properties read Get_Properties;
  4085.     property Name: WideString read Get_Name write Set_Name;
  4086.     property Columns: Columns read Get_Columns;
  4087.     property DataSpaceUsed: Integer read Get_DataSpaceUsed;
  4088.     property IndexSpaceUsed: Integer read Get_IndexSpaceUsed;
  4089.     property Attributes: SQLOLE_TABLEATT_TYPE read Get_Attributes;
  4090.     property Keys: Keys read Get_Keys;
  4091.     property Owner: WideString read Get_Owner;
  4092.     property ID: Integer read Get_ID;
  4093.     property CreateDate: WideString read Get_CreateDate;
  4094.     property PrimaryKey: Key read Get_PrimaryKey;
  4095.     property Indexes: Indexes read Get_Indexes;
  4096.     property Triggers: Triggers read Get_Triggers;
  4097.     property Checks: Checks read Get_Checks;
  4098.     property ClusteredIndex: Index read Get_ClusteredIndex;
  4099.     property SystemObject: WordBool read Get_SystemObject;
  4100.     property Rows: Integer read Get_Rows;
  4101.     property InAlter: WordBool read Get_InAlter;
  4102.   end;
  4103.  
  4104. { DispInterface declaration for Dual Interface _Table }
  4105.  
  4106.   _TableDisp = dispinterface
  4107.     ['{00027B73-0BCC-11CE-A4B3-00AA004A34D5}']
  4108.     property Application: Application readonly dispid 1;
  4109.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4110.     property UserData: Integer dispid 3;
  4111.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4112.     property Properties: Properties readonly dispid 7;
  4113.     property Name: WideString dispid 9;
  4114.     property Columns: Columns readonly dispid 0;
  4115.     property DataSpaceUsed: Integer readonly dispid 10;
  4116.     property IndexSpaceUsed: Integer readonly dispid 11;
  4117.     property Attributes: SQLOLE_TABLEATT_TYPE readonly dispid 12;
  4118.     property Keys: Keys readonly dispid 13;
  4119.     property Owner: WideString readonly dispid 14;
  4120.     property ID: Integer readonly dispid 15;
  4121.     property CreateDate: WideString readonly dispid 16;
  4122.     property PrimaryKey: Key readonly dispid 17;
  4123.     property Indexes: Indexes readonly dispid 18;
  4124.     property Triggers: Triggers readonly dispid 19;
  4125.     property Checks: Checks readonly dispid 20;
  4126.     property ClusteredIndex: Index readonly dispid 21;
  4127.     property SystemObject: WordBool readonly dispid 22;
  4128.     property Rows: Integer readonly dispid 23;
  4129.     procedure BeginAlter; dispid 100;
  4130.     procedure DoAlter; dispid 101;
  4131.     procedure CancelAlter; dispid 102;
  4132.     procedure ReCompileReferences; dispid 103;
  4133.     procedure Grant(Privileges: SQLOLE_PRIVILEGE_TYPE; const GranteeNames: WideString; ColumnNames: OleVariant); dispid 104;
  4134.     procedure Revoke(Privileges: SQLOLE_PRIVILEGE_TYPE; const RevokeeNames: WideString; ColumnNames: OleVariant); dispid 105;
  4135.     function ListPermissions(PrivilegeTypes: OleVariant): SQLObjectList; dispid 106;
  4136.     function ListUserPermissions(const UserName: WideString): SQLObjectList; dispid 107;
  4137.     function CheckTable: WideString; dispid 108;
  4138.     function CheckTextAllocsFast: WideString; dispid 109;
  4139.     function CheckTextAllocsFull: WideString; dispid 110;
  4140.     procedure TruncateData; dispid 111;
  4141.     procedure UpdateStatistics; dispid 112;
  4142.     procedure Remove; dispid 113;
  4143.     function ListArticles: SQLObjectList; dispid 114;
  4144.     function EnumReferencedKeys(ReferencedTableName, IncludeAllCandidates: OleVariant): QueryResults; dispid 115;
  4145.     function EnumReferencedTables(IncludeAllCandidates: OleVariant): QueryResults; dispid 116;
  4146.     function EnumReferencingKeys(ReferencingTableName, IncludeAllCandidates: OleVariant): QueryResults; dispid 117;
  4147.     function EnumReferencingTables(IncludeAllCandidates: OleVariant): QueryResults; dispid 118;
  4148.     function EnumDependencies(DependencyType: OleVariant): QueryResults; dispid 119;
  4149.     procedure InsertColumn(const NewColumn: Column; const BeforeColumnName: WideString); dispid 120;
  4150.     procedure RecalcSpaceUsage; dispid 121;
  4151.     function EnumLastStatisticsUpdates(IndexName: OleVariant): QueryResults; dispid 122;
  4152.     function Script(ScriptType, ScriptFilePath, NewName: OleVariant): WideString; dispid 123;
  4153.     procedure DoAlterWithNoCheck; dispid 124;
  4154.     procedure Refresh; dispid 125;
  4155.     function ImportData(const Bcp: BulkCopy): Integer; dispid 127;
  4156.     function ExportData(const Bcp: BulkCopy): Integer; dispid 128;
  4157.     procedure RebuildIndexes(SortedDataType, FillFactor: OleVariant); dispid 129;
  4158.     procedure CheckIdentityValue; dispid 130;
  4159.     function CheckTableDataOnly: WideString; dispid 131;
  4160.     property InAlter: WordBool readonly dispid 24;
  4161.   end;
  4162.  
  4163. { SQLOLE Column }
  4164.  
  4165.   _Column = interface(_IVSQLOLEStdObject)
  4166.     ['{00026B74-0000-0000-C000-000000000046}']
  4167.     function Get_Application: Application; safecall;
  4168.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4169.     function Get_UserData: Integer; safecall;
  4170.     procedure Set_UserData(Value: Integer); safecall;
  4171.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4172.     function Get_Properties: Properties; safecall;
  4173.     function Get_Name: WideString; safecall;
  4174.     procedure Set_Name(const Value: WideString); safecall;
  4175.     function Get_IdentityIncrement: Integer; safecall;
  4176.     procedure Set_IdentityIncrement(Value: Integer); safecall;
  4177.     function Get_IdentitySeed: Integer; safecall;
  4178.     procedure Set_IdentitySeed(Value: Integer); safecall;
  4179.     function Get_DRIDefault: DRIDefault; safecall;
  4180.     function Get_InPrimaryKey: WordBool; safecall;
  4181.     function Get_Datatype: WideString; safecall;
  4182.     procedure Set_Datatype(const Value: WideString); safecall;
  4183.     function Get_PhysicalDatatype: WideString; safecall;
  4184.     function Get_Length: Integer; safecall;
  4185.     procedure Set_Length(Value: Integer); safecall;
  4186.     function Get_Default: WideString; safecall;
  4187.     procedure Set_Default(const Value: WideString); safecall;
  4188.     function Get_Rule: WideString; safecall;
  4189.     procedure Set_Rule(const Value: WideString); safecall;
  4190.     function Get_AllowNulls: WordBool; safecall;
  4191.     procedure Set_AllowNulls(Value: WordBool); safecall;
  4192.     function Get_ID: Integer; safecall;
  4193.     function Get_Identity: WordBool; safecall;
  4194.     procedure Set_Identity(Value: WordBool); safecall;
  4195.     function Get_NumericPrecision: Integer; safecall;
  4196.     procedure Set_NumericPrecision(Value: Integer); safecall;
  4197.     function Get_NumericScale: Integer; safecall;
  4198.     procedure Set_NumericScale(Value: Integer); safecall;
  4199.     procedure Remove; safecall;
  4200.     function ListKeys: SQLObjectList; safecall;
  4201.     property Application: Application read Get_Application;
  4202.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4203.     property UserData: Integer read Get_UserData write Set_UserData;
  4204.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4205.     property Properties: Properties read Get_Properties;
  4206.     property Name: WideString read Get_Name write Set_Name;
  4207.     property IdentityIncrement: Integer read Get_IdentityIncrement write Set_IdentityIncrement;
  4208.     property IdentitySeed: Integer read Get_IdentitySeed write Set_IdentitySeed;
  4209.     property DRIDefault: DRIDefault read Get_DRIDefault;
  4210.     property InPrimaryKey: WordBool read Get_InPrimaryKey;
  4211.     property Datatype: WideString read Get_Datatype write Set_Datatype;
  4212.     property PhysicalDatatype: WideString read Get_PhysicalDatatype;
  4213.     property Length: Integer read Get_Length write Set_Length;
  4214.     property Default: WideString read Get_Default write Set_Default;
  4215.     property Rule: WideString read Get_Rule write Set_Rule;
  4216.     property AllowNulls: WordBool read Get_AllowNulls write Set_AllowNulls;
  4217.     property ID: Integer read Get_ID;
  4218.     property Identity: WordBool read Get_Identity write Set_Identity;
  4219.     property NumericPrecision: Integer read Get_NumericPrecision write Set_NumericPrecision;
  4220.     property NumericScale: Integer read Get_NumericScale write Set_NumericScale;
  4221.   end;
  4222.  
  4223. { DispInterface declaration for Dual Interface _Column }
  4224.  
  4225.   _ColumnDisp = dispinterface
  4226.     ['{00026B74-0000-0000-C000-000000000046}']
  4227.     property Application: Application readonly dispid 1;
  4228.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4229.     property UserData: Integer dispid 3;
  4230.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4231.     property Properties: Properties readonly dispid 7;
  4232.     property Name: WideString dispid 9;
  4233.     property IdentityIncrement: Integer dispid 10;
  4234.     property IdentitySeed: Integer dispid 11;
  4235.     property DRIDefault: DRIDefault readonly dispid 12;
  4236.     property InPrimaryKey: WordBool readonly dispid 13;
  4237.     property Datatype: WideString dispid 14;
  4238.     property PhysicalDatatype: WideString readonly dispid 15;
  4239.     property Length: Integer dispid 16;
  4240.     property Default: WideString dispid 17;
  4241.     property Rule: WideString dispid 18;
  4242.     property AllowNulls: WordBool dispid 19;
  4243.     property ID: Integer readonly dispid 20;
  4244.     property Identity: WordBool dispid 21;
  4245.     property NumericPrecision: Integer dispid 22;
  4246.     property NumericScale: Integer dispid 23;
  4247.     procedure Remove; dispid 100;
  4248.     function ListKeys: SQLObjectList; dispid 101;
  4249.   end;
  4250.  
  4251. { SQLOLE View }
  4252.  
  4253.   _View = interface(_IVSQLOLEStdObject)
  4254.     ['{00027B75-0BCC-11CE-A4B3-00AA004A34D5}']
  4255.     function Get_Application: Application; safecall;
  4256.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4257.     function Get_UserData: Integer; safecall;
  4258.     procedure Set_UserData(Value: Integer); safecall;
  4259.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4260.     function Get_Properties: Properties; safecall;
  4261.     function Get_Name: WideString; safecall;
  4262.     procedure Set_Name(const Value: WideString); safecall;
  4263.     function Get_Owner: WideString; safecall;
  4264.     function Get_CreateDate: WideString; safecall;
  4265.     function Get_ID: Integer; safecall;
  4266.     function Get_Text: WideString; safecall;
  4267.     procedure Set_Text(const Value: WideString); safecall;
  4268.     function Get_SystemObject: WordBool; safecall;
  4269.     procedure Grant(Privileges: SQLOLE_PRIVILEGE_TYPE; const GranteeNames: WideString; ColumnNames: OleVariant); safecall;
  4270.     procedure Revoke(Privileges: SQLOLE_PRIVILEGE_TYPE; const RevokeeNames: WideString; ColumnNames: OleVariant); safecall;
  4271.     procedure Remove; safecall;
  4272.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  4273.     function EnumDependencies(DependencyType: OleVariant): QueryResults; safecall;
  4274.     function ListPermissions(PrivilegeTypes: OleVariant): SQLObjectList; safecall;
  4275.     function ListUserPermissions(const UserName: WideString): SQLObjectList; safecall;
  4276.     function ListColumns: SQLObjectList; safecall;
  4277.     function ExportData(const Bcp: BulkCopy): Integer; safecall;
  4278.     property Application: Application read Get_Application;
  4279.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4280.     property UserData: Integer read Get_UserData write Set_UserData;
  4281.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4282.     property Properties: Properties read Get_Properties;
  4283.     property Name: WideString read Get_Name write Set_Name;
  4284.     property Owner: WideString read Get_Owner;
  4285.     property CreateDate: WideString read Get_CreateDate;
  4286.     property ID: Integer read Get_ID;
  4287.     property Text: WideString read Get_Text write Set_Text;
  4288.     property SystemObject: WordBool read Get_SystemObject;
  4289.   end;
  4290.  
  4291. { DispInterface declaration for Dual Interface _View }
  4292.  
  4293.   _ViewDisp = dispinterface
  4294.     ['{00027B75-0BCC-11CE-A4B3-00AA004A34D5}']
  4295.     property Application: Application readonly dispid 1;
  4296.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4297.     property UserData: Integer dispid 3;
  4298.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4299.     property Properties: Properties readonly dispid 7;
  4300.     property Name: WideString dispid 9;
  4301.     property Owner: WideString readonly dispid 14;
  4302.     property CreateDate: WideString readonly dispid 15;
  4303.     property ID: Integer readonly dispid 16;
  4304.     property Text: WideString dispid 17;
  4305.     property SystemObject: WordBool readonly dispid 22;
  4306.     procedure Grant(Privileges: SQLOLE_PRIVILEGE_TYPE; const GranteeNames: WideString; ColumnNames: OleVariant); dispid 100;
  4307.     procedure Revoke(Privileges: SQLOLE_PRIVILEGE_TYPE; const RevokeeNames: WideString; ColumnNames: OleVariant); dispid 101;
  4308.     procedure Remove; dispid 102;
  4309.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 103;
  4310.     function EnumDependencies(DependencyType: OleVariant): QueryResults; dispid 104;
  4311.     function ListPermissions(PrivilegeTypes: OleVariant): SQLObjectList; dispid 105;
  4312.     function ListUserPermissions(const UserName: WideString): SQLObjectList; dispid 106;
  4313.     function ListColumns: SQLObjectList; dispid 108;
  4314.     function ExportData(const Bcp: BulkCopy): Integer; dispid 107;
  4315.   end;
  4316.  
  4317. { SQLOLE UserDefinedDatatype }
  4318.  
  4319.   _UserDefinedDatatype = interface(_IVSQLOLEStdObject)
  4320.     ['{00026B76-0000-0000-C000-000000000046}']
  4321.     function Get_Application: Application; safecall;
  4322.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4323.     function Get_UserData: Integer; safecall;
  4324.     procedure Set_UserData(Value: Integer); safecall;
  4325.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4326.     function Get_Properties: Properties; safecall;
  4327.     function Get_Name: WideString; safecall;
  4328.     procedure Set_Name(const Value: WideString); safecall;
  4329.     function Get_Owner: WideString; safecall;
  4330.     function Get_AllowNulls: WordBool; safecall;
  4331.     procedure Set_AllowNulls(Value: WordBool); safecall;
  4332.     function Get_BaseType: WideString; safecall;
  4333.     procedure Set_BaseType(const Value: WideString); safecall;
  4334.     function Get_Length: Integer; safecall;
  4335.     procedure Set_Length(Value: Integer); safecall;
  4336.     function Get_Default: WideString; safecall;
  4337.     procedure Set_Default(const Value: WideString); safecall;
  4338.     function Get_Rule: WideString; safecall;
  4339.     procedure Set_Rule(const Value: WideString); safecall;
  4340.     function Get_ID: Integer; safecall;
  4341.     function Get_NumericPrecision: Integer; safecall;
  4342.     procedure Set_NumericPrecision(Value: Integer); safecall;
  4343.     function Get_NumericScale: Integer; safecall;
  4344.     procedure Set_NumericScale(Value: Integer); safecall;
  4345.     function Get_AllowIdentity: WordBool; safecall;
  4346.     function ListBoundColumns: SQLObjectList; safecall;
  4347.     procedure Remove; safecall;
  4348.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  4349.     property Application: Application read Get_Application;
  4350.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4351.     property UserData: Integer read Get_UserData write Set_UserData;
  4352.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4353.     property Properties: Properties read Get_Properties;
  4354.     property Name: WideString read Get_Name write Set_Name;
  4355.     property Owner: WideString read Get_Owner;
  4356.     property AllowNulls: WordBool read Get_AllowNulls write Set_AllowNulls;
  4357.     property BaseType: WideString read Get_BaseType write Set_BaseType;
  4358.     property Length: Integer read Get_Length write Set_Length;
  4359.     property Default: WideString read Get_Default write Set_Default;
  4360.     property Rule: WideString read Get_Rule write Set_Rule;
  4361.     property ID: Integer read Get_ID;
  4362.     property NumericPrecision: Integer read Get_NumericPrecision write Set_NumericPrecision;
  4363.     property NumericScale: Integer read Get_NumericScale write Set_NumericScale;
  4364.     property AllowIdentity: WordBool read Get_AllowIdentity;
  4365.   end;
  4366.  
  4367. { DispInterface declaration for Dual Interface _UserDefinedDatatype }
  4368.  
  4369.   _UserDefinedDatatypeDisp = dispinterface
  4370.     ['{00026B76-0000-0000-C000-000000000046}']
  4371.     property Application: Application readonly dispid 1;
  4372.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4373.     property UserData: Integer dispid 3;
  4374.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4375.     property Properties: Properties readonly dispid 7;
  4376.     property Name: WideString dispid 9;
  4377.     property Owner: WideString readonly dispid 14;
  4378.     property AllowNulls: WordBool dispid 15;
  4379.     property BaseType: WideString dispid 16;
  4380.     property Length: Integer dispid 17;
  4381.     property Default: WideString dispid 18;
  4382.     property Rule: WideString dispid 19;
  4383.     property ID: Integer readonly dispid 20;
  4384.     property NumericPrecision: Integer dispid 22;
  4385.     property NumericScale: Integer dispid 23;
  4386.     property AllowIdentity: WordBool readonly dispid 24;
  4387.     function ListBoundColumns: SQLObjectList; dispid 100;
  4388.     procedure Remove; dispid 101;
  4389.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 102;
  4390.   end;
  4391.  
  4392. { SQLOLE Default }
  4393.  
  4394.   _Default = interface(_IVSQLOLEStdObject)
  4395.     ['{00026B77-0000-0000-C000-000000000046}']
  4396.     function Get_Application: Application; safecall;
  4397.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4398.     function Get_UserData: Integer; safecall;
  4399.     procedure Set_UserData(Value: Integer); safecall;
  4400.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4401.     function Get_Properties: Properties; safecall;
  4402.     function Get_Name: WideString; safecall;
  4403.     procedure Set_Name(const Value: WideString); safecall;
  4404.     function Get_Owner: WideString; safecall;
  4405.     function Get_CreateDate: WideString; safecall;
  4406.     function Get_ID: Integer; safecall;
  4407.     function Get_Text: WideString; safecall;
  4408.     procedure Set_Text(const Value: WideString); safecall;
  4409.     procedure BindToColumn(const TableName, ColumnName: WideString); safecall;
  4410.     procedure BindToDatatype(const DatatypeName: WideString; FutureOnly: OleVariant); safecall;
  4411.     procedure UnbindFromColumn(const TableName, ColumnName: WideString); safecall;
  4412.     procedure UnbindFromDatatype(const DatatypeName: WideString; FutureOnly: OleVariant); safecall;
  4413.     function ListBoundColumns: SQLObjectList; safecall;
  4414.     function ListBoundDatatypes: SQLObjectList; safecall;
  4415.     procedure Remove; safecall;
  4416.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  4417.     property Application: Application read Get_Application;
  4418.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4419.     property UserData: Integer read Get_UserData write Set_UserData;
  4420.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4421.     property Properties: Properties read Get_Properties;
  4422.     property Name: WideString read Get_Name write Set_Name;
  4423.     property Owner: WideString read Get_Owner;
  4424.     property CreateDate: WideString read Get_CreateDate;
  4425.     property ID: Integer read Get_ID;
  4426.     property Text: WideString read Get_Text write Set_Text;
  4427.   end;
  4428.  
  4429. { DispInterface declaration for Dual Interface _Default }
  4430.  
  4431.   _DefaultDisp = dispinterface
  4432.     ['{00026B77-0000-0000-C000-000000000046}']
  4433.     property Application: Application readonly dispid 1;
  4434.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4435.     property UserData: Integer dispid 3;
  4436.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4437.     property Properties: Properties readonly dispid 7;
  4438.     property Name: WideString dispid 9;
  4439.     property Owner: WideString readonly dispid 14;
  4440.     property CreateDate: WideString readonly dispid 15;
  4441.     property ID: Integer readonly dispid 16;
  4442.     property Text: WideString dispid 17;
  4443.     procedure BindToColumn(const TableName, ColumnName: WideString); dispid 100;
  4444.     procedure BindToDatatype(const DatatypeName: WideString; FutureOnly: OleVariant); dispid 101;
  4445.     procedure UnbindFromColumn(const TableName, ColumnName: WideString); dispid 102;
  4446.     procedure UnbindFromDatatype(const DatatypeName: WideString; FutureOnly: OleVariant); dispid 103;
  4447.     function ListBoundColumns: SQLObjectList; dispid 106;
  4448.     function ListBoundDatatypes: SQLObjectList; dispid 107;
  4449.     procedure Remove; dispid 108;
  4450.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 109;
  4451.   end;
  4452.  
  4453. { SQLOLE Rule }
  4454.  
  4455.   _Rule = interface(_IVSQLOLEStdObject)
  4456.     ['{00026B78-0000-0000-C000-000000000046}']
  4457.     function Get_Application: Application; safecall;
  4458.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4459.     function Get_UserData: Integer; safecall;
  4460.     procedure Set_UserData(Value: Integer); safecall;
  4461.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4462.     function Get_Properties: Properties; safecall;
  4463.     function Get_Name: WideString; safecall;
  4464.     procedure Set_Name(const Value: WideString); safecall;
  4465.     function Get_Owner: WideString; safecall;
  4466.     function Get_CreateDate: WideString; safecall;
  4467.     function Get_ID: Integer; safecall;
  4468.     function Get_Text: WideString; safecall;
  4469.     procedure Set_Text(const Value: WideString); safecall;
  4470.     procedure BindToColumn(const TableName, ColumnName: WideString); safecall;
  4471.     procedure BindToDatatype(const DatatypeName: WideString; FutureOnly: OleVariant); safecall;
  4472.     procedure UnbindFromColumn(const TableName, ColumnName: WideString); safecall;
  4473.     procedure UnbindFromDatatype(const DatatypeName: WideString; FutureOnly: OleVariant); safecall;
  4474.     function ListBoundColumns: SQLObjectList; safecall;
  4475.     function ListBoundDatatypes: SQLObjectList; safecall;
  4476.     procedure Remove; safecall;
  4477.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  4478.     property Application: Application read Get_Application;
  4479.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4480.     property UserData: Integer read Get_UserData write Set_UserData;
  4481.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4482.     property Properties: Properties read Get_Properties;
  4483.     property Name: WideString read Get_Name write Set_Name;
  4484.     property Owner: WideString read Get_Owner;
  4485.     property CreateDate: WideString read Get_CreateDate;
  4486.     property ID: Integer read Get_ID;
  4487.     property Text: WideString read Get_Text write Set_Text;
  4488.   end;
  4489.  
  4490. { DispInterface declaration for Dual Interface _Rule }
  4491.  
  4492.   _RuleDisp = dispinterface
  4493.     ['{00026B78-0000-0000-C000-000000000046}']
  4494.     property Application: Application readonly dispid 1;
  4495.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4496.     property UserData: Integer dispid 3;
  4497.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4498.     property Properties: Properties readonly dispid 7;
  4499.     property Name: WideString dispid 9;
  4500.     property Owner: WideString readonly dispid 14;
  4501.     property CreateDate: WideString readonly dispid 15;
  4502.     property ID: Integer readonly dispid 16;
  4503.     property Text: WideString dispid 17;
  4504.     procedure BindToColumn(const TableName, ColumnName: WideString); dispid 100;
  4505.     procedure BindToDatatype(const DatatypeName: WideString; FutureOnly: OleVariant); dispid 101;
  4506.     procedure UnbindFromColumn(const TableName, ColumnName: WideString); dispid 102;
  4507.     procedure UnbindFromDatatype(const DatatypeName: WideString; FutureOnly: OleVariant); dispid 103;
  4508.     function ListBoundColumns: SQLObjectList; dispid 106;
  4509.     function ListBoundDatatypes: SQLObjectList; dispid 107;
  4510.     procedure Remove; dispid 108;
  4511.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 109;
  4512.   end;
  4513.  
  4514. { SQLOLE User }
  4515.  
  4516.   _User = interface(_IVSQLOLEStdObject)
  4517.     ['{00026B79-0000-0000-C000-000000000046}']
  4518.     function Get_Application: Application; safecall;
  4519.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4520.     function Get_UserData: Integer; safecall;
  4521.     procedure Set_UserData(Value: Integer); safecall;
  4522.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4523.     function Get_Properties: Properties; safecall;
  4524.     function Get_Name: WideString; safecall;
  4525.     procedure Set_Name(const Value: WideString); safecall;
  4526.     function Get_SystemObject: WordBool; safecall;
  4527.     function Get_Login: WideString; safecall;
  4528.     procedure Set_Login(const Value: WideString); safecall;
  4529.     function Get_Group: WideString; safecall;
  4530.     procedure Set_Group(const Value: WideString); safecall;
  4531.     function Get_ID: Integer; safecall;
  4532.     procedure AddAlias(const LoginNames: WideString); safecall;
  4533.     procedure RemoveAlias(const LoginNames: WideString); safecall;
  4534.     function ListAliases: SQLObjectList; safecall;
  4535.     function ListOwnedObjects(ObjectTypes, SortBy: OleVariant): SQLObjectList; safecall;
  4536.     function ListDatabasePermissions(PrivilegeTypes: OleVariant): SQLObjectList; safecall;
  4537.     function ListObjectPermissions(PrivilegeTypes: OleVariant): SQLObjectList; safecall;
  4538.     procedure Remove; safecall;
  4539.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  4540.     property Application: Application read Get_Application;
  4541.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4542.     property UserData: Integer read Get_UserData write Set_UserData;
  4543.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4544.     property Properties: Properties read Get_Properties;
  4545.     property Name: WideString read Get_Name write Set_Name;
  4546.     property SystemObject: WordBool read Get_SystemObject;
  4547.     property Login: WideString read Get_Login write Set_Login;
  4548.     property Group: WideString read Get_Group write Set_Group;
  4549.     property ID: Integer read Get_ID;
  4550.   end;
  4551.  
  4552. { DispInterface declaration for Dual Interface _User }
  4553.  
  4554.   _UserDisp = dispinterface
  4555.     ['{00026B79-0000-0000-C000-000000000046}']
  4556.     property Application: Application readonly dispid 1;
  4557.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4558.     property UserData: Integer dispid 3;
  4559.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4560.     property Properties: Properties readonly dispid 7;
  4561.     property Name: WideString dispid 9;
  4562.     property SystemObject: WordBool readonly dispid 12;
  4563.     property Login: WideString dispid 14;
  4564.     property Group: WideString dispid 15;
  4565.     property ID: Integer readonly dispid 16;
  4566.     procedure AddAlias(const LoginNames: WideString); dispid 100;
  4567.     procedure RemoveAlias(const LoginNames: WideString); dispid 101;
  4568.     function ListAliases: SQLObjectList; dispid 102;
  4569.     function ListOwnedObjects(ObjectTypes, SortBy: OleVariant): SQLObjectList; dispid 103;
  4570.     function ListDatabasePermissions(PrivilegeTypes: OleVariant): SQLObjectList; dispid 105;
  4571.     function ListObjectPermissions(PrivilegeTypes: OleVariant): SQLObjectList; dispid 106;
  4572.     procedure Remove; dispid 107;
  4573.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 108;
  4574.   end;
  4575.  
  4576. { SQLOLE Group }
  4577.  
  4578.   _Group = interface(_IVSQLOLEStdObject)
  4579.     ['{00026B7A-0000-0000-C000-000000000046}']
  4580.     function Get_Application: Application; safecall;
  4581.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4582.     function Get_UserData: Integer; safecall;
  4583.     procedure Set_UserData(Value: Integer); safecall;
  4584.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4585.     function Get_Properties: Properties; safecall;
  4586.     function Get_Name: WideString; safecall;
  4587.     procedure Set_Name(const Value: WideString); safecall;
  4588.     function Get_SystemObject: WordBool; safecall;
  4589.     function Get_ID: Integer; safecall;
  4590.     function ListUsers: SQLObjectList; safecall;
  4591.     function ListDatabasePermissions(PrivilegeTypes: OleVariant): SQLObjectList; safecall;
  4592.     function ListObjectPermissions(PrivilegeTypes: OleVariant): SQLObjectList; safecall;
  4593.     procedure Remove; safecall;
  4594.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  4595.     property Application: Application read Get_Application;
  4596.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4597.     property UserData: Integer read Get_UserData write Set_UserData;
  4598.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4599.     property Properties: Properties read Get_Properties;
  4600.     property Name: WideString read Get_Name write Set_Name;
  4601.     property SystemObject: WordBool read Get_SystemObject;
  4602.     property ID: Integer read Get_ID;
  4603.   end;
  4604.  
  4605. { DispInterface declaration for Dual Interface _Group }
  4606.  
  4607.   _GroupDisp = dispinterface
  4608.     ['{00026B7A-0000-0000-C000-000000000046}']
  4609.     property Application: Application readonly dispid 1;
  4610.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4611.     property UserData: Integer dispid 3;
  4612.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4613.     property Properties: Properties readonly dispid 7;
  4614.     property Name: WideString dispid 9;
  4615.     property SystemObject: WordBool readonly dispid 12;
  4616.     property ID: Integer readonly dispid 14;
  4617.     function ListUsers: SQLObjectList; dispid 100;
  4618.     function ListDatabasePermissions(PrivilegeTypes: OleVariant): SQLObjectList; dispid 101;
  4619.     function ListObjectPermissions(PrivilegeTypes: OleVariant): SQLObjectList; dispid 102;
  4620.     procedure Remove; dispid 103;
  4621.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 104;
  4622.   end;
  4623.  
  4624. { SQLOLE StoredProcedure }
  4625.  
  4626.   _StoredProcedure = interface(_IVSQLOLEStdObject)
  4627.     ['{00027B7B-0BCC-11CE-A4B3-00AA004A34D5}']
  4628.     function Get_Application: Application; safecall;
  4629.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4630.     function Get_UserData: Integer; safecall;
  4631.     procedure Set_UserData(Value: Integer); safecall;
  4632.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4633.     function Get_Properties: Properties; safecall;
  4634.     function Get_Name: WideString; safecall;
  4635.     procedure Set_Name(const Value: WideString); safecall;
  4636.     function Get_SystemObject: WordBool; safecall;
  4637.     function Get_Type_: SQLOLE_PROCEDURE_TYPE; safecall;
  4638.     procedure Set_Type_(Value: SQLOLE_PROCEDURE_TYPE); safecall;
  4639.     function Get_Startup: WordBool; safecall;
  4640.     procedure Set_Startup(Value: WordBool); safecall;
  4641.     function Get_Owner: WideString; safecall;
  4642.     function Get_CreateDate: WideString; safecall;
  4643.     function Get_ID: Integer; safecall;
  4644.     function Get_Text: WideString; safecall;
  4645.     procedure Set_Text(const Value: WideString); safecall;
  4646.     procedure Grant(Privileges: SQLOLE_PRIVILEGE_TYPE; const GranteeNames: WideString); safecall;
  4647.     procedure Revoke(Privileges: SQLOLE_PRIVILEGE_TYPE; const RevokeeNames: WideString); safecall;
  4648.     function ListPermissions(PrivilegeTypes: OleVariant): SQLObjectList; safecall;
  4649.     function ListUserPermissions(const UserName: WideString): SQLObjectList; safecall;
  4650.     function EnumParameters: QueryResults; safecall;
  4651.     procedure Remove; safecall;
  4652.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  4653.     function EnumDependencies(DependencyType: OleVariant): QueryResults; safecall;
  4654.     property Application: Application read Get_Application;
  4655.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4656.     property UserData: Integer read Get_UserData write Set_UserData;
  4657.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4658.     property Properties: Properties read Get_Properties;
  4659.     property Name: WideString read Get_Name write Set_Name;
  4660.     property SystemObject: WordBool read Get_SystemObject;
  4661.     property Type_: SQLOLE_PROCEDURE_TYPE read Get_Type_ write Set_Type_;
  4662.     property Startup: WordBool read Get_Startup write Set_Startup;
  4663.     property Owner: WideString read Get_Owner;
  4664.     property CreateDate: WideString read Get_CreateDate;
  4665.     property ID: Integer read Get_ID;
  4666.     property Text: WideString read Get_Text write Set_Text;
  4667.   end;
  4668.  
  4669. { DispInterface declaration for Dual Interface _StoredProcedure }
  4670.  
  4671.   _StoredProcedureDisp = dispinterface
  4672.     ['{00027B7B-0BCC-11CE-A4B3-00AA004A34D5}']
  4673.     property Application: Application readonly dispid 1;
  4674.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4675.     property UserData: Integer dispid 3;
  4676.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4677.     property Properties: Properties readonly dispid 7;
  4678.     property Name: WideString dispid 9;
  4679.     property SystemObject: WordBool readonly dispid 11;
  4680.     property Type_: SQLOLE_PROCEDURE_TYPE dispid 12;
  4681.     property Startup: WordBool dispid 13;
  4682.     property Owner: WideString readonly dispid 14;
  4683.     property CreateDate: WideString readonly dispid 15;
  4684.     property ID: Integer readonly dispid 16;
  4685.     property Text: WideString dispid 17;
  4686.     procedure Grant(Privileges: SQLOLE_PRIVILEGE_TYPE; const GranteeNames: WideString); dispid 100;
  4687.     procedure Revoke(Privileges: SQLOLE_PRIVILEGE_TYPE; const RevokeeNames: WideString); dispid 101;
  4688.     function ListPermissions(PrivilegeTypes: OleVariant): SQLObjectList; dispid 102;
  4689.     function ListUserPermissions(const UserName: WideString): SQLObjectList; dispid 103;
  4690.     function EnumParameters: QueryResults; dispid 104;
  4691.     procedure Remove; dispid 105;
  4692.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 106;
  4693.     function EnumDependencies(DependencyType: OleVariant): QueryResults; dispid 107;
  4694.   end;
  4695.  
  4696. { SQLOLE Index }
  4697.  
  4698.   _Index = interface(_IVSQLOLEStdObject)
  4699.     ['{00027B7C-0BCC-11CE-A4B3-00AA004A34D5}']
  4700.     function Get_Application: Application; safecall;
  4701.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4702.     function Get_UserData: Integer; safecall;
  4703.     procedure Set_UserData(Value: Integer); safecall;
  4704.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4705.     function Get_Properties: Properties; safecall;
  4706.     function Get_Name: WideString; safecall;
  4707.     procedure Set_Name(const Value: WideString); safecall;
  4708.     procedure Set_IndexedColumns(const Value: WideString); safecall;
  4709.     function Get_SpaceUsed: Integer; safecall;
  4710.     function Get_Type_: SQLOLE_INDEX_TYPE; safecall;
  4711.     procedure Set_Type_(Value: SQLOLE_INDEX_TYPE); safecall;
  4712.     function Get_ID: Integer; safecall;
  4713.     function Get_FillFactor: Integer; safecall;
  4714.     procedure Set_FillFactor(Value: Integer); safecall;
  4715.     procedure UpdateStatistics; safecall;
  4716.     function ListIndexedColumns: SQLObjectList; safecall;
  4717.     procedure Remove; safecall;
  4718.     procedure Rebuild; safecall;
  4719.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  4720.     procedure RecalcSpaceUsage; safecall;
  4721.     function EnumStatistics: QueryResults; safecall;
  4722.     function GenerateCreationSQL(const TargetTable: Table): WideString; safecall;
  4723.     function CheckIndex: WideString; safecall;
  4724.     property Application: Application read Get_Application;
  4725.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4726.     property UserData: Integer read Get_UserData write Set_UserData;
  4727.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4728.     property Properties: Properties read Get_Properties;
  4729.     property Name: WideString read Get_Name write Set_Name;
  4730.     property IndexedColumns: WideString write Set_IndexedColumns;
  4731.     property SpaceUsed: Integer read Get_SpaceUsed;
  4732.     property Type_: SQLOLE_INDEX_TYPE read Get_Type_ write Set_Type_;
  4733.     property ID: Integer read Get_ID;
  4734.     property FillFactor: Integer read Get_FillFactor write Set_FillFactor;
  4735.   end;
  4736.  
  4737. { DispInterface declaration for Dual Interface _Index }
  4738.  
  4739.   _IndexDisp = dispinterface
  4740.     ['{00027B7C-0BCC-11CE-A4B3-00AA004A34D5}']
  4741.     property Application: Application readonly dispid 1;
  4742.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4743.     property UserData: Integer dispid 3;
  4744.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4745.     property Properties: Properties readonly dispid 7;
  4746.     property Name: WideString dispid 9;
  4747.     property IndexedColumns: WideString writeonly dispid 11;
  4748.     property SpaceUsed: Integer readonly dispid 12;
  4749.     property Type_: SQLOLE_INDEX_TYPE dispid 14;
  4750.     property ID: Integer readonly dispid 15;
  4751.     property FillFactor: Integer dispid 16;
  4752.     procedure UpdateStatistics; dispid 100;
  4753.     function ListIndexedColumns: SQLObjectList; dispid 102;
  4754.     procedure Remove; dispid 103;
  4755.     procedure Rebuild; dispid 104;
  4756.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 105;
  4757.     procedure RecalcSpaceUsage; dispid 106;
  4758.     function EnumStatistics: QueryResults; dispid 107;
  4759.     function GenerateCreationSQL(const TargetTable: Table): WideString; dispid 108;
  4760.     function CheckIndex: WideString; dispid 109;
  4761.   end;
  4762.  
  4763. { SQLOLE DRI Key }
  4764.  
  4765.   _Key = interface(_IVSQLOLEStdObject)
  4766.     ['{00027B7D-0BCC-11CE-A4B3-00AA004A34D5}']
  4767.     function Get_Application: Application; safecall;
  4768.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4769.     function Get_UserData: Integer; safecall;
  4770.     procedure Set_UserData(Value: Integer); safecall;
  4771.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4772.     function Get_Properties: Properties; safecall;
  4773.     function Get_Name: WideString; safecall;
  4774.     procedure Set_Name(const Value: WideString); safecall;
  4775.     function Get_Clustered: WordBool; safecall;
  4776.     procedure Set_Clustered(Value: WordBool); safecall;
  4777.     function Get_FillFactor: Integer; safecall;
  4778.     procedure Set_FillFactor(Value: Integer); safecall;
  4779.     function Get_KeyColumns: Names; safecall;
  4780.     function Get_ReferencedTable: WideString; safecall;
  4781.     procedure Set_ReferencedTable(const Value: WideString); safecall;
  4782.     function Get_ReferencedColumns: Names; safecall;
  4783.     function Get_Type_: SQLOLE_KEY_TYPE; safecall;
  4784.     procedure Set_Type_(Value: SQLOLE_KEY_TYPE); safecall;
  4785.     function Get_ReferencedKey: WideString; safecall;
  4786.     procedure Remove; safecall;
  4787.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  4788.     procedure RebuildIndex; safecall;
  4789.     function Get_ExcludeReplication: WordBool; safecall;
  4790.     procedure Set_ExcludeReplication(Value: WordBool); safecall;
  4791.     property Application: Application read Get_Application;
  4792.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4793.     property UserData: Integer read Get_UserData write Set_UserData;
  4794.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4795.     property Properties: Properties read Get_Properties;
  4796.     property Name: WideString read Get_Name write Set_Name;
  4797.     property Clustered: WordBool read Get_Clustered write Set_Clustered;
  4798.     property FillFactor: Integer read Get_FillFactor write Set_FillFactor;
  4799.     property KeyColumns: Names read Get_KeyColumns;
  4800.     property ReferencedTable: WideString read Get_ReferencedTable write Set_ReferencedTable;
  4801.     property ReferencedColumns: Names read Get_ReferencedColumns;
  4802.     property Type_: SQLOLE_KEY_TYPE read Get_Type_ write Set_Type_;
  4803.     property ReferencedKey: WideString read Get_ReferencedKey;
  4804.     property ExcludeReplication: WordBool read Get_ExcludeReplication write Set_ExcludeReplication;
  4805.   end;
  4806.  
  4807. { DispInterface declaration for Dual Interface _Key }
  4808.  
  4809.   _KeyDisp = dispinterface
  4810.     ['{00027B7D-0BCC-11CE-A4B3-00AA004A34D5}']
  4811.     property Application: Application readonly dispid 1;
  4812.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4813.     property UserData: Integer dispid 3;
  4814.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4815.     property Properties: Properties readonly dispid 7;
  4816.     property Name: WideString dispid 9;
  4817.     property Clustered: WordBool dispid 10;
  4818.     property FillFactor: Integer dispid 11;
  4819.     property KeyColumns: Names readonly dispid 12;
  4820.     property ReferencedTable: WideString dispid 13;
  4821.     property ReferencedColumns: Names readonly dispid 14;
  4822.     property Type_: SQLOLE_KEY_TYPE dispid 15;
  4823.     property ReferencedKey: WideString readonly dispid 16;
  4824.     procedure Remove; dispid 100;
  4825.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 101;
  4826.     procedure RebuildIndex; dispid 102;
  4827.     property ExcludeReplication: WordBool dispid 17;
  4828.   end;
  4829.  
  4830. { SQLOLE Trigger }
  4831.  
  4832.   _Trigger = interface(_IVSQLOLEStdObject)
  4833.     ['{00026B7E-0000-0000-C000-000000000046}']
  4834.     function Get_Application: Application; safecall;
  4835.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4836.     function Get_UserData: Integer; safecall;
  4837.     procedure Set_UserData(Value: Integer); safecall;
  4838.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4839.     function Get_Properties: Properties; safecall;
  4840.     function Get_Name: WideString; safecall;
  4841.     procedure Set_Name(const Value: WideString); safecall;
  4842.     function Get_SystemObject: WordBool; safecall;
  4843.     function Get_Owner: WideString; safecall;
  4844.     function Get_CreateDate: WideString; safecall;
  4845.     function Get_ID: Integer; safecall;
  4846.     function Get_Text: WideString; safecall;
  4847.     procedure Set_Text(const Value: WideString); safecall;
  4848.     function Get_Type_: SQLOLE_TRIGGER_TYPE; safecall;
  4849.     procedure Remove; safecall;
  4850.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  4851.     function EnumDependencies(DependencyType: OleVariant): QueryResults; safecall;
  4852.     property Application: Application read Get_Application;
  4853.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4854.     property UserData: Integer read Get_UserData write Set_UserData;
  4855.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4856.     property Properties: Properties read Get_Properties;
  4857.     property Name: WideString read Get_Name write Set_Name;
  4858.     property SystemObject: WordBool read Get_SystemObject;
  4859.     property Owner: WideString read Get_Owner;
  4860.     property CreateDate: WideString read Get_CreateDate;
  4861.     property ID: Integer read Get_ID;
  4862.     property Text: WideString read Get_Text write Set_Text;
  4863.     property Type_: SQLOLE_TRIGGER_TYPE read Get_Type_;
  4864.   end;
  4865.  
  4866. { DispInterface declaration for Dual Interface _Trigger }
  4867.  
  4868.   _TriggerDisp = dispinterface
  4869.     ['{00026B7E-0000-0000-C000-000000000046}']
  4870.     property Application: Application readonly dispid 1;
  4871.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4872.     property UserData: Integer dispid 3;
  4873.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4874.     property Properties: Properties readonly dispid 7;
  4875.     property Name: WideString dispid 9;
  4876.     property SystemObject: WordBool readonly dispid 12;
  4877.     property Owner: WideString readonly dispid 14;
  4878.     property CreateDate: WideString readonly dispid 15;
  4879.     property ID: Integer readonly dispid 16;
  4880.     property Text: WideString dispid 17;
  4881.     property Type_: SQLOLE_TRIGGER_TYPE readonly dispid 18;
  4882.     procedure Remove; dispid 100;
  4883.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 101;
  4884.     function EnumDependencies(DependencyType: OleVariant): QueryResults; dispid 102;
  4885.   end;
  4886.  
  4887. { SQLOLE Device }
  4888.  
  4889.   _Device = interface(_IVSQLOLEStdObject)
  4890.     ['{00027B7F-0BCC-11CE-A4B3-00AA004A34D5}']
  4891.     function Get_Application: Application; safecall;
  4892.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4893.     function Get_UserData: Integer; safecall;
  4894.     procedure Set_UserData(Value: Integer); safecall;
  4895.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4896.     function Get_Properties: Properties; safecall;
  4897.     function Get_Name: WideString; safecall;
  4898.     procedure Set_Name(const Value: WideString); safecall;
  4899.     function Get_DeviceNumber: Integer; safecall;
  4900.     function Get_MirrorState: SQLOLE_MIRROR_TYPE; safecall;
  4901.     function Get_SkipTapeLabel: WordBool; safecall;
  4902.     procedure Set_SkipTapeLabel(Value: WordBool); safecall;
  4903.     function Get_SystemObject: WordBool; safecall;
  4904.     function Get_PhysicalLocation: WideString; safecall;
  4905.     procedure Set_PhysicalLocation(const Value: WideString); safecall;
  4906.     function Get_MirrorName: WideString; safecall;
  4907.     function Get_Default: WordBool; safecall;
  4908.     procedure Set_Default(Value: WordBool); safecall;
  4909.     function Get_Type_: SQLOLE_DEVICE_TYPE; safecall;
  4910.     procedure Set_Type_(Value: SQLOLE_DEVICE_TYPE); safecall;
  4911.     function Get_Status: Integer; safecall;
  4912.     function Get_FirstPage: Integer; safecall;
  4913.     function Get_LastPage: Integer; safecall;
  4914.     function Get_Size: Integer; safecall;
  4915.     procedure Set_Size(Value: Integer); safecall;
  4916.     function Get_SpaceAvailable: Integer; safecall;
  4917.     procedure Mirror(const MirrorPathName: WideString); safecall;
  4918.     procedure ReMirror; safecall;
  4919.     procedure SwitchToMirrorDevice; safecall;
  4920.     procedure SwitchToMirrorTemp; safecall;
  4921.     procedure UnMirrorDevice; safecall;
  4922.     procedure UnMirrorTemp; safecall;
  4923.     function ListDatabases: SQLObjectList; safecall;
  4924.     procedure Remove; safecall;
  4925.     function ReadBackupHeader: QueryResults; safecall;
  4926.     function Script(ScriptType, ScriptFilePath, NewPhysicalLocation: OleVariant): WideString; safecall;
  4927.     property Application: Application read Get_Application;
  4928.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  4929.     property UserData: Integer read Get_UserData write Set_UserData;
  4930.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  4931.     property Properties: Properties read Get_Properties;
  4932.     property Name: WideString read Get_Name write Set_Name;
  4933.     property DeviceNumber: Integer read Get_DeviceNumber;
  4934.     property MirrorState: SQLOLE_MIRROR_TYPE read Get_MirrorState;
  4935.     property SkipTapeLabel: WordBool read Get_SkipTapeLabel write Set_SkipTapeLabel;
  4936.     property SystemObject: WordBool read Get_SystemObject;
  4937.     property PhysicalLocation: WideString read Get_PhysicalLocation write Set_PhysicalLocation;
  4938.     property MirrorName: WideString read Get_MirrorName;
  4939.     property Default: WordBool read Get_Default write Set_Default;
  4940.     property Type_: SQLOLE_DEVICE_TYPE read Get_Type_ write Set_Type_;
  4941.     property Status: Integer read Get_Status;
  4942.     property FirstPage: Integer read Get_FirstPage;
  4943.     property LastPage: Integer read Get_LastPage;
  4944.     property Size: Integer read Get_Size write Set_Size;
  4945.     property SpaceAvailable: Integer read Get_SpaceAvailable;
  4946.   end;
  4947.  
  4948. { DispInterface declaration for Dual Interface _Device }
  4949.  
  4950.   _DeviceDisp = dispinterface
  4951.     ['{00027B7F-0BCC-11CE-A4B3-00AA004A34D5}']
  4952.     property Application: Application readonly dispid 1;
  4953.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  4954.     property UserData: Integer dispid 3;
  4955.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  4956.     property Properties: Properties readonly dispid 7;
  4957.     property Name: WideString dispid 9;
  4958.     property DeviceNumber: Integer readonly dispid 10;
  4959.     property MirrorState: SQLOLE_MIRROR_TYPE readonly dispid 11;
  4960.     property SkipTapeLabel: WordBool dispid 12;
  4961.     property SystemObject: WordBool readonly dispid 13;
  4962.     property PhysicalLocation: WideString dispid 14;
  4963.     property MirrorName: WideString readonly dispid 15;
  4964.     property Default: WordBool dispid 16;
  4965.     property Type_: SQLOLE_DEVICE_TYPE dispid 17;
  4966.     property Status: Integer readonly dispid 18;
  4967.     property FirstPage: Integer readonly dispid 19;
  4968.     property LastPage: Integer readonly dispid 20;
  4969.     property Size: Integer dispid 21;
  4970.     property SpaceAvailable: Integer readonly dispid 22;
  4971.     procedure Mirror(const MirrorPathName: WideString); dispid 100;
  4972.     procedure ReMirror; dispid 102;
  4973.     procedure SwitchToMirrorDevice; dispid 103;
  4974.     procedure SwitchToMirrorTemp; dispid 104;
  4975.     procedure UnMirrorDevice; dispid 105;
  4976.     procedure UnMirrorTemp; dispid 106;
  4977.     function ListDatabases: SQLObjectList; dispid 107;
  4978.     procedure Remove; dispid 108;
  4979.     function ReadBackupHeader: QueryResults; dispid 109;
  4980.     function Script(ScriptType, ScriptFilePath, NewPhysicalLocation: OleVariant): WideString; dispid 110;
  4981.   end;
  4982.  
  4983. { SQLOLE Alert }
  4984.  
  4985.   _Alert = interface(_IVSQLOLEStdObject)
  4986.     ['{00027B80-0BCC-11CE-A4B3-00AA004A34D5}']
  4987.     function Get_Application: Application; safecall;
  4988.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  4989.     function Get_UserData: Integer; safecall;
  4990.     procedure Set_UserData(Value: Integer); safecall;
  4991.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  4992.     function Get_Properties: Properties; safecall;
  4993.     function Get_Name: WideString; safecall;
  4994.     procedure Set_Name(const Value: WideString); safecall;
  4995.     function Get_ID: Integer; safecall;
  4996.     function Get_EventSource: WideString; safecall;
  4997.     function Get_EventCategory: WideString; safecall;
  4998.     function Get_EventID: WideString; safecall;
  4999.     function Get_MessageID: Integer; safecall;
  5000.     procedure Set_MessageID(Value: Integer); safecall;
  5001.     function Get_Severity: Integer; safecall;
  5002.     procedure Set_Severity(Value: Integer); safecall;
  5003.     function Get_Enabled: WordBool; safecall;
  5004.     procedure Set_Enabled(Value: WordBool); safecall;
  5005.     function Get_DelayBetweenResponses: Integer; safecall;
  5006.     procedure Set_DelayBetweenResponses(Value: Integer); safecall;
  5007.     function Get_LastOccurrenceDate: TDateTime; safecall;
  5008.     procedure Set_LastOccurrenceDate(Value: TDateTime); safecall;
  5009.     function Get_LastResponseDate: TDateTime; safecall;
  5010.     procedure Set_LastResponseDate(Value: TDateTime); safecall;
  5011.     function Get_NotificationMessage: WideString; safecall;
  5012.     procedure Set_NotificationMessage(const Value: WideString); safecall;
  5013.     function Get_IncludeEventDescription: SQLOLE_NOTIFY_TYPE; safecall;
  5014.     procedure Set_IncludeEventDescription(Value: SQLOLE_NOTIFY_TYPE); safecall;
  5015.     function Get_DatabaseName: WideString; safecall;
  5016.     procedure Set_DatabaseName(const Value: WideString); safecall;
  5017.     function Get_EventDescriptionKeyword: WideString; safecall;
  5018.     procedure Set_EventDescriptionKeyword(const Value: WideString); safecall;
  5019.     function Get_OccurrenceCount: Integer; safecall;
  5020.     procedure Set_OccurrenceCount(Value: Integer); safecall;
  5021.     function Get_CountResetDate: TDateTime; safecall;
  5022.     procedure Set_CountResetDate(Value: TDateTime); safecall;
  5023.     function Get_TaskName: WideString; safecall;
  5024.     procedure Set_TaskName(const Value: WideString); safecall;
  5025.     function Get_HasEmailNotification: Integer; safecall;
  5026.     function Get_HasPagerNotification: Integer; safecall;
  5027.     procedure AddNotification(const OperatorName: WideString; NotifyMethod: SQLOLE_NOTIFY_TYPE); safecall;
  5028.     procedure UpdateNotification(const OperatorName: WideString; NotifyMethod: SQLOLE_NOTIFY_TYPE); safecall;
  5029.     procedure RemoveNotification(const OperatorName: WideString); safecall;
  5030.     function EnumNotifications(NotifyMethod: SQLOLE_NOTIFY_TYPE; OperatorsToEnum: SQLOLE_ENUMNOTIFY_TYPE; OperatorName: OleVariant): QueryResults; safecall;
  5031.     procedure Remove; safecall;
  5032.     procedure BeginAlter; safecall;
  5033.     procedure DoAlter; safecall;
  5034.     procedure CancelAlter; safecall;
  5035.     procedure Refresh; safecall;
  5036.     function Get_RaiseSNMPTrap: WordBool; safecall;
  5037.     procedure Set_RaiseSNMPTrap(Value: WordBool); safecall;
  5038.     property Application: Application read Get_Application;
  5039.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  5040.     property UserData: Integer read Get_UserData write Set_UserData;
  5041.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  5042.     property Properties: Properties read Get_Properties;
  5043.     property Name: WideString read Get_Name write Set_Name;
  5044.     property ID: Integer read Get_ID;
  5045.     property EventSource: WideString read Get_EventSource;
  5046.     property EventCategory: WideString read Get_EventCategory;
  5047.     property EventID: WideString read Get_EventID;
  5048.     property MessageID: Integer read Get_MessageID write Set_MessageID;
  5049.     property Severity: Integer read Get_Severity write Set_Severity;
  5050.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5051.     property DelayBetweenResponses: Integer read Get_DelayBetweenResponses write Set_DelayBetweenResponses;
  5052.     property LastOccurrenceDate: TDateTime read Get_LastOccurrenceDate write Set_LastOccurrenceDate;
  5053.     property LastResponseDate: TDateTime read Get_LastResponseDate write Set_LastResponseDate;
  5054.     property NotificationMessage: WideString read Get_NotificationMessage write Set_NotificationMessage;
  5055.     property IncludeEventDescription: SQLOLE_NOTIFY_TYPE read Get_IncludeEventDescription write Set_IncludeEventDescription;
  5056.     property DatabaseName: WideString read Get_DatabaseName write Set_DatabaseName;
  5057.     property EventDescriptionKeyword: WideString read Get_EventDescriptionKeyword write Set_EventDescriptionKeyword;
  5058.     property OccurrenceCount: Integer read Get_OccurrenceCount write Set_OccurrenceCount;
  5059.     property CountResetDate: TDateTime read Get_CountResetDate write Set_CountResetDate;
  5060.     property TaskName: WideString read Get_TaskName write Set_TaskName;
  5061.     property HasEmailNotification: Integer read Get_HasEmailNotification;
  5062.     property HasPagerNotification: Integer read Get_HasPagerNotification;
  5063.     property RaiseSNMPTrap: WordBool read Get_RaiseSNMPTrap write Set_RaiseSNMPTrap;
  5064.   end;
  5065.  
  5066. { DispInterface declaration for Dual Interface _Alert }
  5067.  
  5068.   _AlertDisp = dispinterface
  5069.     ['{00027B80-0BCC-11CE-A4B3-00AA004A34D5}']
  5070.     property Application: Application readonly dispid 1;
  5071.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  5072.     property UserData: Integer dispid 3;
  5073.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  5074.     property Properties: Properties readonly dispid 7;
  5075.     property Name: WideString dispid 9;
  5076.     property ID: Integer readonly dispid 10;
  5077.     property EventSource: WideString readonly dispid 11;
  5078.     property EventCategory: WideString readonly dispid 12;
  5079.     property EventID: WideString readonly dispid 13;
  5080.     property MessageID: Integer dispid 14;
  5081.     property Severity: Integer dispid 15;
  5082.     property Enabled: WordBool dispid 16;
  5083.     property DelayBetweenResponses: Integer dispid 17;
  5084.     property LastOccurrenceDate: TDateTime dispid 18;
  5085.     property LastResponseDate: TDateTime dispid 19;
  5086.     property NotificationMessage: WideString dispid 20;
  5087.     property IncludeEventDescription: SQLOLE_NOTIFY_TYPE dispid 21;
  5088.     property DatabaseName: WideString dispid 22;
  5089.     property EventDescriptionKeyword: WideString dispid 23;
  5090.     property OccurrenceCount: Integer dispid 24;
  5091.     property CountResetDate: TDateTime dispid 25;
  5092.     property TaskName: WideString dispid 26;
  5093.     property HasEmailNotification: Integer readonly dispid 27;
  5094.     property HasPagerNotification: Integer readonly dispid 28;
  5095.     procedure AddNotification(const OperatorName: WideString; NotifyMethod: SQLOLE_NOTIFY_TYPE); dispid 100;
  5096.     procedure UpdateNotification(const OperatorName: WideString; NotifyMethod: SQLOLE_NOTIFY_TYPE); dispid 101;
  5097.     procedure RemoveNotification(const OperatorName: WideString); dispid 102;
  5098.     function EnumNotifications(NotifyMethod: SQLOLE_NOTIFY_TYPE; OperatorsToEnum: SQLOLE_ENUMNOTIFY_TYPE; OperatorName: OleVariant): QueryResults; dispid 103;
  5099.     procedure Remove; dispid 104;
  5100.     procedure BeginAlter; dispid 105;
  5101.     procedure DoAlter; dispid 106;
  5102.     procedure CancelAlter; dispid 107;
  5103.     procedure Refresh; dispid 108;
  5104.     property RaiseSNMPTrap: WordBool dispid 29;
  5105.   end;
  5106.  
  5107. { SQLOLE Login }
  5108.  
  5109.   _Login = interface(_IVSQLOLEStdObject)
  5110.     ['{00027B81-0BCC-11CE-A4B3-00AA004A34D5}']
  5111.     function Get_Application: Application; safecall;
  5112.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  5113.     function Get_UserData: Integer; safecall;
  5114.     procedure Set_UserData(Value: Integer); safecall;
  5115.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  5116.     function Get_Properties: Properties; safecall;
  5117.     function Get_Name: WideString; safecall;
  5118.     procedure Set_Name(const Value: WideString); safecall;
  5119.     function Get_SystemObject: WordBool; safecall;
  5120.     function Get_ID: Integer; safecall;
  5121.     function Get_Language: WideString; safecall;
  5122.     procedure Set_Language(const Value: WideString); safecall;
  5123.     function Get_Database: WideString; safecall;
  5124.     procedure Set_Database(const Value: WideString); safecall;
  5125.     function Get_UserName(const DatabaseName: WideString): WideString; safecall;
  5126.     function Get_AliasName(const DatabaseName: WideString): WideString; safecall;
  5127.     function ListTasks: SQLObjectList; safecall;
  5128.     procedure Remove; safecall;
  5129.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  5130.     procedure SetPassword(const OldPassword, NewPassword: WideString); safecall;
  5131.     function EnumDatabaseMappings: QueryResults; safecall;
  5132.     property Application: Application read Get_Application;
  5133.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  5134.     property UserData: Integer read Get_UserData write Set_UserData;
  5135.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  5136.     property Properties: Properties read Get_Properties;
  5137.     property Name: WideString read Get_Name write Set_Name;
  5138.     property SystemObject: WordBool read Get_SystemObject;
  5139.     property ID: Integer read Get_ID;
  5140.     property Language: WideString read Get_Language write Set_Language;
  5141.     property Database: WideString read Get_Database write Set_Database;
  5142.     property UserName[const DatabaseName: WideString]: WideString read Get_UserName;
  5143.     property AliasName[const DatabaseName: WideString]: WideString read Get_AliasName;
  5144.   end;
  5145.  
  5146. { DispInterface declaration for Dual Interface _Login }
  5147.  
  5148.   _LoginDisp = dispinterface
  5149.     ['{00027B81-0BCC-11CE-A4B3-00AA004A34D5}']
  5150.     property Application: Application readonly dispid 1;
  5151.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  5152.     property UserData: Integer dispid 3;
  5153.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  5154.     property Properties: Properties readonly dispid 7;
  5155.     property Name: WideString dispid 9;
  5156.     property SystemObject: WordBool readonly dispid 12;
  5157.     property ID: Integer readonly dispid 14;
  5158.     property Language: WideString dispid 15;
  5159.     property Database: WideString dispid 16;
  5160.     property UserName[const DatabaseName: WideString]: WideString readonly dispid 18;
  5161.     property AliasName[const DatabaseName: WideString]: WideString readonly dispid 19;
  5162.     function ListTasks: SQLObjectList; dispid 101;
  5163.     procedure Remove; dispid 102;
  5164.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 103;
  5165.     procedure SetPassword(const OldPassword, NewPassword: WideString); dispid 104;
  5166.     function EnumDatabaseMappings: QueryResults; dispid 105;
  5167.   end;
  5168.  
  5169. { SQLOLE Language }
  5170.  
  5171.   _Language = interface(_IVSQLOLEStdObject)
  5172.     ['{00026B82-0000-0000-C000-000000000046}']
  5173.     function Get_Application: Application; safecall;
  5174.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  5175.     function Get_UserData: Integer; safecall;
  5176.     procedure Set_UserData(Value: Integer); safecall;
  5177.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  5178.     function Get_Properties: Properties; safecall;
  5179.     function Get_Name: WideString; safecall;
  5180.     procedure Set_Name(const Value: WideString); safecall;
  5181.     function Get_ID: Integer; safecall;
  5182.     function Get_Upgrade: Integer; safecall;
  5183.     function Get_Alias: WideString; safecall;
  5184.     procedure Set_Alias(const Value: WideString); safecall;
  5185.     function Get_Months: WideString; safecall;
  5186.     procedure Set_Months(const Value: WideString); safecall;
  5187.     function Get_ShortMonths: WideString; safecall;
  5188.     procedure Set_ShortMonths(const Value: WideString); safecall;
  5189.     function Get_Days: WideString; safecall;
  5190.     procedure Set_Days(const Value: WideString); safecall;
  5191.     function Get_DateFormat: WideString; safecall;
  5192.     procedure Set_DateFormat(const Value: WideString); safecall;
  5193.     function Get_FirstDayOfWeek: SYSINT; safecall;
  5194.     procedure Set_FirstDayOfWeek(Value: SYSINT); safecall;
  5195.     function Get_Month(Month: SYSINT): WideString; safecall;
  5196.     function Get_ShortMonth(Month: SYSINT): WideString; safecall;
  5197.     function Get_Day(Day: SYSINT): WideString; safecall;
  5198.     procedure Remove; safecall;
  5199.     property Application: Application read Get_Application;
  5200.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  5201.     property UserData: Integer read Get_UserData write Set_UserData;
  5202.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  5203.     property Properties: Properties read Get_Properties;
  5204.     property Name: WideString read Get_Name write Set_Name;
  5205.     property ID: Integer read Get_ID;
  5206.     property Upgrade: Integer read Get_Upgrade;
  5207.     property Alias: WideString read Get_Alias write Set_Alias;
  5208.     property Months: WideString read Get_Months write Set_Months;
  5209.     property ShortMonths: WideString read Get_ShortMonths write Set_ShortMonths;
  5210.     property Days: WideString read Get_Days write Set_Days;
  5211.     property DateFormat: WideString read Get_DateFormat write Set_DateFormat;
  5212.     property FirstDayOfWeek: SYSINT read Get_FirstDayOfWeek write Set_FirstDayOfWeek;
  5213.     property Month[Month: SYSINT]: WideString read Get_Month;
  5214.     property ShortMonth[Month: SYSINT]: WideString read Get_ShortMonth;
  5215.     property Day[Day: SYSINT]: WideString read Get_Day;
  5216.   end;
  5217.  
  5218. { DispInterface declaration for Dual Interface _Language }
  5219.  
  5220.   _LanguageDisp = dispinterface
  5221.     ['{00026B82-0000-0000-C000-000000000046}']
  5222.     property Application: Application readonly dispid 1;
  5223.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  5224.     property UserData: Integer dispid 3;
  5225.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  5226.     property Properties: Properties readonly dispid 7;
  5227.     property Name: WideString dispid 9;
  5228.     property ID: Integer readonly dispid 14;
  5229.     property Upgrade: Integer readonly dispid 15;
  5230.     property Alias: WideString dispid 16;
  5231.     property Months: WideString dispid 17;
  5232.     property ShortMonths: WideString dispid 18;
  5233.     property Days: WideString dispid 19;
  5234.     property DateFormat: WideString dispid 20;
  5235.     property FirstDayOfWeek: SYSINT dispid 21;
  5236.     property Month[Month: SYSINT]: WideString readonly dispid 22;
  5237.     property ShortMonth[Month: SYSINT]: WideString readonly dispid 23;
  5238.     property Day[Day: SYSINT]: WideString readonly dispid 24;
  5239.     procedure Remove; dispid 100;
  5240.   end;
  5241.  
  5242. { SQLOLE RemoteServer }
  5243.  
  5244.   _RemoteServer = interface(_IVSQLOLEStdObject)
  5245.     ['{00027B83-0BCC-11CE-A4B3-00AA004A34D5}']
  5246.     function Get_Application: Application; safecall;
  5247.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  5248.     function Get_UserData: Integer; safecall;
  5249.     procedure Set_UserData(Value: Integer); safecall;
  5250.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  5251.     function Get_Properties: Properties; safecall;
  5252.     function Get_Name: WideString; safecall;
  5253.     procedure Set_Name(const Value: WideString); safecall;
  5254.     function Get_ID: Integer; safecall;
  5255.     function Get_NetName: WideString; safecall;
  5256.     procedure Set_NetName(const Value: WideString); safecall;
  5257.     function Get_RemoteLogins: RemoteLogins; safecall;
  5258.     function Get_SubscriberInfo: SubscriberInfo; safecall;
  5259.     function Get_Options: SQLOLE_SRVOPTION_TYPE; safecall;
  5260.     function Get_TopologyX: Integer; safecall;
  5261.     function Get_TopologyY: Integer; safecall;
  5262.     procedure Remove; safecall;
  5263.     function EnumPublicationDatabases: QueryResults; safecall;
  5264.     function EnumPublications(const DatabaseName: WideString): QueryResults; safecall;
  5265.     function EnumArticles(const DatabaseName, PublicationName: WideString): QueryResults; safecall;
  5266.     function EnumSubscriptions(const DatabaseName, PublicationName, ArticleName: WideString): QueryResults; safecall;
  5267.     procedure ExecuteImmediate(const Command: WideString); safecall;
  5268.     function ExecuteWithResults(const Command: WideString): QueryResults; safecall;
  5269.     procedure Subscribe(const DatabaseName, PublicationName: WideString; ArticleName, SubscribingDB, SyncType: OleVariant); safecall;
  5270.     procedure UnSubscribe(const DatabaseName: WideString; PublicationName, ArticleName: OleVariant); safecall;
  5271.     procedure SetOptions(Options: SQLOLE_SRVOPTION_TYPE; Setting: WordBool); safecall;
  5272.     function EnumTasks(TaskName, TaskID: OleVariant): QueryResults; safecall;
  5273.     function EnumSubscriptionDatabases: QueryResults; safecall;
  5274.     procedure SetTopologyXY(X, Y: Integer); safecall;
  5275.     function EnumPublicationSyncTask(const DatabaseName, PublicationName: WideString): QueryResults; safecall;
  5276.     function ExecuteWithResultsAndMessages(const Command: WideString; out Messages: WideString): QueryResults; safecall;
  5277.     property Application: Application read Get_Application;
  5278.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  5279.     property UserData: Integer read Get_UserData write Set_UserData;
  5280.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  5281.     property Properties: Properties read Get_Properties;
  5282.     property Name: WideString read Get_Name write Set_Name;
  5283.     property ID: Integer read Get_ID;
  5284.     property NetName: WideString read Get_NetName write Set_NetName;
  5285.     property RemoteLogins: RemoteLogins read Get_RemoteLogins;
  5286.     property SubscriberInfo: SubscriberInfo read Get_SubscriberInfo;
  5287.     property Options: SQLOLE_SRVOPTION_TYPE read Get_Options;
  5288.     property TopologyX: Integer read Get_TopologyX;
  5289.     property TopologyY: Integer read Get_TopologyY;
  5290.   end;
  5291.  
  5292. { DispInterface declaration for Dual Interface _RemoteServer }
  5293.  
  5294.   _RemoteServerDisp = dispinterface
  5295.     ['{00027B83-0BCC-11CE-A4B3-00AA004A34D5}']
  5296.     property Application: Application readonly dispid 1;
  5297.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  5298.     property UserData: Integer dispid 3;
  5299.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  5300.     property Properties: Properties readonly dispid 7;
  5301.     property Name: WideString dispid 9;
  5302.     property ID: Integer readonly dispid 14;
  5303.     property NetName: WideString dispid 15;
  5304.     property RemoteLogins: RemoteLogins readonly dispid 17;
  5305.     property SubscriberInfo: SubscriberInfo readonly dispid 18;
  5306.     property Options: SQLOLE_SRVOPTION_TYPE readonly dispid 19;
  5307.     property TopologyX: Integer readonly dispid 20;
  5308.     property TopologyY: Integer readonly dispid 21;
  5309.     procedure Remove; dispid 100;
  5310.     function EnumPublicationDatabases: QueryResults; dispid 101;
  5311.     function EnumPublications(const DatabaseName: WideString): QueryResults; dispid 102;
  5312.     function EnumArticles(const DatabaseName, PublicationName: WideString): QueryResults; dispid 103;
  5313.     function EnumSubscriptions(const DatabaseName, PublicationName, ArticleName: WideString): QueryResults; dispid 104;
  5314.     procedure ExecuteImmediate(const Command: WideString); dispid 105;
  5315.     function ExecuteWithResults(const Command: WideString): QueryResults; dispid 106;
  5316.     procedure Subscribe(const DatabaseName, PublicationName: WideString; ArticleName, SubscribingDB, SyncType: OleVariant); dispid 107;
  5317.     procedure UnSubscribe(const DatabaseName: WideString; PublicationName, ArticleName: OleVariant); dispid 108;
  5318.     procedure SetOptions(Options: SQLOLE_SRVOPTION_TYPE; Setting: WordBool); dispid 109;
  5319.     function EnumTasks(TaskName, TaskID: OleVariant): QueryResults; dispid 110;
  5320.     function EnumSubscriptionDatabases: QueryResults; dispid 111;
  5321.     procedure SetTopologyXY(X, Y: Integer); dispid 112;
  5322.     function EnumPublicationSyncTask(const DatabaseName, PublicationName: WideString): QueryResults; dispid 113;
  5323.     function ExecuteWithResultsAndMessages(const Command: WideString; out Messages: WideString): QueryResults; dispid 114;
  5324.   end;
  5325.  
  5326. { SQLOLE RemoteLogin }
  5327.  
  5328.   _RemoteLogin = interface(_IVSQLOLEStdObject)
  5329.     ['{00026B84-0000-0000-C000-000000000046}']
  5330.     function Get_Application: Application; safecall;
  5331.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  5332.     function Get_UserData: Integer; safecall;
  5333.     procedure Set_UserData(Value: Integer); safecall;
  5334.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  5335.     function Get_Properties: Properties; safecall;
  5336.     function Get_LocalName: WideString; safecall;
  5337.     procedure Set_LocalName(const Value: WideString); safecall;
  5338.     function Get_RemoteName: WideString; safecall;
  5339.     procedure Set_RemoteName(const Value: WideString); safecall;
  5340.     function Get_Trusted: WordBool; safecall;
  5341.     procedure Set_Trusted(Value: WordBool); safecall;
  5342.     procedure Remove; safecall;
  5343.     property Application: Application read Get_Application;
  5344.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  5345.     property UserData: Integer read Get_UserData write Set_UserData;
  5346.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  5347.     property Properties: Properties read Get_Properties;
  5348.     property LocalName: WideString read Get_LocalName write Set_LocalName;
  5349.     property RemoteName: WideString read Get_RemoteName write Set_RemoteName;
  5350.     property Trusted: WordBool read Get_Trusted write Set_Trusted;
  5351.   end;
  5352.  
  5353. { DispInterface declaration for Dual Interface _RemoteLogin }
  5354.  
  5355.   _RemoteLoginDisp = dispinterface
  5356.     ['{00026B84-0000-0000-C000-000000000046}']
  5357.     property Application: Application readonly dispid 1;
  5358.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  5359.     property UserData: Integer dispid 3;
  5360.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  5361.     property Properties: Properties readonly dispid 7;
  5362.     property LocalName: WideString dispid 13;
  5363.     property RemoteName: WideString dispid 14;
  5364.     property Trusted: WordBool dispid 15;
  5365.     procedure Remove; dispid 100;
  5366.   end;
  5367.  
  5368. { SQLOLE Task Object }
  5369.  
  5370.   _Task = interface(_IVSQLOLEStdObject)
  5371.     ['{00027B85-0BCC-11CE-A4B3-00AA004A34D5}']
  5372.     function Get_Application: Application; safecall;
  5373.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  5374.     function Get_UserData: Integer; safecall;
  5375.     procedure Set_UserData(Value: Integer); safecall;
  5376.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  5377.     function Get_Properties: Properties; safecall;
  5378.     function Get_Name: WideString; safecall;
  5379.     procedure Set_Name(const Value: WideString); safecall;
  5380.     function Get_ID: Integer; safecall;
  5381.     function Get_SubSystem: WideString; safecall;
  5382.     procedure Set_SubSystem(const Value: WideString); safecall;
  5383.     function Get_Owner: WideString; safecall;
  5384.     function Get_Enabled: WordBool; safecall;
  5385.     procedure Set_Enabled(Value: WordBool); safecall;
  5386.     function Get_Database: WideString; safecall;
  5387.     procedure Set_Database(const Value: WideString); safecall;
  5388.     function Get_User: WideString; safecall;
  5389.     procedure Set_User(const Value: WideString); safecall;
  5390.     function Get_FrequencyType: SQLOLE_FREQUENCY_TYPE; safecall;
  5391.     procedure Set_FrequencyType(Value: SQLOLE_FREQUENCY_TYPE); safecall;
  5392.     function Get_FrequencyInterval: Integer; safecall;
  5393.     procedure Set_FrequencyInterval(Value: Integer); safecall;
  5394.     function Get_FrequencyRelativeInterval: SQLOLE_FREQRELATIVE_TYPE; safecall;
  5395.     procedure Set_FrequencyRelativeInterval(Value: SQLOLE_FREQRELATIVE_TYPE); safecall;
  5396.     function Get_FrequencyRecurrenceFactor: Integer; safecall;
  5397.     procedure Set_FrequencyRecurrenceFactor(Value: Integer); safecall;
  5398.     function Get_ActiveStartDate: TDateTime; safecall;
  5399.     procedure Set_ActiveStartDate(Value: TDateTime); safecall;
  5400.     function Get_ActiveEndDate: TDateTime; safecall;
  5401.     procedure Set_ActiveEndDate(Value: TDateTime); safecall;
  5402.     function Get_TagAdditionalInfo: WideString; safecall;
  5403.     procedure Set_TagAdditionalInfo(const Value: WideString); safecall;
  5404.     function Get_TagObjectID: Integer; safecall;
  5405.     procedure Set_TagObjectID(Value: Integer); safecall;
  5406.     function Get_TagObjectType: Integer; safecall;
  5407.     procedure Set_TagObjectType(Value: Integer); safecall;
  5408.     function Get_NextRunDate: TDateTime; safecall;
  5409.     function Get_LastRunDate: TDateTime; safecall;
  5410.     function Get_RunPriority: SQLOLE_RUNPRIORITY_TYPE; safecall;
  5411.     procedure Set_RunPriority(Value: SQLOLE_RUNPRIORITY_TYPE); safecall;
  5412.     function Get_EmailOperator: WideString; safecall;
  5413.     procedure Set_EmailOperator(const Value: WideString); safecall;
  5414.     function Get_RetryAttempts: Integer; safecall;
  5415.     procedure Set_RetryAttempts(Value: Integer); safecall;
  5416.     function Get_RetryDelay: Integer; safecall;
  5417.     procedure Set_RetryDelay(Value: Integer); safecall;
  5418.     function Get_LastRunRetries: Integer; safecall;
  5419.     function Get_DateCreated: WideString; safecall;
  5420.     function Get_DateModified: WideString; safecall;
  5421.     function Get_Command: WideString; safecall;
  5422.     procedure Set_Command(const Value: WideString); safecall;
  5423.     function Get_LastRunCompletionLevel: SQLOLE_COMPLETION_TYPE; safecall;
  5424.     function Get_LastRunDuration: Integer; safecall;
  5425.     function Get_LogHistoryCompletionLevel: SQLOLE_COMPLETION_TYPE; safecall;
  5426.     procedure Set_LogHistoryCompletionLevel(Value: SQLOLE_COMPLETION_TYPE); safecall;
  5427.     function Get_EmailCompletionLevel: SQLOLE_COMPLETION_TYPE; safecall;
  5428.     procedure Set_EmailCompletionLevel(Value: SQLOLE_COMPLETION_TYPE); safecall;
  5429.     function Get_TargetSQLServer: WideString; safecall;
  5430.     procedure Set_TargetSQLServer(const Value: WideString); safecall;
  5431.     function Get_Description: WideString; safecall;
  5432.     procedure Set_Description(const Value: WideString); safecall;
  5433.     function Get_FrequencySubDay: SQLOLE_FREQSUB_TYPE; safecall;
  5434.     procedure Set_FrequencySubDay(Value: SQLOLE_FREQSUB_TYPE); safecall;
  5435.     function Get_FrequencySubDayInterval: Integer; safecall;
  5436.     procedure Set_FrequencySubDayInterval(Value: Integer); safecall;
  5437.     function EnumHistory(HistoryFilter: OleVariant): QueryResults; safecall;
  5438.     procedure PurgeHistory(HistoryFilter: OleVariant); safecall;
  5439.     procedure Invoke_; safecall;
  5440.     procedure Remove; safecall;
  5441.     procedure BeginAlter; safecall;
  5442.     procedure DoAlter; safecall;
  5443.     procedure CancelAlter; safecall;
  5444.     procedure Refresh; safecall;
  5445.     procedure Reassign(const NewLogin: WideString); safecall;
  5446.     function Get_Parameters: WideString; safecall;
  5447.     procedure Set_Parameters(const Value: WideString); safecall;
  5448.     function Get_CmdExecSuccessCode: Integer; safecall;
  5449.     procedure Set_CmdExecSuccessCode(Value: Integer); safecall;
  5450.     property Application: Application read Get_Application;
  5451.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  5452.     property UserData: Integer read Get_UserData write Set_UserData;
  5453.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  5454.     property Properties: Properties read Get_Properties;
  5455.     property Name: WideString read Get_Name write Set_Name;
  5456.     property ID: Integer read Get_ID;
  5457.     property SubSystem: WideString read Get_SubSystem write Set_SubSystem;
  5458.     property Owner: WideString read Get_Owner;
  5459.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5460.     property Database: WideString read Get_Database write Set_Database;
  5461.     property User: WideString read Get_User write Set_User;
  5462.     property FrequencyType: SQLOLE_FREQUENCY_TYPE read Get_FrequencyType write Set_FrequencyType;
  5463.     property FrequencyInterval: Integer read Get_FrequencyInterval write Set_FrequencyInterval;
  5464.     property FrequencyRelativeInterval: SQLOLE_FREQRELATIVE_TYPE read Get_FrequencyRelativeInterval write Set_FrequencyRelativeInterval;
  5465.     property FrequencyRecurrenceFactor: Integer read Get_FrequencyRecurrenceFactor write Set_FrequencyRecurrenceFactor;
  5466.     property ActiveStartDate: TDateTime read Get_ActiveStartDate write Set_ActiveStartDate;
  5467.     property ActiveEndDate: TDateTime read Get_ActiveEndDate write Set_ActiveEndDate;
  5468.     property TagAdditionalInfo: WideString read Get_TagAdditionalInfo write Set_TagAdditionalInfo;
  5469.     property TagObjectID: Integer read Get_TagObjectID write Set_TagObjectID;
  5470.     property TagObjectType: Integer read Get_TagObjectType write Set_TagObjectType;
  5471.     property NextRunDate: TDateTime read Get_NextRunDate;
  5472.     property LastRunDate: TDateTime read Get_LastRunDate;
  5473.     property RunPriority: SQLOLE_RUNPRIORITY_TYPE read Get_RunPriority write Set_RunPriority;
  5474.     property EmailOperator: WideString read Get_EmailOperator write Set_EmailOperator;
  5475.     property RetryAttempts: Integer read Get_RetryAttempts write Set_RetryAttempts;
  5476.     property RetryDelay: Integer read Get_RetryDelay write Set_RetryDelay;
  5477.     property LastRunRetries: Integer read Get_LastRunRetries;
  5478.     property DateCreated: WideString read Get_DateCreated;
  5479.     property DateModified: WideString read Get_DateModified;
  5480.     property Command: WideString read Get_Command write Set_Command;
  5481.     property LastRunCompletionLevel: SQLOLE_COMPLETION_TYPE read Get_LastRunCompletionLevel;
  5482.     property LastRunDuration: Integer read Get_LastRunDuration;
  5483.     property LogHistoryCompletionLevel: SQLOLE_COMPLETION_TYPE read Get_LogHistoryCompletionLevel write Set_LogHistoryCompletionLevel;
  5484.     property EmailCompletionLevel: SQLOLE_COMPLETION_TYPE read Get_EmailCompletionLevel write Set_EmailCompletionLevel;
  5485.     property TargetSQLServer: WideString read Get_TargetSQLServer write Set_TargetSQLServer;
  5486.     property Description: WideString read Get_Description write Set_Description;
  5487.     property FrequencySubDay: SQLOLE_FREQSUB_TYPE read Get_FrequencySubDay write Set_FrequencySubDay;
  5488.     property FrequencySubDayInterval: Integer read Get_FrequencySubDayInterval write Set_FrequencySubDayInterval;
  5489.     property Parameters: WideString read Get_Parameters write Set_Parameters;
  5490.     property CmdExecSuccessCode: Integer read Get_CmdExecSuccessCode write Set_CmdExecSuccessCode;
  5491.   end;
  5492.  
  5493. { DispInterface declaration for Dual Interface _Task }
  5494.  
  5495.   _TaskDisp = dispinterface
  5496.     ['{00027B85-0BCC-11CE-A4B3-00AA004A34D5}']
  5497.     property Application: Application readonly dispid 1;
  5498.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  5499.     property UserData: Integer dispid 3;
  5500.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  5501.     property Properties: Properties readonly dispid 7;
  5502.     property Name: WideString dispid 9;
  5503.     property ID: Integer readonly dispid 10;
  5504.     property SubSystem: WideString dispid 11;
  5505.     property Owner: WideString readonly dispid 12;
  5506.     property Enabled: WordBool dispid 13;
  5507.     property Database: WideString dispid 14;
  5508.     property User: WideString dispid 15;
  5509.     property FrequencyType: SQLOLE_FREQUENCY_TYPE dispid 16;
  5510.     property FrequencyInterval: Integer dispid 17;
  5511.     property FrequencyRelativeInterval: SQLOLE_FREQRELATIVE_TYPE dispid 18;
  5512.     property FrequencyRecurrenceFactor: Integer dispid 19;
  5513.     property ActiveStartDate: TDateTime dispid 20;
  5514.     property ActiveEndDate: TDateTime dispid 21;
  5515.     property TagAdditionalInfo: WideString dispid 22;
  5516.     property TagObjectID: Integer dispid 23;
  5517.     property TagObjectType: Integer dispid 24;
  5518.     property NextRunDate: TDateTime readonly dispid 25;
  5519.     property LastRunDate: TDateTime readonly dispid 26;
  5520.     property RunPriority: SQLOLE_RUNPRIORITY_TYPE dispid 29;
  5521.     property EmailOperator: WideString dispid 30;
  5522.     property RetryAttempts: Integer dispid 31;
  5523.     property RetryDelay: Integer dispid 32;
  5524.     property LastRunRetries: Integer readonly dispid 33;
  5525.     property DateCreated: WideString readonly dispid 34;
  5526.     property DateModified: WideString readonly dispid 35;
  5527.     property Command: WideString dispid 36;
  5528.     property LastRunCompletionLevel: SQLOLE_COMPLETION_TYPE readonly dispid 37;
  5529.     property LastRunDuration: Integer readonly dispid 38;
  5530.     property LogHistoryCompletionLevel: SQLOLE_COMPLETION_TYPE dispid 39;
  5531.     property EmailCompletionLevel: SQLOLE_COMPLETION_TYPE dispid 40;
  5532.     property TargetSQLServer: WideString dispid 41;
  5533.     property Description: WideString dispid 42;
  5534.     property FrequencySubDay: SQLOLE_FREQSUB_TYPE dispid 43;
  5535.     property FrequencySubDayInterval: Integer dispid 44;
  5536.     function EnumHistory(HistoryFilter: OleVariant): QueryResults; dispid 100;
  5537.     procedure PurgeHistory(HistoryFilter: OleVariant); dispid 101;
  5538.     procedure Invoke_; dispid 102;
  5539.     procedure Remove; dispid 103;
  5540.     procedure BeginAlter; dispid 104;
  5541.     procedure DoAlter; dispid 105;
  5542.     procedure CancelAlter; dispid 106;
  5543.     procedure Refresh; dispid 107;
  5544.     procedure Reassign(const NewLogin: WideString); dispid 108;
  5545.     property Parameters: WideString dispid 45;
  5546.     property CmdExecSuccessCode: Integer dispid 46;
  5547.   end;
  5548.  
  5549. { SQLOLE DB Transfer Object }
  5550.  
  5551.   _Transfer = interface(_IVSQLOLEStdObject)
  5552.     ['{00026B86-0000-0000-C000-000000000046}']
  5553.     function Get_Application: Application; safecall;
  5554.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  5555.     function Get_UserData: Integer; safecall;
  5556.     procedure Set_UserData(Value: Integer); safecall;
  5557.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  5558.     function Get_Properties: Properties; safecall;
  5559.     function Get_DestServer: WideString; safecall;
  5560.     procedure Set_DestServer(const Value: WideString); safecall;
  5561.     function Get_DestLogin: WideString; safecall;
  5562.     procedure Set_DestLogin(const Value: WideString); safecall;
  5563.     function Get_DestPassword: WideString; safecall;
  5564.     procedure Set_DestPassword(const Value: WideString); safecall;
  5565.     function Get_DestDatabase: WideString; safecall;
  5566.     procedure Set_DestDatabase(const Value: WideString); safecall;
  5567.     function Get_CopyData: SQLOLE_COPYDATA_TYPE; safecall;
  5568.     procedure Set_CopyData(Value: SQLOLE_COPYDATA_TYPE); safecall;
  5569.     function Get_CopySchema: WordBool; safecall;
  5570.     procedure Set_CopySchema(Value: WordBool); safecall;
  5571.     function Get_CopyAllObjects: WordBool; safecall;
  5572.     procedure Set_CopyAllObjects(Value: WordBool); safecall;
  5573.     function Get_CopyAllTables: WordBool; safecall;
  5574.     procedure Set_CopyAllTables(Value: WordBool); safecall;
  5575.     function Get_CopyAllViews: WordBool; safecall;
  5576.     procedure Set_CopyAllViews(Value: WordBool); safecall;
  5577.     function Get_CopyAllStoredProcedures: WordBool; safecall;
  5578.     procedure Set_CopyAllStoredProcedures(Value: WordBool); safecall;
  5579.     function Get_CopyAllUserDefinedDatatypes: WordBool; safecall;
  5580.     procedure Set_CopyAllUserDefinedDatatypes(Value: WordBool); safecall;
  5581.     function Get_CopyAllRules: WordBool; safecall;
  5582.     procedure Set_CopyAllRules(Value: WordBool); safecall;
  5583.     function Get_CopyAllDefaults: WordBool; safecall;
  5584.     procedure Set_CopyAllDefaults(Value: WordBool); safecall;
  5585.     function Get_CopyAllTriggers: WordBool; safecall;
  5586.     procedure Set_CopyAllTriggers(Value: WordBool); safecall;
  5587.     function Get_IncludeDependencies: WordBool; safecall;
  5588.     procedure Set_IncludeDependencies(Value: WordBool); safecall;
  5589.     function Get_IncludeUsers: WordBool; safecall;
  5590.     procedure Set_IncludeUsers(Value: WordBool); safecall;
  5591.     function Get_IncludeGroups: WordBool; safecall;
  5592.     procedure Set_IncludeGroups(Value: WordBool); safecall;
  5593.     function Get_IncludeLogins: WordBool; safecall;
  5594.     procedure Set_IncludeLogins(Value: WordBool); safecall;
  5595.     function Get_DropDestObjectsFirst: WordBool; safecall;
  5596.     procedure Set_DropDestObjectsFirst(Value: WordBool); safecall;
  5597.     function Get_ScriptType: SQLOLE_SCRIPT_TYPE; safecall;
  5598.     procedure Set_ScriptType(Value: SQLOLE_SCRIPT_TYPE); safecall;
  5599.     function Get_DestUseTrustedConnection: WordBool; safecall;
  5600.     procedure Set_DestUseTrustedConnection(Value: WordBool); safecall;
  5601.     procedure AddObjectByName(const ObjectName: WideString; ObjectType: SQLOLE_OBJECT_TYPE); safecall;
  5602.     procedure AddObject(const DBObject: DBObject); safecall;
  5603.     function ListObjectNames(ObjectType: SQLOLE_OBJECT_TYPE): NameList; safecall;
  5604.     procedure Abort; safecall;
  5605.     property Application: Application read Get_Application;
  5606.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  5607.     property UserData: Integer read Get_UserData write Set_UserData;
  5608.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  5609.     property Properties: Properties read Get_Properties;
  5610.     property DestServer: WideString read Get_DestServer write Set_DestServer;
  5611.     property DestLogin: WideString read Get_DestLogin write Set_DestLogin;
  5612.     property DestPassword: WideString read Get_DestPassword write Set_DestPassword;
  5613.     property DestDatabase: WideString read Get_DestDatabase write Set_DestDatabase;
  5614.     property CopyData: SQLOLE_COPYDATA_TYPE read Get_CopyData write Set_CopyData;
  5615.     property CopySchema: WordBool read Get_CopySchema write Set_CopySchema;
  5616.     property CopyAllObjects: WordBool read Get_CopyAllObjects write Set_CopyAllObjects;
  5617.     property CopyAllTables: WordBool read Get_CopyAllTables write Set_CopyAllTables;
  5618.     property CopyAllViews: WordBool read Get_CopyAllViews write Set_CopyAllViews;
  5619.     property CopyAllStoredProcedures: WordBool read Get_CopyAllStoredProcedures write Set_CopyAllStoredProcedures;
  5620.     property CopyAllUserDefinedDatatypes: WordBool read Get_CopyAllUserDefinedDatatypes write Set_CopyAllUserDefinedDatatypes;
  5621.     property CopyAllRules: WordBool read Get_CopyAllRules write Set_CopyAllRules;
  5622.     property CopyAllDefaults: WordBool read Get_CopyAllDefaults write Set_CopyAllDefaults;
  5623.     property CopyAllTriggers: WordBool read Get_CopyAllTriggers write Set_CopyAllTriggers;
  5624.     property IncludeDependencies: WordBool read Get_IncludeDependencies write Set_IncludeDependencies;
  5625.     property IncludeUsers: WordBool read Get_IncludeUsers write Set_IncludeUsers;
  5626.     property IncludeGroups: WordBool read Get_IncludeGroups write Set_IncludeGroups;
  5627.     property IncludeLogins: WordBool read Get_IncludeLogins write Set_IncludeLogins;
  5628.     property DropDestObjectsFirst: WordBool read Get_DropDestObjectsFirst write Set_DropDestObjectsFirst;
  5629.     property ScriptType: SQLOLE_SCRIPT_TYPE read Get_ScriptType write Set_ScriptType;
  5630.     property DestUseTrustedConnection: WordBool read Get_DestUseTrustedConnection write Set_DestUseTrustedConnection;
  5631.   end;
  5632.  
  5633. { DispInterface declaration for Dual Interface _Transfer }
  5634.  
  5635.   _TransferDisp = dispinterface
  5636.     ['{00026B86-0000-0000-C000-000000000046}']
  5637.     property Application: Application readonly dispid 1;
  5638.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  5639.     property UserData: Integer dispid 3;
  5640.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  5641.     property Properties: Properties readonly dispid 7;
  5642.     property DestServer: WideString dispid 10;
  5643.     property DestLogin: WideString dispid 11;
  5644.     property DestPassword: WideString dispid 12;
  5645.     property DestDatabase: WideString dispid 13;
  5646.     property CopyData: SQLOLE_COPYDATA_TYPE dispid 14;
  5647.     property CopySchema: WordBool dispid 15;
  5648.     property CopyAllObjects: WordBool dispid 16;
  5649.     property CopyAllTables: WordBool dispid 17;
  5650.     property CopyAllViews: WordBool dispid 18;
  5651.     property CopyAllStoredProcedures: WordBool dispid 19;
  5652.     property CopyAllUserDefinedDatatypes: WordBool dispid 20;
  5653.     property CopyAllRules: WordBool dispid 21;
  5654.     property CopyAllDefaults: WordBool dispid 22;
  5655.     property CopyAllTriggers: WordBool dispid 23;
  5656.     property IncludeDependencies: WordBool dispid 24;
  5657.     property IncludeUsers: WordBool dispid 25;
  5658.     property IncludeGroups: WordBool dispid 26;
  5659.     property IncludeLogins: WordBool dispid 27;
  5660.     property DropDestObjectsFirst: WordBool dispid 28;
  5661.     property ScriptType: SQLOLE_SCRIPT_TYPE dispid 29;
  5662.     property DestUseTrustedConnection: WordBool dispid 30;
  5663.     procedure AddObjectByName(const ObjectName: WideString; ObjectType: SQLOLE_OBJECT_TYPE); dispid 100;
  5664.     procedure AddObject(const DBObject: DBObject); dispid 101;
  5665.     function ListObjectNames(ObjectType: SQLOLE_OBJECT_TYPE): NameList; dispid 102;
  5666.     procedure Abort; dispid 103;
  5667.   end;
  5668.  
  5669. { SQLOLE DB Backup Object }
  5670.  
  5671.   _Backup = interface(_IVSQLOLEStdObject)
  5672.     ['{00027B87-0BCC-11CE-A4B3-00AA004A34D5}']
  5673.     function Get_Application: Application; safecall;
  5674.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  5675.     function Get_UserData: Integer; safecall;
  5676.     procedure Set_UserData(Value: Integer); safecall;
  5677.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  5678.     function Get_Properties: Properties; safecall;
  5679.     function Get_DumpDevices: WideString; safecall;
  5680.     procedure Set_DumpDevices(const Value: WideString); safecall;
  5681.     function Get_DiskDevices: WideString; safecall;
  5682.     procedure Set_DiskDevices(const Value: WideString); safecall;
  5683.     function Get_TapeDevices: WideString; safecall;
  5684.     procedure Set_TapeDevices(const Value: WideString); safecall;
  5685.     function Get_FloppyDevices: WideString; safecall;
  5686.     procedure Set_FloppyDevices(const Value: WideString); safecall;
  5687.     function Get_UnloadTapeAfter: WordBool; safecall;
  5688.     procedure Set_UnloadTapeAfter(Value: WordBool); safecall;
  5689.     function Get_DumpInitDeviceBefore: WordBool; safecall;
  5690.     procedure Set_DumpInitDeviceBefore(Value: WordBool); safecall;
  5691.     function Get_DumpExpirationDate: WideString; safecall;
  5692.     procedure Set_DumpExpirationDate(const Value: WideString); safecall;
  5693.     function Get_DumpRetainDays: Integer; safecall;
  5694.     procedure Set_DumpRetainDays(Value: Integer); safecall;
  5695.     function Get_SkipTapeHeader: WordBool; safecall;
  5696.     procedure Set_SkipTapeHeader(Value: WordBool); safecall;
  5697.     function Get_LoadTableBatchPages: Integer; safecall;
  5698.     procedure Set_LoadTableBatchPages(Value: Integer); safecall;
  5699.     function Get_LoadFileNumber: Integer; safecall;
  5700.     procedure Set_LoadFileNumber(Value: Integer); safecall;
  5701.     function Get_TableName: WideString; safecall;
  5702.     procedure Set_TableName(const Value: WideString); safecall;
  5703.     function Get_LoadStopDate: WideString; safecall;
  5704.     procedure Set_LoadStopDate(const Value: WideString); safecall;
  5705.     function Get_PipeDevices: WideString; safecall;
  5706.     procedure Set_PipeDevices(const Value: WideString); safecall;
  5707.     function Get_LoadFromSourceTableName: WideString; safecall;
  5708.     procedure Set_LoadFromSourceTableName(const Value: WideString); safecall;
  5709.     function Get_LoadAppendToTableData: WordBool; safecall;
  5710.     procedure Set_LoadAppendToTableData(Value: WordBool); safecall;
  5711.     function Get_PercentCompleteNotification: Integer; safecall;
  5712.     procedure Set_PercentCompleteNotification(Value: Integer); safecall;
  5713.     procedure Abort; safecall;
  5714.     property Application: Application read Get_Application;
  5715.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  5716.     property UserData: Integer read Get_UserData write Set_UserData;
  5717.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  5718.     property Properties: Properties read Get_Properties;
  5719.     property DumpDevices: WideString read Get_DumpDevices write Set_DumpDevices;
  5720.     property DiskDevices: WideString read Get_DiskDevices write Set_DiskDevices;
  5721.     property TapeDevices: WideString read Get_TapeDevices write Set_TapeDevices;
  5722.     property FloppyDevices: WideString read Get_FloppyDevices write Set_FloppyDevices;
  5723.     property UnloadTapeAfter: WordBool read Get_UnloadTapeAfter write Set_UnloadTapeAfter;
  5724.     property DumpInitDeviceBefore: WordBool read Get_DumpInitDeviceBefore write Set_DumpInitDeviceBefore;
  5725.     property DumpExpirationDate: WideString read Get_DumpExpirationDate write Set_DumpExpirationDate;
  5726.     property DumpRetainDays: Integer read Get_DumpRetainDays write Set_DumpRetainDays;
  5727.     property SkipTapeHeader: WordBool read Get_SkipTapeHeader write Set_SkipTapeHeader;
  5728.     property LoadTableBatchPages: Integer read Get_LoadTableBatchPages write Set_LoadTableBatchPages;
  5729.     property LoadFileNumber: Integer read Get_LoadFileNumber write Set_LoadFileNumber;
  5730.     property TableName: WideString read Get_TableName write Set_TableName;
  5731.     property LoadStopDate: WideString read Get_LoadStopDate write Set_LoadStopDate;
  5732.     property PipeDevices: WideString read Get_PipeDevices write Set_PipeDevices;
  5733.     property LoadFromSourceTableName: WideString read Get_LoadFromSourceTableName write Set_LoadFromSourceTableName;
  5734.     property LoadAppendToTableData: WordBool read Get_LoadAppendToTableData write Set_LoadAppendToTableData;
  5735.     property PercentCompleteNotification: Integer read Get_PercentCompleteNotification write Set_PercentCompleteNotification;
  5736.   end;
  5737.  
  5738. { DispInterface declaration for Dual Interface _Backup }
  5739.  
  5740.   _BackupDisp = dispinterface
  5741.     ['{00027B87-0BCC-11CE-A4B3-00AA004A34D5}']
  5742.     property Application: Application readonly dispid 1;
  5743.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  5744.     property UserData: Integer dispid 3;
  5745.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  5746.     property Properties: Properties readonly dispid 7;
  5747.     property DumpDevices: WideString dispid 10;
  5748.     property DiskDevices: WideString dispid 11;
  5749.     property TapeDevices: WideString dispid 12;
  5750.     property FloppyDevices: WideString dispid 13;
  5751.     property UnloadTapeAfter: WordBool dispid 14;
  5752.     property DumpInitDeviceBefore: WordBool dispid 15;
  5753.     property DumpExpirationDate: WideString dispid 16;
  5754.     property DumpRetainDays: Integer dispid 17;
  5755.     property SkipTapeHeader: WordBool dispid 19;
  5756.     property LoadTableBatchPages: Integer dispid 20;
  5757.     property LoadFileNumber: Integer dispid 21;
  5758.     property TableName: WideString dispid 22;
  5759.     property LoadStopDate: WideString dispid 23;
  5760.     property PipeDevices: WideString dispid 24;
  5761.     property LoadFromSourceTableName: WideString dispid 25;
  5762.     property LoadAppendToTableData: WordBool dispid 26;
  5763.     property PercentCompleteNotification: Integer dispid 27;
  5764.     procedure Abort; dispid 100;
  5765.   end;
  5766.  
  5767. { SQLOLE HistoryFilter Object }
  5768.  
  5769.   _HistoryFilter = interface(_IVSQLOLEStdObject)
  5770.     ['{00026B88-0000-0000-C000-000000000046}']
  5771.     function Get_Application: Application; safecall;
  5772.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  5773.     function Get_UserData: Integer; safecall;
  5774.     procedure Set_UserData(Value: Integer); safecall;
  5775.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  5776.     function Get_Properties: Properties; safecall;
  5777.     function Get_TaskName: WideString; safecall;
  5778.     procedure Set_TaskName(const Value: WideString); safecall;
  5779.     function Get_StartDate: TDateTime; safecall;
  5780.     procedure Set_StartDate(Value: TDateTime); safecall;
  5781.     function Get_CompletionTypes: SQLOLE_COMPLETION_TYPE; safecall;
  5782.     procedure Set_CompletionTypes(Value: SQLOLE_COMPLETION_TYPE); safecall;
  5783.     function Get_EventTypes: SQLOLE_EVENT_TYPE; safecall;
  5784.     procedure Set_EventTypes(Value: SQLOLE_EVENT_TYPE); safecall;
  5785.     function Get_TaskID: Integer; safecall;
  5786.     procedure Set_TaskID(Value: Integer); safecall;
  5787.     function Get_EventID: Integer; safecall;
  5788.     procedure Set_EventID(Value: Integer); safecall;
  5789.     function Get_MessageID: Integer; safecall;
  5790.     procedure Set_MessageID(Value: Integer); safecall;
  5791.     function Get_Severity: Integer; safecall;
  5792.     procedure Set_Severity(Value: Integer); safecall;
  5793.     function Get_Source: WideString; safecall;
  5794.     procedure Set_Source(const Value: WideString); safecall;
  5795.     function Get_CategoryName: WideString; safecall;
  5796.     procedure Set_CategoryName(const Value: WideString); safecall;
  5797.     function Get_MinimumRunDuration: TDateTime; safecall;
  5798.     procedure Set_MinimumRunDuration(Value: TDateTime); safecall;
  5799.     function Get_OldestFirst: WordBool; safecall;
  5800.     procedure Set_OldestFirst(Value: WordBool); safecall;
  5801.     function Get_EndDate: TDateTime; safecall;
  5802.     procedure Set_EndDate(Value: TDateTime); safecall;
  5803.     function Get_MinimumRetries: Integer; safecall;
  5804.     procedure Set_MinimumRetries(Value: Integer); safecall;
  5805.     function Get_MinimumTimesSkipped: Integer; safecall;
  5806.     procedure Set_MinimumTimesSkipped(Value: Integer); safecall;
  5807.     property Application: Application read Get_Application;
  5808.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  5809.     property UserData: Integer read Get_UserData write Set_UserData;
  5810.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  5811.     property Properties: Properties read Get_Properties;
  5812.     property TaskName: WideString read Get_TaskName write Set_TaskName;
  5813.     property StartDate: TDateTime read Get_StartDate write Set_StartDate;
  5814.     property CompletionTypes: SQLOLE_COMPLETION_TYPE read Get_CompletionTypes write Set_CompletionTypes;
  5815.     property EventTypes: SQLOLE_EVENT_TYPE read Get_EventTypes write Set_EventTypes;
  5816.     property TaskID: Integer read Get_TaskID write Set_TaskID;
  5817.     property EventID: Integer read Get_EventID write Set_EventID;
  5818.     property MessageID: Integer read Get_MessageID write Set_MessageID;
  5819.     property Severity: Integer read Get_Severity write Set_Severity;
  5820.     property Source: WideString read Get_Source write Set_Source;
  5821.     property CategoryName: WideString read Get_CategoryName write Set_CategoryName;
  5822.     property MinimumRunDuration: TDateTime read Get_MinimumRunDuration write Set_MinimumRunDuration;
  5823.     property OldestFirst: WordBool read Get_OldestFirst write Set_OldestFirst;
  5824.     property EndDate: TDateTime read Get_EndDate write Set_EndDate;
  5825.     property MinimumRetries: Integer read Get_MinimumRetries write Set_MinimumRetries;
  5826.     property MinimumTimesSkipped: Integer read Get_MinimumTimesSkipped write Set_MinimumTimesSkipped;
  5827.   end;
  5828.  
  5829. { DispInterface declaration for Dual Interface _HistoryFilter }
  5830.  
  5831.   _HistoryFilterDisp = dispinterface
  5832.     ['{00026B88-0000-0000-C000-000000000046}']
  5833.     property Application: Application readonly dispid 1;
  5834.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  5835.     property UserData: Integer dispid 3;
  5836.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  5837.     property Properties: Properties readonly dispid 7;
  5838.     property TaskName: WideString dispid 9;
  5839.     property StartDate: TDateTime dispid 10;
  5840.     property CompletionTypes: SQLOLE_COMPLETION_TYPE dispid 11;
  5841.     property EventTypes: SQLOLE_EVENT_TYPE dispid 12;
  5842.     property TaskID: Integer dispid 13;
  5843.     property EventID: Integer dispid 14;
  5844.     property MessageID: Integer dispid 15;
  5845.     property Severity: Integer dispid 16;
  5846.     property Source: WideString dispid 17;
  5847.     property CategoryName: WideString dispid 18;
  5848.     property MinimumRunDuration: TDateTime dispid 19;
  5849.     property OldestFirst: WordBool dispid 20;
  5850.     property EndDate: TDateTime dispid 21;
  5851.     property MinimumRetries: Integer dispid 22;
  5852.     property MinimumTimesSkipped: Integer dispid 23;
  5853.   end;
  5854.  
  5855. { SQLOLE Operator Object }
  5856.  
  5857.   _Operator = interface(_IVSQLOLEStdObject)
  5858.     ['{00026B89-0000-0000-C000-000000000046}']
  5859.     function Get_Application: Application; safecall;
  5860.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  5861.     function Get_UserData: Integer; safecall;
  5862.     procedure Set_UserData(Value: Integer); safecall;
  5863.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  5864.     function Get_Properties: Properties; safecall;
  5865.     function Get_Name: WideString; safecall;
  5866.     procedure Set_Name(const Value: WideString); safecall;
  5867.     function Get_ID: Integer; safecall;
  5868.     function Get_Enabled: WordBool; safecall;
  5869.     procedure Set_Enabled(Value: WordBool); safecall;
  5870.     function Get_EmailAddress: WideString; safecall;
  5871.     procedure Set_EmailAddress(const Value: WideString); safecall;
  5872.     function Get_LastEmailDate: TDateTime; safecall;
  5873.     function Get_PagerAddress: WideString; safecall;
  5874.     procedure Set_PagerAddress(const Value: WideString); safecall;
  5875.     function Get_LastPageDate: TDateTime; safecall;
  5876.     function Get_WeekdayPagerStartTime: TDateTime; safecall;
  5877.     procedure Set_WeekdayPagerStartTime(Value: TDateTime); safecall;
  5878.     function Get_WeekdayPagerEndTime: TDateTime; safecall;
  5879.     procedure Set_WeekdayPagerEndTime(Value: TDateTime); safecall;
  5880.     function Get_SaturdayPagerStartTime: TDateTime; safecall;
  5881.     procedure Set_SaturdayPagerStartTime(Value: TDateTime); safecall;
  5882.     function Get_SaturdayPagerEndTime: TDateTime; safecall;
  5883.     procedure Set_SaturdayPagerEndTime(Value: TDateTime); safecall;
  5884.     function Get_SundayPagerStartTime: TDateTime; safecall;
  5885.     procedure Set_SundayPagerStartTime(Value: TDateTime); safecall;
  5886.     function Get_SundayPagerEndTime: TDateTime; safecall;
  5887.     procedure Set_SundayPagerEndTime(Value: TDateTime); safecall;
  5888.     function Get_PagerDays: SQLOLE_WEEKDAY_TYPE; safecall;
  5889.     procedure Set_PagerDays(Value: SQLOLE_WEEKDAY_TYPE); safecall;
  5890.     procedure AddNotification(const AlertName: WideString; NotifyMethod: SQLOLE_NOTIFY_TYPE); safecall;
  5891.     procedure UpdateNotification(const AlertName: WideString; NotifyMethod: SQLOLE_NOTIFY_TYPE); safecall;
  5892.     procedure RemoveNotification(const AlertName: WideString); safecall;
  5893.     function EnumNotifications(NotifyMethod: SQLOLE_NOTIFY_TYPE; AlertsToEnum: SQLOLE_ENUMNOTIFY_TYPE; AlertName: OleVariant): QueryResults; safecall;
  5894.     procedure Remove; safecall;
  5895.     procedure BeginAlter; safecall;
  5896.     procedure DoAlter; safecall;
  5897.     procedure CancelAlter; safecall;
  5898.     procedure Refresh; safecall;
  5899.     property Application: Application read Get_Application;
  5900.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  5901.     property UserData: Integer read Get_UserData write Set_UserData;
  5902.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  5903.     property Properties: Properties read Get_Properties;
  5904.     property Name: WideString read Get_Name write Set_Name;
  5905.     property ID: Integer read Get_ID;
  5906.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5907.     property EmailAddress: WideString read Get_EmailAddress write Set_EmailAddress;
  5908.     property LastEmailDate: TDateTime read Get_LastEmailDate;
  5909.     property PagerAddress: WideString read Get_PagerAddress write Set_PagerAddress;
  5910.     property LastPageDate: TDateTime read Get_LastPageDate;
  5911.     property WeekdayPagerStartTime: TDateTime read Get_WeekdayPagerStartTime write Set_WeekdayPagerStartTime;
  5912.     property WeekdayPagerEndTime: TDateTime read Get_WeekdayPagerEndTime write Set_WeekdayPagerEndTime;
  5913.     property SaturdayPagerStartTime: TDateTime read Get_SaturdayPagerStartTime write Set_SaturdayPagerStartTime;
  5914.     property SaturdayPagerEndTime: TDateTime read Get_SaturdayPagerEndTime write Set_SaturdayPagerEndTime;
  5915.     property SundayPagerStartTime: TDateTime read Get_SundayPagerStartTime write Set_SundayPagerStartTime;
  5916.     property SundayPagerEndTime: TDateTime read Get_SundayPagerEndTime write Set_SundayPagerEndTime;
  5917.     property PagerDays: SQLOLE_WEEKDAY_TYPE read Get_PagerDays write Set_PagerDays;
  5918.   end;
  5919.  
  5920. { DispInterface declaration for Dual Interface _Operator }
  5921.  
  5922.   _OperatorDisp = dispinterface
  5923.     ['{00026B89-0000-0000-C000-000000000046}']
  5924.     property Application: Application readonly dispid 1;
  5925.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  5926.     property UserData: Integer dispid 3;
  5927.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  5928.     property Properties: Properties readonly dispid 7;
  5929.     property Name: WideString dispid 9;
  5930.     property ID: Integer readonly dispid 10;
  5931.     property Enabled: WordBool dispid 11;
  5932.     property EmailAddress: WideString dispid 12;
  5933.     property LastEmailDate: TDateTime readonly dispid 13;
  5934.     property PagerAddress: WideString dispid 14;
  5935.     property LastPageDate: TDateTime readonly dispid 15;
  5936.     property WeekdayPagerStartTime: TDateTime dispid 16;
  5937.     property WeekdayPagerEndTime: TDateTime dispid 17;
  5938.     property SaturdayPagerStartTime: TDateTime dispid 18;
  5939.     property SaturdayPagerEndTime: TDateTime dispid 19;
  5940.     property SundayPagerStartTime: TDateTime dispid 20;
  5941.     property SundayPagerEndTime: TDateTime dispid 21;
  5942.     property PagerDays: SQLOLE_WEEKDAY_TYPE dispid 22;
  5943.     procedure AddNotification(const AlertName: WideString; NotifyMethod: SQLOLE_NOTIFY_TYPE); dispid 100;
  5944.     procedure UpdateNotification(const AlertName: WideString; NotifyMethod: SQLOLE_NOTIFY_TYPE); dispid 101;
  5945.     procedure RemoveNotification(const AlertName: WideString); dispid 102;
  5946.     function EnumNotifications(NotifyMethod: SQLOLE_NOTIFY_TYPE; AlertsToEnum: SQLOLE_ENUMNOTIFY_TYPE; AlertName: OleVariant): QueryResults; dispid 103;
  5947.     procedure Remove; dispid 104;
  5948.     procedure BeginAlter; dispid 105;
  5949.     procedure DoAlter; dispid 106;
  5950.     procedure CancelAlter; dispid 107;
  5951.     procedure Refresh; dispid 108;
  5952.   end;
  5953.  
  5954. { SQLOLE Publication Object }
  5955.  
  5956.   _Publication = interface(_IVSQLOLEStdObject)
  5957.     ['{00027B8A-0BCC-11CE-A4B3-00AA004A34D5}']
  5958.     function Get_Application: Application; safecall;
  5959.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  5960.     function Get_UserData: Integer; safecall;
  5961.     procedure Set_UserData(Value: Integer); safecall;
  5962.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  5963.     function Get_Properties: Properties; safecall;
  5964.     function Get_Name: WideString; safecall;
  5965.     procedure Set_Name(const Value: WideString); safecall;
  5966.     function Get_ID: Integer; safecall;
  5967.     function Get_Description: WideString; safecall;
  5968.     procedure Set_Description(const Value: WideString); safecall;
  5969.     function Get_Enabled: WordBool; safecall;
  5970.     procedure Set_Enabled(Value: WordBool); safecall;
  5971.     function Get_InitialSyncTask: Task; safecall;
  5972.     function Get_InitialSyncMethod: SQLOLE_INITIALSYNC_TYPE; safecall;
  5973.     procedure Set_InitialSyncMethod(Value: SQLOLE_INITIALSYNC_TYPE); safecall;
  5974.     function Get_ReplicationFrequency: SQLOLE_REPFREQ_TYPE; safecall;
  5975.     procedure Set_ReplicationFrequency(Value: SQLOLE_REPFREQ_TYPE); safecall;
  5976.     function Get_Restricted: WordBool; safecall;
  5977.     procedure Set_Restricted(Value: WordBool); safecall;
  5978.     function Get_Articles: Articles; safecall;
  5979.     procedure Remove; safecall;
  5980.     function EnumFullSubscribers: QueryResults; safecall;
  5981.     procedure BeginAlter; safecall;
  5982.     procedure DoAlter; safecall;
  5983.     procedure CancelAlter; safecall;
  5984.     procedure AddFullSubscriber(const ServerName: WideString; DestinationDatabase, InitialSyncType, Status: OleVariant); safecall;
  5985.     procedure RemoveFullSubscriber(const ServerName: WideString); safecall;
  5986.     property Application: Application read Get_Application;
  5987.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  5988.     property UserData: Integer read Get_UserData write Set_UserData;
  5989.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  5990.     property Properties: Properties read Get_Properties;
  5991.     property Name: WideString read Get_Name write Set_Name;
  5992.     property ID: Integer read Get_ID;
  5993.     property Description: WideString read Get_Description write Set_Description;
  5994.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5995.     property InitialSyncTask: Task read Get_InitialSyncTask;
  5996.     property InitialSyncMethod: SQLOLE_INITIALSYNC_TYPE read Get_InitialSyncMethod write Set_InitialSyncMethod;
  5997.     property ReplicationFrequency: SQLOLE_REPFREQ_TYPE read Get_ReplicationFrequency write Set_ReplicationFrequency;
  5998.     property Restricted: WordBool read Get_Restricted write Set_Restricted;
  5999.     property Articles: Articles read Get_Articles;
  6000.   end;
  6001.  
  6002. { DispInterface declaration for Dual Interface _Publication }
  6003.  
  6004.   _PublicationDisp = dispinterface
  6005.     ['{00027B8A-0BCC-11CE-A4B3-00AA004A34D5}']
  6006.     property Application: Application readonly dispid 1;
  6007.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  6008.     property UserData: Integer dispid 3;
  6009.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  6010.     property Properties: Properties readonly dispid 7;
  6011.     property Name: WideString dispid 9;
  6012.     property ID: Integer readonly dispid 10;
  6013.     property Description: WideString dispid 11;
  6014.     property Enabled: WordBool dispid 12;
  6015.     property InitialSyncTask: Task readonly dispid 13;
  6016.     property InitialSyncMethod: SQLOLE_INITIALSYNC_TYPE dispid 14;
  6017.     property ReplicationFrequency: SQLOLE_REPFREQ_TYPE dispid 15;
  6018.     property Restricted: WordBool dispid 16;
  6019.     property Articles: Articles readonly dispid 0;
  6020.     procedure Remove; dispid 100;
  6021.     function EnumFullSubscribers: QueryResults; dispid 101;
  6022.     procedure BeginAlter; dispid 102;
  6023.     procedure DoAlter; dispid 103;
  6024.     procedure CancelAlter; dispid 104;
  6025.     procedure AddFullSubscriber(const ServerName: WideString; DestinationDatabase, InitialSyncType, Status: OleVariant); dispid 105;
  6026.     procedure RemoveFullSubscriber(const ServerName: WideString); dispid 106;
  6027.   end;
  6028.  
  6029. { SQLOLE Article Object }
  6030.  
  6031.   _Article = interface(_IVSQLOLEStdObject)
  6032.     ['{00027B8B-0BCC-11CE-A4B3-00AA004A34D5}']
  6033.     function Get_Application: Application; safecall;
  6034.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  6035.     function Get_UserData: Integer; safecall;
  6036.     procedure Set_UserData(Value: Integer); safecall;
  6037.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  6038.     function Get_Properties: Properties; safecall;
  6039.     function Get_Name: WideString; safecall;
  6040.     procedure Set_Name(const Value: WideString); safecall;
  6041.     function Get_ID: Integer; safecall;
  6042.     function Get_TableName: WideString; safecall;
  6043.     procedure Set_TableName(const Value: WideString); safecall;
  6044.     function Get_Description: WideString; safecall;
  6045.     procedure Set_Description(const Value: WideString); safecall;
  6046.     function Get_ReplicateAllColumns: WordBool; safecall;
  6047.     function Get_InitialSyncObjectName: WideString; safecall;
  6048.     procedure Set_InitialSyncObjectName(const Value: WideString); safecall;
  6049.     function Get_ReplicationType: SQLOLE_REPLICATION_TYPE; safecall;
  6050.     procedure Set_ReplicationType(Value: SQLOLE_REPLICATION_TYPE); safecall;
  6051.     function Get_InsertCommand: WideString; safecall;
  6052.     procedure Set_InsertCommand(const Value: WideString); safecall;
  6053.     function Get_UpdateCommand: WideString; safecall;
  6054.     procedure Set_UpdateCommand(const Value: WideString); safecall;
  6055.     function Get_DeleteCommand: WideString; safecall;
  6056.     procedure Set_DeleteCommand(const Value: WideString); safecall;
  6057.     function Get_ReplicationFilterProcName: WideString; safecall;
  6058.     procedure Set_ReplicationFilterProcName(const Value: WideString); safecall;
  6059.     function Get_CreationScriptPath: WideString; safecall;
  6060.     procedure Set_CreationScriptPath(const Value: WideString); safecall;
  6061.     function Get_DestinationTableName: WideString; safecall;
  6062.     procedure Set_DestinationTableName(const Value: WideString); safecall;
  6063.     function Get_Subscriptions: Subscriptions; safecall;
  6064.     function Get_PreCreationMethod: SQLOLE_PREARTICLE_TYPE; safecall;
  6065.     procedure Set_PreCreationMethod(Value: SQLOLE_PREARTICLE_TYPE); safecall;
  6066.     function Get_FilterClause: WideString; safecall;
  6067.     procedure Set_FilterClause(const Value: WideString); safecall;
  6068.     procedure Remove; safecall;
  6069.     function ListReplicatedColumns: SQLObjectList; safecall;
  6070.     procedure AddReplicatedColumns(const Columns: WideString); safecall;
  6071.     procedure RemoveReplicatedColumns(const Columns: WideString); safecall;
  6072.     procedure BeginAlter; safecall;
  6073.     procedure DoAlter; safecall;
  6074.     procedure CancelAlter; safecall;
  6075.     function ScriptDestinationTable(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  6076.     function Get_OwnerQualifyTable: WordBool; safecall;
  6077.     procedure Set_OwnerQualifyTable(Value: WordBool); safecall;
  6078.     function Get_IncludeInsertColumnNames: WordBool; safecall;
  6079.     procedure Set_IncludeInsertColumnNames(Value: WordBool); safecall;
  6080.     property Application: Application read Get_Application;
  6081.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  6082.     property UserData: Integer read Get_UserData write Set_UserData;
  6083.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  6084.     property Properties: Properties read Get_Properties;
  6085.     property Name: WideString read Get_Name write Set_Name;
  6086.     property ID: Integer read Get_ID;
  6087.     property TableName: WideString read Get_TableName write Set_TableName;
  6088.     property Description: WideString read Get_Description write Set_Description;
  6089.     property ReplicateAllColumns: WordBool read Get_ReplicateAllColumns;
  6090.     property InitialSyncObjectName: WideString read Get_InitialSyncObjectName write Set_InitialSyncObjectName;
  6091.     property ReplicationType: SQLOLE_REPLICATION_TYPE read Get_ReplicationType write Set_ReplicationType;
  6092.     property InsertCommand: WideString read Get_InsertCommand write Set_InsertCommand;
  6093.     property UpdateCommand: WideString read Get_UpdateCommand write Set_UpdateCommand;
  6094.     property DeleteCommand: WideString read Get_DeleteCommand write Set_DeleteCommand;
  6095.     property ReplicationFilterProcName: WideString read Get_ReplicationFilterProcName write Set_ReplicationFilterProcName;
  6096.     property CreationScriptPath: WideString read Get_CreationScriptPath write Set_CreationScriptPath;
  6097.     property DestinationTableName: WideString read Get_DestinationTableName write Set_DestinationTableName;
  6098.     property Subscriptions: Subscriptions read Get_Subscriptions;
  6099.     property PreCreationMethod: SQLOLE_PREARTICLE_TYPE read Get_PreCreationMethod write Set_PreCreationMethod;
  6100.     property FilterClause: WideString read Get_FilterClause write Set_FilterClause;
  6101.     property OwnerQualifyTable: WordBool read Get_OwnerQualifyTable write Set_OwnerQualifyTable;
  6102.     property IncludeInsertColumnNames: WordBool read Get_IncludeInsertColumnNames write Set_IncludeInsertColumnNames;
  6103.   end;
  6104.  
  6105. { DispInterface declaration for Dual Interface _Article }
  6106.  
  6107.   _ArticleDisp = dispinterface
  6108.     ['{00027B8B-0BCC-11CE-A4B3-00AA004A34D5}']
  6109.     property Application: Application readonly dispid 1;
  6110.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  6111.     property UserData: Integer dispid 3;
  6112.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  6113.     property Properties: Properties readonly dispid 7;
  6114.     property Name: WideString dispid 9;
  6115.     property ID: Integer readonly dispid 10;
  6116.     property TableName: WideString dispid 12;
  6117.     property Description: WideString dispid 13;
  6118.     property ReplicateAllColumns: WordBool readonly dispid 14;
  6119.     property InitialSyncObjectName: WideString dispid 15;
  6120.     property ReplicationType: SQLOLE_REPLICATION_TYPE dispid 16;
  6121.     property InsertCommand: WideString dispid 18;
  6122.     property UpdateCommand: WideString dispid 19;
  6123.     property DeleteCommand: WideString dispid 20;
  6124.     property ReplicationFilterProcName: WideString dispid 21;
  6125.     property CreationScriptPath: WideString dispid 22;
  6126.     property DestinationTableName: WideString dispid 23;
  6127.     property Subscriptions: Subscriptions readonly dispid 0;
  6128.     property PreCreationMethod: SQLOLE_PREARTICLE_TYPE dispid 25;
  6129.     property FilterClause: WideString dispid 26;
  6130.     procedure Remove; dispid 100;
  6131.     function ListReplicatedColumns: SQLObjectList; dispid 101;
  6132.     procedure AddReplicatedColumns(const Columns: WideString); dispid 102;
  6133.     procedure RemoveReplicatedColumns(const Columns: WideString); dispid 103;
  6134.     procedure BeginAlter; dispid 104;
  6135.     procedure DoAlter; dispid 105;
  6136.     procedure CancelAlter; dispid 106;
  6137.     function ScriptDestinationTable(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 107;
  6138.     property OwnerQualifyTable: WordBool dispid 27;
  6139.     property IncludeInsertColumnNames: WordBool dispid 28;
  6140.   end;
  6141.  
  6142. { SQLOLE Subscription Object }
  6143.  
  6144.   _Subscription = interface(_IVSQLOLEStdObject)
  6145.     ['{00026B8C-0000-0000-C000-000000000046}']
  6146.     function Get_Application: Application; safecall;
  6147.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  6148.     function Get_UserData: Integer; safecall;
  6149.     procedure Set_UserData(Value: Integer); safecall;
  6150.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  6151.     function Get_Properties: Properties; safecall;
  6152.     function Get_ServerName: WideString; safecall;
  6153.     procedure Set_ServerName(const Value: WideString); safecall;
  6154.     function Get_DestinationDatabase: WideString; safecall;
  6155.     procedure Set_DestinationDatabase(const Value: WideString); safecall;
  6156.     function Get_InitialSyncType: SQLOLE_SUBSYNC_TYPE; safecall;
  6157.     procedure Set_InitialSyncType(Value: SQLOLE_SUBSYNC_TYPE); safecall;
  6158.     function Get_Status: SQLOLE_SUBSTATUS_TYPE; safecall;
  6159.     procedure Set_Status(Value: SQLOLE_SUBSTATUS_TYPE); safecall;
  6160.     procedure Remove; safecall;
  6161.     procedure BeginAlter; safecall;
  6162.     procedure DoAlter; safecall;
  6163.     procedure CancelAlter; safecall;
  6164.     property Application: Application read Get_Application;
  6165.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  6166.     property UserData: Integer read Get_UserData write Set_UserData;
  6167.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  6168.     property Properties: Properties read Get_Properties;
  6169.     property ServerName: WideString read Get_ServerName write Set_ServerName;
  6170.     property DestinationDatabase: WideString read Get_DestinationDatabase write Set_DestinationDatabase;
  6171.     property InitialSyncType: SQLOLE_SUBSYNC_TYPE read Get_InitialSyncType write Set_InitialSyncType;
  6172.     property Status: SQLOLE_SUBSTATUS_TYPE read Get_Status write Set_Status;
  6173.   end;
  6174.  
  6175. { DispInterface declaration for Dual Interface _Subscription }
  6176.  
  6177.   _SubscriptionDisp = dispinterface
  6178.     ['{00026B8C-0000-0000-C000-000000000046}']
  6179.     property Application: Application readonly dispid 1;
  6180.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  6181.     property UserData: Integer dispid 3;
  6182.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  6183.     property Properties: Properties readonly dispid 7;
  6184.     property ServerName: WideString dispid 9;
  6185.     property DestinationDatabase: WideString dispid 10;
  6186.     property InitialSyncType: SQLOLE_SUBSYNC_TYPE dispid 11;
  6187.     property Status: SQLOLE_SUBSTATUS_TYPE dispid 12;
  6188.     procedure Remove; dispid 100;
  6189.     procedure BeginAlter; dispid 102;
  6190.     procedure DoAlter; dispid 103;
  6191.     procedure CancelAlter; dispid 104;
  6192.   end;
  6193.  
  6194. { SQLOLE DRI Check }
  6195.  
  6196.   _Check = interface(_IVSQLOLEStdObject)
  6197.     ['{00026B8D-0000-0000-C000-000000000046}']
  6198.     function Get_Application: Application; safecall;
  6199.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  6200.     function Get_UserData: Integer; safecall;
  6201.     procedure Set_UserData(Value: Integer); safecall;
  6202.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  6203.     function Get_Properties: Properties; safecall;
  6204.     function Get_Name: WideString; safecall;
  6205.     procedure Set_Name(const Value: WideString); safecall;
  6206.     function Get_Text: WideString; safecall;
  6207.     procedure Set_Text(const Value: WideString); safecall;
  6208.     function Get_ExcludeReplication: WordBool; safecall;
  6209.     procedure Set_ExcludeReplication(Value: WordBool); safecall;
  6210.     procedure Remove; safecall;
  6211.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; safecall;
  6212.     property Application: Application read Get_Application;
  6213.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  6214.     property UserData: Integer read Get_UserData write Set_UserData;
  6215.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  6216.     property Properties: Properties read Get_Properties;
  6217.     property Name: WideString read Get_Name write Set_Name;
  6218.     property Text: WideString read Get_Text write Set_Text;
  6219.     property ExcludeReplication: WordBool read Get_ExcludeReplication write Set_ExcludeReplication;
  6220.   end;
  6221.  
  6222. { DispInterface declaration for Dual Interface _Check }
  6223.  
  6224.   _CheckDisp = dispinterface
  6225.     ['{00026B8D-0000-0000-C000-000000000046}']
  6226.     property Application: Application readonly dispid 1;
  6227.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  6228.     property UserData: Integer dispid 3;
  6229.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  6230.     property Properties: Properties readonly dispid 7;
  6231.     property Name: WideString dispid 9;
  6232.     property Text: WideString dispid 10;
  6233.     property ExcludeReplication: WordBool dispid 11;
  6234.     procedure Remove; dispid 100;
  6235.     function Script(ScriptType, ScriptFilePath: OleVariant): WideString; dispid 101;
  6236.   end;
  6237.  
  6238. { SQLOLE DRI ServerGroup }
  6239.  
  6240.   _ServerGroup = interface(_IVSQLOLEStdObject)
  6241.     ['{00026B8E-0000-0000-C000-000000000046}']
  6242.     function Get_Application: Application; safecall;
  6243.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  6244.     function Get_UserData: Integer; safecall;
  6245.     procedure Set_UserData(Value: Integer); safecall;
  6246.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  6247.     function Get_RegisteredServers: RegisteredServers; safecall;
  6248.     function Get_Properties: Properties; safecall;
  6249.     function Get_Name: WideString; safecall;
  6250.     procedure Set_Name(const Value: WideString); safecall;
  6251.     procedure Remove; safecall;
  6252.     property Application: Application read Get_Application;
  6253.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  6254.     property UserData: Integer read Get_UserData write Set_UserData;
  6255.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  6256.     property RegisteredServers: RegisteredServers read Get_RegisteredServers;
  6257.     property Properties: Properties read Get_Properties;
  6258.     property Name: WideString read Get_Name write Set_Name;
  6259.   end;
  6260.  
  6261. { DispInterface declaration for Dual Interface _ServerGroup }
  6262.  
  6263.   _ServerGroupDisp = dispinterface
  6264.     ['{00026B8E-0000-0000-C000-000000000046}']
  6265.     property Application: Application readonly dispid 1;
  6266.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  6267.     property UserData: Integer dispid 3;
  6268.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  6269.     property RegisteredServers: RegisteredServers readonly dispid 0;
  6270.     property Properties: Properties readonly dispid 7;
  6271.     property Name: WideString dispid 9;
  6272.     procedure Remove; dispid 100;
  6273.   end;
  6274.  
  6275. { SQLOLE DRI RegisteredServer }
  6276.  
  6277.   _RegisteredServer = interface(_IVSQLOLEStdObject)
  6278.     ['{00026B8F-0000-0000-C000-000000000046}']
  6279.     function Get_Application: Application; safecall;
  6280.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  6281.     function Get_UserData: Integer; safecall;
  6282.     procedure Set_UserData(Value: Integer); safecall;
  6283.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  6284.     function Get_Properties: Properties; safecall;
  6285.     function Get_Name: WideString; safecall;
  6286.     procedure Set_Name(const Value: WideString); safecall;
  6287.     function Get_Login: WideString; safecall;
  6288.     procedure Set_Login(const Value: WideString); safecall;
  6289.     function Get_Password: WideString; safecall;
  6290.     procedure Set_Password(const Value: WideString); safecall;
  6291.     function Get_UseTrustedConnection: WordBool; safecall;
  6292.     procedure Set_UseTrustedConnection(Value: WordBool); safecall;
  6293.     function Get_VersionMajor: Integer; safecall;
  6294.     function Get_VersionMinor: Integer; safecall;
  6295.     function Get_SaLogin: WordBool; safecall;
  6296.     function Get_PersistFlags: Integer; safecall;
  6297.     procedure Set_PersistFlags(Value: Integer); safecall;
  6298.     procedure Remove; safecall;
  6299.     property Application: Application read Get_Application;
  6300.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  6301.     property UserData: Integer read Get_UserData write Set_UserData;
  6302.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  6303.     property Properties: Properties read Get_Properties;
  6304.     property Name: WideString read Get_Name write Set_Name;
  6305.     property Login: WideString read Get_Login write Set_Login;
  6306.     property Password: WideString read Get_Password write Set_Password;
  6307.     property UseTrustedConnection: WordBool read Get_UseTrustedConnection write Set_UseTrustedConnection;
  6308.     property VersionMajor: Integer read Get_VersionMajor;
  6309.     property VersionMinor: Integer read Get_VersionMinor;
  6310.     property SaLogin: WordBool read Get_SaLogin;
  6311.     property PersistFlags: Integer read Get_PersistFlags write Set_PersistFlags;
  6312.   end;
  6313.  
  6314. { DispInterface declaration for Dual Interface _RegisteredServer }
  6315.  
  6316.   _RegisteredServerDisp = dispinterface
  6317.     ['{00026B8F-0000-0000-C000-000000000046}']
  6318.     property Application: Application readonly dispid 1;
  6319.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  6320.     property UserData: Integer dispid 3;
  6321.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  6322.     property Properties: Properties readonly dispid 7;
  6323.     property Name: WideString dispid 9;
  6324.     property Login: WideString dispid 10;
  6325.     property Password: WideString dispid 11;
  6326.     property UseTrustedConnection: WordBool dispid 12;
  6327.     property VersionMajor: Integer readonly dispid 13;
  6328.     property VersionMinor: Integer readonly dispid 14;
  6329.     property SaLogin: WordBool readonly dispid 15;
  6330.     property PersistFlags: Integer dispid 16;
  6331.     procedure Remove; dispid 100;
  6332.   end;
  6333.  
  6334. { SQLOLE BulkCopy Object }
  6335.  
  6336.   _BulkCopy = interface(_IVSQLOLEStdObject)
  6337.     ['{00027B90-0BCC-11CE-A4B3-00AA004A34D5}']
  6338.     function Get_Application: Application; safecall;
  6339.     function Get_Parent: _IVSQLOLEStdObject; safecall;
  6340.     function Get_UserData: Integer; safecall;
  6341.     procedure Set_UserData(Value: Integer); safecall;
  6342.     function Get_TypeOf: SQLOLE_OBJECT_TYPE; safecall;
  6343.     function Get_Properties: Properties; safecall;
  6344.     function Get_DataFilePath: WideString; safecall;
  6345.     procedure Set_DataFilePath(const Value: WideString); safecall;
  6346.     function Get_FormatFilePath: WideString; safecall;
  6347.     procedure Set_FormatFilePath(const Value: WideString); safecall;
  6348.     function Get_ErrorFilePath: WideString; safecall;
  6349.     procedure Set_ErrorFilePath(const Value: WideString); safecall;
  6350.     function Get_LogFilePath: WideString; safecall;
  6351.     procedure Set_LogFilePath(const Value: WideString); safecall;
  6352.     function Get_ColumnDelimiter: WideString; safecall;
  6353.     procedure Set_ColumnDelimiter(const Value: WideString); safecall;
  6354.     function Get_RowDelimiter: WideString; safecall;
  6355.     procedure Set_RowDelimiter(const Value: WideString); safecall;
  6356.     function Get_DataFileType: SQLOLE_DATAFILE_TYPE; safecall;
  6357.     procedure Set_DataFileType(Value: SQLOLE_DATAFILE_TYPE); safecall;
  6358.     function Get_FirstRow: Integer; safecall;
  6359.     procedure Set_FirstRow(Value: Integer); safecall;
  6360.     function Get_LastRow: Integer; safecall;
  6361.     procedure Set_LastRow(Value: Integer); safecall;
  6362.     function Get_MaximumErrorsBeforeAbort: Integer; safecall;
  6363.     procedure Set_MaximumErrorsBeforeAbort(Value: Integer); safecall;
  6364.     function Get_IncludeIdentityValues: WordBool; safecall;
  6365.     procedure Set_IncludeIdentityValues(Value: WordBool); safecall;
  6366.     function Get_ImportRowsPerBatch: Integer; safecall;
  6367.     procedure Set_ImportRowsPerBatch(Value: Integer); safecall;
  6368.     function Get_UseBulkCopyOption: WordBool; safecall;
  6369.     procedure Set_UseBulkCopyOption(Value: WordBool); safecall;
  6370.     function Get_SuspendIndexing: WordBool; safecall;
  6371.     procedure Set_SuspendIndexing(Value: WordBool); safecall;
  6372.     function Get_TruncateLog: WordBool; safecall;
  6373.     procedure Set_TruncateLog(Value: WordBool); safecall;
  6374.     procedure Abort; safecall;
  6375.     property Application: Application read Get_Application;
  6376.     property Parent: _IVSQLOLEStdObject read Get_Parent;
  6377.     property UserData: Integer read Get_UserData write Set_UserData;
  6378.     property TypeOf: SQLOLE_OBJECT_TYPE read Get_TypeOf;
  6379.     property Properties: Properties read Get_Properties;
  6380.     property DataFilePath: WideString read Get_DataFilePath write Set_DataFilePath;
  6381.     property FormatFilePath: WideString read Get_FormatFilePath write Set_FormatFilePath;
  6382.     property ErrorFilePath: WideString read Get_ErrorFilePath write Set_ErrorFilePath;
  6383.     property LogFilePath: WideString read Get_LogFilePath write Set_LogFilePath;
  6384.     property ColumnDelimiter: WideString read Get_ColumnDelimiter write Set_ColumnDelimiter;
  6385.     property RowDelimiter: WideString read Get_RowDelimiter write Set_RowDelimiter;
  6386.     property DataFileType: SQLOLE_DATAFILE_TYPE read Get_DataFileType write Set_DataFileType;
  6387.     property FirstRow: Integer read Get_FirstRow write Set_FirstRow;
  6388.     property LastRow: Integer read Get_LastRow write Set_LastRow;
  6389.     property MaximumErrorsBeforeAbort: Integer read Get_MaximumErrorsBeforeAbort write Set_MaximumErrorsBeforeAbort;
  6390.     property IncludeIdentityValues: WordBool read Get_IncludeIdentityValues write Set_IncludeIdentityValues;
  6391.     property ImportRowsPerBatch: Integer read Get_ImportRowsPerBatch write Set_ImportRowsPerBatch;
  6392.     property UseBulkCopyOption: WordBool read Get_UseBulkCopyOption write Set_UseBulkCopyOption;
  6393.     property SuspendIndexing: WordBool read Get_SuspendIndexing write Set_SuspendIndexing;
  6394.     property TruncateLog: WordBool read Get_TruncateLog write Set_TruncateLog;
  6395.   end;
  6396.  
  6397. { DispInterface declaration for Dual Interface _BulkCopy }
  6398.  
  6399.   _BulkCopyDisp = dispinterface
  6400.     ['{00027B90-0BCC-11CE-A4B3-00AA004A34D5}']
  6401.     property Application: Application readonly dispid 1;
  6402.     property Parent: _IVSQLOLEStdObject readonly dispid 2;
  6403.     property UserData: Integer dispid 3;
  6404.     property TypeOf: SQLOLE_OBJECT_TYPE readonly dispid 4;
  6405.     property Properties: Properties readonly dispid 7;
  6406.     property DataFilePath: WideString dispid 10;
  6407.     property FormatFilePath: WideString dispid 11;
  6408.     property ErrorFilePath: WideString dispid 12;
  6409.     property LogFilePath: WideString dispid 13;
  6410.     property ColumnDelimiter: WideString dispid 14;
  6411.     property RowDelimiter: WideString dispid 15;
  6412.     property DataFileType: SQLOLE_DATAFILE_TYPE dispid 16;
  6413.     property FirstRow: Integer dispid 17;
  6414.     property LastRow: Integer dispid 18;
  6415.     property MaximumErrorsBeforeAbort: Integer dispid 19;
  6416.     property IncludeIdentityValues: WordBool dispid 20;
  6417.     property ImportRowsPerBatch: Integer dispid 21;
  6418.     property UseBulkCopyOption: WordBool dispid 22;
  6419.     property SuspendIndexing: WordBool dispid 23;
  6420.     property TruncateLog: WordBool dispid 24;
  6421.     procedure Abort; dispid 100;
  6422.   end;
  6423.  
  6424. { SQLOLE Transfer Event Sink }
  6425.  
  6426.   TransferSink = interface(IUnknown)
  6427.     ['{00030002-0BCC-11CE-A4B3-00AA004A34D5}']
  6428.     function StatusMessage(const Message: WideString): HResult; stdcall;
  6429.     function PercentCompleteAtStep(const Message: WideString; Percent: Integer): HResult; stdcall;
  6430.     function ScriptTransferPercentComplete(const Message: WideString; Percent: Integer): HResult; stdcall;
  6431.     function TransferPercentComplete(const Message: WideString; Percent: Integer): HResult; stdcall;
  6432.   end;
  6433.  
  6434. { SQLOLE Server Event Sink }
  6435.  
  6436.   ServerSink = interface(IUnknown)
  6437.     ['{00030005-0BCC-11CE-A4B3-00AA004A34D5}']
  6438.     function QueryTimeout(const Message: WideString; out Retval: WordBool): HResult; stdcall;
  6439.     function ServerMessage(Severity, MessageNumber, MessageState: Integer; const Message: WideString): HResult; stdcall;
  6440.     function ConnectionBroken(const Message: WideString; out Retval: WordBool): HResult; stdcall;
  6441.     function RemoteLoginFailed(Severity, MessageNumber, MessageState: Integer; const Message: WideString): HResult; stdcall;
  6442.     function CommandSent(const SQLCommand: WideString): HResult; stdcall;
  6443.   end;
  6444.  
  6445. { SQLOLE Backup Event Sink }
  6446.  
  6447.   BackupSink = interface(IUnknown)
  6448.     ['{00030008-0BCC-11CE-A4B3-00AA004A34D5}']
  6449.     function PercentComplete(const Message: WideString; Percent: Integer): HResult; stdcall;
  6450.     function NextVolume(const Message: WideString): HResult; stdcall;
  6451.     function DumpComplete(const Message: WideString): HResult; stdcall;
  6452.   end;
  6453.  
  6454. { SQLOLE BulkCopy Event Sink }
  6455.  
  6456.   BulkCopySink = interface(IUnknown)
  6457.     ['{0003000B-0BCC-11CE-A4B3-00AA004A34D5}']
  6458.     function RowsCopied(const Message: WideString; Rows: Integer): HResult; stdcall;
  6459.     function BatchImported(const Message: WideString): HResult; stdcall;
  6460.   end;
  6461.  
  6462. { SQLOLE Application }
  6463.  
  6464.   CoApplication = class
  6465.     class function Create: _Application;
  6466.     class function CreateRemote(const MachineName: string): _Application;
  6467.   end;
  6468.  
  6469. { SQLOLE Server }
  6470.  
  6471.   CoSQLServer = class
  6472.     class function Create: _SQLServer;
  6473.     class function CreateRemote(const MachineName: string): _SQLServer;
  6474.   end;
  6475.  
  6476. { SQLOLE Database }
  6477.  
  6478.   CoDatabase = class
  6479.     class function Create: _Database;
  6480.     class function CreateRemote(const MachineName: string): _Database;
  6481.   end;
  6482.  
  6483. { SQLOLE Table }
  6484.  
  6485.   CoTable = class
  6486.     class function Create: _Table;
  6487.     class function CreateRemote(const MachineName: string): _Table;
  6488.   end;
  6489.  
  6490. { SQLOLE Column }
  6491.  
  6492.   CoColumn = class
  6493.     class function Create: _Column;
  6494.     class function CreateRemote(const MachineName: string): _Column;
  6495.   end;
  6496.  
  6497. { SQLOLE View }
  6498.  
  6499.   CoView = class
  6500.     class function Create: _View;
  6501.     class function CreateRemote(const MachineName: string): _View;
  6502.   end;
  6503.  
  6504. { SQLOLE UserDefinedDatatype }
  6505.  
  6506.   CoUserDefinedDatatype = class
  6507.     class function Create: _UserDefinedDatatype;
  6508.     class function CreateRemote(const MachineName: string): _UserDefinedDatatype;
  6509.   end;
  6510.  
  6511. { SQLOLE Default }
  6512.  
  6513.   CoDefault = class
  6514.     class function Create: _Default;
  6515.     class function CreateRemote(const MachineName: string): _Default;
  6516.   end;
  6517.  
  6518. { SQLOLE Rule }
  6519.  
  6520.   CoRule = class
  6521.     class function Create: _Rule;
  6522.     class function CreateRemote(const MachineName: string): _Rule;
  6523.   end;
  6524.  
  6525. { SQLOLE User }
  6526.  
  6527.   CoUser = class
  6528.     class function Create: _User;
  6529.     class function CreateRemote(const MachineName: string): _User;
  6530.   end;
  6531.  
  6532. { SQLOLE Group }
  6533.  
  6534.   CoGroup = class
  6535.     class function Create: _Group;
  6536.     class function CreateRemote(const MachineName: string): _Group;
  6537.   end;
  6538.  
  6539. { SQLOLE StoredProcedure }
  6540.  
  6541.   CoStoredProcedure = class
  6542.     class function Create: _StoredProcedure;
  6543.     class function CreateRemote(const MachineName: string): _StoredProcedure;
  6544.   end;
  6545.  
  6546. { SQLOLE Index }
  6547.  
  6548.   CoIndex = class
  6549.     class function Create: _Index;
  6550.     class function CreateRemote(const MachineName: string): _Index;
  6551.   end;
  6552.  
  6553. { SQLOLE DRI Key }
  6554.  
  6555.   CoKey = class
  6556.     class function Create: _Key;
  6557.     class function CreateRemote(const MachineName: string): _Key;
  6558.   end;
  6559.  
  6560. { SQLOLE Trigger }
  6561.  
  6562.   CoTrigger = class
  6563.     class function Create: _Trigger;
  6564.     class function CreateRemote(const MachineName: string): _Trigger;
  6565.   end;
  6566.  
  6567. { SQLOLE Device }
  6568.  
  6569.   CoDevice = class
  6570.     class function Create: _Device;
  6571.     class function CreateRemote(const MachineName: string): _Device;
  6572.   end;
  6573.  
  6574. { SQLOLE Alert }
  6575.  
  6576.   CoAlert = class
  6577.     class function Create: _Alert;
  6578.     class function CreateRemote(const MachineName: string): _Alert;
  6579.   end;
  6580.  
  6581. { SQLOLE Login }
  6582.  
  6583.   CoLogin = class
  6584.     class function Create: _Login;
  6585.     class function CreateRemote(const MachineName: string): _Login;
  6586.   end;
  6587.  
  6588. { SQLOLE Language }
  6589.  
  6590.   CoLanguage = class
  6591.     class function Create: _Language;
  6592.     class function CreateRemote(const MachineName: string): _Language;
  6593.   end;
  6594.  
  6595. { SQLOLE RemoteServer }
  6596.  
  6597.   CoRemoteServer = class
  6598.     class function Create: _RemoteServer;
  6599.     class function CreateRemote(const MachineName: string): _RemoteServer;
  6600.   end;
  6601.  
  6602. { SQLOLE RemoteLogin }
  6603.  
  6604.   CoRemoteLogin = class
  6605.     class function Create: _RemoteLogin;
  6606.     class function CreateRemote(const MachineName: string): _RemoteLogin;
  6607.   end;
  6608.  
  6609. { SQLOLE Task }
  6610.  
  6611.   CoTask = class
  6612.     class function Create: _Task;
  6613.     class function CreateRemote(const MachineName: string): _Task;
  6614.   end;
  6615.  
  6616. { SQLOLE DB Transfer }
  6617.  
  6618.   CoTransfer = class
  6619.     class function Create: _Transfer;
  6620.     class function CreateRemote(const MachineName: string): _Transfer;
  6621.   end;
  6622.  
  6623. { SQLOLE DB Backup }
  6624.  
  6625.   CoBackup = class
  6626.     class function Create: _Backup;
  6627.     class function CreateRemote(const MachineName: string): _Backup;
  6628.   end;
  6629.  
  6630. { SQLOLE HistoryFilter }
  6631.  
  6632.   CoHistoryFilter = class
  6633.     class function Create: _HistoryFilter;
  6634.     class function CreateRemote(const MachineName: string): _HistoryFilter;
  6635.   end;
  6636.  
  6637. { SQLOLE Operator }
  6638.  
  6639.   CoOperator = class
  6640.     class function Create: _Operator;
  6641.     class function CreateRemote(const MachineName: string): _Operator;
  6642.   end;
  6643.  
  6644. { SQLOLE Publication }
  6645.  
  6646.   CoPublication = class
  6647.     class function Create: _Publication;
  6648.     class function CreateRemote(const MachineName: string): _Publication;
  6649.   end;
  6650.  
  6651. { SQLOLE Article }
  6652.  
  6653.   CoArticle = class
  6654.     class function Create: _Article;
  6655.     class function CreateRemote(const MachineName: string): _Article;
  6656.   end;
  6657.  
  6658. { SQLOLE Subscription }
  6659.  
  6660.   CoSubscription = class
  6661.     class function Create: _Subscription;
  6662.     class function CreateRemote(const MachineName: string): _Subscription;
  6663.   end;
  6664.  
  6665. { SQLOLE DRI Check }
  6666.  
  6667.   CoCheck = class
  6668.     class function Create: _Check;
  6669.     class function CreateRemote(const MachineName: string): _Check;
  6670.   end;
  6671.  
  6672. { SQLOLE Server Group }
  6673.  
  6674.   CoServerGroup = class
  6675.     class function Create: _ServerGroup;
  6676.     class function CreateRemote(const MachineName: string): _ServerGroup;
  6677.   end;
  6678.  
  6679. { SQLOLE Registered Server }
  6680.  
  6681.   CoRegisteredServer = class
  6682.     class function Create: _RegisteredServer;
  6683.     class function CreateRemote(const MachineName: string): _RegisteredServer;
  6684.   end;
  6685.  
  6686. { SQLOLE BulkCopy }
  6687.  
  6688.   CoBulkCopy = class
  6689.     class function Create: _BulkCopy;
  6690.     class function CreateRemote(const MachineName: string): _BulkCopy;
  6691.   end;
  6692.  
  6693.  
  6694.  
  6695. implementation
  6696.  
  6697. uses ComObj;
  6698.  
  6699. class function CoApplication.Create: _Application;
  6700. begin
  6701.   Result := CreateComObject(Class_Application) as _Application;
  6702. end;
  6703.  
  6704. class function CoApplication.CreateRemote(const MachineName: string): _Application;
  6705. begin
  6706.   Result := CreateRemoteComObject(MachineName, Class_Application) as _Application;
  6707. end;
  6708.  
  6709. class function CoSQLServer.Create: _SQLServer;
  6710. begin
  6711.   Result := CreateComObject(Class_SQLServer) as _SQLServer;
  6712. end;
  6713.  
  6714. class function CoSQLServer.CreateRemote(const MachineName: string): _SQLServer;
  6715. begin
  6716.   Result := CreateRemoteComObject(MachineName, Class_SQLServer) as _SQLServer;
  6717. end;
  6718.  
  6719. class function CoDatabase.Create: _Database;
  6720. begin
  6721.   Result := CreateComObject(Class_Database) as _Database;
  6722. end;
  6723.  
  6724. class function CoDatabase.CreateRemote(const MachineName: string): _Database;
  6725. begin
  6726.   Result := CreateRemoteComObject(MachineName, Class_Database) as _Database;
  6727. end;
  6728.  
  6729. class function CoTable.Create: _Table;
  6730. begin
  6731.   Result := CreateComObject(Class_Table) as _Table;
  6732. end;
  6733.  
  6734. class function CoTable.CreateRemote(const MachineName: string): _Table;
  6735. begin
  6736.   Result := CreateRemoteComObject(MachineName, Class_Table) as _Table;
  6737. end;
  6738.  
  6739. class function CoColumn.Create: _Column;
  6740. begin
  6741.   Result := CreateComObject(Class_Column) as _Column;
  6742. end;
  6743.  
  6744. class function CoColumn.CreateRemote(const MachineName: string): _Column;
  6745. begin
  6746.   Result := CreateRemoteComObject(MachineName, Class_Column) as _Column;
  6747. end;
  6748.  
  6749. class function CoView.Create: _View;
  6750. begin
  6751.   Result := CreateComObject(Class_View) as _View;
  6752. end;
  6753.  
  6754. class function CoView.CreateRemote(const MachineName: string): _View;
  6755. begin
  6756.   Result := CreateRemoteComObject(MachineName, Class_View) as _View;
  6757. end;
  6758.  
  6759. class function CoUserDefinedDatatype.Create: _UserDefinedDatatype;
  6760. begin
  6761.   Result := CreateComObject(Class_UserDefinedDatatype) as _UserDefinedDatatype;
  6762. end;
  6763.  
  6764. class function CoUserDefinedDatatype.CreateRemote(const MachineName: string): _UserDefinedDatatype;
  6765. begin
  6766.   Result := CreateRemoteComObject(MachineName, Class_UserDefinedDatatype) as _UserDefinedDatatype;
  6767. end;
  6768.  
  6769. class function CoDefault.Create: _Default;
  6770. begin
  6771.   Result := CreateComObject(Class_Default) as _Default;
  6772. end;
  6773.  
  6774. class function CoDefault.CreateRemote(const MachineName: string): _Default;
  6775. begin
  6776.   Result := CreateRemoteComObject(MachineName, Class_Default) as _Default;
  6777. end;
  6778.  
  6779. class function CoRule.Create: _Rule;
  6780. begin
  6781.   Result := CreateComObject(Class_Rule) as _Rule;
  6782. end;
  6783.  
  6784. class function CoRule.CreateRemote(const MachineName: string): _Rule;
  6785. begin
  6786.   Result := CreateRemoteComObject(MachineName, Class_Rule) as _Rule;
  6787. end;
  6788.  
  6789. class function CoUser.Create: _User;
  6790. begin
  6791.   Result := CreateComObject(Class_User) as _User;
  6792. end;
  6793.  
  6794. class function CoUser.CreateRemote(const MachineName: string): _User;
  6795. begin
  6796.   Result := CreateRemoteComObject(MachineName, Class_User) as _User;
  6797. end;
  6798.  
  6799. class function CoGroup.Create: _Group;
  6800. begin
  6801.   Result := CreateComObject(Class_Group) as _Group;
  6802. end;
  6803.  
  6804. class function CoGroup.CreateRemote(const MachineName: string): _Group;
  6805. begin
  6806.   Result := CreateRemoteComObject(MachineName, Class_Group) as _Group;
  6807. end;
  6808.  
  6809. class function CoStoredProcedure.Create: _StoredProcedure;
  6810. begin
  6811.   Result := CreateComObject(Class_StoredProcedure) as _StoredProcedure;
  6812. end;
  6813.  
  6814. class function CoStoredProcedure.CreateRemote(const MachineName: string): _StoredProcedure;
  6815. begin
  6816.   Result := CreateRemoteComObject(MachineName, Class_StoredProcedure) as _StoredProcedure;
  6817. end;
  6818.  
  6819. class function CoIndex.Create: _Index;
  6820. begin
  6821.   Result := CreateComObject(Class_Index) as _Index;
  6822. end;
  6823.  
  6824. class function CoIndex.CreateRemote(const MachineName: string): _Index;
  6825. begin
  6826.   Result := CreateRemoteComObject(MachineName, Class_Index) as _Index;
  6827. end;
  6828.  
  6829. class function CoKey.Create: _Key;
  6830. begin
  6831.   Result := CreateComObject(Class_Key) as _Key;
  6832. end;
  6833.  
  6834. class function CoKey.CreateRemote(const MachineName: string): _Key;
  6835. begin
  6836.   Result := CreateRemoteComObject(MachineName, Class_Key) as _Key;
  6837. end;
  6838.  
  6839. class function CoTrigger.Create: _Trigger;
  6840. begin
  6841.   Result := CreateComObject(Class_Trigger) as _Trigger;
  6842. end;
  6843.  
  6844. class function CoTrigger.CreateRemote(const MachineName: string): _Trigger;
  6845. begin
  6846.   Result := CreateRemoteComObject(MachineName, Class_Trigger) as _Trigger;
  6847. end;
  6848.  
  6849. class function CoDevice.Create: _Device;
  6850. begin
  6851.   Result := CreateComObject(Class_Device) as _Device;
  6852. end;
  6853.  
  6854. class function CoDevice.CreateRemote(const MachineName: string): _Device;
  6855. begin
  6856.   Result := CreateRemoteComObject(MachineName, Class_Device) as _Device;
  6857. end;
  6858.  
  6859. class function CoAlert.Create: _Alert;
  6860. begin
  6861.   Result := CreateComObject(Class_Alert) as _Alert;
  6862. end;
  6863.  
  6864. class function CoAlert.CreateRemote(const MachineName: string): _Alert;
  6865. begin
  6866.   Result := CreateRemoteComObject(MachineName, Class_Alert) as _Alert;
  6867. end;
  6868.  
  6869. class function CoLogin.Create: _Login;
  6870. begin
  6871.   Result := CreateComObject(Class_Login) as _Login;
  6872. end;
  6873.  
  6874. class function CoLogin.CreateRemote(const MachineName: string): _Login;
  6875. begin
  6876.   Result := CreateRemoteComObject(MachineName, Class_Login) as _Login;
  6877. end;
  6878.  
  6879. class function CoLanguage.Create: _Language;
  6880. begin
  6881.   Result := CreateComObject(Class_Language) as _Language;
  6882. end;
  6883.  
  6884. class function CoLanguage.CreateRemote(const MachineName: string): _Language;
  6885. begin
  6886.   Result := CreateRemoteComObject(MachineName, Class_Language) as _Language;
  6887. end;
  6888.  
  6889. class function CoRemoteServer.Create: _RemoteServer;
  6890. begin
  6891.   Result := CreateComObject(Class_RemoteServer) as _RemoteServer;
  6892. end;
  6893.  
  6894. class function CoRemoteServer.CreateRemote(const MachineName: string): _RemoteServer;
  6895. begin
  6896.   Result := CreateRemoteComObject(MachineName, Class_RemoteServer) as _RemoteServer;
  6897. end;
  6898.  
  6899. class function CoRemoteLogin.Create: _RemoteLogin;
  6900. begin
  6901.   Result := CreateComObject(Class_RemoteLogin) as _RemoteLogin;
  6902. end;
  6903.  
  6904. class function CoRemoteLogin.CreateRemote(const MachineName: string): _RemoteLogin;
  6905. begin
  6906.   Result := CreateRemoteComObject(MachineName, Class_RemoteLogin) as _RemoteLogin;
  6907. end;
  6908.  
  6909. class function CoTask.Create: _Task;
  6910. begin
  6911.   Result := CreateComObject(Class_Task) as _Task;
  6912. end;
  6913.  
  6914. class function CoTask.CreateRemote(const MachineName: string): _Task;
  6915. begin
  6916.   Result := CreateRemoteComObject(MachineName, Class_Task) as _Task;
  6917. end;
  6918.  
  6919. class function CoTransfer.Create: _Transfer;
  6920. begin
  6921.   Result := CreateComObject(Class_Transfer) as _Transfer;
  6922. end;
  6923.  
  6924. class function CoTransfer.CreateRemote(const MachineName: string): _Transfer;
  6925. begin
  6926.   Result := CreateRemoteComObject(MachineName, Class_Transfer) as _Transfer;
  6927. end;
  6928.  
  6929. class function CoBackup.Create: _Backup;
  6930. begin
  6931.   Result := CreateComObject(Class_Backup) as _Backup;
  6932. end;
  6933.  
  6934. class function CoBackup.CreateRemote(const MachineName: string): _Backup;
  6935. begin
  6936.   Result := CreateRemoteComObject(MachineName, Class_Backup) as _Backup;
  6937. end;
  6938.  
  6939. class function CoHistoryFilter.Create: _HistoryFilter;
  6940. begin
  6941.   Result := CreateComObject(Class_HistoryFilter) as _HistoryFilter;
  6942. end;
  6943.  
  6944. class function CoHistoryFilter.CreateRemote(const MachineName: string): _HistoryFilter;
  6945. begin
  6946.   Result := CreateRemoteComObject(MachineName, Class_HistoryFilter) as _HistoryFilter;
  6947. end;
  6948.  
  6949. class function CoOperator.Create: _Operator;
  6950. begin
  6951.   Result := CreateComObject(Class_Operator) as _Operator;
  6952. end;
  6953.  
  6954. class function CoOperator.CreateRemote(const MachineName: string): _Operator;
  6955. begin
  6956.   Result := CreateRemoteComObject(MachineName, Class_Operator) as _Operator;
  6957. end;
  6958.  
  6959. class function CoPublication.Create: _Publication;
  6960. begin
  6961.   Result := CreateComObject(Class_Publication) as _Publication;
  6962. end;
  6963.  
  6964. class function CoPublication.CreateRemote(const MachineName: string): _Publication;
  6965. begin
  6966.   Result := CreateRemoteComObject(MachineName, Class_Publication) as _Publication;
  6967. end;
  6968.  
  6969. class function CoArticle.Create: _Article;
  6970. begin
  6971.   Result := CreateComObject(Class_Article) as _Article;
  6972. end;
  6973.  
  6974. class function CoArticle.CreateRemote(const MachineName: string): _Article;
  6975. begin
  6976.   Result := CreateRemoteComObject(MachineName, Class_Article) as _Article;
  6977. end;
  6978.  
  6979. class function CoSubscription.Create: _Subscription;
  6980. begin
  6981.   Result := CreateComObject(Class_Subscription) as _Subscription;
  6982. end;
  6983.  
  6984. class function CoSubscription.CreateRemote(const MachineName: string): _Subscription;
  6985. begin
  6986.   Result := CreateRemoteComObject(MachineName, Class_Subscription) as _Subscription;
  6987. end;
  6988.  
  6989. class function CoCheck.Create: _Check;
  6990. begin
  6991.   Result := CreateComObject(Class_Check) as _Check;
  6992. end;
  6993.  
  6994. class function CoCheck.CreateRemote(const MachineName: string): _Check;
  6995. begin
  6996.   Result := CreateRemoteComObject(MachineName, Class_Check) as _Check;
  6997. end;
  6998.  
  6999. class function CoServerGroup.Create: _ServerGroup;
  7000. begin
  7001.   Result := CreateComObject(Class_ServerGroup) as _ServerGroup;
  7002. end;
  7003.  
  7004. class function CoServerGroup.CreateRemote(const MachineName: string): _ServerGroup;
  7005. begin
  7006.   Result := CreateRemoteComObject(MachineName, Class_ServerGroup) as _ServerGroup;
  7007. end;
  7008.  
  7009. class function CoRegisteredServer.Create: _RegisteredServer;
  7010. begin
  7011.   Result := CreateComObject(Class_RegisteredServer) as _RegisteredServer;
  7012. end;
  7013.  
  7014. class function CoRegisteredServer.CreateRemote(const MachineName: string): _RegisteredServer;
  7015. begin
  7016.   Result := CreateRemoteComObject(MachineName, Class_RegisteredServer) as _RegisteredServer;
  7017. end;
  7018.  
  7019. class function CoBulkCopy.Create: _BulkCopy;
  7020. begin
  7021.   Result := CreateComObject(Class_BulkCopy) as _BulkCopy;
  7022. end;
  7023.  
  7024. class function CoBulkCopy.CreateRemote(const MachineName: string): _BulkCopy;
  7025. begin
  7026.   Result := CreateRemoteComObject(MachineName, Class_BulkCopy) as _BulkCopy;
  7027. end;
  7028.  
  7029.  
  7030. end.
  7031.