Discussion :

[delphino7]

bonjour

j'ai fait un petit program de recherche j'ai deposer un notre tquery un dbgrid et un tedit
apres dans la proprieté de tquery sa proprieté sql j'ai mit une requete comme suit :

Code SQL :

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

select*from table_client where (code_client=:E1)

voila la recherche c bon

merci

maintenant la modification sur le chmp rechercher

[delphino7]

bonjour
anapuma

la requete je la conné mais comment utiliser les objet sous delphi avec cette requete

exemple

j'ai cité que j'ai fait une recherche d'abord et afficher le resultat sur un dbgrid

apres je double click sur le resultat qui sera afficher les champ sur des tedit

dune autre form apres je modifi et je valide
es que c fesable ou bien ya til quelqu 'un qui a une autre idée ?

merci

[milaybe]

apres je modifi et je valide
es que c fesable

Oui c'est faisable, tu suis les mêmes raisonnements que pour Insert et Delete

[delphino7]

bonjour
modification :

quand je click sur le boutton modifier voila le program que j'ai ecrit:

je le lance ma recherche apres je double click sur le dbgrid voila ce qui ce passe :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm2.DBGrid1DblClick(Sender: TObject);
begin
form4.edit1.Text := query2.FieldValues['code_client'];
form4.edit2.text := query2.FieldValues['Nom_Client'];
form4.edit3.text := query2.FieldValues['prenom_client'];
form4.edit4.text := query2.FieldValues['adress_client'];
form4.edit5.text := query2.FieldValues['tel_client'];
form4.edit6.text := query2.FieldValues['code_postal'];
end;

apres dans la meme forme la ou il ya le dbgrid je click sur le boutton modifier jaffiche la form4 :

Code :

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

1
2
 
form4.ShowModal;

apres je modifi par exemple l'adress du client avec son numero de telephonne apres je valide avec ce program :

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
procedure TForm4.Button1Click(Sender: TObject);
var requete,x2,x3,x4 : string;
x1,x5,x6 : integer;
begin
x1:= strtoint(edit1.Text);
x2:= edit2.Text;x3:= edit3.Text;x4:= edit4.Text;x5:= strtoint(edit5.Text);x6:= strtoint(edit6.text);
requete := 'insert into Table_Client(Code_Client,Nom_Client,Prenom_Client,Adress_Client,Tel_Client,Code_Postal) Values(:x1,:x2,:x3,:x4,:x5,:x6)';
form2.query1.close;
form2.query1.sql.clear;
form2.query1.sql.add(requete);
form2.query1.parambyname('x1').AsInteger  := strtoint (edit1.Text);
form2.query1.parambyname('x2').Asstring   := edit2.text;
form2.query1.parambyname('x3').Asstring   := edit3.text;
form2.query1.parambyname('x4').Asstring   := edit4.text;
form2.query1.parambyname('x5').AsInteger  := strtoint(edit5.text);
form2.query1.parambyname('x6').AsInteger  := strtoint(edit6.Text);
form2.query1.execsql;
end;

le message derreur qui maffiche est comme suit :

''key violation
violation of primary key constraint'pk_table_client'.cant insert duplicate in object 'table_client'

general sql error
the statement has been terminated''

je sais ce que sa veux dire ce que je ne comprend pas c que c une modification donc le tquery nest pas en mode 'edit' ?

comment je fait alors ?

merci

[milaybe]

Je ne comprends pas: tu fais une modification ou un ajout d'enregistrement?
Parce que si tu fais une modification, tu devras utiliser UPDATE au lieu de INSERT.

[delphino7]

bonjour
je fait une modification donc c'est update, c'est pas insert

j'ai fait une erreur




merci

[delphino7]

modification :

quand je click sur le boutton modifier voila le program que j'ai ecrit:

je le lance ma recherche apres je double click sur le dbgrid voila ce qui ce passe :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm2.DBGrid1DblClick(Sender: TObject);
begin
form4.edit1.Text := query2.FieldValues['code_client'];
form4.edit2.text := query2.FieldValues['Nom_Client'];
form4.edit3.text := query2.FieldValues['prenom_client'];
form4.edit4.text := query2.FieldValues['adress_client'];
form4.edit5.text := query2.FieldValues['tel_client'];
form4.edit6.text := query2.FieldValues['code_postal'];
end;

apres dans la meme forme la ou il ya le dbgrid je click sur le boutton modifier jaffiche la form4 :

Code :

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

1
2
 
form4.ShowModal;

