Remerciez-le!

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

Cours delphi Table delete si moins de -- sur le dernier Table Active False erreur si aucun H Base de données texte readln end MIAGE ème année Une base de données texte est un répertoire Un ?chier de description dans ce répertoire schema ini Autant de ?chi

Table delete si moins de -- sur le dernier Table Active False erreur si aucun H Base de données texte readln end MIAGE ème année Une base de données texte est un répertoire Un ?chier de description dans ce répertoire schema ini Autant de ?chiers textes que de tables Il est possible de changer type de base à tout moment sans recompiler les programmes précédents Utilisation de l ? unité Forms nécessaire à l ? initialisation de l ? application en vue de l ? initialisation des objets OLE Nom d ? un répertoire vide créé précedemment Il su ?t de changer l ? association nom physique en gardant le même nom logique Changement de type de base Avec une BD texte on ne peut pas dé ?nir d ? indexes I Base de données et SQL insertion program query ins APPTYPE CONSOLE uses sysutils dbtables db Forms var requete tquery begin requete tquery create application requete Active false suppression requete DatabaseName 'ess bd' requete Close requete SQL Clear requete SQL Add 'insert into matable numero nom prenom values ''tata'' ''titi'' ' requete execSQL end program query supr APPTYPE CONSOLE uses sysutils dbtables db Forms var requete tquery begin requete tquery create application requete Active false Delphi et Kylix requete DatabaseName 'ess bd' requete Close requete SQL Clear requete SQL Add 'delete from matable where nom ''tata''' requete execSQL end D Mailliet C exploration MIAGE ème année program querylire APPTYPE CONSOLE uses sysutils dbtables db Forms var requete tquery i byte begin requete tquery create application requete Active false requete DatabaseName 'essbd' requete Close requete SQL Clear requete SQL Add 'select from matable ' requete open for i to requete Fieldcount- do write requete Fields i FieldName ' ' writeln while not requete eof do begin for i to requete Fieldcount- do write requete Fields i value ' ' writeln requete Next end while readln end J Utilisation classique des TABLEs Placer sur une form ? TdataSource Ttable TDBGrid Type TForm class TForm DataSource TDataSource Table TTable DBGrid TDBGrid type TForm class TForm DataSource TDataSource Table TTable DBGrid TDBGrid procedure FormActivate Sender TObject ? procedure TForm FormActivate Sender TObject Begin DBGrid DataSource DataSource DataSource DataSet Table Table databaseName 'ess bd' Table TableName 'matable' Query Table Active true ou encore Table open end Composants BD Fiche type TForm class TForm DataSource TDataSource Table TTable DBText TDBText Delphi et Kilix Les lignes ci-contre sont les valeurs des propriétés des di ?érents objets Il est donc possible de n ? écrire aucune ligne de code et de se passer de l ? événement et de la méthode associée à FormActivate D Mailliet CMIAGE ème année DBEdit TDBEdit DBNavigator TDBNavigator procedure FormActivate Sender TObject end var Form TForm Implementation R DFM procedure TForm FormActivate Sender TObject begin DataSource DataSet Table Table databaseName 'essbd' Table TableName 'matable' DBNavigator DataSource DataSource DBText DataSource DataSource DBText DataField 'numero' DBEdit DataSource DataSource DBEdit DataField 'nom' Table Active true end L Tables Ma? tre détailSoit une base de données