IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

Teste si un planning existe deja


Sujet :

Delphi

  1. #1
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Points : 1 194
    Points
    1 194
    Par défaut Teste si un planning existe deja
    Bonjour
    J 'ai recrée le post et non déterrer l ancien car j ai refait un petit programme alléger pour mieux explique mon cas.

    Car le grand programme etait trop dur pour expliquer:

    Mais le probleme est le meme:

    Une table avec :
    1 champs position
    1 champ fin
    1 champs debut

    Le planning en question est grid modifier par TMS, quand on crée un items, il marque la position de l item donc de la colonne, puis le début de item( une cellule) et la fin une autre cellule et colorie en bleu les cellule entre.

    il est impossible a mon niveau je précise de pouvoir recuper ca en heures début et fin car tans que ce n 'est pas valider ca plante..
    d ou le fait de récupérer la position le debut et la fin de l item(du RDV en fait)

    donc sur la touche insert on cree un RDv(item) celui-ci est enregistre dans ma table.

    Je voudrais pouvoir tester sur insert l existance d un RDv existant dja dans le jour dit et le creneaux souhaité.

    En gros moi je peux pas etre de 15h00 a 16h00 a brest et 15h20 a 17h00 a paris.

    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
     
    procedure TForm1.Planner1ItemInsert(Sender: TObject; Position, FromSel,
      FromSelPrecise, ToSel, ToSelPrecise: Integer);
    begin
     
     
      Planner1.Items.BeginUpdate;
      with (Planner1.Items.Add) do
      begin
        Text.Add(edit1.Text);
        Text.Add('un text');
        Text.Add('at '+timetostr(now));
     
        Name := 'Test';
        ItemPos := Position;
        ItemEnd := ToSel;
        ItemBegin := FromSel;
     
       table1.Insert;
       table1.Fields[0].Asinteger:=ItemPos; //postion dans le planning
        table1.Fields[1].Asinteger:=ItemEnd ;   //fin du cours
        table1.Fields[2].AsInteger:= ItemBegin; // debut du cours
      table1.Post  ;
     
       Planner1.Items.EndUpdate;
      end;
    J espere que mon code est un peux plus clair

    voila

    merci a vous

    a+
    Une porte peut -etre ouverte ou....rouge!!!!:mouarf

  2. #2
    Expert confirmé
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    3 410
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 410
    Points : 5 801
    Points
    5 801
    Par défaut
    salut

    donc tu doit tester si l'utilisateur x
    est ocupper de tels heure a tels heure

    je le répète une simple requette devrais te permettre de faire cette verification

    @+ Phil
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  3. #3
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 021
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 021
    Points : 40 932
    Points
    40 932
    Billets dans le blog
    62
    Par défaut
    Citation Envoyé par anapurna
    je le répète une simple requête devrais te permettre de faire cette vérification
    +1

    sans pouvoir tester voici déjà une proposition de requête (je présume que la date est testée avant quoique un chef de projet anglais avec qui j'ai travaillé me disait toujours "DON'T ASS/U/ME" )

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    //soit NOUVEAURDV l'heure du nouveau rendez-vous
    SELECT ITEMPOS FROM TABLE1 WHERE NOUVEAURDV>=itembegin AND NOUVEAURDV<=itemfin
    si cette requête ne ramène rien (recordcount=0 ou mieux Itempos.isnull)
    alors tu n'es pas a Brest même tu peux te téléporter à Paris

    [edit] un petit test rapide (très) m'a permis de voir que si je calais bien le debut du RDV (ou cours) la fin n'était pas testée . Ceci à l'air (venteux de Brest, milles tonnerres) de fonctionner

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    //soit DEBUTNOUVEAURDV l'heure de debut du nouveau rendez-vous
    //       FINNOUVEAURDV l'heure de Fin du  nouveau rendez-vous
    SELECT ITEMPOS FROM TABLE1 WHERE (NOUVEAURDV>=itembegin AND NOUVEAURDV<=itemfin) OR (FINNOUVEAURDV>=itembegin AND FINNOUVEAURDV<=itemfin)
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

  4. #4
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Points : 1 194
    Points
    1 194
    Par défaut
    Merci pour vos explication et ligne de code

    je test ca ce Wkend

    a+
    Une porte peut -etre ouverte ou....rouge!!!!:mouarf

  5. #5
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Points : 1 194
    Points
    1 194
    Par défaut
    bonjour

    J ai tester le code mais je ni suis pas bien arriver par manque de comprehension de ma part

    J ai donc modifier pour le mettre a mon niveau mais ca palnte sur fin

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Query1.sql.clear;;
     query1.SQL.add('SELECT * FROM  test where position = '+inttostr(ItemPos)+' and  debut >='+inttostr(ItemBegin)+'and fin<='+inttostr(ItemEnd)+'');
     
     query1.open;
    Je selection la position du nouvel intem(position), c'est apres que je saisie pas :
    Ce que je comprend c'est egale ou sup a debut et inferieur ou egal a fin..

    le code marche bien si je ne rajoute pas 'and fin<='+inttostr(ItemEnd)+ si je le met j ai une erreur sql mais c'est sur ca vient de moi ,

    merci
    a+
    Une porte peut -etre ouverte ou....rouge!!!!:mouarf

  6. #6
    Expert éminent sénior
    Avatar de Cl@udius
    Homme Profil pro
    Développeur Web
    Inscrit en
    Février 2006
    Messages
    4 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2006
    Messages : 4 878
    Points : 10 008
    Points
    10 008
    Par défaut
    Salut

    A priori il te maque un espace devant le AND associé à fin:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    ... +' and  debut >='+inttostr(ItemBegin)+' and fin<='+inttostr(ItemEnd)+'');
    Le plus simple, dans ces cas là, est de mettre un breakpoint et d'examiner l'instruction SQL après sa construction.

    @+ Claudius

  7. #7
    Rédacteur/Modérateur
    Avatar de Andnotor
    Inscrit en
    Septembre 2008
    Messages
    5 671
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : Septembre 2008
    Messages : 5 671
    Points : 13 065
    Points
    13 065
    Par défaut
    ...et tu n'as pas respecté le code de SergioMaster.
    ItemBegin et ItemEnd ne doivent être ni l'un ni l'autre entre Début et Fin.

  8. #8
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Points : 1 194
    Points
    1 194
    Par défaut
    Merci pour la reponse

    l espace dans la quote

    Effectivement je n ai pas respecter le code de sergiomaster, mais toi tu n as pas lu ma reponse

    J ai tester le code mais je ni suis pas bien arriver par manque de comprehension de ma part

    J ai donc modifier pour le mettre a mon niveau mais ca palnte sur fin
    Ce qui ne veux pas dire que je ne vais pas l utiliser plustard , quand j aurais compris

    a+

    merci
    Une porte peut -etre ouverte ou....rouge!!!!:mouarf

  9. #9
    Rédacteur/Modérateur
    Avatar de Andnotor
    Inscrit en
    Septembre 2008
    Messages
    5 671
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : Septembre 2008
    Messages : 5 671
    Points : 13 065
    Points
    13 065
    Par défaut
    Autant pour moi

    A noter que si tu es sous Interbase/Firebird (peut-être d'autres), un BETWEEN Debut AND Fin serait plus esthétique.

  10. #10
    Membre confirmé
    Homme Profil pro
    Directeur de projet
    Inscrit en
    Février 2006
    Messages
    537
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : Belgique

    Informations professionnelles :
    Activité : Directeur de projet
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2006
    Messages : 537
    Points : 460
    Points
    460
    Par défaut
    Effectivement, ce serait bien de savoir quelle type de base de données tu utilise car sur Oracle j'emploirais moi aussi BETWEEN.

    André
    Ils ne savaient pas que c'était impossible, alors ils l'ont fait !

  11. #11
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 021
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 021
    Points : 40 932
    Points
    40 932
    Billets dans le blog
    62
    Par défaut
    +1 pour le BETWEEN cependant j'avais cru comprendre que c'était une Table DB ou Paradox.

    pour comprehension .

    La requete n°1 fait la demande suivante recherche les enregistrements dont l'heure de début de RDV se trouve dans une tranche horaire (itembegin,itemfin) d'un RDV existant

    requete n°2 idem que n° 1 mais en rajoutant (par le OR) que l'heure de fin de RDV se trouve dans une tranche horaire déjà prise .

    la seule chose que je n'ai pas testé lors de mes essais c'est un rdv complètement à l'intérieur d'un autre i.e. RDV existant 9.00 à 11.00/ nouveau RDV 10.00 à 10.30 mais je pense qu'il n'y a aucun soucis
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

  12. #12
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Points : 1 194
    Points
    1 194
    Par défaut
    Bonjour

    Merci pour les réponses

    La BD est Mysql..

    Je regarde le between ce soir et je comprend mieux le test de sergiomaster

    a+
    Une porte peut -etre ouverte ou....rouge!!!!:mouarf

Discussions similaires

  1. Réponses: 5
    Dernier message: 24/09/2010, 14h35
  2. Réponses: 3
    Dernier message: 22/04/2006, 07h05
  3. [XSLT]verifier si un noeud existe deja
    Par davelo dans le forum XSL/XSLT/XPATH
    Réponses: 2
    Dernier message: 22/03/2006, 17h47
  4. Tester si une données existe deja
    Par mael94420 dans le forum ASP
    Réponses: 1
    Dernier message: 18/10/2005, 18h09
  5. test si une form existe déjà
    Par coucoucmoi dans le forum Composants VCL
    Réponses: 5
    Dernier message: 09/12/2003, 19h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo