Recherche par date avec delphi6

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

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

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

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

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