Leader2000
Messages postés184Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention28 août 2015
-
7 oct. 2007 à 18:12
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 2021
-
12 oct. 2007 à 09:55
Salut chers Developpeurs!
Je suis tout petit peu embarrassé. Mais ma préoccupation est simple pour ceux qui ont déjà connu l'expérience de l'utilisation d'un lecteur code Bar.
Bref, j'ai avec moi un lecteur code bar que je n'ai jamais utilisé dans la programmation Delphi.
Je crois fermément que ce lecteur s'utilise juste comme un clavier "silencieux". Il lit les codes bar et donne le prix.
Pas de magie dessus, ces prix doivent être surement déjà inserés dans une base de données.
Le même jeu est comme celui d'un combobox renfermant des items qui, lors de la selection d'un item. une valeur quelconque pourrait apparaître dans un Tedit. Probablement, la même philosophie. Je ne sais pas si ça serait trop demandé que quelqu'un me donne juste une idée propulsive de la programmation de ce processus en Delphi;
sur l'utilisation d'un lecteur de code bar.
khawarizm
Messages postés116Date d'inscriptionmercredi 22 novembre 2000StatutMembreDernière intervention 4 août 20101 7 oct. 2007 à 23:57
Bonsoir ; je ne sais si je répond à ta question et je ne connais pas ton lecteur code bar mais , tout se que je sais c’est que le code bar affiche les données là où est placer le curseur ,même dans un éditeur tel que wordpad ça revient à dire qu’il faut donner le focus à un Edit par exemple au moment de l’utilisation de ton lecteur code bar ; j’espère ne pas être à coté de la plaque par rapport à ta question . bonne chance
Leader2000
Messages postés184Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention28 août 2015 8 oct. 2007 à 17:25
Salut Tout le monde!
Obs:
Merci d'abord à Cantador et Khawarizim pour vos réponses.
J'ai dû chercher et voici les résultats que j'ai eu. Bien que, je ne t'ai pas satisfait.
Voilà ce que j'ai decouvert.
J'ai fait un téléchargement sur un Internet d'un composant de lecture Code Bar. Je l'ai fait à partir du site Han-Soft.
Ce composant apparait déjà dans mes outils de travail Delphi.
J'ai avec moi sur mon Tform deux composants appelés: Barcode1 et DBBarcode1.
Après, j'ai juste mis aussi les composants suivants sur mon Tform: AdoConnection1, AdoTable1, DataSource1 et un DBGrid1 (juste pour voir les données).
J'ai crée une simple base de donnée avec juste deux champs: CodeBar et Produits
Voici les codes que j'ai écrit (comme filtrage) pour voir comment ça marche. Malheuresement, aucun resultat.
Je ne sais pas si l'évènement utilisé n'est pas à sa place.
Obs: Quand je dirige mon lecteur code bar sur un code bar affiché sur un produit (CD, carton, etc...). Le dit lecteur repond parfaitement accompagnant
un bit pour confirmer la bonne lecture. Et la lampe rouge qui est dessus se change toujours en vert pour une bonne confirmation.
Mais le nom du produit ne s'affiche pas sur le Tedit.
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 10 oct. 2007 à 21:26
J'ai pas de lecteur code barre et pour tester c'est pas évident..
Mets un point d'arrêt sur :
Edit1.Text:= Adotable1.FieldValues['nome'];
non plutôt sur le end !
et donne moi les valeurs du filtre et de
Adotable1.FieldValues['nome'];
ton champ "nome" fait bien parti de l'enregistrement ?
essaie aussi : sans le close et le open de la table
Leader2000
Messages postés184Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention28 août 2015 11 oct. 2007 à 12:02
Au Fait, je viens de tout essayer mais sans résultat. Ne suis-je pas moi en erreur.
Tu sais quoi, je suis juste entrain d'utiliser l'évènement OnChange du composant TBarCode. Je ne sais pas si c'est dèlà où viens l'erreur.
Comme je l'avais dit au début
J'ai avec moi sur mon Tform deux composants appelés: Barcode1 et DBBarcode1.
Après, j'ai juste mis aussi les composants suivants sur mon Tform: AdoConnection1, AdoTable1, DataSource1 et un DBGrid1 (juste pour voir les données).
J'ai crée une simple base de données avec juste deux champs: BarCode et Produits
Voici les codes que tu venais juste de m'envoyer. J'ai essayé mais sans résultat.
procedure TForm1.BarCode1Change(Sender: TObject);
begin
Adotable1.filter:='barcode=' +quotedstr(edit1.Text);
Adotable1.Filtered:= true;
Adotable1.FieldValues['Produits'];
end;
brrrrrrrrrrrrrrrrrrr, je rêve de voir ça marcher!!!
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 11 oct. 2007 à 19:56
Tout est possible avec de la sueur..
Mais j'y pense tout à coup, lorsque tu passes ton lecteur sur le code barre
et que le voyant s'allume en vert (preuve qu'il a bien pris trouvé et analysé le code)
quelle est l'information que tu récupères à ce moment là et où la stockes-tu ?
Tu sais qd ça cloche, il faut souvent revenir au point de départ.
et un dernier truc :
A quoi te sert le compo Barcode1 puisqu'apparemment ce dernier n'est pas lié une table ?
Leader2000
Messages postés184Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention28 août 2015 11 oct. 2007 à 22:19
Oui, t'as raison! mais sur mon Tform le TBarcode me permet de fair signe de la presence de ma lecture Barcode. Et le DBBarCode me permet de le connecter à ma base de données. Bref, je dois être convaincu que les codes ont été bien redigé. Je crois que le problème c'est dans l'évènement mon TBarcode. Je veux voir avec mon TBarcode.
Merci de ton assistance et je crois que tu ne te fatigueras pas de me sortir de cet enfer.
Merci,
Developper est une dimension pour moi.
Leader2000
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 11 oct. 2007 à 22:47
Hou il faut rester humble..l'enfer c'est pas là à mon avis..
As-tu des informations de stockées dans ton champ BarCode ?
si oui et que çà ne marche pas, çà veut dire qu'il faut utiliser une méthode
du TbarCode ou un paramètre d'un évènement.(lis la doc aussi..et jette un coup d'oeil sur les exemples)
Essaie un simple lookup avec un bouton
var
Test : variant;
Test := MonQuery.lookup('BarCode', valeur stockée, 'Produit');
ShowMessage(Test);
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 12 oct. 2007 à 09:55
Voilà avec çà tu devrais t'en sortir :
sur le OnChange :
Var
Produit : variant;
begin
Produit := MonQuery.lookup('BarCode', valeur lue, 'Produit');
if Produit = Null then
Edit1.text := 'Produit inconnu'
else
Edit1.text := Produit;
end;
nb: la valeur lue c'est le code barre, il doit y avoir un BarCode1.Value ou qlqchose d'équivalent.
@+