Discussion :

[cmarcx]

Bonjour à tous,

j'ai un problème avec le composant DBCheckbox dans Delphi 2007 en Win32.

En quelques mots, j'ai plusieurs DBCheckbox sur une fiche.
Afin de facilité la vie à l'utilisateur, j'ai créer un Bouton qui permet de coher/décocher automatiquement plusieurs DBCheckbox (donc un ptit raccourcis afin d'économiser des click)

Le bouton remplis bien son role, car il coche ou décoche plusieurs DBCheckbox quand on l'active...

Cependant, la modification de valeur booleènne des DBCheckbox n'a pas l'air de "dire" au DBNavigator attaché qu'il y'a eu une modification de valeurs!
De ce fait, l'icone pour mettre a jour l'enregistrement sur le DBNavigator de s'active pas!? (hors si on click sur un DBCheckbox manuellement ca marche)

A mon grand maleur, les DBCheckbox n'on pas de procédure .Click pour simuler le click

J'ai deja essayé de jouer avec les .State et .Checked des DBCheckbox afin de voir si le DBNavigator réagit, mais rien n'y fait!

Voici un extrait du code

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
 
procedure TFRM_Main.LB_Disponibilite_8HClick(Sender: TObject);
begin
  if Consultant_Dispo_8_checked=true then
  begin
    DBCB_Dispo_Lun8.Checked:=false;
    DBCB_Dispo_Mar8.Checked:=false;
    DBCB_Dispo_Mer8.Checked:=false;
    DBCB_Dispo_Jeu8.Checked:=false;
    DBCB_Dispo_Ven8.Checked:=false;
    DBCB_Dispo_Sam8.Checked:=false;
    DBCB_Dispo_Dim8.Checked:=false;
  end else
  begin
    DBCB_Dispo_Lun8.Checked:=true;
    DBCB_Dispo_Mar8.Checked:=true;
    DBCB_Dispo_Mer8.Checked:=true;
    DBCB_Dispo_Jeu8.Checked:=true;
    DBCB_Dispo_Ven8.Checked:=true;
    DBCB_Dispo_Sam8.Checked:=true;
    DBCB_Dispo_Dim8.Checked:=true;
  end;
end;

Ce code change donc bien l'etat "visuel" des DBCheckbox, mais n'affecte en rien l'etat du DBNavigator associé, hors dans mon cas, il faut que la base soit mise à jour avec ces nouvelles données!

Si quelqu'un a une idée

[defluc]

Et l'événement «OnChange»

[cmarcx]

Et l'événement «OnChange»

oui j'y ai pensé mais j'ai aucune idée de ce que je pourrais mettre dans cet event!?

[defluc]

j'ai aucune idée de ce que je pourrais mettre dans cet event!?

Ca, c'est à toi de le savoir.
Si ce que tu as mis dans l'événement «OnClick» te satisfait, tu n'as qu'à faire exécuter le même code dans l'événement «OnChange» en y mettant

Code :

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

LB_Disponibilite_8HClick(Nil);

[anapurna]

salut

evenement onclick et non click

le plus simple aurait ete de modifier la valeur du champs
et non l'interface

fait peut etre un post sur ton query afin de valide les changements

@+ Phil

[Cl@udius]

Salut

Perso au lieu de modifier les DBCheckBox, je modifierais directement les champs concernés dans la table (ou requête) via un Edit. Ainsi ton DBNavigator reflètera automatiquement le changement d'état.

[Edit]

le plus simple aurait ete de modifier la valeur du champs

Anarpuna pense comme moi !

[/Edit]
@+ Claudius

[cmarcx]

merci pour vos suggestions.

Mais j'aurais voulu que ca soit l'utilisateur qui valide la modification.
Car sinon, a chaque modifications, une request sql se fait alors que peut etre se n'est pas le choix définitif de l'utilisateur (heu sais pas si vous voyez ce que je veux dire...)

[Cl@udius]

Mais j'aurais voulu que ca soit l'utilisateur qui valide la modification.

Le choix est tout de même laissé à l'utilisateur.

sur ton bouton:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TaForm.TonBoutonClick(Sender: TObject);
begin
  with TonQuery do
  begin
    if not (State in [dsEdit, dsInsert]) then Edit;
    FieldByName('MonChamp1').Value := True;
    FieldByName('MonChamp2').Value := False;
    // etc...
  end;
end;

Maintenant l'utilisateur peut valider ou annuler ces modifs (Post ou Cancel via le DBNavigator).

@+ Claudius

[cmarcx]

Le choix est tout de même laissé à l'utilisateur.

sur ton bouton:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TaForm.TonBoutonClick(Sender: TObject);
begin
  with TonQuery do
  begin
    if not (State in [dsEdit, dsInsert]) then Edit;
    FieldByName('MonChamp1').Value := True;
    FieldByName('MonChamp2').Value := False;
    // etc...
  end;
end;

Maintenant l'utilisateur peut valider ou annuler ces modifs (Post ou Cancel via le DBNavigator).

@+ Claudius

Heu deso suis un peu boulet en base de données, je débute...

Le tonQuery c'est quoi au juste?
Moi j'ai un TMysqlServer, un TMySQLTable et un TDataSource???

[Cl@udius]

Salut

Le tonQuery c'est quoi au juste?
Moi j'ai un TMysqlServer, un TMySQLTable et un TDataSource???

Dans ce cas le 'TonQuery' représente le TMySQLTable.

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
 
procedure TFRM_Main.LB_Disponibilite_8HClick(Sender: TObject);
var 
  Dispo: Boolean;
begin
  Dispo := Consultant_Dispo_8.Checked;
  with MySQLTable1 do
  begin
    // S'assurer d'être en mode Edition
    if not (State in [dsEdit, dsInsert]) then Edit;
    // 
    FieldByName('Dispo_Lun8').Value := Dispo;
    FieldByName('Dispo_Mar8').Value := Dispo;
    FieldByName('Dispo_Mer8').Value := Dispo;
    FieldByName('Dispo_Jeu8').Value := Dispo;
    FieldByName('Dispo_Ven8').Value := Dispo;
    FieldByName('Dispo_Sam8').Value := Dispo;
    FieldByName('Dispo_Dim8').Value := Dispo;
  end;
end;

@+ Claudius

[cmarcx]

Super ca marche!

voici le code final

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
 
procedure TFRM_Consultants.LB_Disponibilite_8HClick(Sender: TObject);
begin
  if Consultant_Dispo_8_checked=1 then
  begin
    DBCB_Dispo_Lun8.Checked:=false;
    DBCB_Dispo_Mar8.Checked:=false;
    DBCB_Dispo_Mer8.Checked:=false;
    DBCB_Dispo_Jeu8.Checked:=false;
    DBCB_Dispo_Ven8.Checked:=false;
    DBCB_Dispo_Sam8.Checked:=false;
    DBCB_Dispo_Dim8.Checked:=false;
    Consultant_Dispo_8_checked:=0;
  end else
  begin
    DBCB_Dispo_Lun8.Checked:=true;
    DBCB_Dispo_Mar8.Checked:=true;
    DBCB_Dispo_Mer8.Checked:=true;
    DBCB_Dispo_Jeu8.Checked:=true;
    DBCB_Dispo_Ven8.Checked:=true;
    DBCB_Dispo_Sam8.Checked:=true;
    DBCB_Dispo_Dim8.Checked:=true;
    Consultant_Dispo_8_checked:=1;
  end;
  with MySQLTable_Consultants do
  begin
    // S'assurer d'être en mode Edition
    if not (State in [dsEdit, dsInsert]) then Edit;
    FieldByName('Dispo_Lun8').Value := Consultant_Dispo_8_checked;
    FieldByName('Dispo_Mar8').Value := Consultant_Dispo_8_checked;
    FieldByName('Dispo_Mer8').Value := Consultant_Dispo_8_checked;
    FieldByName('Dispo_Jeu8').Value := Consultant_Dispo_8_checked;
    FieldByName('Dispo_Ven8').Value := Consultant_Dispo_8_checked;
    FieldByName('Dispo_Sam8').Value := Consultant_Dispo_8_checked;
    FieldByName('Dispo_Dim8').Value := Consultant_Dispo_8_checked;
  end;
end;

Un grand merci à toi Claudius ainsi qu'aux autres