Discussion :

[weberick]

Bonsoir,



Bien la partie SGBD m'a tellement "déconcerté" que je dévelloppe une méthode me permettant de gérer les fonctions "Suivant", "Précédent", "Insertion","Suppression".
Je mettrai en ligner le fruit de mon travail.
En attendant je tente de détecter un changement effectué dans un TEdit.
La problématique est que l'évènement Onchange du TEdit déclenche lors de l'initialisation du TEdit ainsi au chargement de l'enregistrement j'utilise ce code pour initialiser mes valeurs

Code :

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

1
2
3
4
5
6
7
8
     for i := 0 to pred(f_benef.ComponentCount) do
     Begin
          if (f_benef.Components[i] is TEdit) And
             (f_benef.Components[i].tag=5)
          Then
          (f_benef.Components[i] as TEdit).Text :=
           f_benef.sql_benef_rec.fieldByName(f_benef.Components[i].Name).asString;
     End;

Ce que je souhaite c'est pouvoir détecter une modification après le chargement de l'enregistrement.
Faut-il que j'utilise un flag me permettant de savoir si je suis en procédure de chargement d'un enregistrement ou en "saisie" "modification" de mon enregistrement.

Bref un peu dans le brouillard.

Merci de vos conseils.

Eric

[chris37]

Bonsoir Eric,

Suite a notre conv. téléphonique de l'autre jour, pourquoi n'utilises tu pas un tdbedit ?
En plus l'événement onchange du dataset permet de savoir si il y a eu modif du record en cours. tous les outils sont là. Je les utilise

Dis-moi

[weberick]

Bonsoir Chris


Tout simplement parce que je n'ai pas trouvé toutes les méthodes pour mener mon travail à bien.

Ainsi j'ai buté sur la mise à jour de champs spécifiques tels date et booléen.
les EErrordatabase m'ont mis le moral à plat !!!


Bref je reprends comme en cobol je gère tout du début jusqu'à la fin. Les seuls composants DB que j'utilise sont mysqlconnection et sqlquery.

le code suivant ne m'avance pas

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
procedure Tf_benef.bt_quitter1Click(Sender: TObject);
Var flag : Boolean ;
    i : Integer ;
begin
     flag:=false;
     ShowMessage(BoolToStr(flag)+ ' départ ');
     for i := 0 to Pred(componentCount) do
     if (components[i] is TEdit) and (components[i].Tag=5)
     then begin
          flag:= (components[i] as TEdit).Modified;
          ShowMessage(BoolToStr(flag)+ ' ' + Components[i].Name);
//          if flag then break;
     end;
 
     if not(flag) then f_benef.Hide;
end;

mon travail est basé sur un exemple trouvé sur le forum Delphi ce qui m'a permis de gérer les mises à jour des champs de la table >> les TEdit et vis versa.

Bref on continue et on apprend un peu plus chaque jour mais la partie SGBD me laissera de "bons" souvenirs.
En plus je me suis pris une veste lors de la première démo du prog. !!! cela faisait bien longtemps que ça ne m'était pas arrivé.

Eric

[weberick]

re Bonsoir,


Bon je crois que j'ai trouvé ...
il me suffit de comparer le contenu de mes TEdit avec le contenu de mon sqlquery...
je me penche la dessus demain.

Eric

[weberick]

re re Bonsoir,


Bon le code suivant

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
procedure Tf_benef.bt_suivClick(Sender: TObject);
Var flag : Boolean;
    I : Integer ;
begin
     flag:=False;
     //construction query
     if sql_benef_rec.RecordCount<>0 Then
     for i := 0 to pred(f_benef.ComponentCount) do
     Begin
         if (f_benef.Components[i] is TEdit) And
            (f_benef.Components[i].tag=5)
         Then
         If (f_benef.Components[i] as TEdit).Text <>
             f_benef.sql_benef_rec.fieldByName(f_benef.Components[i].Name).asString
         Then Begin
            flag:=True;
            Break;
         End;
     End;
     if not (flag) Then navig_record('db_benef','suivant');
end;

me permet de tester mais hélas je ne sais toujours pas détecter un changement qui me permettrai de mettre mes boutons "suiv" prec" etc ... à Enable:=False

Je précise que les extraits de codes ne sont pas significatifs il manque beaucoup de chose pour que ce soit pleinement fonctionel mais étant en phase de test je ne diffuse que les extraits concernés par la question


Bref je continue les recherches DEMO lundi !!!


Eric

[chris37]

Bonjour Eric,

Tu peux m'envoyer ton projet sur gmail stp