Использование API BDE для представления данных

unit
 Unit1;

interface


uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, BDE, ExtCtrls;

type

  TMainForm = class
(TForm)
    PriorBtn: TBitBtn;
    Panel2: TPanel;
    NextBtn: TBitBtn;
    Label3: TLabel;
    CountryEdit: TEdit;
    Label1: TLabel;
    CapitalEdit: TEdit;
    procedure
 PriorBtnClick(Sender: TObject);
    procedure
 FormShow(Sender: TObject);
    procedure
 FormClose(Sender: TObject; var
 Action: TCloseAction);
    procedure
 NextBtnClick(Sender: TObject);
  private

    hDB: hDBIDB;
    hCur: hDBICur;
    CursProps: CurProps;
    RecBuf: pByte;
    FValue: array
[0..255] of
 Char;
    IsEmpty: Bool;
    procedure
 OnBDEError;
  public

  end
;

var

  MainForm: TMainForm;

implementation


{$R *.DFM}

procedure
 TMainForm.OnBDEError;
var
 ErrInfo: dbiErrInfo; //Структура, содержащая информацию об ошибках
  AStr: string
;
begin

  DbiGetErrorInfo(True, ErrInfo); //Функция возвращает информацию об ошибке
  case
 ErrInfo.iError of

    9733: AStr := 'Для создания записи недостаточно параметров ';
    10024: AStr := 'Ошибка доступа к данным';
    10245: AStr := 'База данных занята другим пользователем';
    10038: AStr := 'Значение поля задано неверно';
    11871: AStr := 'Несоответствие типов';
    11959: AStr := 'В выражении отсутствует оператор GROUP BY';
  else

    AStr := 'Ошибочная операция с данными';
  end
;
  ShowMessage(AStr);
end
;

procedure
 TMainForm.FormShow(Sender: TObject);
begin

  hDB := nil
;
  hCur := nil
;
  DbiInit(nil
); // Инициализация системы BDE
  DbiOpenDatabase // Открытие базы данных
    (
    'DBDEMOS', // Псевдоним базы данных
    nil
, // Тип базы данных
    dbiReadWrite, // Режим редактирования данных
    dbiOpenShared, // Режим разделения данных
    nil
, // Пароль
    0, // Число дополнительных параметров
    nil
, // Перечень полей для доп. параметров
    nil
, // Список доп. параметров
    hDB // Дескриптор базы данных
    );
  DbiSetPrivateDir('c:	emp'); // Определение временного каталога
  DbiOpenTable // Открытие таблицы
    (
    hDB, // Дескриптор базы данных
    PChar('COUNTRY'), // Название таблицы
    PChar(szParadox), // Тип таблицы (только для локальных БД)
    nil
, // Название индекса (необязательный)
    nil
, // IndexTagName - только для dBASE
    0, // 0 - использовать первичный индекс
    dbiReadWrite, // Режим редактирования данных
    dbiOpenShared, // Режим разделения данных
    xltField, // Режим трансляции данных
    False, // Признак одностороннего перемещения курсора
    nil
, // Дополнительные параметры
    hCur // Дескриптор курсора таблицы
    );
  DbiGetCursorProps // Определение параметров курсора
    (
    hCur, // Дескриптор курсора таблицы
    CursProps // Структура параметров курсора
    );
  GetMem(RecBuf, CursProps.iRecbufSize * SizeOf(Byte)); // Выделение памяти под буфер записи
  DbiSetToBegin(hCur); // Установка курсора в начало набора данных
  DbiGetNextRecord // Перемещение на первую запись
    (
    hCur, // Дескриптор курсора таблицы
    dbiNoLock, // Режим ограничения доступа
    RecBuf, // Буфер записи
    nil
 // Параметры записи
    );
  DbiGetField // Получение значения поля
    (
    hCur, // Дескриптор курсора таблицы
    1, // Номер поля в структуре таблицы
    RecBuf, // Буфер записи
    @FValue, // Переменная, в кторую передается значение
    IsEmpty // Признак пустой ячейки
    );
  MainForm.CountryEdit.Text := FValue;
  DbiGetField(hCur, 2, RecBuf, @FValue, IsEmpty);
  MainForm.CapitalEdit.Text := FValue;
end
;

procedure
 TMainForm.FormClose(Sender: TObject; var
 Action: TCloseAction);
begin

  try

  finally

    FreeMem(RecBuf); // Освобождение памяти буфера записи
    DbiCloseCursor(hCur); // Закрытие курсора
    DbiCloseDatabase(hDB); // Закрытие базы данных
    DbiExit; // Закрытие сеанса работы с BDE
  end

end
;

procedure
 TMainForm.PriorBtnClick(Sender: TObject);
begin

  try

    if
 DbiGetPriorRecord(hCur, dbiNoLock, RecBuf, nil
) = DBIERR_BOF
      then
 PriorBtn.Enabled := False
    else

    begin

      if
 not
 NextBtn.Enabled then
 NextBtn.Enabled := True;
      DbiGetField(hCur, 1, RecBuf, @FValue, IsEmpty);
      MainForm.CountryEdit.Text := FValue;
      DbiGetField(hCur, 2, RecBuf, @FValue, IsEmpty);
      MainForm.CapitalEdit.Text := FValue;
    end
;
  except

    OnBDEError;
  end
;
end
;

procedure
 TMainForm.NextBtnClick(Sender: TObject);
begin

  try

    if
 DbiGetNextRecord(hCur, dbiNoLock, RecBuf, nil
) = DBIERR_EOF
      then
 NextBtn.Enabled := False
    else

    begin

      if
 not
 PriorBtn.Enabled then
 PriorBtn.Enabled := True;
      DbiGetField(hCur, 1, RecBuf, @FValue, IsEmpty);
      MainForm.CountryEdit.Text := FValue;
      DbiGetField(hCur, 2, RecBuf, @FValue, IsEmpty);
      MainForm.CapitalEdit.Text := FValue;
    end
;
  except

    OnBDEError;
  end
;
end
;

end
.

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

• BDE32 приложения в ptp-сети
• Архитектура BDE и его особенности при работе с SQL-серверами 1
• Архитектура BDE и его особенности при работе с SQL-серверами