Использование буфера записей BDE

Delphi , Базы данных , BDE

Оформил: DeeCo

Автор: Александр Шпихернюк

Данная задача решается несколькими способами:

1. Перевести Query в режим редактирования установить поле в необходимое значение и вызвать метод Query.Post;
2. C использованием другого Query выполнить Update записи, затем переоткрыть Query.
3. C использованием другого Query выполнить Update записи, затем в буфере записей выставить значение нужного поля.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, Grids, DBGrids, BDE, Menus;

type
  TForm1 = class(TForm)
    DataSource: TDataSource;
    Query: TQuery;
    DBGrid: TDBGrid;
    Database: TDatabase;
    SetFldQ: TQuery;
    PopupMenu: TPopupMenu;
    Sost1: TMenuItem;
    Sost0: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Sost1Click(Sender: TObject);
    procedure Sost0Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetSost(AValue: Integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function GetBDERecBuff(ACursor: TQuery): Pointer; {cursor}
var
  P, P1: Pointer;
  CurNo, RecNo, RecSize: Integer;
begin
  //Вызов этого метода синхронизирует положение курсора
  //DataSet и BDE
  ACursor.UpdateCursorPos;

  P := ACursor.Handle;
  Inc(PChar(P), $1E);
  P := Pointer(P^);
  Inc(PChar(P), $7E);
  P := Pointer(P^);
  Inc(PChar(P), $14);
  P := Pointer(P^);
  Inc(PChar(P), $36);
  P := Pointer(P^);

  // Получаем внутренний BDE-шный номер текущей записи
  P1 := P;
  Inc(PChar(P1), $A);
  Inc(PChar(P1), $2);
  RecNo := Integer(P1^) - 1;

  Inc(PChar(P), $4);
  P := Pointer(P^);

  // Получаем внутренний BDE-шный номер курсора
  P1 := P;
  Inc(PChar(P1), $11F);
  P1 := Pointer(P1^);
  CurNo := Word(P1^);

  // Получаем размер записи
  P1 := P;
  Inc(PChar(P1), $113);
  RecSize := Word(P1^);

  // Получаем указатель на массив где хранятся указатели на
  // буфера всех BDE курсоров
  Inc(PChar(P), $4);
  P := Pointer(P^);
  Inc(PChar(P), $68);
  P := Pointer(P^);

  // Выбираем из массива нужный нам указатель
  Inc(PChar(P), 4 * (CurNo - 1));
  P := Pointer(P^);

  // Получаем указатель на текущую запись
  Inc(PChar(P), RecNo * RecSize);

  Result := P;
end;

procedure PutFldToBDEBuf(ACursor: TQuery; AField: TField; pValue: Pointer);
var
  P: Pointer;
begin
  // Получаем указатель на текущую запись
  P := GetBDERecBuff(ACursor);
  //складываем нужное значение в буфер BDE
  Check(DbiPutField(ACursor.Handle, AField.FieldNo, P, pValue));
  //Вызов Resync для пересчета Calc-полей и немедленного отображений изменении на
  экране
    ACursor.Resync([]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Database.Open;
  Query.DataBaseName := Database.DatabaseName;
  SetFldQ.DataBaseName := Database.DatabaseName;
  DBGrid.PopupMenu := PopupMenu;
  Sost1.ShortCut := TextToShortCut('Ctrl+A');
  Sost0.ShortCut := TextToShortCut('Ctrl+S');
  Query.SQL.Text := 'SELECT * FROM AKODIF ORDER BY CODE';
  Query.Open;
  SetFldQ.SQL.Text := 'UPDATE AKODIF SET SOST = :SOST WHERE CODE = :CODE';
  SetFldQ.Prepare;
end;

procedure TForm1.SetSost(AValue: Integer);
begin
  SetFldQ.ParamByName('SOST').AsInteger := AValue;
  SetFldQ.ParamByName('CODE').AsInteger := Query.FieldByName('CODE').AsInteger;
  SetFldQ.ExecSQL;
  PutFldToBDEBuf(Query, Query.FieldByName('SOST'), @AValue);
end;

procedure TForm1.Sost1Click(Sender: TObject);
begin
  SetSost(1);
end;

procedure TForm1.Sost0Click(Sender: TObject);
begin
  SetSost(0);
end;

end.

Использование буфера записей BDE: разработчик получает доступ к буферу записи запроса TQuery с помощью функции GetBDERecBuff, что позволяет изменять значение поля SOST в таблице AKODIF при навигации по ReadOnly DBGrid и нажатии короткой клавиши.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: BDE ::