[Delphi XE8] Générer des tableaux.

Bonjour à tous,

Je voulais demander à une âme charitable un petit exemple de code ou bien des indices afin de coder des tableaux à proprement parler (pas des tab[], etc) je veux dessiner des tableaux afin d'afficher des tables de ma BDD. DOnc des colones, des lignes, et si possible quelque chose de générique style :

Tab.Create(nbLigne, nbColone);

Et bim, sa génère ! Le problème c'est que je ne vois pas du tout comment m'y prendre. J'ai essayé de multiple façon et j'n'ai pas réussis à en venir à bout. On m'a dit par ailleurs que l'on pouvait faire des tableaux à l'aide d'élément TPanel. :?

En vous remerciant d'avance,
Bien Cordialement,

Bonjour et je pense Bienvenue,

si par tableau il ne s'agit pas de tableau excel, et s'il s'agit de VCL alors le composant TDBGrid est là pour ça
s'il s'agit de FMX le composant TGrid est AMHA un peu trop limité et la solution de TMS (TMSGrid) est nettement plus aboutie
à moins qu'il s'agisse de tableau en mémoire ?
la demande n'est pas très claire merci de préciser

Merci et bonjour !

C'est exactement cela, j'ai essayé d'avancer ce matin malheureusement, la mâtiné s'achève déjà et je n'ai pas réussis à finaliser mon début de projet.

Citation:

---

Envoyé par SergioMaster

si par tableau il ne s'agit pas de tableau excel, et s'il s'agit de VCL alors le composant TDBGrid est là pour ça [..]

---

Le code :

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 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 80 81 82 83 84 85 86

unit Unit1;   interface   uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids;   type TForm3 = class(TForm) DBGrid1: TDBGrid;   procedure OnCreate(Sender: TObject); procedure OnResize(Sender: TObject);   public   private   procedure FixDBGridColumnsWidth(const DBGrid: TDBGrid);   end;   var Form3: TForm3;   implementation   {$R *.dfm}   procedure TForm3.OnCreate(Sender: TObject); begin DBGrid1.DataSource.DataSet.FieldByName('FistName').Tag := 40; DBGrid1.DataSource.DataSet.FieldByName('LastName').Tag := 4 + Canvas.TextWidth( DBGrid1.DataSource.DataSet.FieldByName('LastName').DisplayName); end;   procedure TForm3.OnResize(Sender: TObject); begin FixDBGridColumnsWidth(DBGrid1); end;   procedure FixDBGridColumnsWidth(const DBGrid: TDBGrid); var i : integer; TotWidth : integer; VarWidth : integer; ResizableColumnCount : integer; AColumn : TColumn; begin TotWidth := 0; VarWidth := 0; ResizableColumnCount := 0;   for i := 0 to -1 + DBGrid.Columns.Count do begin TotWidth := TotWidth + DBGrid.Columns[i].Width; if DBGrid.Columns[i].Field.Tag = 0 then Inc(ResizableColumnCount); end;   if dgColLines in DBGrid.Options then TotWidth := TotWidth + DBGrid.Columns.Count;   if dgIndicator in DBGrid.Options then TotWidth := TotWidth + IndicatorWidth;   VarWidth := DBGrid.ClientWidth - TotWidth;   if ResizableColumnCount > 0 then VarWidth := varWidth div ResizableColumnCount;   for i := 0 to -1 + DBGrid.Columns.Count do begin AColumn := DBGrid.Columns[i]; if AColumn.Field.Tag = 0 then begin AColumn.Width := AColumn.Width + VarWidth; if AColumn.Width.ToBoolean then AColumn.Width := AColumn.Field.Tag; end; end;   end;   end.

---

Une seule erreur que je ne comprend pas du tout, j'ai trituré cette ligne dans tout les sens au niveau des arguments comme au niveau des forward/external/overload à ajouter en fin de ligne.
La ligne qui bug:

Code:

---

procedure FixDBGridColumnsWidth(const DBGrid: TDBGrid);

---

(Msg debug: "Erreur fatale: Déclaration forward ou external non satisfaite")


