Comment créer des dbctrlgrid avec dbtext dynamiquement

Version imprimable

18/03/2013, 18h47
kameleon80

Comment créer des dbctrlgrid avec dbtext dynamiquement
Bonjour à tous,
Je suis un peu débutant sur delphi, j ai voulu créé une petite application, ou j ai besoin de créer d'une manière dynamique un dbctrlgrid(1 ligne et 3 colones) avec un dbtext. Le problème c'est que tout fonctionne bien sauf que le dbtext n est apparu que sur le premier panel de dbctrlgrid, et pas sur l ensemble des panels, j ai pensé à la valeur parent de dbtext:
Code:

1 2 Dbtext1 := tdbtext.create(dbctrlgrid1); Dbtext1.parent := dbctrlgrid1;
Mais ca marche pas, je ne sais pas quoi lui attribué comme valeur, merci d'avance pour toute petite idée. Bonne soirée
19/03/2013, 10h32
ShaiLeTroll

C'est surtout étrange comme besoin le Tdbctrlgrid est justement pour conçu pour éviter de gérer cela manuellement

Force un Grid.Invalidate();
Il ne doit pas comprendre qu'il faut qu'il dessine le composant les autres Panels

As-tu affecté aussi le DataSource et DataField
19/03/2013, 17h07
kameleon80

merci ShaiLeTroll pour ta réponse, malheureusement ça marche toujours pas avec invalidate, sinon je vous explique mon problème:
j ai différentes catégories du plat, et on a des menus:
un menu peut avoir 2 pizza au choix par exemple, 1 boisson et 1 dessert, donc pour ce menu là, j ai besoin d'un dbctrlgrid pour choisir la première pizza, et un autre dbctrlgrid pour choisir la 2eme pizza et encore 2 dbctrlgrid pour choisir la boisson et le dessert, sachant que le menu change de catégorie et de nombre de plat, et si vous avez une autre solution pour ce problème c'est avec un grand plaisir
19/03/2013, 18h09
ShaiLeTroll

Ton code génére des Tdbctrlgrid à la volée, Ok, je comprends mieux

Est-ce que le Panel d'un dbctrlgrid est le même pour pizza, boisson ou dessert ?
il y a un :
- DBEdit Nom (Reine, Calzone | Soda, Limo, Eau | Glace, Cookie)
- DBImage, comme dans la démo FMX de Thierry Laborde qui gère justement une Pizzeria
- DBCombo pour la Taille (Junior, Senior | 33cl 1,5L | 100ml, 500ml), ...

Tu peux faire une TFrame (oui, j'ai osé) ou alors une TForm ancrée (BorderStyle bsNone et Parant ...)

Dans la TFrame\TForm, tu designe un Tdbctrlgrid pouvant gérer un élément générique, tu joue sur Visible si tu veux caché certains DBControls
Tu affecte le bon DataSource et les bon DataField pour utiliser la bonne table \ bonne colonne (rien à faire si tout est dans la même)
C'est plus simple que de vouloir tout positionner par Code !

merci encore mais malheureusement j'ai besoin des composants qui permette la rapidité d'utilisation avec les clic(comme les bouton, ou panel..etc), voila un exemple qui genere le meme probleme que le mien:

Code:

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
procedure TfrmMenuPlat.FormCreate(Sender: TObject);
var
requette1: TQuery;
DSrequette1: TDataSource;
DBCtrlGrid1: TDBCtrlGrid;
DBText1: TDBText;
SqlQuery: String;
begin
 
    //requette sql
    requette1 := TQuery.Create(frmMenuPlat);
    requette1.DatabaseName := 'rolin';
    requette1.Close;
    requette1.SQL.Clear;
    SqlQuery := 'SELECT Code_plat, Nom FROM plats WHERE Code_catégorie = 3';
    requette1.SQL.Add(SqlQuery);
    requette1.ExecSQL;
    requette1.Active := true;
 
    //datasource
    DSrequette1                 := TDataSource.Create(frmMenuPlat);
    DSrequette1.DataSet     := requette1;
 
 
    DBCtrlGrid1                  := TDBCtrlGrid.Create(self);
    DBCtrlGrid1.Parent        := frmMenuPlat;
    DBCtrlGrid1.Top           := 80;
    DBCtrlGrid1.Left           := 50;
    DBCtrlGrid1.RowCount    := 1;
    DBCtrlGrid1.ColCount     := 5;
    DBCtrlGrid1.Width         := 800;
    DBCtrlGrid1.Height        := 60;
    DBCtrlGrid1.DataSource := DSrequette1;
 
    DBText1                 := TDBText.Create(self);
    DBText1.Parent       := DBCtrlGrid1;
    DBText1.Top           := 5;
    DBText1.Left           := 5;
    DBText1.Width         := 140;
    DBText1.Height        := 60;
    DBText1.DataSource := DSrequette1;
    DBText1.DataField    := 'Nom';
 
end;

20/03/2013, 10h18
ShaiLeTroll

:tagcode:

Citation:

Envoyé par kameleon80

merci encore mais malheureusement j'ai besoin des composants qui permette la rapidité d'utilisation avec les clic(comme les bouton, ou panel..etc),

:koi:
J'ai l'impression que tu n'as rien compris à ce que j'ai proposé

Ma proposition à base de TForm\TFrame ne pose aucun problème d'ergonomie et même permettra peut-être un meilleur confort en activant les TabStop\TabOrder !

Comme tous les plats sont dans la même table, il est donc évident que tu peux donc faire une TFrame contenant une TDBCtrlGrid prédéfini en DesignTime, tu n'aurais que la TFrame à créer et pas le contenu

Tu n'utiliserais pas une TDBCtrlGrid pour n'afficher qu'une colonne et qu'un seul DBEdit !
Si tu n'as pas d'élément comment une TDBImage, une TDBGrid ou même une TDBLookupComboBox est largement suffisante !