Discussion :

[Invité]

Bonjour,

Dans le cadre de mon stage, je dois concevoir un programme qui permet, à partir de données d'une BDD donc, d'effectuer une recherche intuitive.

Je m'explique, en commençant à taper 0 par exemple il faudrait que ça me propose tout les éléments commençant par 0...

Je suis bloqué dès le départ, à savoir quel composant utilisé...

Merci d'avance

[Golgotha]

Bonjour,

Sans parler de performance, et si tu tape sur une seule table :

Un simple input, si tu rentre "a", tu peux faire une requête de type :

Code :

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

select nom from table where nom like 'a%'

Cela te ramènera une liste de nom qui commence par "a" que tu pourra mettre dans une listBox au dessous de ton input on donnant le focus sur le premier élément dans le onKeyPress de l'input texte si on tape sur la fleche du bas.

C'est un exemple basique, et ça ne porte que sur une seule table.

[Invité]

Cela ne portera que sur une seule table et même une seule colonne donc déjà de ce côté, ça pourrait le faire.

Je vais essayer de partir sur cette voie là.

[Invité]

Question peut être bête, mais le input cela signifie quoi dans Delphi ?

[ShaiLeTroll]

C'est dans le sens général Input comme zone de saisie, donc un TEdit, un TComboBox ...

[Invité]

J'ai une question tout bête mais j'ai le code suivant dans mon listbox

Code :

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

ListBox.Items.Add(ZDBPGA.QRY_PGA_SEC.FieldByName('SECLIB').AsString);

Il ne m'affiche que la première ligne, comment faire pour que j'ai toutes mes lignes qui s'affiche.

[Invité]

J'ai trouver la solution que voici, erreur de débutant de ma part :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.TxtEditChange(Sender: TObject);
begin
ListBox.Items.Clear;
with ZDBPGA.QRY_PGA_SEC do
begin
  first;
  while not eof  do
  begin
    ListBox.Items.Add(ZDBPGA.QRY_PGA_SEC.FieldByName('SECLIB').AsString);
    next;
  end;
end;
end;

Je ne met pas encore le sujet en résolu car mon problème initial n'est pas encore solutionné, j'attend d'avancer d'abord

[Golgotha]

Sous delphi on a plus l'habitude d'utiliser des composants lié à la base de donnée :

Par exemple pour une DBListeBox, on aura,
- un dataSource
- un dataSet
- la DBListeBox avec le dataSource en paramètre dataSource.

Tu aura ta requête dans ton dataSet.
Quand tu fait ton .open au niveau du dataSet, la DBListeBox se remplie automatiquement, à condition d'avoir bien entré le keyField au niveau des composant.

[ShaiLeTroll]

Il y a aussi la TDBGrid ou TDBListBox qui affichent le contenu d'une Query ouverte passant par un DataSource, cela évite de recopier le contenu du DataSet

[Invité]

Ah très bien, je ne savais pas, j'utilise justement une Query.

Petite question, est-il possible poser une requête dans un listbox.items.Add afin d'afficher qu'un certain contenu ?
Car j'ai une erreur toujours d'incompatiblité entre String et Integer, et j'ai tenter le Inttostr et strtoint

[JP.NUAGE]

Si je me réfère au dernier code que tu as posté, tu lis tes champs en String, donc "normalement" une zone Integer de ta base sera vue comme une chaine de caractères. Alors, où est le problème d'incompatibilité ? Est-ce un mauvais affichage (mauvais cadrage) ou autre chose ?

[Invité]

En fait, j'ai un peu contourner le soucis, en faisant ma requête sql avant mon ListBox.Items.Add, comme suit :

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
procedure TForm1.TxtEditChange(Sender: TObject);
var rsql : string;
begin
ListBox.Items.Clear;
with ZDBPGA.QRY_PGA_SECTIONS do
begin
close;
rsql := 'select * from pga_sec where SEC like "'+ TxtEdit.Text +'%"';
Sql.clear;
Sql.Add(rsql);
Open;
first;
  while not eof  do
  begin
    ListBox.Items.Add((ZDBPGA.QRY_PGA_SECTIONS.FieldByName('SEC').AsString)+(' - ')+(ZDBPGA.QRY_PGA_SECTIONS.FieldByName('SECLIB').AsString));
    next;
  end;
end;
end;

Maintenant le but va être de pouvoir faire afficher mon list box que quand on commence à taper, et sélectionner directement avec les flèches et un entrée l'élément que l'on souhaite et ainsi qu'il se mette à la place dans le Tedit.

Je travaille dessus je reviens vers vous si je bloque, si vous avez des idées à soumettre pour améliorer je suis preneur

[ShaiLeTroll]

On dirait plutôt une ComboBox avec AutoCompletion !
Il y a des composants qui sont plus souple que la TComboBox à ce sujet !
Peut-être même avec une TDBLookupComboBox on pourrait obtenir un truc sympa, dommage qu'il n'existe pas une TLookupComboBox (chez TMS si !)

Sinon, ta boucle est inutile !
Utilise une TDBListBox, un TDataSource sur le TQuery, ça se remplira tout seul !
Cela sera de plus performant car évite une copie des chaines dans la TStrings !
Comme tu ne fais pas de Close dans le OnChange, tu conserve le Query ouvert donc il consomme de la mémoire en plus de la TListBox !
Autant donc le laisser ouvert et utiliser un TDBListBox

le CONCAT pouvant se faire en SQL soit via CONCAT ou via l'opérateur |

Tu devrais différer le SQL via un Timer ou un PostMessage pour éviter que chaque lettre lance une Query cela rendra pénible la frappe (encore pire lors de BackSpace)

[Invité]

Oula, ça fait beaucoup de choses, mais comme j'ai dit je suis preneur. Commençons par le début.

J'ai voulu utiliser TDBListBox mais rien ne s'afficher en son sein alors que pourtant je choisis bien tout comme il faut à savoir mon DataSOurce puis mon DataField.

J'ai regarder sur le forum et j'ai vu dans un autre topic, le même problème, et pour contourner ce problème, il a écrit d'une code ressemblant sensiblement à ce que j'ai taper ci dessus. Sinon je suis partant pour un TDBListBox

Et pour différer le SQL, pourrais tu m'expliquer le principe s'il te plait

[Invité]

Je réactive mon sujet, car après avoir conserver mon Tedit et ma ListBox, j'ai obtenu le résultat escompté, tout fonctionne parfaitement. Maintenant un autre problème se présente. Je dois faire en sorte cette fonctionnalité devienne un composant. J'ai lu quelques tutos sur la création des composants dans delphi, mais j'avoue que je suis un peu perdu.

En effet, ma première question concerne l'ancêtre, car j'utilise deux composants pour réaliser ma partie de programme donc lequel choisir pour créer un composant ?

Si quelqu'un peut m'expliquer rapidement ce serait gentil. J'ai lu ce tutoriel là ==> http://llb.developpez.com/composants/

[Invité]

Je remonte le sujet pour savoir si quelqu'un peut m'éclairer. Pour faire simple, je dois (dans le cadre de mon stage) créer un composant permettant d'effectuer une recherche sur une BDD.

Pour cela j'ai utiliser un TEdit et les résultat s'affiche au fur et à mesure dans une ListBox. De ce fait comment créer un composant à partir de deux éléments.

D'ailleurs même à partir d'un seul élément je ne comprend pas vraiment la structure permettant la création d'un composant, et j'ai pourtant lu plusieurs tutoriels.

Merci d'avance

[jovanovic.radoslav]

en plaçant tes deux composants dans un frame tu vas créer un composant que tu pourras réutiliser dans d'autres programmes....