unit1.pas

a small application in Mysql and Delphi

begin
table4.Last;
end;

procedure TForm1.dernier5Click(Sender: TObject);
begin
table5.Last;
end;

procedure TForm1.dernier6Click(Sender: TObject);
begin
table6.Last;
end;

procedure TForm1.dernier7Click(Sender: TObject);
begin
table7.Last;
end;

procedure TForm1.dernier8Click(Sender: TObject);
begin
table8.Last;
end;

procedure TForm1.BitBtn18Click(Sender: TObject);
begin

 if((Table1.RecordCount=0) and (Table1.State <> dsInsert)) then exit;
 bitbtn33.Enabled := true;
 bitbtn1.caption := 'Modifier';
 Groupbox1.Caption:='Modification/Suppression';
 Edit1.Text:=Table1.FieldByName('Code_personne').AsString;
 Edit2.Text:=Table1.FieldByName('Nom').AsString;
 Edit3.Text:=Table1.FieldByName('Prenom').AsString;

end;

procedure TForm1.BitBtn26Click(Sender: TObject);
begin
 if((Table2.RecordCount=0) and (Table2.State <> dsInsert)) then exit;
 bitbtn11.Enabled := true;
 bitbtn3.caption := 'Modifier';
 Groupbox2.Caption:='Modification/Suppression';
 Edit4.Text:=Table2.FieldByName('Code_personne').AsString;
 Edit5.Text:=Table2.FieldByName('Adresse').AsString;
 Edit6.Text:=Table2.FieldByName('Date_inscription').AsString;
end;

procedure TForm1.BitBtn27Click(Sender: TObject);
begin
 if((Table3.RecordCount=0) and (Table3.State <> dsInsert)) then exit;
 bitbtn35.Enabled := true;
 bitbtn12.caption := 'Modifier';
 Groupbox6.Caption:='Modification/Suppression';
 Edit7.Text:=Table3.FieldByName('Code_film').AsString;
 Edit13.Text:=Table3.FieldByName('Titre').AsString;
 Edit19.Text:=Table3.FieldByName('Annee').AsString;
 Edit25.Text:=Table3.FieldByName('Genre').AsString;
 Edit26.Text:=Table3.FieldByName('Evaluation').AsString;
 Edit27.Text:=Table3.FieldByName('Code_personne').AsString;
 Edit28.Text:=Table3.FieldByName('Nb_emprunts').AsString;

end;

procedure TForm1.BitBtn28Click(Sender: TObject);
begin
 if((Table4.RecordCount=0) and (Table4.State <> dsInsert)) then exit;
 bitbtn36.Enabled := true;
 bitbtn9.caption := 'Modifier';
 Groupbox5.Caption:='Modification/Suppression';
 Edit8.Text:=Table4.FieldByName('Code_personne').AsString;
 Edit14.Text:=Table4.FieldByName('Code_film').AsString;

end;

procedure TForm1.BitBtn29Click(Sender: TObject);
begin
 if((Table5.RecordCount=0) and (Table5.State <> dsInsert)) then exit;
 bitbtn37.Enabled := true;
 bitbtn5.caption := 'Modifier';
 Groupbox3.Caption:='Modification/Suppression';
 Edit9.Text:=Table5.FieldByName('Code_media').AsString;
 Edit15.Text:=Table5.FieldByName('Type').AsString;
end;

procedure TForm1.BitBtn30Click(Sender: TObject);
begin
 if((Table6.RecordCount=0) and (Table6.State <> dsInsert)) then exit;
 bitbtn38.Enabled := true;
 bitbtn13.caption := 'Modifier';
 Groupbox7.Caption:='Modification/Suppression';
 Edit10.Text:=Table6.FieldByName('Code_localisation').AsString;
 Edit16.Text:=Table6.FieldByName('Description').AsString;
end;

