Discussion :

[clipper5.3]

Salut tous le monde,
Jai un programme sur delhpi je cherche une procedure ou, quand je saisie le nom prenom le programme fait une recherche avant de continuer la saisie des autres champs et me dit si cette personne existe ou non si oui me demande si je veux la resaisir une autre fois ou non et continuer les autres champs MERCI.

[evarisnea]

, bienvenue sur le forum
ça m'a tout l'air d'un code à placer dans l'évènement OnExit ou OnValidate du champs. où se trouve ton souci ? je ne pense pas qu'une procédure toute prête pour faire cela existe.

[clipper5.3]

Salut evarisnea
Merci comme même mais votre réponse et trop insuffisante pour une personne qui débute avec delphi

[evarisnea]

pourrais tu être plus explicite alors ?

où se trouve ton souci ? je ne pense pas qu'une procédure toute prête pour faire cela existe.

[clipper5.3]

Tous simplement j'ai un programme gestion personnel sous delphi je veux éviter de saisir une personne plusieurs fois je veux quand je saisie une personne le programme fait la recherche avant la saisie des autres champs et me dit si cette personne et déjà saisie voulez-vous la ressaisir une autre fois si ma réponse est par oui elle sera saisie et je continuer la saisie des autres champs si la réponse et par non je passe a la personne suivante Merci.

[evarisnea]

ayant eu un peu de temps, j'ai fait un projet
dans le fichier compressé au format rar, tu as les sources du projet et la base de données sous access. j'utilise les composant ADO pour l'accès.

[clipper5.3]

salut evarisnea
Merci Pour Votre Aide Juste Une remarque, moi j ai les deux champs nom prénom séparé je vois que dans votre programme ils sont dans un seul champs est ce que c le même principe MERCI

[evarisnea]

il faudra modifier la requête pour effectuer le tri sur ces 2 champs là.

Code SQL :

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

select count(*) as nbr from t_personne where UCASE(nom)=UCASE(:nom) AND UCASE(prenom)=UCASE(:prenom)

penser aussi à renseigner les 2 paramètres bien sûr

[clipper5.3]

Salut evarisnea
Merci Pour Votre Aide une autre fois

[evarisnea]

Salut
Merci Pour Votre Aide une autre fois

[clipper5.3]

Bonjour evarisnea
Dans votre programme j'ai constaté que la saisie ce fait même pour les champs vide alors qu'il ne doit pas accepter les champs vide comment résoudre ce problème je vous dis ca parce que d'habitude je fais mes programmes avec le langage CLIPPER alors que je veux apprendre plus avec delphi

[evarisnea]

eh bien, avant l'enregistrement, il va falloir donc tester tous les champs ! il y a
plusieurs possibilités pour cela. par exemple dans le gestionnaire de clic du bouton1:

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
procedure TForm1.Button1Click(Sender: TObject);
begin
  //vérifier que les champs ne sont pas vides
  if (edNom.Text = '') or
    (edDateNaissance.Text = '') or
    (edTelephone.Text = '') or
    (edAdresse.Text = '') or
    (edCommentaires.Text = '') then
    showmessage('tous les champs doivent être remplis !')
  else
    //insérer une personne
    with ADOTable1 do
    begin
      Insert;
      FieldByName('nom_prenom').AsString := edNom.Text;
      FieldByName('date_naissance').AsString := edDateNaissance.Text;
      FieldByName('telephone').AsString := edTelephone.Text;
      FieldByName('adresse').AsString := edAdresse.Text;
      FieldByName('commentaires').AsString := edCommentaires.Text;
      Post;
    end;
end;

[clipper5.3]

Salut evarisnea
C bon une autre fois je vous signale que je suis nouveau avec delphi

[evarisnea]

une autre fois je vous signale que je suis nouveau avec delphi

alors il serait bon de prendre quelques cours non ?
http://delphi.developpez.com/
http://delphi.developpez.com/cours
la faq delphi est aussi très utile

[clipper5.3]

Merci pour les liens comme http://delphi.developpez.com/cours mais je vous dit que evarisnea me suffit juste une demande je veux quand les boites de message apparait lance un bip quelle est la commande qui fait ca donner moi juste la commande si je m en sort pas je vous fait signe juste la commande qui émet un son quand la boite de message apparait

[evarisnea]

pour avoir un retour sonore sur affichage de la boite de dialogue, utilise la fonction MessageBox en lieu et place de ShowMessage (les paramètres sont différents !)
pour plus d'infos

[liazidf]

Merci pour les liens comme http://delphi.developpez.com/cours mais je vous dit que evarisnea me suffit juste une demande je veux quand les boites de message apparait lance un bip quelle est la commande qui fait ca donner moi juste la commande si je m en sort pas je vous fait signe juste la commande qui émet un son quand la boite de message apparait

Bonsoir,
D'abord tu klaxon, ensuite je plaisante, c'est la même fonction qui se trouve dans clipper

Code :

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

Beep()

.

[clipper5.3]

Salut liazidf,
Non Le problemme c est que je cherche Delphi 7 En Francais Pour Attaquer La Commande Merci En Clipper C'est :
tone(900,1)
tone(600.00,1)
tone(300.00,1)
Est Vous Faites Votre Message erreur

[Aka Guymelef]

Oulah oulah du calme, cherchez du côté de l'API Windows MessageBeep à mon avis, ou encore MessageBox comme l'a indiqué evarisnea.

[Cl@udius]

Salut

tu as 2 façons d'émettre un bip avec Delphi (les 2 appelants les fonctions de l'API Windows).

• SysUtils.Beep: appelant l'API MessageBeep(0), le son standard bête et méchant
• ou Windows.Beep appelant l'API Beep(Fréquence, Durée)

Donc Tone correspond au Beep de l'unité Windows.
Voilou.

Cela dit, MessageBox émet un Beep à l'apparition de la boite de dialogue correspondant au type de message (Info, Avertissement, Erreur).

@+ Claudius