Discussion :

[SergioMaster]

Bonjour,

Je voudrais empêcher la modification d'une cellule en fonction d'une autre valeur . Par exemple , ma base de données contient 3 dates ces dates ne sont modifiables que dans les 24 heures suivant leur saisie !

Table
CLE,
....
DATE_DEPART,
DATE_DEPART2,
DATE_DEPART3,
DATE1TIMESTAMP, // date de saisie de la date1 (D1) géré par trigger
DATE2TIMESTAMP, // " " " date2 (D2) " " "
DATE3TIMESTAMP // " " " date3 (D3) " " "

Ce n'est pas forcément la meilleure structure de table , mais il s'agit d'une modification sur de l'existant et bien entendu pour hier !


pour ce faire j'ai utiliser l'évènement onColEnter

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
procedure TMain.SMDBGrid1ColEnter(Sender: TObject);
var DateSaisie,Delay : TDateTime;
 function Delai(DateField : TField) : TDateTime;
 begin
   if DateField.IsNull then Result:=IncDay(Now)
   else Result:=IncDay(DateField.AsDateTime);
   case DayOfTheWeek(Result) of
     6 : result:=IncDay(Result,2);  // samedi -> lundi
     7 : result:=IncDay(Result);    // dimanche -> lundi
   end;
 end;
 
begin
 
if SMDBGrid1.SelectedField=ZQ.FieldByName('DATE_DEPART') then
 begin
   delay:=Delai(ZQ.FieldByName('D1'));
   SMDBGrid1.SelectedField.ReadOnly:= (now>delay);
 end;
if SMDBGrid1.SelectedField=ZQ.FieldByName('DATE_DEPART2') then
 begin
   delay:=Delai(ZQ.FieldByName('D2'));
   SMDBGrid1.SelectedField.ReadOnly:=(now>delay);
 end;
if SMDBGrid1.SelectedField=ZQ.FieldByName('DATE_DEPART3') then
 begin
   delay:=Delai(ZQ.FieldByName('D3'));
   SMDBGrid1.SelectedField.ReadOnly:= (now>delay);
 end;
end;

cependant si ce code est correct , une problématique se pose si je change de ligne sans changer de colonne
(Oui ! il s'agit en fait d'une SMDBGrid , mais je ne pense pas que cela ait un impact)

Question : Quel serait le bon évènement ? le OnSelectCell serait bien sur le meiux mais n'existe pas dans la DBGrid ni SMDBGrid du coup

[94340DB]

Bonjour, SergioMaster,
j'ai créé un compos en 10 minute dérivé de DBRID en lui ajoutant la propriété OnSelectCell. Si le code vous intéresse je le poste sur ce forum.
J'ai fait un test ça fonctionne très bien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.MayDBGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
label1.Caption := Maydbgrid1.Columns[2].Field.Value;
// comparaison de chaine
if label1.Caption ='Bakour' then
// options DBGrid
MayDBGrid1.options :=  MayDBGrid1.options  -  [dgediting]
else
MayDBGrid1.options :=  MayDBGrid1.options  +  [dgediting];
end;

A+

[SergioMaster]

Bonjour,

Effectivement , j'ai bien pensé a une classe dérivée par contre je n'avais pas pensé à changer carrément l'option de la grille plutôt que de la cellule (radical comme technique ) . Une demande plus urgente étant tombée entre-temps , j'ai laissé en plan ce problème , reporté à la semaine prochaine

[SergioMaster]

Bonjour,

Finalement j'ai résolu mon problème en utilisant l'évènement OnDrawColumnCell (que j'utilisais déjà pour d'autres spécificités d'affichage) et en jouant sur la propriété readonly du champ comme indiqué dans le premier post

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
 
procedure TMain.SMDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var DrawRect: TRect;
    Delay : TDateTime;
    function Delai(DateField : TField) : TDateTime;
     begin
       if DateField.IsNull then Result:=IncDay(Now)
       else Result:=IncDay(DateField.AsDateTime);
       case DayOfTheWeek(Result) of
         6 : result:=IncDay(Result,2);  // samedi -> lundi
         7 : result:=IncDay(Result);    // dimanche -> lundi
       end;
     end;
 
begin
.....
  if (Column.Field.FieldNo in [14,21,22]) AND (gdFocused in State) then  // mes 3 dates "blocables"
    begin
     case Column.Field.FieldNo of
        14 : begin
               delay:=Delai(ZQ.FieldByName('D1'));
               SMDBGrid1.SelectedField.ReadOnly:= (now>delay);
             end;
        21 : begin
               delay:=Delai(ZQ.FieldByName('D3'));
               SMDBGrid1.SelectedField.ReadOnly:= (now>delay);
             end;
        22 : begin
               delay:=Delai(ZQ.FieldByName('D3'));
               SMDBGrid1.SelectedField.ReadOnly:= (now>delay);
             end;
     end;
    end;
....