Discussion :

[Zizou7]

J'ai un probème sur l'affichage.
J'ai un formulaire de saisie des données de la table payement, sur lequel il y avait les DBEdit. Sur le même formulaire il y a un champ reference à côté de ce champ il y a un bouton qui me permet de faire la recherche sur un autre formulaire qui s'appelle recherche.
Sur le formulaire de recherche, il y a un bouton OK derrière lequel j'ai écrit le code suivant:

Code :

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

1
2
3
refsinistre:=base.tsinistre.FieldByName('Ref_Sinistre').Value;
fmpayement.Editrefsinistre.Text:=refsinistre;
Close;

Qui me permetra d'afficher la reference sur le formulaire payement.
Mais quand je clic sur OK il ne le fait pas. Car sur le formulaire payement ce sont les edit et non plus les DBEdit.
Je ne sais plus qu'est ce qu'il faut écrire maintenant. Aidez moi s'il vous plaît.
Par Zizou7.

NB: Quand c'étaient les DBEdit, ça marchais, mais avec les Edit il ne le fait pas mais comme je veux faire des contrôles raison pour laquelle j'ai choisit les edits.
Execusez moi des fautes. J'ai remplacé les DBEdit par les Edit pour faire les contrôles.

[popo]

Execusez moi des fautes. J'ai remplacé les DBEdit par les Edit pour faire les contrôles.

Le TDBEdit et le TEdit heritent tous les deux de TCustomEdit. Tout ce que tu peux faire avec un TEdit, tu peux également le faire un TDBEdit !

Quels genre de contrôle ne peux-tu pas faire avec un TDBEdit ?

[Zizou7]

Merci Mr Popo de votre question.
Voici comment je veux faire le contrôle:
Je veux au moment de l'affichage de la reference sur la fiche, il me permet de faire la somme totale par reference et la difference de cette somme par la provision initiale qui est donnée par avance puis m'affiche le reste sur un label dont j'ai nommé Labelresteapayer.
Voici le code dont j'ai é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
procedure Tfmpayement.EditrefsinistreChange(Sender: TObject);
var MontPaye,P,ResteApayer:Double;
begin 
base.tpaiement.Filtered:=False;
base.tpaiement.Filter:='Ref_Sinistre='''+Editrefsinistre.Text+'*''';
base.tpaiement.Filtered:=True;
While not(base.tpaiement.Eof)do
  MontPaye:=MontPaye+base.tpaiement.FieldByName('Montant').Value;
  P:=base.tpaiement.FieldByName('Provision_Initiale').Value;
  ResteApayer:=P-MontPaye;
   if(ResteApayer=0)Then
     Showmessage('Ce sinistre est soldé');
  //Si sinistre non soldé alors affiché le reste à payer
  Labelresteapayer.Caption:=floattostr(ResteApayer);
  end;
procedure Tfmpayement.EditMontantChange(Sender: TObject);
begin
if(strtoint(EditMontant.Text)>(strtofloat(Labelresteapayer.Caption)))Then
  Showmessage('Impossible de payer un montant superieur au reste à payer');
end;

Donc aidez moi à touver une idée qui peut me permetre de faire ce contrôle.
Merci par avance.
Dans l'attente d'une suite favorable.
Execusez moi des fautes grammaticales et orthographiques.
Par Zizou7.

[host22]

Le TDBEdit et le TEdit heritent tous les deux de TCustomEdit. Tout ce que tu peux faire avec un TEdit, tu peux également le faire un TDBEdit !

Quels genre de contrôle ne peux-tu pas faire avec un TDBEdit ?

Popo a raison!!
je croit qu'il faut simplement faire une affectation mais n'oubli pas la conversion pour pouvoir l'afficher en edit.text

[Zizou7]

J'ai compris votre reponse mais quand j'ai écrit la procedure suivante derrière le bouton Ok de la fiche recherche, si je clique sur le bouton Ok il n'execute pas mais le pointeur de la souris se transforme en sablier le message suivant SQL sous forme de bulle s'affiche au dessous de la souris.
Je n'ai pas à transformer une valeur car tout est en chaîne de caractère(ou text). La Reference et Editrefsinistre.Text sont tous de type Chaîne de caractère. Ensuite fmpayement est le nom de la forme ou fiche sur laquelle doit s'afficher le resultat de la recherche de la reference. Mon problème est pourquoi le resultat refuse de s'afficher sur le champ Editrefsinistre.Text de la fiche ou forme fmpayement

Code :

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

1
2
3
refsinistre:=base.tsinistre.FieldByName('Ref_Sinistre').Value;
fmpayement.Editrefsinistre.Text:=refsinistre ;
Close;

.
Celui ou celle qui à une proposition soit la bienvenue.
Merci par Zizou7.

[Zizou7]

Voici comment j'ai pensé faire et le resultat n'est pas satisfaisant,donc celui ou celle qui a une reponse à cette situation soit la bienvenue:

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
procedure Tfrecherche.btokClick(Sender: TObject);
var MontPaye,P,ResteApayer:Double; refsin:string[15];
begin //base.tpaiement.FieldByName()
MontPaye:=0;
with lagrille.SelectedField do
refsin:=base.tsinistre.FieldByName('Ref_Sinistre').AsString;
//
While not(base.tpaiement.Eof)do
begin
  base.tpaiement.Filtered:=False;
  base.tpaiement.Filter:='Ref_Sinistre='''+refsin+'''';
  base.tpaiement.Filtered:=True;
  MontPaye:=MontPaye+base.tpaiement.FieldByName('Montant').Value;
  P:=base.tsinistre.FieldByName('Provision_Initiale').Value;
   ResteApayer:=P-MontPaye;
   end;
   if(ResteApayer=0)Then
     begin
     Showmessage('Ce sinistre est soldé');
      fmpayement.Editrefsinistre.Text:='';
      frecherche.Close;
 
  //Si sinistre non soldé alors affiché le reste à payer
     end
   else if (ResteApayer<>0)then
   fmpayement.Labelresteapayer.Caption:=floattostr(ResteApayer);
 
  fmpayement.Editrefsinistre.Text:=base.tsinistre.FieldByName('Ref_Sinistre').AsString;
  frecherche.Close;
     end;

Mais ça n'affiche pas sur la fiche payement le resultat et ne fait pas le cumule par des montants par reference sinistre.
Aidez moi s'il vous plaît.
Par Zizou7.