begin process at 2010 02 10 11:58:15
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > GÉNÉRATEUR DE CALENDRIER TYPE AGENDA

GÉNÉRATEUR DE CALENDRIER TYPE AGENDA


 Description

Cliquez pour voir la capture en taille normale
pour mes besoins au restaurant, j'ai développé cette petite app qui génère un agenda pour une année donnée, avec les jours fériés en contraste. ps : la routine des jours fériés (function IsFerie dans RPCalendrier.pas) s'applique au calendrier luxembourgeois.
Je me suis facilité la vie en utilisant un TClientDataset pour stocker les jours de l'année et utiliser la facilité de quickreport.

Compilé avec Delphi 2007 et Quickreport 4.07



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture EXPORTER UN DATASET DANS UNE FEUILLE DE CALCUL OPENOFFICE
Toutes les sources de beckerich

 Sources de la même categorie

Source avec Zip Source avec une capture LOGICIEL DE DIAGNOSTIC AUTOMOBILE KWP2000 par Oniria
Source avec Zip Source avec une capture RÉGLE TRANSPARENTE POUR MESURER UN OBJET ECRAN par dubois77
Source avec Zip Source avec une capture LE BOOK DU PAUVRE par dubois77
Source avec Zip Source avec une capture CAHIER 90 PAGES par dubois77
Source avec Zip Source avec une capture TABLEAU DE BOUTONS DYNAMIQUES (AGENDA) par dubois77
Toutes les sources de la catégorie Divers

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture TABLEAU DE BOUTONS DYNAMIQUES (AGENDA) par dubois77
Source avec Zip Source avec une capture GFACT - GESTION DE FACTURATION par adelpro
Source avec Zip Source avec une capture WALLPAPER ET CALENDRIER par akkroch
Source avec Zip Source avec une capture GBIBLIO GESTION COMPLÈTE DE BIBLIOTHÈQUES par HAFTARIFOUAD
Source avec Zip Source avec une capture CRÉATION D'UNE TABLE XML PAR PROGRAMMATION. par HAFTARIFOUAD

Commentaires et avis

Commentaire de offlake le 07/11/2008 10:05:21

Bonjour,
Impossible de s'exécuter!!
Erreur de type :  
[Erreur] GenCal.dpr(12): Identificateur non déclaré : 'MainFormOnTaskbar'
Donc il te faut une mise a jour où donner moi une solution pour l'exécuter
By OFFLAKE

Commentaire de beckerich le 07/11/2008 10:16:51

Bonjour,

cette erreur survient si tu compiles avec une version inférieure à delphi 2007. Il faut supprimer la ligne
Application.MainFormOnTaskbar := True;
dans le fichier dpr;

C'est tout ! Note que j'ai bien noté que c'était une source delphi 2007 !

Commentaire de offlake le 07/11/2008 10:39:50

c bien
Il s'execute mais durant l'execution un Bug sur la ligne
with TQRP_CALENDRIER.Create(Self) do
Alors...
si cetai du a Mon Delphi7 cette fois ci..
By Offlake

Commentaire de cantador le 08/11/2008 14:27:36

j'ai le même souci qu'OFFLAKE..
du certainement à la version de QuickReport.

Commentaire de beckerich le 08/11/2008 14:57:33

Ouvrez le fichier dfm de l'unité RP_Calendrier et recréez la fiche avec votre version de QuickReport, ça devrait aller. Le report n'a rien d'inhabituel.

Commentaire de cantador le 10/11/2008 15:10:33

voilà le RPCalendrier.dfm corrigé pour avoir un petit aperçu du programme sous D7 :

