application de gestion des identité delphi

Question

besoin d aide pour la programmation des boutons nouveau modifier et enregistrer!

procedure TForm1.effacerClick(Sender: TObject);
begin
DBEdit1.Clear;
DBEdit2.Clear;
end;

procedure TForm1.NouvelEnregistrementClick(Sender: TObject);
begin
DBGrid1.ReadOnly:=false;
DBEdit1.ReadOnly:=false;
DBEdit2.ReadOnly:=false;
Table1.Append;
DBEdit1.SetFocus;
end;

procedure TForm1.ModifierClick(Sender: TObject);
begin
DBGrid1.ReadOnly:=false;
DBEdit1.ReadOnly:=false;
DBEdit2.ReadOnly:=false;
Table1.Active:=true;
Table1.Edit;
end;

procedure TForm1.supprimerClick(Sender: TObject);
begin
Table1.Active:=true;
end;

procedure TForm1.annulerClick(Sender: TObject);
begin
Table1.Cancel;
DBEdit1.ReadOnly:=false;
DBEdit2.ReadOnly:=false;
DBGrid1.ReadOnly:=false;
end;

procedure TForm1.EnregistrerClick(Sender: TObject);
begin
Table1.Post;
DBEdit1.ReadOnly:=true;
DBEdit2.ReadOnly:=true;
DBGrid1.ReadOnly:=true;
end;
mai j ai pa du tt saisie la partie des bouton nouveaux enregistrer modifier et sa march po

cs_boualem5 · Answer

pour enregistrer

table1.open
table1.insert
if messagedlg('vouler vous enregistrer',mtconfirmation,[mbok,mbcancel],o)=mbok then
begin
table1.fields[0].asstring:= edit //1er champ de la base 
faire de meme pour la suite

table1.post

pour modifier meme chose pour enregistrer simplement faut modifier 
table1.insert par table1.edit

Application de gestion des identité delphi

1 réponse

Votre réponse

Discussions similaires