recherche par date avec delphi6

Question

Bonjour,
je suis entraine de conceptioner une application pour le suivi des conteneurs, je veux savoir quel est le code qu'il faut ecrir pour activer la recherche par date....??????

merci.

mayessoune · Accepted Answer

Essayez ça si vous voulez 
bien sur m'alias de donnée ce n'est pas comme le votre ni les data de module
exemple1
NB:(cette recherche est faite par un numéro pas avec la date)


procedure TForm66.BitBtn1Click(Sender: TObject);
begin
datamodule3.Table1.Filter:='Nls='''+edit1.Text+'*''';
datamodule3.Table1.Filtered:=true;
end;



Exemple2:

ça je l'ai fais par la date je ne sais pas s'il va vous aider!!!!procedure TForm61.SpeedButton3Click(Sender: TObject);


begin
datamodule3.Table9.Filter:='Date_stck='''+edit3.Text+'*''';
datamodule3.Table9.Filtered:=true;
end;


exemple3:

cette rechreche est selon le nom par exemple

procedure TForm61.SpeedButton2Click(Sender: TObject);
begin
if edit2.Text='' then
begin
showmessage('Vous devez saisir le nom');
edit2.SetFocus;
end
else
begin

if not datamodule3.table9.Locate('Nom_ls',edit2.Text,[])then
begin
form27.Animate1.Active:=true;
form27.Show;


messagedlg('Lieu de stock introuvable',mterror,[mbok],0);
form27.Animate1.Active:=false;
form61.Show;
form27.Close;

 end
 else
 begin
form27.Animate1.Active:=true;
form27.Show;
messagedlg('Le lieu de stock est affiché',mterror,[mbok],0);
form27.Animate1.Active:=false;
form61.Show;
form27.Close;
end;
    end;

end;

exemple4:
selon le code

procedure TForm61.SpeedButton1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
showmessage('Vous devez saisir le numéro');
edit1.SetFocus;
end
else
begin

if not datamodule3.table9.Locate('Nls',edit1.Text,[])then
begin
form27.Animate1.Active:=true;
form27.Show;


messagedlg('Lieu de stock introuvable',mterror,[mbok],0);
form27.Animate1.Active:=false;
form61.Show;
form27.Close;

 end
 else
 begin
form27.Animate1.Active:=true;
form27.Show;
messagedlg('Le lieu de stock est affiché',mterror,[mbok],0);
form27.Animate1.Active:=false;
form61.Show;
form27.Close;
end;
    end;


je ne sais pas si je vous ai aidé ou non mais j'aimerai bien de vous donner au moin une toute petite idée 

si ça marche dites le moi et si vous avez d'autre question n'hésitez pas à  les poser 


bonne chance

mayessoune · Answer

Slt Djamel

j'ai fais une application en 2006 par Delphi 2006 sur la gestion du stock dans une académie 
je ne sais si je me souvien bien mais je vais essayer de t'aider 

dans mon aplication j'ai utilisé une recherche d'un enregistrement à partir d'une clè si vous voulez je ps vous l'envoyer cmt faire

si vous voulez bien sur

zooroo · Answer

en fin je voix q vous avez tt dis mayessoune ....j'ai vu la photot q tu as mis ...elle est belle 

bonne chance à vous

issame · Answer

je voix q vous avez bien aider les autres mayessoune c très bien d'avoir des gens comme vous ici

hacena · Answer

trés bien les gas ;D

je  demande  à djamel et à 2183 de mettre ce msg en statut résolu comme ça je ne serai pas obliger d'entrer dans un forum où le problème est résolu


         bon travail Mayessoune j'ai voté pour votre réponse 


je vous souhaite une bonne journée

Recherche par date avec delphi6

5 réponses

Votre réponse

Discussions similaires

Newsletters