procedure TForm1.BitBtn31Click(Sender: TObject);
begin
 if((Table7.RecordCount=0) and (Table7.State <> dsInsert)) then exit;
 bitbtn39.Enabled := true;
 bitbtn7.caption := 'Modifier';
 Groupbox4.Caption:='Modification/Suppression';
 Edit11.Text:=Table7.FieldByName('Code_film').AsString;
 Edit17.Text:=Table7.FieldByName('Code_exemplaire').AsString;
 Edit20.Text:=Table7.FieldByName('Code_media').AsString;
 Edit22.Text:=Table7.FieldByName('Code_localisation').AsString;
end;

procedure TForm1.BitBtn32Click(Sender: TObject);
begin
 if((Table8.RecordCount=0) and (Table8.State <> dsInsert)) then exit;
 bitbtn40.Enabled := true;
 bitbtn15.caption := 'Modifier';
 Groupbox8.Caption:='Modification/Suppression';
 Edit12.Text:=Table8.FieldByName('Code_personne').AsString;
 Edit18.Text:=Table8.FieldByName('Code_film').AsString;
 Edit21.Text:=Table8.FieldByName('Code_exemplaire').AsString;
 Edit23.Text:=Table8.FieldByName('Date_emprunt').AsString;
 Edit24.Text:=Table8.FieldByName('Date_restitution').AsString;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table1.Edit;
Table1.FieldByName('Code_personne').Value:= Edit1.Text;
Table1.FieldByName('Nom').Value:= Edit2.Text;
Table1.FieldByName('Prenom').Value:=Edit3.Text;
Table1.Post;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Table2.Edit;
Table2.FieldByName('Code_personne').Value:= Edit4.Text;
Table2.FieldByName('Adresse').Value:= Edit5.Text;
Table2.FieldByName('Date_inscription').Value:= Edit6.Text;
Table2.Post;
end;

procedure TForm1.BitBtn12Click(Sender: TObject);
begin
Table3.Edit;
Table3.FieldByName('Code_film').Value:= Edit7.Text;
Table3.FieldByName('Titre').Value:= Edit13.Text;
Table3.FieldByName('Annee').Value:= Edit19.Text;
Table3.FieldByName('Genre').Value:= Edit25.Text;
Table3.FieldByName('Evaluation').Value:= Edit26.Text;
Table3.FieldByName('Code_personne').Value:= Edit27.Text;
Table3.FieldByName('Nb_emprunts').Value:= Edit28.Text;
Table3.Post;
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
Table4.Edit;
Table4.FieldByName('Code_personne').Value:= Edit8.Text;
Table4.FieldByName('Code_film').Value:=Edit14.Text;
Table4.Post;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
Table5.Edit;
Table5.FieldByName('Code_media').Value:= Edit9.Text;
Table5.FieldByName('Type').Value:= Edit15.Text;
Table5.Post;
end;

procedure TForm1.BitBtn13Click(Sender: TObject);
begin
Table6.Edit;
Table6.FieldByName('Code_localisation').Value:= Edit10.Text;
Table6.FieldByName('Description').Value:=Edit16.Text;
Table6.Post;
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
Table7.Edit;
Table7.FieldByName('Code_film').Value:= Edit11.Text;
Table7.FieldByName('Code_exemplaire').Value:= Edit17.Text;
Table7.FieldByName('Code_media').Value:= Edit20.Text;
Table7.FieldByName('Code_localisation').Value:= Edit22.Text;
Table7.Post;
end;

procedure TForm1.BitBtn15Click(Sender: TObject);
begin
Table8.Edit;
Table8.FieldByName('Code_personne').Value:= Edit12.Text;
Table8.FieldByName('Code_film').Value:= Edit18.Text;
Table8.FieldByName('Code_exemplaire').Value:= Edit21.Text;
Table8.FieldByName('Date_emprunt').Value:= Edit23.Text;
Table8.FieldByName('Date_restitution').Value:= Edit24.Text;
Table8.Post;
end;

