Aide pour la vérification des doublons de codes-barres dans Delphi 7 avec MS Access

Version imprimable

Voir 40 message(s) de cette discussion en une page

03/12/2023, 16h17
LandGreen

Aide pour la vérification des doublons de codes-barres dans Delphi 7 avec MS Access

Bonjour à tous,

Je travaille actuellement sur un projet en Delphi 7 avec une base de données MS Access. Ma table "PRODUIT" contient huit colonnes CB1 à CB8, chacune stockant un code-barres associé à un produit (par exemple, un aliment avec plusieurs goûts).

Je souhaite mettre en place une vérification lors de la saisie d'un nouveau code-barres pour m'assurer qu'il n'est pas déjà présent dans l'une des colonnes CB1 à CB8 de la table "PRODUIT". Si le code-barres est déjà associé à un produit, je voudrais afficher un message d'erreur.

J'utilise Delphi 7 pour le développement et MS Access comme base de données. Comment puis-je implémenter cette vérification efficacement dans mon programme Delphi ?

Merci d'avance pour toute aide ou suggestion que vous pourriez fournir !

Environnement de développement : Delphi 7, MS Access

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
 
uses
  ADODB, Dialogs, SysUtils;
 
function CodeBarresExiste(ADOConnection: TADOConnection; const CodeBarres: string): Boolean;
var
  Query: TADOQuery;
begin
  Result := False;
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := ADOConnection;
    Query.SQL.Text := 'SELECT COUNT(*) AS Cnt FROM PRODUIT ' +
                      'WHERE CB1 = :CodeBarres OR CB2 = :CodeBarres OR ' +
                      'CB3 = :CodeBarres OR CB4 = :CodeBarres OR ' +
                      'CB5 = :CodeBarres OR CB6 = :CodeBarres OR ' +
                      'CB7 = :CodeBarres OR CB8 = :CodeBarres';
    Query.Parameters.ParamByName('CodeBarres').Value := CodeBarres;
    Query.Open;
    Result := Query.FieldByName('Cnt').AsInteger > 0;
  finally
    Query.Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  CodeBarresASaisir: string;
begin
  // Ici, obtenez le code-barres à vérifier. Par exemple, d'une boîte de texte.
  CodeBarresASaisir := Edit1.Text; // Remplacez Edit1 par le nom de votre composant de saisie
 
  if CodeBarresExiste(YourADOConnection, CodeBarresASaisir) then
    ShowMessage('Le code-barres est déjà associé à un produit.')
  else
    ShowMessage('Le code-barres est unique.');
end;

1 pièce(s) jointe(s)

Citation:

Envoyé par licardentaistor

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
 
uses
  ADODB, Dialogs, SysUtils;
 
function CodeBarresExiste(ADOConnection: TADOConnection; const CodeBarres: string): Boolean;
var
  Query: TADOQuery;
begin
  Result := False;
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := ADOConnection;
    Query.SQL.Text := 'SELECT COUNT(*) AS Cnt FROM PRODUIT ' +
                      'WHERE CB1 = :CodeBarres OR CB2 = :CodeBarres OR ' +
                      'CB3 = :CodeBarres OR CB4 = :CodeBarres OR ' +
                      'CB5 = :CodeBarres OR CB6 = :CodeBarres OR ' +
                      'CB7 = :CodeBarres OR CB8 = :CodeBarres';
    Query.Parameters.ParamByName('CodeBarres').Value := CodeBarres;
    Query.Open;
    Result := Query.FieldByName('Cnt').AsInteger > 0;
  finally
    Query.Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  CodeBarresASaisir: string;
begin
  // Ici, obtenez le code-barres à vérifier. Par exemple, d'une boîte de texte.
  CodeBarresASaisir := Edit1.Text; // Remplacez Edit1 par le nom de votre composant de saisie
 
  if CodeBarresExiste(YourADOConnection, CodeBarresASaisir) then
    ShowMessage('Le code-barres est déjà associé à un produit.')
  else
    ShowMessage('Le code-barres est unique.');
end;

je vous remercie infiniement pour votre réponse
cependant comment adapté le code à des DBEDIT allant de 1 jsuqua 7 comme le montre la pièce jointe

merci

Citation:

Envoyé par licardentaistor

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
 
uses
  ADODB, Dialogs, SysUtils;
 
