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

Previous  Top  Next

    
 

 

 

Code:

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):

Code:

procedure TForm1.butRecallClick(Sender: TObject);

begin

if dbRecall(Table1) <> DBIERR_NONE then

   ShowMessage('Не могу восстановить запись!');

end;

 

 

 

- Loren Scott

©Drkb::02702

Взято из Советов по Delphi от Валентина Озерова

Сборник Kuliba

 

 


 

Code:

procedure RecordUndelete(aTable: TTable);

begin

aTable.UpdateCursorPos;

try

   Check(DbiUndeleteRecord(aTable.Handle));

except

   ShowMessage('No undelete performed.');

end;

end;

 

©Drkb::02703

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php