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 :

Changer la position d'un Field dans FastReport Preview


Sujet :

Delphi

  1. #1
    Membre du Club
    Homme Profil pro
    Tutulaire d'un Master Academique en Réseaux et Systèmes repartis
    Inscrit en
    Juin 2011
    Messages
    227
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Tutulaire d'un Master Academique en Réseaux et Systèmes repartis
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2011
    Messages : 227
    Points : 51
    Points
    51
    Par défaut Changer la position d'un Field dans FastReport Preview
    Salut tous le monde, je cherche comment changer la position d'un field dans FastReport.
    J'ai fait ce petit code mais ça n'a pas marcher et il me retourne un message d'erreur de genre violation d'access.
    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
    procedure TForm7.Button1Click(Sender: TObject);
    var
    Memo: TfrxMemoView;
    DS: tfrxdataset;
    begin
    Memo := frxReport1.FindObject('Memo1') as TfrxMemoView;
    ds := frxReport1.FindObject('[frxDBDataset2."Nom et Prénom"]') as tfrxdataset;
     
    if abstable2['grade']='Généraliste' then
    begin
    Memo.Text :='Medecin généraliste';
    ds.Left:=8;
    end;
     
    if abstable2['grade']='Spécialiste' then
    begin
    Memo.Text :='Dr.';
    ds.Left:=92;
    end;
     
    if abstable2['grade']='Professeur' then
    begin
    Memo.Text :='Pr.';
    ds.Left:=92;
    end;
     
    frxreport1.ShowReport(true);
    end;

  2. #2
    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 934
    Points
    40 934
    Billets dans le blog
    62
    Par défaut
    Bonjour,

    vu ce que vous écrivez vous n'avez pas une version pro (avec script) de FastReport puisque vous tentez de faire cela au runtime.

    il me retourne un message d'erreur de genre violation d'access.
    peut-être que si vous testiez que la variable est accessible if Assigned(variable) then ce serait mieux non ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Memo := frxReport1.FindObject('Memo1') as TfrxMemoView;
    ds := frxReport1.FindObject('[frxDBDataset2."Nom et Prénom"]') as tfrxdataset;
     
    if abstable2['grade']='Généraliste' then
    begin
    Memo.Text :='Medecin généraliste';
    ds.Left:=8;
    end;
    du grand n'importe quoi !
    1 -Vous changez la position de ds, un composant non visuel, au lieu de celle de Memo1
    2 - Il ne vous est pas venu à l'idée de créer une colonne au sein de la requête
    Code SQL : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     CASE GRADE WHEN 
            'Généraliste' then 'Médecin Généraliste'
            'Spécialiste' then 'Dr.'
            'Professeur' then 'Pr.'
        END AS LIBELLE
    3- La colonne Grade aurait du être un code relié (FOREIGN KEY) à une table GRADES(Code_Grade,libelle_grade)
    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

  3. #3
    Membre du Club
    Homme Profil pro
    Tutulaire d'un Master Academique en Réseaux et Systèmes repartis
    Inscrit en
    Juin 2011
    Messages
    227
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Tutulaire d'un Master Academique en Réseaux et Systèmes repartis
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2011
    Messages : 227
    Points : 51
    Points
    51
    Par défaut
    Salut, j'ai trouver la solution a ce que je cherche et la voilà:
    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
    procedure TForm7.Button1Click(Sender: TObject);
    var
    Memo,ds: TfrxMemoView;
    begin
    Memo := frxReport1.FindObject('Memo1') as TfrxMemoView;
    ds := frxReport1.FindObject('Memo2') as TfrxMemoView;
     
    if abstable2['grade']='Généraliste' then
    begin
    Memo.Text :='Dr.';
    Ds.text:='Medecin généraliste';
    // et pour le champs du grade dans le base de donnée dans le cas ou le médecin est généraliste il se rempli par un vide
    end;
     
    if abstable2['grade']='Spécialiste' then
    begin
    Memo.Text :='Dr.';
    Ds.text:='Spécialiste:';
    end;
     
    if abstable2['grade']='Professeur' then
    begin
    Memo.Text :='Pr.';
    Ds.text:='Spécialiste:';
    end;
     
    frxreport1.ShowReport(true);
    end;
    Et je m'excuse pour le premier code parce que j'ai fais trop d'erreur de non concentration.

    Citation Envoyé par SergioMaster Voir le message
    vu ce que vous écrivez vous n'avez pas une version pro (avec script) de FastReport puisque vous tentez de faire cela au runtime.
    J'ai la version pro mais je suis débutant dans FastReport c'est la première fois que je l'utilise vu que j'ai par trouver quelques fonctionnalités qui j'ai besoin dans QuickReport alors j'essaye de me migrer vers FastReport.

    Citation Envoyé par SergioMaster Voir le message
    La colonne Grade aurait du être un code relié (FOREIGN KEY) à une table GRADES(Code_Grade,libelle_grade)
    Pour la table grade je l'ai comme un champs dans la table médecin.

    Merci SergioMaster.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Changer la position d'un champs, dans une BDD
    Par godjojo dans le forum Débuter
    Réponses: 3
    Dernier message: 01/10/2008, 08h49
  2. Réponses: 3
    Dernier message: 10/01/2008, 23h03
  3. [Excel] changer la position d'un mot dans une cellule
    Par VlaMonPseudo dans le forum Excel
    Réponses: 3
    Dernier message: 25/07/2007, 17h05
  4. changer la position d'un objet dans la scene
    Par Lsong dans le forum DirectX
    Réponses: 3
    Dernier message: 21/03/2007, 19h41
  5. Changer la position d'un attribut dans une table?
    Par gui38 dans le forum Langage SQL
    Réponses: 7
    Dernier message: 06/01/2007, 22h27

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