function CodeBarresExiste(ADOConnection: TADOConnection; const CodeBarres: string): Boolean;
var
  Query: TADOQuery;
begin
  Result := False;
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := ADOConnection;
    Query.SQL.Text := 'SELECT COUNT(*) AS Cnt FROM PRODUIT ' +
                      'WHERE CB1 = :CodeBarres OR CB2 = :CodeBarres OR ' +
                      'CB3 = :CodeBarres OR CB4 = :CodeBarres OR ' +
                      'CB5 = :CodeBarres OR CB6 = :CodeBarres OR ' +
                      'CB7 = :CodeBarres OR CB8 = :CodeBarres';
    Query.Parameters.ParamByName('CodeBarres').Value := CodeBarres;
    Query.Open;
    Result := Query.FieldByName('Cnt').AsInteger > 0;
  finally
    Query.Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  CodeBarresASaisir: string;
begin
  // Ici, obtenez le code-barres à vérifier. Par exemple, d'une boîte de texte.
  CodeBarresASaisir := Edit1.Text; // Remplacez Edit1 par le nom de votre composant de saisie
 
  if CodeBarresExiste(YourADOConnection, CodeBarresASaisir) then
    ShowMessage('Le code-barres est déjà associé à un produit.')
  else
    ShowMessage('Le code-barres est unique.');
end;

voici mon code que je l'utilsie dans la recherche :

Code:

1
2
3
Adoquery1.SQL.Clear;
ADOQuery1.SQL.Text := 'SELECT C_b FROM Produits WHERE C_b = ' + QuotedStr(Ed_CB.Text) +' or  C_b1 = ' + QuotedStr(Ed_CB.Text)+' or  C_b2 = ' + QuotedStr(Ed_CB.Text)+' or  C_b3 = ' + QuotedStr(Ed_CB.Text)+' or  C_b4 = ' + QuotedStr(Ed_CB.Text)+' or  C_b5 = ' + QuotedStr(Ed_CB.Text)+' or  C_b6 = ' + QuotedStr(Ed_CB.Text)+' or  C_b7 = ' + QuotedStr(Ed_CB.Text) ;
ADOQuery1.Open;

Est-ce optimal en termes de recherche par rapport au nombre de produits saisis ?

1 pièce(s) jointe(s)

Citation:
Envoyé par LandGreen
voici mon code que je l'utilsie dans la recherche :
Code:

1 2 3 Adoquery1.SQL.Clear; ADOQuery1.SQL.Text := 'SELECT C_b FROM Produits WHERE C_b = ' + QuotedStr(Ed_CB.Text) +' or C_b1 = ' + QuotedStr(Ed_CB.Text)+' or C_b2 = ' + QuotedStr(Ed_CB.Text)+' or C_b3 = ' + QuotedStr(Ed_CB.Text)+' or C_b4 = ' + QuotedStr(Ed_CB.Text)+' or C_b5 = ' + QuotedStr(Ed_CB.Text)+' or C_b6 = ' + QuotedStr(Ed_CB.Text)+' or C_b7 = ' + QuotedStr(Ed_CB.Text) ; ADOQuery1.Open;
Est-ce optimal en termes de recherche par rapport au nombre de produits saisis ?
additivement,

si je rajoute des indexes de type UNIQUE dans chaque colonne de C_B...C_B7 est ce que ça rend plus performant la recherche ? (voir PJ)

03/12/2023, 19h43
Bardoire37

Structure de la base de données

Si je devais réaliser cette application et s'il est encore temps
Je modifierai la structure de la base de données ainsi :
Table Produit
#ID : identifiant
nom produit
etc ...
Table CodeBarresProduit
ID_Produit : Clé étrangère
No : Position
CB : Code barre Unique

ensuite c'est la base de données qui fait le travail.

NB : de plus si un jour il y a plus de code barres, pas besoin de modifier les tables.

1 pièce(s) jointe(s)

Citation:
Envoyé par licardentaistor
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ... procedure TForm1.Button1Click(Sender: TObject); var CodeBarresASaisir: string; begin // Ici, obtenez le code-barres à vérifier. Par exemple, d'une boîte de texte. CodeBarresASaisir := Edit1.Text; // Remplacez Edit1 par le nom de votre composant de saisie if CodeBarresExiste(YourADOConnection, CodeBarresASaisir) then ShowMessage('Le code-barres est déjà associé à un produit.') else ShowMessage('Le code-barres est unique.'); end;
en exécutant ce code écri dans un boutton j'ai le message d'erreur de : Acces violation....
avec cette erreur :[Hint] UMAJ_Prod.pas(179): Value assigned to 'CodeBarresExiste' never used

