Discussion :

[wantedman27]

Bonjour,

J'ai remarqué un problème entre Delphi 10.3 et Delphi 12.1 sur les TDBCheckBox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
unit TestOnClick;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, OraCall,
  Data.DB, DBAccess, Ora, MemDS, Datasnap.DBClient, VirtualDataSet;
 
type
  TForm1 = class(TForm)
    DBCheckBox1: TDBCheckBox;
    OraQuery1: TOraQuery;
    OraSession1: TOraSession;
    OraDataSource1: TOraDataSource;
    OraQuery1COCHE: TFloatField;
    procedure DBCheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.DBCheckBox1Click(Sender: TObject);
begin
  showmessage('Click');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  OraQuery1.Close;
  OraQuery1.Open;
end;
 
end.

Sur le code ci-dessus, le comportement est différent entre 10.3 et 12.1.

Dans 10.3 le OnClick se déclenche (je précise que la TOraQuery renvoi toujours '1' pour le test)
Dans 12.1 le OnClick ne se déclenche pas

Quelqu'un d'autre à été confronté à ce cas, et si oui avez vous trouvez une solution ?

Merci d'avance

[ShaiLeTroll]

TFloatField au lieu d'un TBooleanField ?

Ne faut-il pas jouer sur ValueChecked / ValueUnchecked respectivement à 'True' et 'False' (voire 'Vrai' et 'Faux' si localisée FR) à changer par '1' et '0'

Le TOraQuery est bien modifiable ?
LocalUpdate à True ou False ?
Comme il n'y a pas de Edit explicit, on suppose un AutoEdit à True dans TOraDataSource
La case à cocher change bien d'aspect coché / décoché ?

Pour le OnClick se déclenche Checked doit changer de valeur (plus exactement State si l'on supporte l'état NULL grayed)

[wantedman27]

J'avais choisi un Integer à la base, c'est le cast auto de Delphi.

Concernant le boolean, en base de données, toutes les infos sont enregistrées à 0 ou 1 donc le passage au booléen obligerais la modification de toutes les procédures.

Oui le TOraQuery est modifiable.

Je n'ai rien touché sur ce projet de test donc LocalUpdate est à sa valeur par défaut = False et pareil pour le AutoEdit -> valeur par défaut = true

Et pour finir, oui la case à cocher change d'aspect.

Je mets un autre code qui ne nécessite pas de composant externe ça sera plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
unit TestOnClick;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Data.DB,
  Datasnap.DBClient;
 
type
  TForm1 = class(TForm)
    DBCheckBox1: TDBCheckBox;
    DataSource1: TDataSource;
    procedure DBCheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    MyDataSet : TClientDataSet;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.DBCheckBox1Click(Sender: TObject);
begin
  showmessage('Click');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyDataSet := TClientDataSet.Create(nil);
  with MyDataSet do
  begin
    Name := 'Test';
    FieldDefs.Add('COCHE', ftInteger);
    CreateDataSet;
 
    Append;
    FieldByName('COCHE').AsInteger := 1;
  end;
  DataSource1.DataSet := MyDataSet;
end;
 
end.

[ShaiLeTroll]

Cela retire tout doute liée à la base Oracle et cela sera plus facile pour déclarer un ticket car c'est clairement un Bug

https://embt.atlassian.net/servicede...nation=portals - nouveau site
https://quality.embarcadero.com/secure/Dashboard.jspa - ancien site

Il y a un bug inverse TDBCheckBox triggers OnClick while scrolling through the dataset
Si cela se trouve la correction de ce Bug est source d'un nouveau Bug


En D10.0, cela déclenche le OnClick lors de l'affectation par code AsInteger, c'est vraiment pas terrible !

[wantedman27]

Merci en tout cas pour l'aide, le ticket a été ouvert
https://embt.atlassian.net/servicede...tal/1/RSS-2131

Je trouve étonnant que ça ne soit pas déjà remonté par contre