home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d34567 / KADAO.ZIP / DaoApi.pas < prev    next >
Pascal/Delphi Source File  |  2002-02-28  |  8KB  |  324 lines
  1. unit DaoApi;
  2. interface
  3. const
  4. { RecordsetTypeEnum }
  5.  
  6.   dbOpenTable = 1;
  7.   dbOpenDynaset = 2;
  8.   dbOpenSnapshot = 4;
  9.   dbOpenForwardOnly = 8;
  10.   dbOpenDynamic = 16;
  11.  
  12. { EditModeEnum }
  13.  
  14.   dbEditNone = 0;
  15.   dbEditInProgress = 1;
  16.   dbEditAdd = 2;
  17.  
  18. { RecordsetOptionEnum }
  19.  
  20.   dbDenyWrite = 1;
  21.   dbDenyRead = 2;
  22.   dbReadOnly = 4;
  23.   dbAppendOnly = 8;
  24.   dbInconsistent = 16;
  25.   dbConsistent = 32;
  26.   dbSQLPassThrough = 64;
  27.   dbFailOnError = 128;
  28.   dbForwardOnly = 256;
  29.   dbSeeChanges = 512;
  30.   dbRunAsync = 1024;
  31.   dbExecDirect = 2048;
  32.  
  33. { LockTypeEnum }
  34.  
  35.   dbPessimistic = 2;
  36.   dbOptimistic = 3;
  37.   dbOptimisticValue = 1;
  38.   dbOptimisticBatch = 5;
  39.  
  40. { UpdateCriteriaEnum }
  41.  
  42.   dbCriteriaKey = 1;
  43.   dbCriteriaModValues = 2;
  44.   dbCriteriaAllCols = 4;
  45.   dbCriteriaTimestamp = 8;
  46.   dbCriteriaDeleteInsert = 16;
  47.   dbCriteriaUpdate = 32;
  48.  
  49. { FieldAttributeEnum }
  50.  
  51.   dbFixedField = 1;
  52.   dbVariableField = 2;
  53.   dbAutoIncrField = 16;
  54.   dbUpdatableField = 32;
  55.   dbSystemField = 8192;
  56.   dbHyperlinkField = 32768;
  57.   dbDescending = 1;
  58.  
  59. { DataTypeEnum }
  60.  
  61.   dbBoolean = 1;
  62.   dbByte = 2;
  63.   dbInteger = 3;
  64.   dbLong = 4;
  65.   dbAutoIncInteger=dbLong*10000;
  66.   dbCurrency = 5;
  67.   dbSingle = 6;
  68.   dbDouble = 7;
  69.   dbDate = 8;
  70.   dbBinary = 9;
  71.   dbText = 10;
  72.   dbLongBinary = 11;
  73.   dbMemo = 12;
  74.   dbGUID = 15;
  75.   dbBigInt = 16;
  76.   dbVarBinary = 17;
  77.   dbChar = 18;
  78.   dbNumeric = 19;
  79.   dbDecimal = 20;
  80.   dbFloat = 21;
  81.   dbTime = 22;
  82.   dbTimeStamp = 23;
  83.   dbUnspecifyed = 1024;
  84.  
  85. { RelationAttributeEnum }
  86.  
  87.   dbRelationUnique = 1;
  88.   dbRelationDontEnforce = 2;
  89.   dbRelationInherited = 4;
  90.   dbRelationUpdateCascade = 256;
  91.   dbRelationDeleteCascade = 4096;
  92.   dbRelationLeft = 16777216;
  93.   dbRelationRight = 33554432;
  94.  
  95. { TableDefAttributeEnum }
  96.  
  97.   dbAttachExclusive = 65536;
  98.   dbAttachSavePWD = 131072;
  99.   dbSystemObject = -2147483646;
  100.   dbAttachedTable = 1073741824;
  101.   dbAttachedODBC = 536870912;
  102.   dbHiddenObject = 1;
  103.  
  104. { QueryDefTypeEnum }
  105.  
  106.   dbQSelect = 0;
  107.   dbQProcedure = 224;
  108.   dbQAction = 240;
  109.   dbQCrosstab = 16;
  110.   dbQDelete = 32;
  111.   dbQUpdate = 48;
  112.   dbQAppend = 64;
  113.   dbQMakeTable = 80;
  114.   dbQDDL = 96;
  115.   dbQSQLPassThrough = 112;
  116.   dbQSetOperation = 128;
  117.   dbQSPTBulk = 144;
  118.   dbQCompound = 160;
  119.  
  120. { QueryDefStateEnum }
  121.  
  122.   dbQPrepare = 1;
  123.   dbQUnprepare = 2;
  124.  
  125. { DatabaseTypeEnum }
  126.  
  127.   dbVersion10 = 1;
  128.   dbEncrypt = 2;
  129.   dbDecrypt = 4;
  130.   dbVersion11 = 8;
  131.   dbVersion20 = 16;
  132.   dbVersion30 = 32;
  133.   dbVersion40 = 64;
  134.  
  135. { CollatingOrderEnum }
  136.  
  137.   dbSortNeutral = 1024;
  138.   dbSortArabic = 1025;
  139.   dbSortCyrillic = 1049;
  140.   dbSortCzech = 1029;
  141.   dbSortDutch = 1043;
  142.   dbSortGeneral = 1033;
  143.   dbSortGreek = 1032;
  144.   dbSortHebrew = 1037;
  145.   dbSortHungarian = 1038;
  146.   dbSortIcelandic = 1039;
  147.   dbSortNorwdan = 1030;
  148.   dbSortPDXIntl = 1033;
  149.   dbSortPDXNor = 1030;
  150.   dbSortPDXSwe = 1053;
  151.   dbSortPolish = 1045;
  152.   dbSortSpanish = 1034;
  153.   dbSortSwedFin = 1053;
  154.   dbSortTurkish = 1055;
  155.   dbSortJapanese = 1041;
  156.   dbSortChineseSimplified = 2052;
  157.   dbSortChineseTraditional = 1028;
  158.   dbSortKorean = 1042;
  159.   dbSortThai = 1054;
  160.   dbSortSlovenian = 1060;
  161.   dbSortUndefined = -1;
  162.  
  163. { IdleEnum }
  164.  
  165.   dbFreeLocks = 1;
  166.   dbRefreshCache = 8;
  167.  
  168. { PermissionEnum }
  169.  
  170.   dbSecNoAccess = 0;
  171.   dbSecFullAccess = 1048575;
  172.   dbSecDelete = 65536;
  173.   dbSecReadSec = 131072;
  174.   dbSecWriteSec = 262144;
  175.   dbSecWriteOwner = 524288;
  176.   dbSecDBCreate = 1;
  177.   dbSecDBOpen = 2;
  178.   dbSecDBExclusive = 4;
  179.   dbSecDBAdmin = 8;
  180.   dbSecCreate = 1;
  181.   dbSecReadDef = 4;
  182.   dbSecWriteDef = 65548;
  183.   dbSecRetrieveData = 20;
  184.   dbSecInsertData = 32;
  185.   dbSecReplaceData = 64;
  186.   dbSecDeleteData = 128;
  187.  
  188. { SynchronizeTypeEnum }
  189.  
  190.   dbRepExportChanges = 1;
  191.   dbRepImportChanges = 2;
  192.   dbRepImpExpChanges = 4;
  193.   dbRepSyncInternet = 16;
  194.  
  195. { ReplicaTypeEnum }
  196.  
  197.   dbRepMakeReadOnly = 2;
  198.   dbRepMakePartial = 1;
  199.  
  200. { WorkspaceTypeEnum }
  201.  
  202.   dbUseODBC = 1;
  203.   dbUseJet = 2;
  204.  
  205. { CursorDriverEnum }
  206.  
  207.   dbUseDefaultCursor = -1;
  208.   dbUseODBCCursor = 1;
  209.   dbUseServerCursor = 2;
  210.   dbUseClientBatchCursor = 3;
  211.   dbUseNoCursor = 4;
  212.  
  213. { DriverPromptEnum }
  214.  
  215.   dbDriverPrompt = 2;
  216.   dbDriverNoPrompt = 1;
  217.   dbDriverComplete = 0;
  218.   dbDriverCompleteRequired = 3;
  219.  
  220. { SetOptionEnum }
  221.  
  222.   dbPageTimeout = 6;
  223.   dbLockRetry = 57;
  224.   dbMaxBufferSize = 8;
  225.   dbUserCommitSync = 58;
  226.   dbImplicitCommitSync = 59;
  227.   dbExclusiveAsyncDelay = 60;
  228.   dbSharedAsyncDelay = 61;
  229.   dbMaxLocksPerFile = 62;
  230.   dbLockDelay = 63;
  231.   dbRecycleLVs = 65;
  232.   dbFlushTransactionTimeout = 66;
  233.  
  234. { ParameterDirectionEnum }
  235.  
  236.   dbParamInput = 1;
  237.   dbParamOutput = 2;
  238.   dbParamInputOutput = 3;
  239.   dbParamReturnValue = 4;
  240.  
  241. { UpdateTypeEnum }
  242.  
  243.   dbUpdateBatch = 4;
  244.   dbUpdateRegular = 1;
  245.   dbUpdateCurrentRecord = 2;
  246.  
  247. { RecordStatusEnum }
  248.  
  249.   dbRecordUnmodified = 0;
  250.   dbRecordModified = 1;
  251.   dbRecordNew = 2;
  252.   dbRecordDeleted = 3;
  253.   dbRecordDBDeleted = 4;
  254.  
  255. { CommitTransOptionsEnum }
  256.  
  257.   dbForceOSFlush = 1;
  258.  
  259. { _DAOSuppHelp }
  260.  
  261.   LogMessages = 0;
  262.   KeepLocal = 0;
  263.   Replicable = 0;
  264.   ReplicableBool = 0;
  265.   V1xNullBehavior = 0;
  266.  
  267. { _PredefinedLanguages}
  268.   dbLangArabic = ';LANGID=0x0401;CP=1256;COUNTRY=0';
  269.   dbLangCzech = ';LANGID=0x0405;CP=1250;COUNTRY=0';
  270.   dbLangDutch = ';LANGID=0x0413;CP=1252;COUNTRY=0';
  271.   dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0';
  272.   dbLangGreek = ';LANGID=0x0408;CP=1253;COUNTRY=0';
  273.   dbLangHebrew = ';LANGID=0x040D;CP=1255;COUNTRY=0';
  274.   dbLangHungarian = ';LANGID=0x040E;CP=1250;COUNTRY=0';
  275.   dbLangIcelandic = ';LANGID=0x040F;CP=1252;COUNTRY=0';
  276.   dbLangNordic = ';LANGID=0x041D;CP=1252;COUNTRY=0';
  277.   dbLangNorwDan = ';LANGID=0x0414;CP=1252;COUNTRY=0';
  278.   dbLangPolish = ';LANGID=0x0415;CP=1250;COUNTRY=0';
  279.   dbLangCyrillic = ';LANGID=0x0419;CP=1251;COUNTRY=0';
  280.   dbLangSpanish = ';LANGID=0x040A;CP=1252;COUNTRY=0';
  281.   dbLangSwedFin = ';LANGID=0x040B;CP=1252;COUNTRY=0';
  282.   dbLangTurkish = ';LANGID=0x041F;CP=1254;COUNTRY=0';
  283.   dbLangJapanese = ';LANGID=0x0411;CP=932;COUNTRY=0';
  284.   dbLangChineseSimplified = ';LANGID=0x0804;CP=936;COUNTRY=0';
  285.   dbLangChineseTraditional = ';LANGID=0x0404;CP=950;COUNTRY=0';
  286.   dbLangKorean = ';LANGID=0x040C;CP=494;COUNTRY=0';
  287.   dbLangThai = ';LANGID=0x101E;CP=874;COUNTRY=0';
  288.   dbLangSlovenian = ';LANGID=0x0424;CP=1250;COUNTRY=0';
  289.  
  290.  
  291.  
  292. { _PredefinedTableTypes}
  293.   dBase_50_Table        = 'dBase 5.0;DATABASE=%s';     {Drive:\Path}
  294.   dBase_III_Table       = 'dBase III;DATABASE=%s';     {Drive:\Path}
  295.   dBase_IV_Table        = 'dBase IV;DATABASE=%s';      {Drive:\Path}
  296.   Excel_30_Table        = 'Excel 3.0;DATABASE=%s';     {Drive:\Path\Filename.xls}
  297.   Excel_40_Table        = 'Excel 4.0;DATABASE=%s';     {Drive:\Path\Filename.xls}
  298.   Excel_50_Table        = 'Excel 5.0;DATABASE=%s';     {Drive:\Path\Filename.xls}
  299.   Excel_80_Table        = 'Excel 8.0;DATABASE=%s';     {Drive:\Path\Filename.xls}
  300.   Exchange_40_Table     = 'Exchange 4.0;MAPILEVEL=$s'; {Brrrrrrrrrr}
  301.   HTML_Import_Table     = 'HTML Import;DATABASE=%s';   {URL}
  302.   Jet_Table             = ';DATABASE=%s';              {Drive:\Path\Filename.mdb}
  303.   Jet_2x_Table          = ';DATABASE=%s';              {Drive:\Path\Filename.mdb}
  304.   Jet_3x_Table          = ';DATABASE=%s';              {Drive:\Path\Filename.mdb}
  305.   Lotus_WK1_Table       = 'Lotus WK1;DATABASE=%s';     {Drive:\Path\Filename.wk1}
  306.   Lotus_WK3_Table       = 'Lotus WK3;DATABASE=%s';     {Drive:\Path\Filename.wk3}
  307.   Lotus_WK4_Table       = 'Lotus WK4;DATABASE=%s';     {Drive:\Path\Filename.wk4}
  308.   FoxPro_20_Table       = 'FoxPro 2.0;DATABASE=%s';    {Drive:\Path}
  309.   FoxPro_25_Table       = 'FoxPro 2.5;DATABASE=%s';    {Drive:\Path}
  310.   FoxPro_26_Table       = 'FoxPro 2.6;DATABASE=%s';    {Drive:\Path}
  311.   FoxPro_30_Table       = 'FoxPro 3.0;DATABASE=%s';    {Drive:\Path}
  312.   FoxPro_DBC_Table      = 'FoxPro DBC;DATABASE=%s';    {Drive:\Path\FileName.dbc}
  313.   Paradox_3X_Table      = 'Paradox 3.X;DATABASE=%s';   {Drive:\Path}
  314.   Paradox_4X_Table      = 'Paradox 4.X;DATABASE=%s';   {Drive:\Path}
  315.   Paradox_5X_Table      = 'Paradox 5.X;DATABASE=%s';   {Drive:\Path}
  316.   Paradox_7X_Table      = 'Paradox 7.X;DATABASE=%s';   {Drive:\Path}
  317.   Text_Table            = 'Text;DATABASE=%s';          {Drive:\Path}
  318.   ODBC_Table            = 'ODBC;DATABASE=%s;UID=%s;PWD=%s;DSN=%s';
  319.   ODBC_Table_Prompt    =  'ODBC;';
  320.  
  321. implementation
  322.  
  323. end.
  324.