Donc, je reformule, en effet, je souhaite créer un tableau visuel à l'écran avec colonnes, titres de colones, lignes, etc. Afin d'afficher une table SQL à l'intérieur de mon programmme visible par le client.
En vous remerciant ! (Je débute en Pascal, j'ai commencé ce langage lundi dernier..)

Bonne journée,
Bien Cordialement,
M.L

Edit: site sympa pour par exemple TDBGrid (http://helpcentral.componentone.com/...p/truedbgrid8/)

tout simplement

En corrigeant implementation

Code:

---

procedure TForm3.FixDBGridColumnsWidth(const DBGrid: TDBGrid);

---

FixDBGridColumnsWidth est déclaré en private de TForm3 dans la partie interface
Dans la partie implementation, il faut conserver le lien qu'il y a entre FixDBGridColumnsWidth et TForm3 sous la forme procedure NomDeClasse.NomDeMethode.

Une AUTRE approche

En corrigeant interface

Code:

---

1 2 3 4 5

private   procedure FixDBGridColumnsWidth(const DBGrid: TDBGrid);   end;

---

devient

Code:

---

1 2 3 4 5 6

private   end;     procedure FixDBGridColumnsWidth(const DBGrid: TDBGrid);

---

Cette fois ci FixDBGridColumnsWidth est après le end donc c'est en dehors de TForm3
Ce n'est plus une méthode mais un simple procédure


Cette fonction FixDBGridColumnsWidth n'est pas nécessaire,
commence déjà par la base avant de jouer avec de ce genre de

Okay, c'est compris, je te remercie !


Dernière chose, j'ai bien simplifié le code du coup et viré tout le useless, voilà se qu'il me reste, une fonction qui est appelé à la création de TForm.

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

begin DBGrid1.Columns.Add; DBGrid1.Columns.Add; DBGrid1.Columns.Add; DBGrid1.Columns.Add;   DBGrid1.Columns[0].Width := 50; DBGrid1.Columns[1].Width := 50; DBGrid1.Columns[2].Width := 50; DBGrid1.Columns[3].Width := 50; DBGrid1.Columns[4].Width := 50;   DBGrid1.Columns[0].FieldName := 'champ1'; DBGrid1.Columns[1].FieldName := 'champ1'; DBGrid1.Columns[2].FieldName := 'champ1'; DBGrid1.Columns[3].FieldName := 'champ1'; DBGrid1.Columns[4].FieldName := 'champ1';   DBGrid1.Columns[0].Title.Alignment := taCenter; DBGrid1.Columns[1].Title.Alignment := taCenter; DBGrid1.Columns[2].Title.Alignment := taCenter; DBGrid1.Columns[3].Title.Alignment := taCenter; DBGrid1.Columns[4].Title.Alignment := taCenter;   DBGrid1.Columns[0].Title.Font.Color := clGreen; DBGrid1.Columns[1].Title.Font.Color := clGreen; DBGrid1.Columns[2].Title.Font.Color := clGreen; DBGrid1.Columns[3].Title.Font.Color := clGreen; DBGrid1.Columns[4].Title.Font.Color := clGreen;   { Grid1.Columns[0].PickList.Add('tem1'); } end;

---

Je souhaiterais savoir si vous avez une idée pour ajouter des lignes et non pas des colonnes, puis je souhaiterais par la suite les remplir.

Merci d'avance,

Bonjour,

une DBGrid est normalement lié à un datasource (celui de la table)
le remplissage se fait automatiquement (à partir du moment ou le datasource est lié)
rajouter une ligne revient à faire une insertion d'un enregistrement

en gros et rapidement voici ce qu'il faut pour afficher une table dans un "tableau" avec VCL
(utilisation de FireDac/Firebird pour les données , pas une once de code)
Pièce jointe 184171
que tu retailles ensuite les colonnes, recolorise les entêtes n'est pas forcément une obligation si tu indiques tout cela dans les propriétés des colonnes : columns
(quoique pour la taille des colonnes j'ai un doute .... trop tard j'ai pas sauvegardé)

Merci Sergio au Top !

Du coup, j'ai fais sans code, mais je préfère le faire 'en code' (plus rapidement modifiable et meilleur compréhension de ce que je fais !)
Du coup ça me donne :

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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

unit Unit4;   interface   uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids, Vcl.DBGrids;   type TForm4 = class(TForm)   DBGrid1 : TDBGrid;   procedure OnCreate(Sender : TObject);   private DataSource : TDataSource; ADOTable : TADOTable;   public   end;   var Form4 : TForm4;   implementation   {$R *.dfm}     procedure TForm4.OnCreate(Sender : TObject); var Collection : TCollection; Column : TColumn; ColumnTitle : TColumnTitle; SelectQuery : TADOQuery; begin SelectQuery := TADOQuery.Create(nil); SelectQuery.ConnectionString := 'Provider=MSDASQL.1; Persist Security Info=False; Data Source=XXX'; SelectQuery.DataSource := DataSource; SelectQuery.SQL.Text := 'SELECT Designation, Cle, Ville FROM XXX WHERE (Cle >= 9910000 AND Cle <= 9910005);';   DataSource := TDataSource.Create(nil); DataSource.Name := 'DataSource'; Datasource.DataSet := SelectQuery;   DBGrid1.Columns.Add; DBGrid1.Columns[0].FieldName := 'Designation'; DBGrid1.Columns[0].Title.Caption := 'Designation'; DBGrid1.Columns[0].Width := 120;   DBGrid1.Columns.Add; DBGrid1.Columns[1].FieldName := 'Cle'; DBGrid1.Columns[1].Title.Caption := 'Cle'; DBGrid1.Columns[1].Width := 50;   DBGrid1.Columns.Add; DBGrid1.Columns[2].FieldName := 'Ville'; DBGrid1.Columns[2].Title.Caption := 'Ville'; DBGrid1.Columns[2].Width := 95;   DBGrid1.DataSource := DataSource; DataSource.DataSet.Active := True; end;   end.

---

Le code marche au top, pour le coup, seul problème, je souhaiterais bloquer le redimensionnement des colonnes et leur donné un width en automatique. En gros, si je prend ma colonne 'Designation' qui est de type TEXT dans Paradox9, bah, je veux que la taille de la colonne ce fixe sur la plus grande chaîne de caractère. J'espère me faire comprendre :roll:

Voiloutss, sa sera tout et sinon vous avez répondu tous à toutes mes questions, je vous remercies !

Sur ce,
Bonne fin de soirée et bon code !

Retire dgColumnResize des Options de la Grille
Laisse 64 comme Width, c'est la taille par défaut qui du coup provoque un redimensionnement en fonction du titre ou de la donnée

Merci, sujet résolu du coup !