object QRP_CALENDRIER: TQRP_CALENDRIER
  Left = 0
  Top = 0
  Caption = 'QRP_CALENDRIER'
  ClientHeight = 648
  ClientWidth = 805
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 13
  object QuickRep1: TQuickRep
    Left = 0
    Top = 0
    Width = 476
    Height = 674
    Frame.Color = clBlack
    Frame.DrawTop = True
    Frame.DrawBottom = True
    Frame.DrawLeft = True
    Frame.DrawRight = True
    DataSet = cds_date
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tunga'
    Font.Style = []
    Functions.Strings = (
      'PAGENUMBER'
      'COLUMNNUMBER'
      'REPORTTITLE')
    Functions.DATA = (
      '0'
      '0'
      #39#39)
    Options = [FirstPageHeader, LastPageFooter]
    Page.Columns = 1
    Page.Orientation = poPortrait
    Page.PaperSize = A4
    Page.Values = (
      50.000000000000000000
      2970.000000000000000000
      50.000000000000000000
      2100.000000000000000000
      200.000000000000000000
      50.000000000000000000
      0.000000000000000000)
    PrinterSettings.Copies = 1
    PrinterSettings.OutputBin = Auto
    PrinterSettings.Duplex = False
    PrinterSettings.FirstPage = 0
    PrinterSettings.LastPage = 0
    PrintIfEmpty = True
    SnapToGrid = True
    Units = MM
    Zoom = 60
    object DetailBand1: TQRBand
      Left = 45
      Top = 11
      Width = 419
      Height = 578
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      BeforePrint = PageHeaderBand1BeforePrint
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = True
      Size.Values = (
        2548.819444444444000000
        1847.673611111111000000)
      BandType = rbDetail
      object SH_FERIE: TQRShape
        Left = 112
        Top = 5
        Width = 225
        Height = 39
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          171.979166666666700000
          493.888888888888900000
          22.048611111111110000
          992.187500000000000000)
        Brush.Color = clSilver
        Shape = qrsRectangle
      end
      object QRShape1: TQRShape
        Left = 0
        Top = 53
        Width = 33
        Height = 23
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          100.541666666666700000
          0.000000000000000000
          232.833333333333300000
          145.520833333333300000)
        Shape = qrsRectangle
      end
      object QRShape2: TQRShape
        Left = 32
        Top = 53
        Width = 136
        Height = 23
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          100.541666666666700000
          142.875000000000000000
          232.833333333333300000
          600.604166666666700000)
        Shape = qrsRectangle
      end
      object QRShape3: TQRShape
        Left = 168
        Top = 53
        Width = 49
        Height = 23
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          100.541666666666700000
          740.833333333333300000
          232.833333333333300000
          214.312500000000000000)
        Shape = qrsRectangle
      end
      object QRShape4: TQRShape
        Left = 216
        Top = 53
        Width = 57
        Height = 23
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          100.541666666666700000
          952.500000000000000000
          232.833333333333300000
          251.354166666666700000)
        Shape = qrsRectangle
      end
      object QRShape5: TQRShape
        Left = 272
        Top = 53
        Width = 34
        Height = 23
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          100.541666666666700000
          1201.208333333333000000
          232.833333333333300000
          150.812500000000000000)
        Shape = qrsRectangle
      end
      object QRShape6: TQRShape
        Left = 306
        Top = 53
        Width = 114
        Height = 23
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          100.541666666666700000
          1349.375000000000000000
          232.833333333333300000
          502.708333333333300000)
        Shape = qrsRectangle
      end
      object LBL_NUMJOUR: TQRLabel
        Left = 4
        Top = 3
        Width = 24
        Height = 38
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          167.569444444444400000
          17.638888888888890000
          13.229166666666670000
          105.833333333333300000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '40'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -35
        Font.Name = 'Tunga'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 26
      end
      object LBL_MOIS: TQRLabel
        Left = 32
        Top = 20
        Width = 37
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          92.604166666666670000
          141.111111111111100000
          88.194444444444440000
          163.159722222222200000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'vendredi'#168
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tunga'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRLabel1: TQRLabel
        Left = 6
        Top = 54
        Width = 23
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          92.604166666666670000
          26.458333333333330000
          238.125000000000000000
          101.423611111111100000)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'heure'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tunga'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRLabel2: TQRLabel
        Left = 77
        Top = 54
        Width = 53
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          92.604166666666670000
          339.548611111111100000
          238.125000000000000000
          233.715277777777800000)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'nom du client'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tunga'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRLabel3: TQRLabel
        Left = 174
        Top = 54
        Width = 38
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          92.604166666666670000
          767.291666666666700000
          238.125000000000000000
          167.569444444444400000)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 't'#233'l'#233'phone'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tunga'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRLabel4: TQRLabel
        Left = 218
        Top = 54
        Width = 18
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          92.604166666666670000
          961.319444444444400000
          238.125000000000000000
          79.375000000000000000)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'salle'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tunga'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRLabel5: TQRLabel
        Left = 238
        Top = 54
        Width = 31
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          92.604166666666670000
          1049.513888888889000000
          238.125000000000000000
          136.701388888888900000)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'n'#176' table'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tunga'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRLabel6: TQRLabel
        Left = 273
        Top = 53
        Width = 33
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          92.604166666666670000
          1203.854166666667000000
          233.715277777777800000
          145.520833333333300000)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'couverts'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tunga'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRLabel7: TQRLabel
        Left = 346
        Top = 54
        Width = 41
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          92.604166666666670000
          1525.763888888889000000
          238.125000000000000000
          180.798611111111100000)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'remarques'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tunga'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object LBL_ANNEE: TQRLabel
        Left = 389
        Top = 7
        Width = 24
        Height = 38
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          167.569444444444400000
          1715.381944444444000000
          30.868055555555560000
          105.833333333333300000)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '40'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -35
        Font.Name = 'Tunga'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 26
      end
      object QRDBText1: TQRDBText
        Left = 32
        Top = 3
        Width = 15
        Height = 18
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          79.375000000000000000
          141.111111111111100000
          13.229166666666670000
          66.145833333333330000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = cds_date
        DataField = 'date'
        OnPrint = QRDBText1Print
        Transparent = False
        WordWrap = True
        FontSize = 12
      end
      object QRShape7: TQRShape
        Left = 2
        Top = 77
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          341.312500000000000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape8: TQRShape
        Left = 2
        Top = 104
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          460.375000000000000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape9: TQRShape
        Left = 2
        Top = 130
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          574.145833333333300000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape10: TQRShape
        Left = 2
        Top = 157
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          693.208333333333300000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape11: TQRShape
        Left = 2
        Top = 183
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          806.979166666666700000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape12: TQRShape
        Left = 2
        Top = 210
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          926.041666666666700000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape13: TQRShape
        Left = 2
        Top = 236
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          1039.812500000000000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape14: TQRShape
        Left = 2
        Top = 263
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          1158.875000000000000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape15: TQRShape
        Left = 2
        Top = 289
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          1272.645833333333000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape16: TQRShape
        Left = 2
        Top = 316
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          1391.708333333333000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape17: TQRShape
        Left = 2
        Top = 341
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          1505.479166666667000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape18: TQRShape
        Left = 2
        Top = 368
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          1624.541666666667000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape19: TQRShape
        Left = 2
        Top = 394
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          1738.312500000000000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape20: TQRShape
        Left = 2
        Top = 421
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          1857.375000000000000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape21: TQRShape
        Left = 2
        Top = 447
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          1971.145833333333000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape22: TQRShape
        Left = 2
        Top = 474
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          121.708333333333300000
          7.937500000000000000
          2090.208333333333000000
          1830.916666666667000000)
        Shape = qrsHorLine
      end
      object QRShape23: TQRShape
        Left = 2
        Top = 498
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          123.472222222222200000
          8.819444444444444000
          2196.041666666667000000
          1830.034722222222000000)
        Shape = qrsHorLine
      end
      object QRShape24: TQRShape
        Left = 2
        Top = 522
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          123.472222222222200000
          8.819444444444444000
          2301.875000000000000000
          1830.034722222222000000)
        Shape = qrsHorLine
      end
      object QRShape25: TQRShape
        Left = 2
        Top = 546
        Width = 415
        Height = 28
        Frame.Color = clGray
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Frame.Style = psDashDotDot
        Size.Values = (
          123.472222222222200000
          8.819444444444444000
          2407.708333333333000000
          1830.034722222222000000)
        Shape = qrsHorLine
      end
      object LBL_FERIE: TQRLabel
        Left = 197
        Top = 16
        Width = 58
        Height = 22
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          97.013888888888890000
          868.715277777777800000
          70.555555555555560000
          255.763888888888900000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'LBL_FERIE'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = 'Tunga'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        WordWrap = True
        FontSize = 16
      end
    end
    object QRBand1: TQRBand
      Left = 45
      Top = 589
      Width = 419
      Height = 58
      Frame.Color = clBlack
      Frame.DrawTop = True
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        255.763888888888900000
        1847.673611111111000000)
      BandType = rbPageFooter
      object QRLabel8: TQRLabel
        Left = 4
        Top = 3
        Width = 37
        Height = 18
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          79.375000000000000000
          17.638888888888890000
          13.229166666666670000
          163.159722222222200000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Penser '#224' :'
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 12
      end
    end
  end
  object cds_date: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'date'
        DataType = ftDateTime
      end>
    IndexDefs = <
      item
        Name = 'DEFAULT_ORDER'
      end
      item
        Name = 'CHANGEINDEX'
      end
      item
        Name = 'idx_date'
        Fields = 'date'
      end>
    IndexName = 'idx_date'
    Params = <>
    StoreDefs = True
    Left = 16
    Top = 16
    Data = {
      3D0000009619E0BD0100000018000000010000000000030000003D0004646174
      65080008000000000001000D44454641554C545F4F5244455202008200000000
      00}
  end
