Восстановление записи dBase

Советы » DBASE и DBF » Восстановление записи 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com