apres je modifi par exemple l'adress du client avec son numero de telephonne apres je valide avec ce program :

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
procedure TForm4.Button1Click(Sender: TObject);
var requete,x2,x3,x4 : string;
x1,x5,x6 : integer;
begin
x1:= strtoint(edit1.Text);
x2:= edit2.Text;x3:= edit3.Text;x4:= edit4.Text;x5:= strtoint(edit5.Text);x6:= strtoint(edit6.text);
requete := 'update Table_Client set Nom_Client=:x2,Prenom_Client=:x3,Adress_Client=:x4,Tel_Client=:x5,Code_Postal=:x6 where code_client = :x1';
form2.query1.close;
form2.query1.sql.clear;
form2.query1.sql.add(requete);
form2.query1.parambyname('x2').Asstring   := edit2.text;
form2.query1.parambyname('x3').Asstring   := edit3.text;
form2.query1.parambyname('x4').Asstring   := edit4.text;
form2.query1.parambyname('x5').AsInteger  := strtoint(edit5.text);
form2.query1.parambyname('x6').AsInteger  := strtoint(edit6.Text);
form2.query1.execsql;

le message derreur qui maffiche est comme suit :

'query1: field 'x1' is of unknown tyoe' process stoped use step or run to continue.

alors comment jaffecte la valeur du code_client dans la clause where pour modifier les autres champs?

merci

[delphino7]

modification :

quand je click sur le boutton modifier voila le program que j'ai ecrit:

je le lance ma recherche apres je double click sur le dbgrid voila ce qui ce passe :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm2.DBGrid1DblClick(Sender: TObject);
begin
form4.edit1.Text := query2.FieldValues['code_client'];
form4.edit2.text := query2.FieldValues['Nom_Client'];
form4.edit3.text := query2.FieldValues['prenom_client'];
form4.edit4.text := query2.FieldValues['adress_client'];
form4.edit5.text := query2.FieldValues['tel_client'];
form4.edit6.text := query2.FieldValues['code_postal'];
end;

apres dans la meme forme la ou il ya le dbgrid je click sur le boutton modifier jaffiche la form4 :

Code :

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

1
2
 
form4.ShowModal;

apres je modifi par exemple l'adress du client avec son numero de telephonne apres je valide avec ce program :

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
procedure TForm4.Button1Click(Sender: TObject);
var requete,x2,x3,x4 : string;
x1,x5,x6 : integer;
begin
x1:= strtoint(edit1.Text);
x2:= edit2.Text;x3:= edit3.Text;x4:= edit4.Text;x5:= strtoint(edit5.Text);x6:= strtoint(edit6.text);
requete := 'update Table_Client set Nom_Client=x2,Prenom_Client=x3,Adress_Client=x4,Tel_Client=x5, Code_Postal=x6 where code_client = '+quotedstr(edit1.text);
form2.query1.close;
form2.query1.sql.clear;
form2.query1.sql.add(requete);
form2.query1.parambyname('x2').Asstring := edit2.text;
form2.query1.parambyname('x3').Asstring := edit3.text;
form2.query1.parambyname('x4').Asstring := edit4.text;
form2.query1.parambyname('x5').AsInteger := strtoint(edit5.text);
form2.query1.parambyname('x6').AsInteger := strtoint(edit6.Text);
form2.query1.execsql;

la modification est faite avec succée merci beaucoup les gas


merci

[Cl@udius]

Dans ce code que tu viens de poster ta variable x1 ne sert à rien. C'était d'ailleurs l'erreur de ton précédent code puisque que tu n'alimentais pas sa valeur avant le ExecSQL.

Voilà ce que j'aurais écrit:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
procedure TForm4.Button1Click(Sender: TObject);
var
  NomClient, PrenomClient, AdrClient: string;
  CodeClient, TelClient, CodePostal: Integer;
begin
  // Variables pour alimenter les paramètres de la requête
  CodeClient := StrToInt(Edit1.Text);
  NomClient := Edit2.Text;
  PrenomClient := Edit3.Text;
  AdrClient := Edit4.Text;
  TelClient := StrToInt(Edit5.Text);
  CodePostal := StrToInt(Edit6.text);
 
  with Form2.Query1 do
  begin
    // Définition de la requête
    SQL.Clear;
    SQL.Add('update Table_Client');
    SQL.Add('set Nom_Client = :Nom_Client, Prenom_Client = :Prenom_Client,');
    SQL.Add('Adress_Client = :Adress_Client, Tel_Client = :Tel_Client,');
    SQL.Add('Code_Postal = :Code_Postal');
    SQL.Add('where Code_Client = :Code_Client');
    // Alimentation des paramètres
    ParamNyName('Nom_Client').AsString := CodeClient;
    ParamNyName('Prenom_Client').AsString := PrenomClient;
    ParamNyName('Adress_Client').Asstring := AdrClient;
    ParamNyName('Tel_Client').AsInteger := TelClient;
    ParamNyName('Code_Postal').AsInteger := CodePostal;
    ParamByName('Code_Client').AsInteger := CodeClient;
    try
      // Exécution
      Prepare;
      ExecSQL;
    finally
      // Fermeture
      Close;
    end;
  end;
end;

Tu remarqueras que les variables sont nommées de façon plus explicites que x1, x2, etc..., que le code est identé. Cela est important pour la clarté du code, notamment si tu dois y revenir dans 6 mois, un an ou plus.

Tu remarqueras également que la requête Insert une fois effectuée est fermée, car inutile de la laisser ouverte pour rien.

Voilà quelques conseils.
@+ Claudius

