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