Delphipage

Présentation

Vous serez amener à réaliser quelques opérations de manipulations de données sur une table.
Ce tutorial présente ses principaux manipulations.

Editer une table

Pour passer en mode édition, il faut appeler la méthode "Edit".

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Edit;
end;

Lorsque vous voulez écrire pu modifier un champ, il faut obligatoirement passer en mode édition.

Lire la valeur d'un enregistrement

Il existe deux manières de lire la valeur d'un enregistrement.
Vous pouvez utiliser la méthode par indice de champ.

procedure TForm1.Button1Click(Sender: TObject);
Var St: string;
begin
St:=Table1.Fields[0].AsString;
end;

Dans notre exemple, St contiendra la valeur du premier enregistrement du champ d'indice 0.

Nom	Prenom
Free	Delphipage

Avec cette table, "St" vaudra "Free".

AsString représente la valeur du champ sous forme de chaîne.
Il existe AsBoolean, AsCurrency, AsDateTime, AsFloat, AsInteger et AsVariant.

Une autre solution consiste à utiliser le nom du champ.

procedure TForm1.Button1Click(Sender: TObject);
Var St: string;
begin
St:=Table1.FieldByName('Nom').AsString;
end;

"St" vaudra également Free pour notre exemple.

Modifier la valeur d'un enregistrement

Pour modifier la valeur d'un enregistrement, il faut se mettre en mode édition.
Voici la méthode par indice :

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Edit;
Table1.Fields[1].AsString:= 'Yoann';
end;

Voici la méthode par nom :

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Edit;
Table1.FieldByName('Prenom').AsString:= 'Yoann';
end;

Voici ce que nous obtiendrons avec notre table.

Nom	Prenom
Free	Yoann

Annuler les dernières modifications

Pour annuler les dernières modifications à un enregistrement, il suffit d'utiliser "Cancel".

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Cancel;
end;