开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > 其他数据库 > 查看源码
TUTIL32.PAS
资源名称：paradoxedit.rar　[点击查看]
上传用户：oceanht
上传日期：2014-03-26
资源大小：1376k
文件大小：3k
源码类别：

其他数据库

开发平台：

Delphi

TUTIL32.PAS：源码内容
  1. unit TUtil32;
  3. interface
  5. uses Bde, DbiTypes;
  7. { TUtility (TUVerifyTable) Session Options }
  8. const
  9.   TU_Append_Errors = 1;
  10.   TU_No_Secondary  = 2;
  11.   TU_No_Warnings   = 4;
  12.   TU_Header_Only   = 8;
  13.   TU_Dialog_Hide   = 16;
  14.   TU_No_Lock       = 32;
  16. { TUtility type definitions }
  17. type
  18.   hTUses  = Word;
  19.   phTUses = ^hTUses;
  20.   { Verify Callback processes }
  21.   TUVerifyProcess = (TUVerifyHeader, TUVerifyIndex, TUVerifyData, TUVerifySXHeader,
  22.                      TUVerifySXIndex, TUVerifySXData, TUVerifySXIntegrity,
  23.                      TUVerifyTableName, TURebuild);
  24.   { Call back info for Verify Callback function }
  25.   TUVerifyCallBack = record
  26.     PercentDone: word;
  27.     TableName: DBIPath;
  28.     Process: TUVerifyProcess;
  29.     CurrentIndex: word;
  30.     TotalIndex: word;
  31.   end;
  33. { TUtility functions }
  34. function TUInit(var hTUSession: hTUses): DBIResult;  stdcall;
  36. function TUVerifyTable(hTUSession: hTUses;
  37.                        pszTableName,
  38.                        pszDriverType,
  39.                        pszErrTableName,
  40.                        pszPassword: PChar;
  41.                        iOptions: integer;
  42.                        var piErrorLevel: Integer): DBIResult; stdcall;
  44. function TURebuildTable(hTUSession: hTUses;
  45.                         pszTableName,
  46.                         pszDriverType,
  47.                         pszBackupTableName,
  48.                         pszKeyviolName,
  49.                         pszProblemTableName: PChar;
  50.                         pCrDesc: pCRTblDesc): DBIResult; stdcall;
  52. function TUGetCRTblDescCount(hTUSession: hTUses;
  53.                              pszTableName: PChar;
  54.                              var iFldCount,
  55.                              iIdxCount,
  56.                              iSecRecCount,
  57.                              iValChkCount,
  58.                              iRintCount,
  59.                              iOptParams,
  60.                              iOptDataLen: word): DBIResult; stdcall;
  62. function TUFillCRTblDesc(hTUSession: hTUses;
  63.                          pCrDesc: pCRTblDesc;
  64.                          pszTableName,
  65.                          pszPassword: PChar): DBIResult; stdcall;
  67. function TUFillCURProps(hTUSession: hTUses;
  68.                         pszTableName: PChar;
  69.                         var tblProps: CURProps): DBIResult; stdcall;
  71. function TUGetExtTblProps(hTUSession: hTUses;
  72.                           pszTableName: PChar;
  73.                           var pTS: TimeStamp;
  74.                           var pbReadOnly: Boolean): DBIResult; stdcall;
  76. function TUExit(hTUSession: hTUses): DBIResult; stdcall;
  78. function TUGetErrorString(iErrorcode: DBIResult;
  79.                           pszError: PChar): DBIResult; stdcall;
  81. implementation
  83. const
  84.   TU32 = 'TUTIL32.DLL';
  86. function TUInit;              external TU32 name 'TUInit';
  87. function TUVerifyTable;       external TU32 name 'TUVerifyTable';
  88. function TURebuildTable;      external TU32 name 'TURebuildTable';
  89. function TUGetCRTblDescCount; external TU32 name 'TUGetCRTblDescCount';
  90. function TUFillCRTblDesc;     external TU32 name 'TUFillCRTblDesc';
  91. function TUFillCURProps;      external TU32 name 'TUFillCURProps';
  92. function TUGetExtTblProps;    external TU32 name 'TUGetExtTblProps';
  93. function TUExit;              external TU32 name 'TUExit';
  94. function TUGetErrorString;    external TU32 name 'TUGetErrorString';
  96. end.