1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
| procedure TF_AcACG.Bt_AffichAnClick(Sender: TObject);
Var ChoixAn, Nomtable, SQLSelaffich : String ;
Var NomCol1, NomCol2, NomCol3, AnneeSel : String ;
Var DirNomBase, Nombase0, DnomBase : String ;
Var ChoixTable : Integer ;
begin
//Choix de la base de données
DirNomBase := Dir_CreeOuvre.Text ;
NomBase0 := ED_NomBase.text ;
DNombase := DirNomBase + '\' + NomBase0 + '.db3' ;
//Connection à la base de données
F_AcACG.ZC_Affich.Connected := False ;
F_AcACG.ZC_Affich.Database := Dnombase ;
F_AcACG.ZC_Affich.Connected := True ;
// Choix du type d'entrées à afficher
ChoixAn := Ed_SelAn.text ;
ChoixTable := Integer(RG_ChoixVerif.ItemIndex);
Case ChoixTable of
0 : // Choix d'affichage --> Naissances
Begin
// Identification des variables à afficher
NomTable := 'Naissance' ;
NomCol1 := 'NomEnft' ;
NomCol2 := 'PrenomEnft' ;
NomCol3 := 'DtActeN' ;
AnneeSel := 'AnActN' ;
// Requête SQL de sélection des infos à afficher
SQLSelAffich := 'Select ' + NomCol1 + ','+ NomCol2 + ',' + NomCol3 + ' From '+ NomTable ;
SQLSelAffich := SQLSelaffich + ' Where ' + AnneeSel + ' = ' + QuotedStr(ChoixAn) ;
SQLSelAffich := SQLSelAffich + ' Order by ' + NomCol1 ;
// Exécution de la requête SQL et affichage dans un StringGrid
F_AcACG.ZQ_Affich.Active := False ;
F_AcACG.ZQ_Affich.DataSource := F_Naiss.DataNaiss ;
F_AcACG.ZQ_Affich.SQL.Clear ;
F_AcACG.ZQ_Affich.SQL.Text := SQLSelAffich ;
F_AcACG.ZQ_Affich.Open ;
end;
1 : // Choix d'affichage --> Décès
Begin
// Identification des variables à afficher
NomTable := 'Deces' ;
NomCol1 := 'NomDCD' ;
NomCol2 := 'PrenomDCD' ;
NomCol3 := 'DtActeD';
AnneeSel := 'AnActDC' ;
// Requête SQL de sélection des infos à afficher
SQLSelAffich := 'Select ' + NomCol1 + ','+ NomCol2 + ',' + NomCol3 + ' From '+ NomTable ;
SQLSelAffich := SQLSelaffich + ' Where ' + AnneeSel + ' = ' + QuotedStr(ChoixAn) ;
SQLSelAffich := SQLSelAffich + ' Order by ' + NomCol1 ;
// Exécution de la requête SQL et affichage dans un StringGrid
F_AcACG.ZQ_Affich.Active := False ;
F_AcACG.ZQ_Affich.DataSource := F_Deces.DataDC ;
F_AcACG.ZQ_Affich.SQL.Clear ;
F_AcACG.ZQ_Affich.SQL.Text := SQLSelAffich ;
F_AcACG.ZQ_Affich.Open ;
end;
2 : // Choix d'affichage --> Mariages
Begin
// Identification des variables à afficher
Nomtable := 'UnionMar';
NomCol1 := 'LuiNom' ;
NomCol2 := 'LuiPrenom' ;
NomCol3 := 'DtUnion';
AnneeSel := 'AnActU' ;
// Requête SQL de sélection des infos à afficher
SQLSelAffich := 'Select ' + NomCol1 + ','+ NomCol2 + ',' + NomCol3 + ' From '+ NomTable ;
SQLSelAffich := SQLSelaffich + ' Where ' + AnneeSel + ' = ' + QuotedStr(ChoixAn) ;
SQLSelAffich := SQLSelAffich + ' Order by ' + NomCol1 ;
// Exécution de la requête SQL et affichage dans un StringGrid
F_AcACG.ZQ_Affich.Active := False ;
F_AcACG.ZQ_Affich.DataSource := F_Mariage.DataMar ;
F_AcACG.ZQ_Affich.SQL.Clear ;
F_AcACG.ZQ_Affich.SQL.Text := SQLSelAffich ;
F_AcACG.ZQ_Affich.Open ;
end;
end;
end; |
Partager