procedure TForm1.BitBtn17Click(Sender: TObject);
begin
Table1.Append;
BitBtn18Click(self);
Groupbox1.Caption:='Nouveau enregistrement';
bitbtn33.Enabled := false;
bitbtn1.caption := 'Valider';
end;

procedure TForm1.BitBtn19Click(Sender: TObject);
begin
Table2.Append;
BitBtn26Click(self);
Groupbox2.Caption:='Nouveau enregistrement';
bitbtn11.Enabled := false;
bitbtn3.caption := 'Valider';
end;

procedure TForm1.BitBtn20Click(Sender: TObject);
begin
Table3.Append;
BitBtn27Click(self);
Groupbox6.Caption:='Nouveau enregistrement';
bitbtn35.Enabled := false;
bitbtn12.caption := 'Valider';
end;

procedure TForm1.BitBtn21Click(Sender: TObject);
begin
Table4.Append;
BitBtn28Click(self);
Groupbox5.Caption:='Nouveau enregistrement';
bitbtn36.Enabled := false;
bitbtn9.caption := 'Valider';
end;

procedure TForm1.BitBtn22Click(Sender: TObject);
begin
Table5.Append;
BitBtn29Click(self);
Groupbox3.Caption:='Nouveau enregistrement';
bitbtn37.Enabled := false;
bitbtn5.caption := 'Valider';
end;

procedure TForm1.BitBtn23Click(Sender: TObject);
begin
Table6.Append;
BitBtn30Click(self);
Groupbox7.Caption:='Nouveau enregistrement';
bitbtn38.Enabled := false;
bitbtn13.caption := 'Valider';
end;

procedure TForm1.BitBtn24Click(Sender: TObject);
begin
Table7.Append;
BitBtn31Click(self);
Groupbox4.Caption:='Nouveau enregistrement';
bitbtn39.Enabled := false;
bitbtn7.caption := 'Valider';
end;

procedure TForm1.BitBtn25Click(Sender: TObject);
begin
Table8.Append;
BitBtn32Click(self);
Groupbox8.Caption:='Nouveau enregistrement';
bitbtn40.Enabled := false;
bitbtn15.caption := 'Valider';

end;

procedure TForm1.BitBtn33Click(Sender: TObject);

var rep : integer;
begin
 rep:= MessageBox(Handle,'Etes-vous s鹯 de vouloir supprimer cette enregistrement ?',
 'Avertissement',MB_OKCANCEL or MB_ICONSTOP ) ;
 if (rep =IDOK)
  then Table1.Delete;
  Bitbtn33.Enabled := false;

end;


procedure TForm1.BitBtn11Click(Sender: TObject);
var rep : integer;
begin
 rep:= MessageBox(Handle,'Etes-vous s鹯 de vouloir supprimer cette enregistrement ?',
 'Avertissement',MB_OKCANCEL or MB_ICONSTOP ) ;
 if (rep =IDOK)
  then Table2.Delete;
  Bitbtn11.Enabled := false;

end;


procedure TForm1.BitBtn35Click(Sender: TObject);
var rep : integer;
begin
 rep:= MessageBox(Handle,'Etes-vous s鹯 de vouloir supprimer cette enregistrement ?',
 'Avertissement',MB_OKCANCEL or MB_ICONSTOP ) ;
 if (rep =IDOK)
  then Table3.Delete;
  Bitbtn35.Enabled := false;

end;


procedure TForm1.BitBtn36Click(Sender: TObject);
var rep : integer;
begin
 rep:= MessageBox(Handle,'Etes-vous s鹯 de vouloir supprimer cette enregistrement ?',
 'Avertissement',MB_OKCANCEL or MB_ICONSTOP ) ;
 if (rep =IDOK)
  then Table4.Delete;
  Bitbtn36.Enabled := false;

end;


procedure TForm1.BitBtn37Click(Sender: TObject);
var rep : integer;
begin
 rep:= MessageBox(Handle,'Etes-vous s鹯 de vouloir supprimer cette enregistrement ?',
 'Avertissement',MB_OKCANCEL or MB_ICONSTOP ) ;
 if (rep =IDOK)
  then Table5.Delete;
  Bitbtn37.Enabled := false;

