Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на Delphi » Базы Данных

Восстановление записи dBase
После удаления записи из таблицы (dBase), возможно ли ее восстановить? Какие идеи?


   
function GetTableCursor( oTable : TTable ) : hDBICur;
var
szTable : Array [0..78] of Char;
begin
StrPCopy( szTable, oTable.TableName );
DbiGetCursorForTable( oTable.DBHandle, szTable, nil, Result );
end;

function dbRecall( oTable : TTable ) : DBIResult;
begin
Result := DbiUndeleteRecord( GetTableCursor( oTable ) ) );
end;

Могли бы вы дать пример использования функции?

Предположим, у вас на форме имеется кнопка (с именем 'butRecall'), восстанавливающая текущую отображаемую (или позиционируемую курсором) запись, данный код, будучи расположенный в обработчике события кнопки OnClick (вместе с опубликованным выше кодом), это демонстрирует (продвигаясь в наших предположених дальше, имя вашего объекта TTable - Table1 и имя текущей формы - Form1):


   
procedure TForm1.butRecallClick(Sender : TObject);
begin
if dbRecall( Table1 ) <> DBIERR_NONE then
ShowMessage( 'Не могу восстановить запись!' );
end;

- Loren Scott

Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)
Просмотров: 205 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]