Discussion :

[madjid90]

salut à tous
je suis un débutant en delphi
j'ai réalisé mon premier projet en delphi en utilisant interbase
mais un problème est survenu lors du fonctionnement du Programme
lorsque j'affiche une forme ( l'enregistrement en cours est en mode édition ) :
Une fois je clique sur <ok> : les modifications sont enregistrées et la forme se libère, Mais , pour annuler les modifications je dois cliquer 2 FOIS sur annuler mais non pas une seul fois comme <ok>, je ne sais pas pourquoi
à l'aide s.v.p
Merci !

[Rayek]

Question trop vague sans un bout de code de ce qu'il y a dans ton bouton (voir le paramétrage de ton bouton aussi)

[redoran]

idem que rayek; quel type de boutton ( bitbutton ou autres......) et votre code...?

[madjid90]

Voilà le 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
24
25
26
27
28
29
procedure TForm1.sBitBtn2Click(Sender: TObject);
var FormAjIn : TForm5;
 
begin
ibdataset_intervention.open;
ibdataset_intervention.Append;
ibdataset_intervention.Edit;
i := IBDataset_intervention.FieldByName('ID_INTER').Asinteger;
IBDataset_interv_arti.Open;
IBDataset_interv_arti.append;
IBDataset_interv_arti.edit;
form1.IBDataset_interv_arti.FieldByName('ID_INTER').Asinteger := i ;
FormAjIn := TForm5.create(NIL);
if FormAjIn.ShowModal = MrOk then
   begin                                                                                 ibdataset_intervention.FieldByName('DATE_INTER').AsDateTime :=
         FormAjIn.DateTimePicker1.DateTime;
         ibdataset_intervention.post;
         ibdataset_intervention.close;
         ibdataset_intervention.open;
         IBDataset_interv_arti.Open;
         IBDataset_interv_arti.close;
         ibtransaction_maintenance.CommitRetaining;
  end
          else
               if FormAjIn.ShowModal = MrCancel then
                    begin
                       ibtransaction_maintenance.RollbackRetaining;   ibdataset_intervention.close;                                                                 ibdataset_intervention.open;                                                                 IBDataset_interv_arti.close;                                                             IBDataset_interv_arti.Open;                                                                   FormAjIn.Release;
                    end ;
end;

[Rayek]

Ok normal en fait, si tu fait appel a ShowModal il va réouvrir la form

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
 
procedure TForm1.sBitBtn2Click(Sender: TObject);
var FormAjIn : TForm5;
 
begin
ibdataset_intervention.open;
ibdataset_intervention.Append;
// Append ou Edit; les deux en meme temps ca sert a rien
// append créé une nouvelle ligne et la laisse en mode edit
//ibdataset_intervention.Edit;
i := IBDataset_intervention.FieldByName('ID_INTER').Asinteger;
IBDataset_interv_arti.Open;
IBDataset_interv_arti.append;
// Idem 
// IBDataset_interv_arti.edit;
form1.IBDataset_interv_arti.FieldByName('ID_INTER').Asinteger := i ;
FormAjIn := TForm5.create(NIL);
case FormAjIn.ShowModal of
  MrOk: begin
      ibdataset_intervention.FieldByName('DATE_INTER').AsDateTime :=          FormAjIn.DateTimePicker1.DateTime;
      ibdataset_intervention.post;
      ibdataset_intervention.close;
      ibdataset_intervention.open;
      IBDataset_interv_arti.Open;
      IBDataset_interv_arti.close;
      ibtransaction_maintenance.CommitRetaining;
  end;
  MrCancel : begin
    ibtransaction_maintenance.RollbackRetaining;
    ibdataset_intervention.close;
    ibdataset_intervention.open;
    IBDataset_interv_arti.close;
    IBDataset_interv_arti.Open;
  end ;
end; // case
 
FormAjIn.Release;
 
end;

ca devrait mieux fonctionner comme çà

[madjid90]

ça marche parfaitement
MERCI RAYEK POUR VOTRE AIDE