Discussion :

[softstar]

bonjour tout le monde ,

je viens de terminer mon graduat d'analyste-programmeur en cours du soir

et je dois donc realiser un travail de fin d'études

j'ai choisi de faire la gestion complete d'un café-restaurant de ma région

j'utilise pour ce faire delphi 2005 , et microsoft access

voici mon probleme :

pour la réalisation de l interface de la caisse-enregistreuse de ce café

j'ai pensé qu'a la creation de ma Form , compter le nombre d'enregistrements de ma requetes concernant les familles de produits

exemple : pour ma famille alcool , j'ai 22 enregistrements et donc j'aimerais creer dynamiquement 22 boutons et les mettre dans un Tpanel

Mon probleme,j'arrive a creer dynamiquement mes boutons , mais le probleme c est que ca dépasse de mon Tpanel

Comment puis je faire pour par exemple les aligner en colonnes dans mon Tpanel et qu'ils ne dépassent pas de mon Tpannel ?

merci d'avance en tout cas a tous pour votre aide

[chaours]

Salut,
ce n'est pas difficile...
il faut faire comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
procedure CreateButton;
const
  MaxCol = 5;
  MaxRow = 5; // Matrice de 5x5 = 25 bouton possible dans ton TPanel...
  Margin = 2;
var
  Query : TAdoQuery;
  Button : TButton;
  Index : integer;
  Width : integer;
  Height : integer;
begin
  Query := TAdoQuery.Create(Self); // ou nil ça dépend de ce que tu veux.
  Query.Connection := Form1.ADOConnection;
  Query.SQL.Text := 'SELECT * FROM T_Consumable_Alcohol ORDER BY Name';
  Query.Open;
  Query.First;
  Index := 0;
  Width := (MyPanel.Width - 2*Margin) div MaxCol;
  Height := (MyPanel.Height - 2*Margin) div MaxRow;
  while not Query.Eof do begin
    Button := TButton.Create(MyPanel);
    Button.Parent := MyPanel;
    Button.Name := Query.FieldByName('Name').AsString;
    Button.Caption := Query.FieldByName('Name').AsString;
    Button.Left := Margin + Width * Index;
    Button.Width := Width;
    Button.Top := Margin + Height * ((Index+1) div MaxCol);
    Button.Height := Height;
    Inc(Index);
    Query.Next;
  end;
  Query.Close;
  Query.Free;
end;

Voilà j'espère que ça t'aidera...

[softstar]

ok chaours,merci beaucoup , je vais tester ca

[softstar]

rien a faire

les boutons sortent du bord de mon panel

(pas sur la form principale,mais bien dans le panel et ca depasse le bord donc

je ne vois qu'une partie des boutons créés)

je te montre mon code que j ai adapté d apres ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
Button : TButton;
  Index : integer;
  Width : integer;
  Height : integer;
 
begin
  Nombre:=Kadaotable1.RecordCount;
  Index := 0;
  Width := (Panel1.Width - 2*Margin) div MaxCol;
  Height := (Panel1.Height - 2*Margin) div MaxRow;
  while (Index<=Nombre) do begin
    Button := TButton.Create(Panel1);
    Button.Parent := Panel1;
    Button.Name := Kadaotable1.FieldByName('Nom_Article').AsString;
    Button.Caption := Kadaotable1.FieldByName('Nom_Article').AsString;
    Button.Left := Margin + Width * Index;
    Button.Width := Width;
    Button.Top := Margin + Height * ((Index+1) div MaxCol);
    Button.Height := Height;
    Inc(Index);
  end;
 
end;

merci encore a tous pour votre aide en tout cas

[thewho]

Bonjour,

Je pense que tu es sur une mauvaise voie :

Admettons que tu arrives à faire ce que tu veux actuellement, avec 22 boutons (normalement, ça ne devrait pas poser de problème)

MAIS

Que se passera-t-il quand tu auras une liste de 50, ou 100, ou plus, boutons à ajouter ?

Il y aura forcément une limite à partir de laquelle ta solution ne sera plus applicable de manière acceptable (et ne crois pas ce que peut te dire ton employeur si tu lui demandes "Quelle est la limite maximale possible", il n'en sait rien)

Il vaut donc mieux prévoir cela tout de suite, et ne pas se focaliser là-dessus.

[softstar]

ok thewho,je suis d'accord avec toi

d'autant plus que je pense que ce sera lourd a gérer par la memoire

si par exemple j ai 100 ou voir 150 enregistrements dans une table

mais alors ? comment ferais tu personellement pour presenter l'interface

de la caisse a l'ecran ?

car sur toute les caisses enregistreuses de café que j'ai vu

c'est présenté sous forme de bouttons (Biere,J.B,coca,etc...) , un bouton par articles

car si je laisse ca sous forme de Dbgrid , ca va etre difficile a gerer par le serveur de café,non ?

merci d'avance a tous pour votre aide en tout cas