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
| //Affichage StringGrid2 Titre Colonne
stringgrid2.cells[0,0]:='SDate';
stringgrid2.cells[1,0]:='CompteDeSCCode';
stringgrid2.cells[2,0]:='SommeDeSPrice';
stringgrid2.cells[3,0]:='Total Nombre';
stringgrid2.cells[4,0]:='Total Montant';
stringgrid2.cells[5,0]:='Stock de Livre';
//Cache le StringGrid2
StringGrid2.Visible:=false;
//Initialise les Tableaux d'entier
integ[1]:=1;
//Je Cache la Form2
Form2.hide;
//Insère l'image
//image.picture:="C:\gaetan\Exercice Delphi\IEPNET\image.jpg";
//Code pour l'affichage des Clés pub dans la ComboBox1
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select MCode from Markets');
Query1.Open;
Query1.First;
while not Query1.Eof do
begin
combobox1.Items.Add(Query1.Fields[0].asstring);
Query1.Next;
end;
Query1.Close;
//Code pour l'affichage des Campagnes dans la ComboBox2
Query8.Close;
Query8.SQL.Clear;
Query8.SQL.Add('select titre from campagne');
Query8.SQL.Add('GROUP BY Titre');
Query8.Open;
Query8.First;
while not Query8.Eof do
begin
combobox2.Items.Add(Query8.Fields[0].asstring);
Query8.Next;
end;
Query8.Close;
//Remplissage de la StringGrid
stringgrid1.cells[0,0]:='Clé Pub';
stringgrid1.cells[1,0]:='Description';
stringgrid1.cells[2,0]:='Type';
stringgrid1.cells[3,0]:='PCode';
stringgrid1.cells[4,0]:='Produit Vendu';
stringgrid1.cells[5,0]:='Interêt';
stringgrid1.cells[6,0]:='NbrExp';
stringgrid1.cells[7,0]:='Coût';
stringgrid1.cells[8,0]:='Retour';
stringgrid1.cells[9,0]:='Pourc.';
end; |
Partager