(*****************************************************************************
*
DbUtils.pas
*
* Утилита для работы с базами данных
*
* Создана
09/20/96
*****************************************************************************)
unit Dbutils;
(****************************************************************************)
(****************************************************************************)
interface
(****************************************************************************)
(****************************************************************************)
uses
DbTables;
function DbGetVersion(table: TTable):
LongInt;
(****************************************************************************)
(****************************************************************************)
implementation
(****************************************************************************)
(****************************************************************************)
uses
Db, DbiProcs, DbiTypes, {DbiErrs,}
SysUtils;
{---------------------------------------------------------------------------}
(*
* Цель: определение номера версии структуры
таблицы
* Параметры: table (I) - интересующая нас
таблица
* Возвращаемая величина: номер версии
* Исключительная ситуация: EDatabaseError
*)
function DbGetVersion(table: TTable):
LongInt;
var
hCursor : hDBICur;
tableDesc: TBLFullDesc;
cName : array[0..255] of Char;
begin
{ копируем имя таблицы в строку 'с'
}
StrPCopy(cName, table.TableName);
{ просим BDE создать запись, содержащую
информацию об определенной таблице }
Check(DbiOpenTableList(table.DBHandle, True, False, cName,
hCursor));
{ получаем запись, содержащую информацию о
структуре }
Check(DbiGetNextRecord(hCursor, dbiNOLOCK, @tableDesc,
nil));
{ возвращаем поле записи, содержащее номер
версии структуры нашей таблицы }
Result := tableDesc.tblExt.iRestrVersion;
Check(DbiCloseCursor(hCursor));
end;
end. 
