Свойство DBGridEh Field LookupParams не публикует данные в базу данных - PullRequest
0 голосов
/ 18 февраля 2020

Я использую свойство LookupParams поля DBGridEh (потомок DBGrid) и удивляюсь, что это не отправка данных в базу данных. Он отображается в сетке, но не публикуется.

Я действительно не уверен, что это поведение свойства LookupParams, но я хотел бы опубликовать отображаемые данные.

Любой из вас знакомы с этим?

Ниже моего RME:

Sample Form LookupParams Setup Dropdown Listsource

unit Unit9;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DBGridEhGrouping, ToolCtrlsEh,
  DBGridEhToolCtrls, DynVarsEh, Data.DB, Datasnap.Provider, MemDS, DBAccess,
  Uni, EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh, Datasnap.DBClient,
  UniProvider, MySQLUniProvider, Vcl.StdCtrls;

type
  TForm9 = class(TForm)
    ucntest: TUniConnection;
    muptest: TMySQLUniProvider;
    cdstest: TClientDataSet;
    dbgrdhtest: TDBGridEh;
    uqtest: TUniQuery;
    dsptest: TDataSetProvider;
    dstest: TDataSource;
    dbgrdhtest1: TDBGridEh;
    cds1: TClientDataSet;
    uq1: TUniQuery;
    dsp1: TDataSetProvider;
    ds1: TDataSource;
    strngfldcds1ListID: TStringField;
    strngfldcds1Name: TStringField;
    strngfldcds1AccountNumber: TStringField;
    btntest: TButton;
    procedure btntestClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.btntestClick(Sender: TObject);
begin
if MessageDlg('Do you wish to save the Manpower Services changes?',
           mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
        cds1.ApplyUpdates(0);
      end;
end;

end.

Обновление: результат на MySQL Таблица

MySQL Database Table Query

...