end;


procedure TForm1.BitBtn38Click(Sender: TObject);
var rep : integer;
begin
 rep:= MessageBox(Handle,'Etes-vous s鹯 de vouloir supprimer cette enregistrement ?',
 'Avertissement',MB_OKCANCEL or MB_ICONSTOP ) ;
 if (rep =IDOK)
  then Table6.Delete;
  Bitbtn38.Enabled := false;

end;

procedure TForm1.BitBtn39Click(Sender: TObject);
var rep : integer;
begin
 rep:= MessageBox(Handle,'Etes-vous s鹯 de vouloir supprimer cette enregistrement ?',
 'Avertissement',MB_OKCANCEL or MB_ICONSTOP ) ;
 if (rep =IDOK)
  then Table7.Delete;
  Bitbtn39.Enabled := false;

end;


procedure TForm1.BitBtn40Click(Sender: TObject);
var rep : integer;
begin
 rep:= MessageBox(Handle,'Etes-vous s鹯 de vouloir supprimer cette enregistrement ?',
 'Avertissement',MB_OKCANCEL or MB_ICONSTOP ) ;
 if (rep =IDOK)
  then Table8.Delete;
  Bitbtn40.Enabled := false;

end;


procedure TForm1.BitBtn41Click(Sender: TObject);
var Option : TLocateOptions;
begin
 if ((combobox1.Text<>'')and(edit29.Text<>'')) then
  begin
  Option := [loPartialKey];
  Table1.Locate(combobox1.Text,edit29.Text,Option);
  end;
end;

procedure TForm1.BitBtn42Click(Sender: TObject);
var Option : TLocateOptions;
begin
 if ((combobox2.Text<>'')and(edit30.Text<>'')) then
  begin
  Option := [loPartialKey];
  Table2.Locate(combobox2.Text,edit30.Text,Option);
  end;
end;

procedure TForm1.BitBtn43Click(Sender: TObject);
var Option : TLocateOptions;
begin
 if ((combobox3.Text<>'')and(edit31.Text<>'')) then
  begin
  Option := [loPartialKey];
  Table3.Locate(combobox3.Text,edit31.Text,Option);
  end;
end;

procedure TForm1.BitBtn44Click(Sender: TObject);
var Option : TLocateOptions;
begin
 if ((combobox4.Text<>'')and(edit32.Text<>'')) then
  begin
  Option := [loPartialKey];
  Table4.Locate(combobox4.Text,edit32.Text,Option);
  end;
end;

procedure TForm1.BitBtn45Click(Sender: TObject);
var Option : TLocateOptions;
begin
 if ((combobox5.Text<>'')and(edit33.Text<>'')) then
  begin
  Option := [loPartialKey];
  Table5.Locate(combobox5.Text,edit33.Text,Option);
  end;
end;

procedure TForm1.BitBtn46Click(Sender: TObject);
var Option : TLocateOptions;
begin
 if ((combobox6.Text<>'')and(edit34.Text<>'')) then
  begin
  Option := [loPartialKey];
  Table6.Locate(combobox6.Text,edit34.Text,Option);
  end;
end;

procedure TForm1.BitBtn47Click(Sender: TObject);
var Option : TLocateOptions;
begin
 if ((combobox7.Text<>'')and(edit35.Text<>'')) then
  begin
  Option := [loPartialKey];
  Table7.Locate(combobox7.Text,edit35.Text,Option);
  end;
end;

procedure TForm1.BitBtn48Click(Sender: TObject);
var Option : TLocateOptions;
begin
 if ((combobox8.Text<>'')and(edit36.Text<>'')) then
  begin
  Option := [loPartialKey];
  Table8.Locate(combobox8.Text,edit36.Text,Option);
  end;
end;

procedure TForm1.Apropos1Click(Sender: TObject);
begin
Form2.show();
end;

end.