[delphino7]

bonjour

merci cl@udius

[delphino7]

la commande 'Prepare;' sert a quoi?

merci

[Cl@udius]

merci cl@udius

Avec plaisir !

la commande 'Prepare;' sert a quoi?

Ce n'est absolument obligatoire, mais cela prépare la requête avant son exécution.

Envoie une requête au serveur pour une optimisation avant l'exécution.

@+ Claudius

[delphino7]

encore merci Cl@adius

[edam]

une question: ton DbGrid utilisé les données de query1??
si c'est vraie, alors tu peut utlisé directement les méthode de TQuery(insert,edit,delete) sans utlisé SQL , et aussi sans cassé la tete avec la mise à jour de ton DBGrid

[delphino7]

bonjour edam


tu ma dit que je peu faire une modif directement de mon dbgrid tu peu expliquer la methode stp ?

si jai bien compri tu veu dire que jai mes enregistrements je click sur celui que je veux modifier et je modifi


mais comment ? comment le program pourait il savoir que c l'enregistrement par exemple numero =°n que je veux modifier ?!!!

merci

[delphino7]

bonjour
tquery insertion :

maintenant se que je vuex si possible svp de jerer les exceptions des erreur par exemple quand l'utilisateur valide

un enregistrement qui existe deja ou bien une double clé au lieu que le systeme maffiche lerreur jaimerai que sa moi qui

jere lerreur on meton un message

ce code_client existe deja veeuillez inserer un entre code ou bien appuyer sur annuler pour annuler linsertion

cette enregistrement existe deja veuillez inserer un autre enregistrement oubien click sur annuler pour annuler linsertion

voila mon source d'insertion : comment le pimmenter ?

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure TForm3.Button1Click(Sender: TObject);
var requete, NomClient, PrenomClient, AdrClient: string;
CodeClient, TelClient, CodePostal: Integer;
begin
   //variable pour allimenter les parametres de la requete 
   codeclient:= strtoint(edit1.text);
   nomclient:= edit2.Text; 
   prenomclient:= edit3.Text; 
   adrclient:= edit4.Text; 
   telclient:= strtoint(edit5.Text);
   codepostal:= strtoint(edit6.Text);
requete := 'insert into Table_Client(Code_Client,Nom_Client,Prenom_Client,Adress_Client,Tel_Client,Code_Postal) Values(:codeclient,nomclient,prenomclient,adrclient,telclient,codepostal)'
with form2.query1 do
 begin
// definition de la raquete 
  close;
  sql.clear;
  sql.add(requete);
//alimentation des parametres
  parambyname('codeclient').asinteger := strtoint(edit1.Text);
  parambyname('nomclient').asstring := edit2.text;
  parambyname('prenomclient').asstring := edit3.text;
  parambyname('adrclient').asstring := edit4.text;
  parambyname('telclient').asinteger := strtoint(edit5.Text);
  parambyname('codepostal').asinteger := strtoint(edit6.Text);
 try
//execution
  prepare;
  execsql;
 exept
//gerer les erreurs
showmessage('linsertion annuler veuillez reessayer svp');
end;
 
end;
end;

merci

[delphino7]

bonjonr edam

je vais consulté ton program et je te rependrai et jaurai quelque question a te posé si c possible tout a lheure

aussi es que c possible davoir un exemple comment gerer les exception de redandance des code par exemple ou bien de redandance de lenregistrement

avec le tquery?



merci

[edam]

le cle de ton table est un code inséré par l'utlisateur ce que je ne fait pas, et je te le déconseil, je préfére utlisé un cle que je controll genre auto-increment et mieux etre de type integer,
pour te répondre, normallement en vérifier si la valleur de clé n'existe pas, la tu utlise soit une requete soit lookup de TQuery soit autre methode qu je connait pas, pour moi j'utlise une requete:
bon dev

edit: lis cette article

[delphino7]

salut edam

voila jai quelque question sil te plait peut tu me repondre ?

ce source je lai eu de ton program que tu ma envoyer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TFClient.BitBtn4Click(Sender: TObject);
var i:integer;
begin
     i:=TBitBtn(sender).Tag;
     case i of
       1,2:begin
            Initialise(i);
            DBEdit12.SetFocus;
           end;
       3:Table.Delete;
     end;
end;

les questions:

1- ''i:=TBitBtn(sender).Tag;'' elle sert a quoi ? tu veux dire quand je click sur le bitbutn1 ou bien 2 il se passe quoi ?

2-sinon si tu peux en resumer mexpliquer ce petit program pour commencer ?


merci

[edam]

désoler, j'ai donné le programme sans le commenter, c'est pourquoi je l'avait suprimer, pour le simplifier;
le tag ici, simplement pour séparé entre 3 Tbutton qui utlise la même méthode (onclick)
regarde leur proprité tag en conseption;
case of tag
1:Nouveau;
2:Modifier;
3:Supprimer;
end;


edit: désoler, actuellement j'ai pas le temp, mais je peut essayer de répondre à tes questions