Discussion :

[kawaiinah972]

Bonjour à tous, j'ai un souci avec ma inputBox.
En effet j'ai créé un bouton qui renvoie à une inputBox. J'ai réussi à faire en sorte que celle-ci renvoie une erreur puis se ferme si le champ est vide mais je n'arrive pas à trouver la ligne de code me permettant de dire : si le bouton Cancel a été appuyé, alors SORTIR. J'attend vos réponses merci de votre aide
Voici mon 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
30
31
32
33
34
35
36
37
38
39
40
procedure TFStock.BtnAjouterClick(Sender: TObject);
var
    nom_produit: String;
    meme_produit: Integer;
begin
  //boite de dialogue avec entrée de texte
  repeat
      nom_produit := InputBox ('Enregistrer un nouveau produit',
                              'Entrer le nom du produit:', '');
 
      //vérifier qu'il n'est pas encore enregistré
      SQLQuery1.Close;
      SQLQuery1.SQL.Text:= 'SELECT COUNT(pro_nom) AS count_nom FROM produit WHERE pro_nom = '''+nom_produit+''';';
      SQLQuery1.Open;
      meme_produit:= SQLQuery1.Fields[0].AsInteger;
      if nom_produit = '' then
      begin
      ShowMessage('Le champ est vide.');
      Exit;
      end
      else if meme_produit > 0 then //il exite deja
      begin
           if MessageDlg ('Error', 'Erreur: un autre produit porte le même nom!', mtConfirmation,
                         [mbOK, mbCancel],0) = mrCancel then Exit;
      end
  until (meme_produit = 0) and (nom_produit <> '');
 
  //Vérification que l'utilisateur n'a rien écrit
  FMenu.SQLQuery1.Close;     //Enregistrement
  FMenu.SQLQuery1.SQL.Text:= 'INSERT INTO `produit` (`pro_id`, `pro_nom`, `pro_quantite`, `pro_date_maj`) '
                           +'VALUES (NULL, :pro_nom , 0, CURRENT_TIMESTAMP);';
  FMenu.SQLQuery1.Prepare;
  FMenu.SQLQuery1.Params.ParamByName('pro_nom').AsString := nom_produit;
  FMenu.SQLQuery1.ExecSQL;
  FMenu.SQLTransaction1.Commit;
  FMenu.SQLTransaction1.StartTransaction;
  AffichStock;
  ShowMessage('Le produit a bien été enregistré.');
 
end;

[BeanzMaster]

Bonsoir

Bonjour à tous, j'ai un soucis avec ma inputBox.
je n'arrive pas à trouver la ligne de code me permettant de dire : si le bouton cancel a été appuyé, alors SORTIR. j'attend vos réponses merci de votre aide

Tu parles pour ton MessageDlg if MessageDlg ('Error', 'Erreur: un autre produit porte le même nom!', mtConfirmation,[mbOK, mbCancel],0) = mrCancel then Exit; ? ce n'est pas très clair

Bonne soirée

[Roland Chastain]

Code :

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

1
2
3
 
      nom_produit := InputBox ('Enregistrer un nouveau produit',
                              'Entrer le nom du produit:', '');

Bonjour ! Si l'utilisateur appuie sur Annuler, la fonction renvoie comme résultat la chaîne par défaut (dans votre cas une chaîne vide).

[kawaiinah972]

Ah donc le 3e paramètre c'est le bouton annuler! merci j'ai changé en mettant un '?' comme chaine de caractère

[JP CASSOU]

Bonjour ! Si l'utilisateur appuie sur Annuler, la fonction renvoie comme résultat la chaîne par défaut (dans votre cas une chaîne vide).

Vous pouvez aussi utiliser InputQuery, bien préférable: on teste un booléen. De toute façon, il faut tester la réponse ...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
// Prototype (dans l'unité Dialogs)
function InputQuery(const ACaption, APrompt : String; var Value : String) : Boolean;
 
// Utilisation
QResponse := 'Je sais pas';
if (InputQuery('Question', 'Quelle est la différence entre un pigeon ?', QResponse)) then
begin
  // traitement
end;