Um ''message-box'' ayant deux bouton à faire fonctionner

Signaler
Messages postés
25
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
27 février 2007
-
Messages postés
25
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
27 février 2007
-
Salut à tous les Developpeurs!


J'ai une table appelé ''reserves'' et une autre appelé ''occupation''.
J'ai juste un problème de faire appairaitre un ''message-box'' qui pourra me donner deux possiblité de bouttons (un bonton disant''reserves''et un autre disant ''occupation''). Juste comment nous l'avons dans Ms-Word (sauvegarder: ''Oui'' ou ''Non'').
En cliquant sur le bonton ''reserves'' les données devront aller forcement dans la table ''reserves''
et sur  ''occupation'' dans la table  ''occupation''.
Pour vous donner quelques pistes afin de vous aider à bien comprendre mon problème...voilà des codes que j'ai écrit dans lesqueles un ''message-box'' apparaitra (bien que ça n'a rien n'a voir avec ma question ci-dessus).


Merci et compte sur vous.




procedure TFactuReservas.ComboBox1Click(Sender: TObject);
begin
  AdoReserve.Filter:='num_chambre>=' +quotedstr(combobox1.Text);
  AdoReserve.Filtered:= true;
  if AdoReserve.IsSequenced then begin
 end else
   showmessage('occupé');
end;

Yeho.