Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Spécialité : BDD (S3) INSFP de Médéa Module : Delphi Année : 2021/2022 Programm

Spécialité : BDD (S3) INSFP de Médéa Module : Delphi Année : 2021/2022 Programmation des bases de données aux Delphi (suite) -TP2- 3. Manipulation de données par programmation Il existe deux façons d'accéder (lire ou écrire) au contenu des champs : 3.1. Les opération de base: 3.1.1. Lecture d'un champ L'accès au contenu d'un champ se fait par la propriété Fields du DataSet , qui est un tableau de champs. L'accès a la valeur d'un champ peut être se faire par le n° du champ (sa position dans le tableau) ou par son nom grâce à les deux méthodes (Fields/ FieldByName). Exécutez Delphi pour créer une nouvelle application. Insérer deux Edit et un Button sur la fiche. Associez à la propriété Caption de Button1 la valeur Ecriture, et implémentez sa méthode OnClick avec les lignes suivantes: procedure Tform1.button1Click(Sender: Tobjet); begin Edit1.Text:=Adotable1.Fields[0].Asstring; Edit2.Text:=Adotable1.FieldByName('Num_Etud').Asstring; end; // Lancez Votre programme pour tester... Ajouter deuxième Button et associer à la propriété Caption de Button1 la valeur Afficher, et implémentez sa méthode OnClick avec les lignes suivantes: procedure Tform1.button2Click(Sender: Tobjet); begin showmessage('Num_Etud' + Adotable1.Fields[0].Asstring ); showmessage('Num_Etud' + Adotable1.FieldByName('Num_Etud').Asstring); end; //Lancez Votre programme pour tester... 3.1.2. Modifier le contenu d'un champs: Par défaut le DataSet en mode édition, pour empêche cela il faut passer la propriété AutoEdit du composant DataSouse à false. Pour passer le DataSet en mode édition il faut appeler sa méthode Edit. Ajouter 3ème Button et associer à la propriété Caption de Button1 la valeur Modifier, et implémentez sa méthode OnClick avec les lignes suivantes: procedure Tform3.button1Click(Sender: Tobjet); begin Adotable1.Edit; Adotable1.Fields[0].AsInteger := 100; Adotable1.FieldByName(Nom).Asstring :='Mameri'; Edit1.Text:=Adotable1.Fields[0].Asstring; Edit2.Text:=Adotable1.FieldByName('Num_Etud').Asstring; end; 3.1.3. Ajouter/Insérer d'enregistrement: Il est possible d'insérer ou d'ajouter un enregistrement par les deux méthodes : Insert : ajouter a la fin de table Append: l'enregistrement insérer se place avant l'enregistrement courant. Ou bien insérer un enregistrement tout en remplissant mes champs grâce aux méthodes AppendRecord/InsertRecord Il faut ensuit remplir chaque champs procedure Tform3.button1Click(Sender: Tobjet); begin Adotable1.insert; Adotable1.Fields[0].AsInteger := 6; Adotable1.FieldByName(Nom).Asstring :='samir'; Adotable1.InsertRecord([20, 'ahlem', 'tahri', '13/3/2000', 3]); end; 3.1.4. Validation/Annulation de mis a jour: 3.2. Navigation dans la base de données A/ On Mode Programmation Enregistrement précédent, suivant, premier et dernier Début et fin de table EX: Adotable1.First; Adotable1.Next; Adotable1.Last; B/ On Mode Conception La façon le plus simple pour naviguer dans les donnés est d'utiliser le composant navigateur DBNavigator. C'est un composant graphique représente des boutons type qui permettent de passer d'un enregistrement à l'autre ...etc. Pour utiliser un navigateur BD, il suffit de l'ajouter à la fiche contenant les données et de donner une valeur à sa propriété DataSource uploads/Geographie/ tp2-delpfi-s3.pdf