end

mais, comme il manque ici quelques propriétés, l'affichage est de ce fait pas du tout convaincant et ne permet pas d'apprécier le programme.

cantador

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Quelqu'un peut m'aider pour les composants QuickReport [ par Ethan00000 ] Le porbleme c'est que le composant ne grandit pas avec le texte. Quelqu'un peut m'aider? quickreport [ par choup ] alors voilà je débute en delphi et je dois reprendre un logiciel déjà bien conséquent. le programmeur avait écrit :Uses quickrepMais voilà quand je c quickreport [ par choup ] je cherche à savoir ce qu'est exactement un quickreport, je sais que ca sert pour les états mais je n'arrive pas à savoir ce que c'est, un active x ou [QuickReport] Colorier les lignes? [ par tgomas ] Bonjour,je voudrais changer la couleur de chaque ligne d'une bande détail en fonction d'une valeur affichée dans un élément TQRBDText de la bande déta evenement Onprint d'un composant QuickReport [ par manudel ] Voilà l'événement Onprint ne marche pas quand j'ai plusieurs enregistrements dans mon OracleDataSet : il garde en mémoire le dernier enregistrement, e Calendrier a selection multiple [ par magicvinni ] Bonjour, je cherche un composant de calendrier où je pourrais definir la couleur de chaque jour par exemple mettre en rouge tous les jours fériés ( ou Toujours le calendrier [ par magicvinni ] Bonjour, Je ne comprend pas très bien comment marche l'instruction BoldDays. Je voudrais par exemple mettre en gras les jours 1 et 8 quand on clique appel de procedure dans un QUICKREPORT [ par Delphino ] salut;dans mon quickrep , je voulez appelez une procedure qui converti une expression 'Sum(table1.valeur)' en caracteres alphabétiques dans une bande QuickReport/Frame [ par binky ] J'utilise D5 Enterprise avec QuickReport 3.5.0Avec les composants TQRDBText, je veux changer les propriétés: Frame.DrawBottom := trueFrame.style := ps forceNewPage dynamique en QuickReport [ par manudel ] J'aimerais pouvoir effectuer l'opération suivante :partant du fait que je ne peux pas me servir des bandes enQuick Report, je dois générer des sauts d


Nos sponsors


Sondage...

Comparez les prix


Archos 5 Internet Tablette 500 Go
Entre 396€ et 444€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,608 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)