y'a t'il une siolution à ça ?

04/12/2023, 08h42
sergio_is_back

Citation:

Envoyé par LandGreen

en exécutant ce code écri dans un boutton j'ai le message d'erreur de : Acces violation....
avec cette erreur :[Hint] UMAJ_Prod.pas(179): Value assigned to 'CodeBarresExiste' never used

y'a t'il une siolution à ça ?

Oui il y a une solution : Passer la bonne instance ton ADOConnection : dans la procédure ADC1 est déclaré mais pas instancié !

Pour CodeBarresExiste c'est juste un warning
04/12/2023, 08h49
SergioMaster

Citation:

Envoyé par LandGreen

Est-ce optimal en termes de recherche par rapport au nombre de produits saisis ?

Ce qui est loin d'être optimal, c'est la non-utilisation d'une requête paramétrée comme l'avait montré licardentaistor

Citation:

Envoyé par Bardoire37

Si je devais réaliser cette application et s'il est encore temps
Je modifierai la structure de la base de données

Moi, c'est le SGBD que je changerai , MS_ACCESS franchement c'est pas vraiment ce que j'utiliserai
04/12/2023, 09h49
LandGreen

Citation:

Envoyé par sergio_is_back

Oui il y a une solution : Passer la bonne instance ton ADOConnection : dans la procédure ADC1 est déclaré mais pas instancié !

Pour CodeBarresExiste c'est juste un warning

Bonjour sergio_is_back,

Je vous remercie sincèrement pour votre réponse rapide et utile. Cela a certainement clarifié quelques points pour moi.
Cependant, je suis toujours en train de travailler sur ce projet et je me demandais si vous pourriez fournir plus de détails ou des conseils supplémentaires sur (Passer la bonne instance ton ADOConnection) . Votre expertise serait d'une grande valeur pour moi.

Merci encore pour votre assistance précieuse.
04/12/2023, 12h43
sergio_is_back

Citation:

Envoyé par LandGreen

Bonjour sergio_is_back,

Je vous remercie sincèrement pour votre réponse rapide et utile. Cela a certainement clarifié quelques points pour moi.
Cependant, je suis toujours en train de travailler sur ce projet et je me demandais si vous pourriez fournir plus de détails ou des conseils supplémentaires sur (Passer la bonne instance ton ADOConnection) . Votre expertise serait d'une grande valeur pour moi.

Merci encore pour votre assistance précieuse.

Le bonne instance de ADOConnection c'est sans doute elle sur ta fiche, non ? Le composant grâce auquel tu établi la connexion au fichier MSACCESS
A moins que tu n'utilise un DataModule, mais à mon avis non ?

Donc sur ta fiche tu dois avoir un composant TADOConnection quelque part et c'est son nom qu'il faut passer à la place de "ADC1"

Après si tu passe que des petits extraits de code c'est dur de savoir ce que tu fait vraiment
04/12/2023, 14h13
LandGreen

Citation:

Envoyé par sergio_is_back

Le bonne instance de ADOConnection c'est sans doute elle sur ta fiche, non ? Le composant grâce auquel tu établi la connexion au fichier MSACCESS
A moins que tu n'utilise un DataModule, mais à mon avis non ?

Donc sur ta fiche tu dois avoir un composant TADOConnection quelque part et c'est son nom qu'il faut passer à la place de "ADC1"

Après si tu passe que des petits extraits de code c'est dur de savoir ce que tu fait vraiment

Effectivement, j'utilise un DataModule dont la fiche est nommée F_DM et j'y place ma connexion ADO, donc est-ce que je dois utiliser F_DM.ADC1 ?

Merci beaucoup, cher Sergio_is_back.
04/12/2023, 15h01
sergio_is_back

Citation:

Envoyé par LandGreen

Effectivement, j'utilise un DataModule dont la fiche est nommée F_DM et j'y place ma connexion ADO, donc est-ce que je dois utiliser F_DM.ADC1 ?

Merci beaucoup, cher Sergio_is_back.

La réponse est contenue dans la question !!!!
04/12/2023, 15h04
LandGreen

