IV.5- Technique de
programmations
Sécurité de base de données
La base de données que nous avons eu à utiliser
est sécurisée par des comptes utilisateurs définis par
l'administrateur de la base de données. (Annexe 6)
Manipulation sur les données
La sauvegarde des informations dans la BD, la suppression des
informations et la recherche et un nouvel enregistrement se font de la
même manière sur toutes nos tables. (Exemple : manipulation
de la table).
Enregistrement
procedure
TForm4.validerClick(Sender: TObject);
begin
Table1.Edit;
Table1.FieldByName('num_enquete').Value :=
Edit1.Text;
Table1.FieldByName('mois').Value := Edit2.Text;
Table1.FieldByName('nom_invest').Value :=
Edit3.Text;
Table1.FieldByName('nbreds').Value := Edit4.Text;
Table1.FieldByName('nssn').Value := Edit5.Text;
Table1.FieldByName('code_district').Value :=
ComboBox1.Text;
Table1.Post;
end;
Suppression
procedure
TForm4.supprimerClick(Sender: TObject);
var rep : integer;
begin
rep:= MessageBox(Handle,'Etes-vous sûr de vouloir
supprimer enquete ?',
'LOGI_DPLPO Avertissement',MB_OKCANCEL or MB_ICONSTOP )
;
if (rep =IDOK)
then Table1.Delete;
end;
Recherche
procedure
TForm4.RechercherClick(Sender: TObject);
var Filtre : string;
begin
// Constrcuction du Filtre avec le texte saisi dans la
zone TEdit
Filtre := 'mois =''' + Edit2.Text + '*''';
// Test si il n'y a rien dans le TEdit
if Edit2.Text ='' then
begin
// Arrête le filtrage de la table
Table1.Filtered:=false;
// Quitte la méthode
exit;
end;
// Mise en place du filtre
Table1.Filter := Filtre;
// Activation du filtre
Table1.Filtered := true;
end;
Modifier :
procedure
TForm4.modifierClick(Sender: TObject);
begin
if((Table1.RecordCount=0)and(Table1.State<>dsInsert))
then exit;
Edit1.Text:=Table1.FieldByName('num_enquete').AsString;
Edit2.Text:=Table1.FieldByName('mois').AsString;
Edit3.Text:=Table1.FieldByName('nom_invest').AsString;
Edit4.Text:=Table1.FieldByName('nbreds').AsString;
Edit5.Text:=Table1.FieldByName('nssn').AsString;
ComboBox1.Text:=Table1.FieldByName('code_district').AsString;
end;
Nouvel enregistrement
procedure TForm4.newClick(Sender:
TObject);
begin
Table1.Append;
modifierClick(self);
end;
IV.6- Présentation Des
Ecrans
L'application dénommé `LOGES_PNLPO' que nous
avons réalisé présente une page d'accueil suivante
(Annexe 7), des enregistrements des bases (Annexe
8), des enregistrements des données (Annexe 9)
et des statistiques (Annexe 10, 11).
| 
