Liste du mois + annéeRésolu

Question

Je suis &#233;tudiante en bts et je souhaite faire une liste au format date qui comprend uniquement le mois et l'ann&#233;e, sans utiliser le DateTimePicker pour pouvoir l'utiliser comme condition dans une requ&#234;te SQL.
merci de votre aide !!!!

WhiteHippo · Accepted Answer

ok c'est un peu plus clair, tout &#231;a :)

type
  TMois   = 1..12 ;
  TAnnees = 2003..9000 ;


procedure TForm1.Button1Click(Sender: TObject);
const
  NOM_MOIS : array[TMois] of string =
           ( 'Janvier '
           , 'F&#233;vrier '
           , 'Mars '
           , 'Avril '
           , 'Mai '
           , 'Juin '
           , 'Juillet '
           , 'Ao&#251;t '
           , 'Septembre '
           , 'Octobre '
           , 'Novembre '
           , 'D&#233;cembre '
           ) ;


var
  Liste : TStrings ;
  Annee, Mois : Integer ;


begin
  Liste := TStringList .Create ;
  try
    // Cr&#233;ation de la liste
    for Annee := Low(TAnnees) to High(TAnnees) do
    begin
      for Mois := Low(TMois) to High(TMois) do
      begin
        Liste.Add( NOM_MOIS[Mois] + IntToStr( Annee ) ) ;
      end ;
    end ;


    // Ajout de la liste &#224; un ComboBox
    ComboBox1.Items.Assign(Liste);


  finally
    Liste.Free ;
  end ;
end;

Je modifierais &#233;galement la requete SQL :
  Au lieu de : 
    table.SQL.Add('and datet=:b') ; 
    // N.B. ' au lieu de " et =: au lieu de = !! Est ce bien de Delphi dont-il sagit ici ????
  J'ecrirais : 
  with ComboBox1 do
  begin
    table.SQL.Add("and datet=" + Items[ItemIndex] ) ;
  end ;

P.S. Euh Janvier 2003 .. D&#233;cembre 9000, d'ici l&#224; les employ&#233;s seront tous d&#233;c&#233;d&#233;s et ton programme aussi bon soit -il sera obsol&#232;te, remplac&#233; et oubli&#233; depuis fort longtemps :oP

Cordialement.

WhiteHippo · Answer

Un peu plus de pr&#233;cision nous serais, je pense n&#233;cessaire ;)

Tu veux une liste toute simple ressemblant &#224; celle ci ?
  01/2005
  02/2005
  03/2005

La liste doit &#234;tre mise dans un ListBox, un TStrings, ... ? 

Les mois representent-ils uniquement ceux de l'ann&#233;e en cours, ou bien plutot 10 derniers mois .. 10 prochains mois (plage flottante), etc... ? 

Le r&#233;sultat de la liste doit-il &#234;tre directement exploitable par le SQL, au quel cas quel format souhaites tu ? ( Un exemple de requ&#234;te serait le bien venu :) 

Cordialement.

elicec77 · Answer

Je souhaite une liste du type Janvier 2003 
                                           F&#233;vrier 2003.....
                               jusqu'&#224; D&#233;cembre9000!!!!
en fait mon programme consiste &#224; faire un comptage d'heure passer par des employer d'une soci&#233;t&#233;, &#224; l'aide d'un compteur ; et ensuite je dois traiter les information par mois j'effectue une requ&#234;te du type

//requ&#234;te num_cli
cli.SQL.Clear;
cli.SQL.Add('select Num_cli');
cli.SQL.Add('From CLIENT');
cli.SQL.Add('where Lib_cli=:x');
cli.Params[0].AsString:= DBLookupComboBox1.Text;
cli.Open;


 //Affichage des info dans le dbgrid
table.SQL.Clear;
table.SQL.Add('SELECT Num_tache, datet as [date], Nbre_heure as [temps de travail], Nom_employer as [Par qui]');
table.SQL.Add('FROM TACHE, EMPLOYER');
table.SQL.Add('Where EMPLOYER.Num_employer= TACHE.Num_employer');
table.SQL.Add('and Num_cli=:a') ;
table.SQL.Add('and datet=:b') ;
table.Params[0].Asinteger:=cli.Fields[0].AsInteger;
table.Params[1].Asdate:=dateta;
table.Open;

petite pr&#233;cision, ma base de donn&#233;e est access! et j'ai du mal a traiter les type date avec!!

merci de ton aide, cordialement.

elicec77 · Answer

Merci de ton aide pour la liste c'est juste ce qu'il me fallait! mais pour la requ&#234;te ca marche pas!je vais &#233;tudier la question!
au fait d&#233;cembre 9000 c'&#233;tais de l'ironie!
cordialement.

Liste du mois + année

4 réponses

Votre réponse

Discussions similaires