Citation:

Envoyé par sergio_is_back

La réponse est contenue dans la question !!!!

hihihih oui
04/12/2023, 20h11
LandGreen

1 pièce(s) jointe(s)

Citation:

Envoyé par sergio_is_back

La réponse est contenue dans la question !!!!

en ajoutant F_DM.ADC1 j'ai ce message :
:(

Citation:

Envoyé par LandGreen

en ajoutant F_DM.ADC1 j'ai ce message :
:(

Bien que j'aie pu résoudre le problème initial, je fais face à une situation délicate où la fonction continue de renvoyer "Le code-barres est unique", même lorsque le code-barres en question existe déjà dans la base de données.

adaptation de la fonction

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function CodeBarresExiste(ADOConnection: TADOConnection; const CodeBarres: string): Boolean;
var
  Query: TADOQuery;
begin
  Result := False;
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := ADOConnection;
    ADOConnection.Open;
    Query.SQL.Text := 'SELECT COUNT(*) AS Cnt FROM PRODUITS ' +
                      'WHERE C_B1 = :CodeBarres OR C_B2 = :CodeBarres OR ' +
                      'C_B3 = :CodeBarres OR C_B4 = :CodeBarres OR ' +
                      'C_B5 = :CodeBarres OR C_B6 = :CodeBarres OR ' +
                      'C_B7 = :CodeBarres OR C_B = :CodeBarres';
    Query.Parameters.ParamByName('CodeBarres').Value := CodeBarres;
    Result := Query.FieldByName('Cnt').AsInteger > 0;
  finally
    Query.Free;
  end;
end;

Utilisation de la fonctin :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TMAJ_Prod.Image19Click(Sender: TObject);
var
  CodeBarresASaisir: string;
 
begin
 
  // Ici, obtenez le code-barres à vérifier. Par exemple, d'une boîte de texte.
  CodeBarresASaisir := DBEdit7.Text ; // Remplacez Edit1 par le nom de votre composant de saisie
  if CodeBarresExiste(F_DM.ADC1 , CodeBarresASaisir) then
    ShowMessage('Le code-barres est déjà associé à un produit !')
 
  else
 
    ShowMessage('Le code-barres est unique.')    ;
 
end;

des suggestion svp ?

3 pièce(s) jointe(s)

Citation:

Envoyé par LandGreen

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function CodeBarresExiste(ADOConnection: TADOConnection; const CodeBarres: string): Boolean;
var
  Query: TADOQuery;
begin
  Result := False;
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := ADOConnection;
    ADOConnection.Open;
    Query.SQL.Text := 'SELECT COUNT(*) AS Cnt FROM PRODUITS ' +
                      'WHERE C_B1 = :CodeBarres OR C_B2 = :CodeBarres OR ' +
                      'C_B3 = :CodeBarres OR C_B4 = :CodeBarres OR ' +
                      'C_B5 = :CodeBarres OR C_B6 = :CodeBarres OR ' +
                      'C_B7 = :CodeBarres OR C_B = :CodeBarres';
    Query.Parameters.ParamByName('CodeBarres').Value := CodeBarres;
    Result := Query.FieldByName('Cnt').AsInteger > 0;
  finally
    Query.Free;
  end;
end;

Utilisation de la fonctin :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TMAJ_Prod.Image19Click(Sender: TObject);
var
  CodeBarresASaisir: string;
 
begin
 
  // Ici, obtenez le code-barres à vérifier. Par exemple, d'une boîte de texte.
  CodeBarresASaisir := DBEdit7.Text ; // Remplacez Edit1 par le nom de votre composant de saisie
  if CodeBarresExiste(F_DM.ADC1 , CodeBarresASaisir) then
    ShowMessage('Le code-barres est déjà associé à un produit !')
 
  else
 
    ShowMessage('Le code-barres est unique.')    ;
 
end;

des suggestion svp ?

j'ai changé la logique on exécution un autre code dans un noueau tquery

Dans l'exécution de la requête SQL dans Access, le résultat renvoyé est 1, cependant, dans Delphi, la valeur affichée est 0 (affichée dans un label).

voir en attaché

05/12/2023, 06h48
SergioMaster

Dans la fonction CodeBarresExiste, où est l'ouverture de la requête ?
05/12/2023, 09h11
LandGreen

1 pièce(s) jointe(s)

Citation:

Envoyé par SergioMaster

Dans la fonction CodeBarresExiste, où est l'ouverture de la requête ?

je n'ai pas utilisé la fonction poposée par Sergio_is_back, j'ai utilisé simplement un ADOQUERY juste pour detecter le problème mais il retourne aussi un 0 (j'ai rajouté le ".open" mais l eproblème persiste la requete me retourne un zro dans tous les cas !

ADO ne supporte pas la répétition de paramètre donc il n'y a que le premier paramètre qui est bindé il faut patcher cela en utilisant les index

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
{ TADOQueryHelper }
 
//------------------------------------------------------------------------------
// See https://www.developpez.net/forums/d472002/environnements-developpement/delphi/bases-donnees/oracle-meme-sql-lance-via-bde-oda-dataset-different/
// See https://www.developpez.net/forums/d1643072/environnements-developpement/delphi/debuter/tadoquery-parameters/#post8997101
procedure TADOQueryHelper.Bind(const AParamName: string; const AParamValue: Variant; const AParamDateType: TDataType; const AParamDirection: TParameterDirection = pdInput);
var
  It: TCollectionItem;
  ParamObj: TParameter absolute It;
begin
   for It in Self.Parameters do
     if SameText(ParamObj.Name, AParamName) then
     begin
       ParamObj.Direction := AParamDirection;
       ParamObj.DataType := AParamDateType;
       ParamObj.Value := AParamValue;
     end;
end;
 
//------------------------------------------------------------------------------
procedure TADOQueryHelper.Bind(const AParamName, AParamValue: string; const AParamDirection: TParameterDirection = pdInput);
var
  It: TCollectionItem;
  ParamObj: TParameter absolute It;
begin
   for It in Self.Parameters do
     if SameText(ParamObj.Name, AParamName) then
     begin
       ParamObj.Direction := AParamDirection;
       ParamObj.DataType := ftWideString;
       ParamObj.Value := AParamValue;
     end;
end;
 
//------------------------------------------------------------------------------
procedure TADOQueryHelper.BindNull(const AParamName: string; const AParamDateType: TDataType; const AParamDirection: TParameterDirection = pdInput);
var
  It: TCollectionItem;
  ParamObj: TParameter absolute It;
begin
   for It in Self.Parameters do
     if SameText(ParamObj.Name, AParamName) then
     begin
       ParamObj.Direction := AParamDirection;
       ParamObj.DataType := AParamDateType;
       ParamObj.Value := Null;
     end;
end;
 
//------------------------------------------------------------------------------
procedure TADOQueryHelper.BindNullIfNotValue(const AParamName: string; const AParamDateType: TDataType; const AParamDirection: TParameterDirection = pdInput);
var
  It: TCollectionItem;
  ParamObj: TParameter absolute It;
begin
   for It in Self.Parameters do
     if SameText(ParamObj.Name, AParamName) then
       if (ParamObj.Value = Unassigned) or (ParamObj.DataType = ftUnknown) then
       begin
         ParamObj.Direction := AParamDirection;
         ParamObj.DataType := AParamDateType;
         ParamObj.Value := Null;
       end;
end;
 
//------------------------------------------------------------------------------
function TADOQueryHelper.ItSelf(): TADOQuery;
begin
  Result := Self;
end;

Code:

Query.Parameters.ParamByName('CodeBarres').Value := CodeBarres;

devient

Code:

Query.Bind('CodeBarres', CodeBarres);

Le Helper n'existe pas en D7, je te laisse donc faire un Assistant à l'ancienne genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
class procedure TADOQueryAssistant.Bind(AQuery: TADOQuery; const AParamName: string; const AParamValue: Variant; const AParamDateType: TDataType; const AParamDirection: TParameterDirection = pdInput);
var
  i: Integer;
  ParamObj: TParameter;
begin
   for I := in AQuery.Parameters.Count - 1 do
   begin
     ParamObj := AQuery.Parameters[I];
     if SameText(ParamObj.Name, AParamName) then
     begin
       ParamObj.Direction := AParamDirection;
       ParamObj.DataType := AParamDateType;
       ParamObj.Value := AParamValue;
     end;
  end;
end;

Code:

TADOQueryAssistant.Bind(Query, 'CodeBarres', CodeBarres);

Voir 40 message(s) de cette discussion en une page