Discussion :

[kiminfor]

J'ai un masque de saisie avec plusieurs DBEdit en relation avec une Table 'employes' la table est déjà remplie je veux juste utiliser ses données.
Ce que je veux obtenir:
Quand je saisie le matricule (Clé de la Table1) dans le DBEdit1, les autres DBEdit se remplissent automatiquement.

[Aka Guymelef]

Bonjour,

pour commencer il faudrait savoir si derrière les DBEdits c'est un composant TTable qui est relié (liaison directe avec la table donc) ou bien si c'est un DataSet récupéré après une requête ?

[kiminfor]

Bonjour,
Oui J'utilise DBEdit, TTable et DataSource

[Aka Guymelef]

Dans ce cas vous pouvez utiliser la méthode Locate sur le TTable dès que l'utilisateur a finit de remplir le matricule (sur le OnExit du DBEdit par exemple). Pensez également à utiliser DisableControls et EnableControls pendant la recherche pour éviter que l'utilisateur voit les enregistrements défiler.

[bs.box]

Je doit ajouter, que ce n'est pas faisable de faire entrez
des clés directement dans des "TDBEdits" liés directement
avec des "TTables", car il peut s'auto edités sans donner
la main à l'utilisateur qui croiyer introdouir une valeur à rechercher..

Efin;
Eviter ceci pour la rentré des clés à rechercher en utilisant
des simples masques de saisies [un TMaskEdit par exemple].

a+

[kiminfor]

J'essaye d'appliquer la méthode Locate sur un DBEdit mais elle effectue des changement sur la table au lieu de faire la recherche. Donc j'utilise un edit tout simplement.
Maintenant le problème qui se pose c'est d'affecter les données trouvées à une nouvelle table. Je vais tenter une autre méthode.
À suivre ....

[ALWEBER]

quelque chose dans le genre sur un edit et non pas un dbedit

Code :

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

1
2
 
table1.findkey([edit1.text])

[bs.box]

Maintenant le problème qui se pose c'est d'affecter les données trouvées à une nouvelle table. Je vais tenter une autre méthode.
À suivre ....

Il nécessaire de savoir si la 2ième table où vous voulez enregistrer le tuple,
reste en question!! si vous voulez migré ce tuple; veux dire que le schéma
des deux table est unique; il faut méfier de la contrainte de violation de cléf.

Donc, avant de faire ceci; un test d'existence suffira

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
if Table2.FindKey([MaskEdit1.Text])
   then ShowMessage('Code Déja Existant!!')
   else begin
   Table2.Insert;
   Table2['Champs1']:=Table1['Champs1'];
   Table2['Champs2']:=Table1['Champs2'];
   Table2['Champs3']:=Table1['Champs3'];
   .
   ..
   ...
   Table2.Post;
         end

Bon Courage...

[kiminfor]

Merci pour la réponse,
Voici plus de détail pour mon problème
J'ai refais la form, déposé à nouveau un composant ttable, datasource et des dbedit
ensuite j'ai appliquer le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function DaysBetween(const ANow, AThen: TDateTime): Integer;
begin
  Result := Abs(Trunc(AThen) - Trunc(ANow));
end;
 
procedure TForm1.DBEdit10Change(Sender: TObject);
begin
DBEdit17.Text:=IntToStr(DaysBetween(StrToDate(DBEdit9.Text),StrToDate(DBEdit7.Text)));
end;

DBEdit7: Date du départ
DBEdit9: Date d'Arrivée
Tous se passe normalement mais au moment d'enregistrer les données et de passer à l'enregistrement suivant (Table1.edit;Table1.Post) le message d'erreur s'affiche ''' n'est pas une date correcte
ce signe '" veut dire que le champ est vide alors qu'il est rempli.

Que devrai-je faire ?

[edam]

salut, je crois que tu dois relire tout sur les BD, composant BD et tout, car la tu es mal partie, en plus tu pose mal les question, et tu ne fait que ta tete
déjà, +bsdocuments+ ta donné quelque conseil, que tu n'a pas executé, alors, si tu veux vraiment que nous t'aide, alors, ecoute se qu'on te dis,
regarde les examples données, avec delphi, sur ce site, ou autre.
une chose, tu doit savoir que tout les composants BD (TDBEdit,TDBGrdi,...) ne sont là que pour refléter les données en cours de : (lectur ou modification)
alors la lecture d'un champs depuis un TEDit ou autre est déconseilé, au moin pour un débutant

[kiminfor]

Merci à Tous pour les réponses ainsi que pour les remarques
Pour :

... regarde les examples données ...

J'ai cherché sur le net et J'avais posé une question sur le forum :
http://www.developpez.net/forums/sho...d.php?t=513848
J'ai pensé qu'il été possible d'utiliser le contenu des DBEdit directement, MAIS NON c'est FAUX ou peut être qu'il y a un autre moyen de les utilisés.

La solution est :

Code :

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

1
2
3
 
DBEdit17.Text:=IntToStr(DaysBetween(StrToDate(Table1['DateDepart']),StrToDate(Table1['DateArrivee'])));
end;

Merci mille fois ...