object Report: TppReport OnFileDeviceCreate = ReportFileDeviceCreate NoDataBehaviors = [ndMessageDialog, ndBlankPage] OnStartFirstPass = ReportStartFirstPass PassSetting = psTwoPass PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Geburtstagsliste_Kollegium__sortiert_n__Datum_mit_Monat_neu.rtm' PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297000 PrinterSetup.mmPaperWidth = 210000 PrinterSetup.PaperSize = 9 SaveAsTemplate = True Template.FileName = 'S:\Schild\SchILD-Reports\Listen\Lehrer\Geburtstagsliste_Kollegium__sortiert_n__Datum_mit_Monat.rtm' Template.Format = ftASCII Units = utMillimeters AllowPrintToArchive = True AllowPrintToFile = True ArchiveFileName = '($MyDocuments)\ReportArchive.raf' BeforeOpenDataPipelines = ReportBeforeOpenDataPipelines BeforePrint = ReportBeforePrint BeforeEmail = ReportBeforeEmail DeviceType = 'PDF' DefaultFileDeviceType = 'PDF' EmailSettings.ReportFormat = 'PDF' EmailSettings.Enabled = True LanguageID = 'Default' OnInitializeParameters = ReportInitializeParameters OnPreviewFormCreate = ReportPreviewFormCreate OpenFile = False OutlineSettings.CreateNode = True OutlineSettings.CreatePageNodes = True OutlineSettings.Enabled = True OutlineSettings.Visible = False ThumbnailSettings.Enabled = False ThumbnailSettings.Visible = False ThumbnailSettings.DeadSpace = 30 PDFSettings.EmbedFontOptions = [efUseSubset] PDFSettings.EncryptSettings.AllowCopy = True PDFSettings.EncryptSettings.AllowInteract = True PDFSettings.EncryptSettings.AllowModify = True PDFSettings.EncryptSettings.AllowPrint = True PDFSettings.EncryptSettings.Enabled = False PDFSettings.EncryptSettings.KeyLength = kl40Bit PDFSettings.FontEncoding = feAnsi PDFSettings.ImageCompressionLevel = 25 PreviewFormSettings.SinglePageOnly = True RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET RTFSettings.DefaultFont.Color = clWindowText RTFSettings.DefaultFont.Height = -13 RTFSettings.DefaultFont.Name = 'Arial' RTFSettings.DefaultFont.Style = [] TextFileName = '($MyDocuments)\Report.pdf' TextSearchSettings.DefaultString = '' TextSearchSettings.Enabled = False XLSSettings.AppName = 'ReportBuilder' XLSSettings.Author = 'ReportBuilder' XLSSettings.Subject = 'Report' XLSSettings.Title = 'Report' Left = 128 Top = 8 Version = '15.05' mmColumnWidth = 0 object ppHeaderBand1: TppHeaderBand Background.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 17198 mmPrintPosition = 0 object ppLabel10: TppLabel UserName = 'Label10' HyperlinkEnabled = False Caption = 'Geburtstagsliste Kollegium' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 14 Font.Style = [fsBold] Transparent = True mmHeight = 5821 mmLeft = 0 mmTop = 11377 mmWidth = 64294 BandType = 0 LayerName = Foreground end object ppLabel4: TppLabel UserName = 'Label2' HyperlinkEnabled = False Caption = 'Schuljahr:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 9 Font.Style = [] Transparent = True mmHeight = 3968 mmLeft = 125148 mmTop = 12965 mmWidth = 14552 BandType = 0 LayerName = Foreground end object ppDBText4: TppDBText UserName = 'DBText4' HyperlinkEnabled = False AutoSize = True DataField = 'Schuljahr' DataPipeline = dmPipelines.EigeneSchule Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 9 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'EigeneSchule' mmHeight = 3968 mmLeft = 141023 mmTop = 12965 mmWidth = 13759 BandType = 0 LayerName = Foreground end object ppDBText5: TppDBText UserName = 'DBText5' HyperlinkEnabled = False AutoSize = True DataField = 'AktAbschnitt' DataPipeline = dmPipelines.Schueler Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 9 Font.Style = [] Transparent = True DataPipelineName = 'Schueler' mmHeight = 3968 mmLeft = 160073 mmTop = 12965 mmWidth = 17463 BandType = 0 LayerName = Foreground end object ppLabel5: TppLabel UserName = 'Label1' HyperlinkEnabled = False Caption = '. Abschnitt' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 9 Font.Style = [] Transparent = True mmHeight = 3968 mmLeft = 161661 mmTop = 12965 mmWidth = 14816 BandType = 0 LayerName = Foreground end object ppLabel6: TppLabel UserName = 'Label5' HyperlinkEnabled = False Caption = '/' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 9 Font.Style = [] Transparent = True mmHeight = 3968 mmLeft = 148167 mmTop = 12965 mmWidth = 794 BandType = 0 LayerName = Foreground end object ppLabel7: TppLabel UserName = 'Label3' HyperlinkEnabled = False Caption = 'Label3' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Name = 'Arial' Font.Size = 9 Font.Style = [] Transparent = True mmHeight = 3968 mmLeft = 149754 mmTop = 12965 mmWidth = 10055 BandType = 0 LayerName = Foreground end object ppDBText1: TppDBText UserName = 'DBText1' HyperlinkEnabled = False AutoSize = True DataField = 'Bezeichnung1' DataPipeline = dmPipelines.EigeneSchule Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 14 Font.Style = [fsBold] ParentDataPipeline = False Transparent = True DataPipelineName = 'EigeneSchule' mmHeight = 5842 mmLeft = 0 mmTop = 5027 mmWidth = 49064 BandType = 0 LayerName = Foreground end end object ppDetailBand1: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 5027 mmPrintPosition = 0 object ppSubReport1: TppSubReport UserName = 'SubReport1' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True TraverseAllData = False DataPipelineName = 'K_Lehrer_GebDat' mmHeight = 5027 mmLeft = 0 mmTop = 0 mmWidth = 197300 BandType = 4 LayerName = Foreground mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport1: TppChildReport AutoStop = False DataPipeline = daADOQueryDataView1.K_Lehrer_GebDat PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Geburtstagsliste_Kollegium__sortiert_n__Datum_mit_Monat_neu.rtm' PrinterSetup.PaperName = 'A4' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 297000 PrinterSetup.mmPaperWidth = 210000 PrinterSetup.PaperSize = 9 Template.Format = ftASCII Units = utMillimeters Version = '15.05' mmColumnWidth = 0 DataPipelineName = 'K_Lehrer_GebDat' object ppTitleBand1: TppTitleBand Background.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppDetailBand2: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 5821 mmPrintPosition = 0 object ppDBText2: TppDBText UserName = 'DBText2' DataField = 'LIDKrz' DataPipeline = daADOQueryDataView1.K_Lehrer_GebDat Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'K_Lehrer_GebDat' mmHeight = 4498 mmLeft = 1323 mmTop = 1323 mmWidth = 9525 BandType = 4 LayerName = Foreground1 end object ppDBText3: TppDBText UserName = 'DBText3' DataField = 'Nachname' DataPipeline = daADOQueryDataView1.K_Lehrer_GebDat Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'K_Lehrer_GebDat' mmHeight = 4498 mmLeft = 11906 mmTop = 1323 mmWidth = 32544 BandType = 4 LayerName = Foreground1 end object ppDBText6: TppDBText UserName = 'DBText6' DataField = 'Vorname' DataPipeline = daADOQueryDataView1.K_Lehrer_GebDat Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'K_Lehrer_GebDat' mmHeight = 4498 mmLeft = 45773 mmTop = 1323 mmWidth = 26723 BandType = 4 LayerName = Foreground1 end object ppDBText7: TppDBText UserName = 'DBText7' DataField = 'Geburtsdatum' DataPipeline = daADOQueryDataView1.K_Lehrer_GebDat Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'K_Lehrer_GebDat' mmHeight = 4498 mmLeft = 74083 mmTop = 1323 mmWidth = 22225 BandType = 4 LayerName = Foreground1 end object ppDBText9: TppDBText UserName = 'DBText9' DataField = 'Tel' DataPipeline = daADOQueryDataView1.K_Lehrer_GebDat Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'K_Lehrer_GebDat' mmHeight = 4498 mmLeft = 99219 mmTop = 794 mmWidth = 32941 BandType = 4 LayerName = Foreground1 end object ppDBText10: TppDBText UserName = 'DBText10' HyperlinkEnabled = False DataField = 'EMailDienstlich' DataPipeline = daADOQueryDataView1.K_Lehrer_GebDat Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'K_Lehrer_GebDat' mmHeight = 4498 mmLeft = 135732 mmTop = 1323 mmWidth = 57679 BandType = 4 LayerName = Foreground1 end object ppLine1: TppLine UserName = 'Line1' ParentWidth = True Weight = 0.750000000000000000 mmHeight = 1000 mmLeft = 0 mmTop = 0 mmWidth = 197300 BandType = 4 LayerName = Foreground1 end object ppLine2: TppLine UserName = 'Line2' ParentWidth = True Position = lpBottom Weight = 0.750000000000000000 mmHeight = 1000 mmLeft = 0 mmTop = 4821 mmWidth = 197300 BandType = 4 LayerName = Foreground1 end object ppLine3: TppLine UserName = 'Line3' ParentHeight = True Position = lpLeft Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 0 mmTop = 0 mmWidth = 2646 BandType = 4 LayerName = Foreground1 end object ppLine4: TppLine UserName = 'Line4' ParentHeight = True Position = lpLeft Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 11237 mmTop = 0 mmWidth = 2646 BandType = 4 LayerName = Foreground1 end object ppLine5: TppLine UserName = 'Line5' ParentHeight = True Position = lpLeft Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 44844 mmTop = 0 mmWidth = 2646 BandType = 4 LayerName = Foreground1 end object ppLine6: TppLine UserName = 'Line6' ParentHeight = True Position = lpLeft Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 73506 mmTop = 0 mmWidth = 2646 BandType = 4 LayerName = Foreground1 end object ppLine7: TppLine UserName = 'Line7' ParentHeight = True Position = lpLeft Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 96761 mmTop = 0 mmWidth = 2646 BandType = 4 LayerName = Foreground1 end object ppLine8: TppLine UserName = 'Line8' ParentHeight = True Position = lpLeft Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 96838 mmTop = 0 mmWidth = 13494 BandType = 4 LayerName = Foreground1 end object ppLine9: TppLine UserName = 'Line9' ParentHeight = True Position = lpLeft Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 134767 mmTop = 0 mmWidth = 2646 BandType = 4 LayerName = Foreground1 end object ppLine10: TppLine UserName = 'Line10' ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 195300 mmTop = 0 mmWidth = 2000 BandType = 4 LayerName = Foreground1 end end object ppSummaryBand1: TppSummaryBand Background.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppGroup2: TppGroup BreakName = 'ppLabel1' BreakType = btCustomField GroupFileSettings.NewFile = False GroupFileSettings.EmailFile = False KeepTogether = True OutlineSettings.CreateNode = True StartOnOddPage = False UserName = 'Group2' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = '' NewFile = False object ppGroupHeaderBand2: TppGroupHeaderBand Background.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 7144 mmPrintPosition = 0 object ppLabel1: TppLabel UserName = 'Label1' Caption = 'Label1' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 12 Font.Style = [] Transparent = True mmHeight = 4763 mmLeft = 1323 mmTop = 1852 mmWidth = 12700 BandType = 3 GroupNo = 0 LayerName = Foreground1 end end object ppGroupFooterBand2: TppGroupFooterBand Background.Brush.Style = bsClear HideWhenOneDetail = False mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end end object raCodeModule2: TraCodeModule ProgramStream = { 01060F5472614576656E7448616E646C65720B50726F6772616D4E616D650611 44657461696C4265666F72655072696E740B50726F6772616D54797065070B74 7450726F63656475726506536F75726365066670726F63656475726520446574 61696C4265666F72655072696E743B0D0A626567696E0D0A2020206465746169 6C2E76697369626C65203A3D20284B5F4C65687265725F4765624461745B2753 69636874626172275D203D20272B27293B0D0A656E643B0D0A0D436F6D706F6E 656E744E616D65060644657461696C094576656E744E616D65060B4265666F72 655072696E74074576656E7449440218084361726574506F7301020102010000 01060F5472614576656E7448616E646C65720B50726F6772616D4E616D65060F 4C6162656C314F6E476574546578740B50726F6772616D54797065070B747450 726F63656475726506536F75726365068170726F636564757265204C6162656C 314F6E476574546578742876617220546578743A20537472696E67293B0D0A62 6567696E0D0A0D0A202054657874203A3D466F726D61744461746554696D6528 276D6D6D6D272C4B5F4C65687265725F4765624461745B274765627572747364 6174756D275D293B0D0A0D0A656E643B0D0A0D436F6D706F6E656E744E616D65 06064C6162656C31094576656E744E616D6506094F6E47657454657874074576 656E7449440235084361726574506F730102410204000000} end object ppDesignLayers2: TppDesignLayers object ppDesignLayer2: TppDesignLayer UserName = 'Foreground1' LayerType = ltBanded Index = 0 end end end end end object ppFooterBand1: TppFooterBand Background.Brush.Style = bsClear mmBottomOffset = 0 mmHeight = 4233 mmPrintPosition = 0 object ppLine11: TppLine UserName = 'Line11' ParentWidth = True Weight = 0.750000000000000000 mmHeight = 3969 mmLeft = 0 mmTop = 0 mmWidth = 197300 BandType = 8 LayerName = Foreground end object ppSystemVariable2: TppSystemVariable UserName = 'SystemVariable3' VarType = vtPrintDateTime DisplayFormat = 'dd-mmm-yyyy' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] Transparent = True mmHeight = 2646 mmLeft = 18785 mmTop = 0 mmWidth = 10584 BandType = 8 LayerName = Foreground end object ppLabel11: TppLabel UserName = 'Label6' Caption = 'Gedruckt am' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] Transparent = True mmHeight = 2646 mmLeft = 265 mmTop = 0 mmWidth = 11113 BandType = 8 LayerName = Foreground end object ppSystemVariable1: TppSystemVariable UserName = 'SystemVariable4' VarType = vtPageSetDesc Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 2646 mmLeft = 182563 mmTop = 0 mmWidth = 11377 BandType = 8 LayerName = Foreground end object ppSystemVariable5: TppSystemVariable UserName = 'SystemVariable5' VarType = vtDocumentName Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] Transparent = True mmHeight = 2646 mmLeft = 50271 mmTop = 0 mmWidth = 36097 BandType = 8 LayerName = Foreground end object ppDBText8: TppDBText UserName = 'DBText8' HyperlinkEnabled = False AutoSize = True DataField = 'User_Name' DataPipeline = dmPipelines.ppSchildUmgebung Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] ParentDataPipeline = False Transparent = True DataPipelineName = 'ppSchildUmgebung' mmHeight = 2646 mmLeft = 128059 mmTop = 0 mmWidth = 10054 BandType = 8 LayerName = Foreground end end object daDataModule1: TdaDataModule object daADOQueryDataView1: TdaADOQueryDataView UserName = 'Query_K_Lehrer_GebDat' Height = 611 Left = 197 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 55 TypeColumnWidth = 52 Width = 477 AutoSearchTabOrder = 0 object K_Lehrer_GebDat: TppChildDBPipeline AutoCreateFields = False UserName = 'K_Lehrer_GebDat' object ppField1: TppField FieldAlias = 'ID' FieldName = 'ID' FieldLength = 0 DataType = dtInteger DisplayWidth = 10 Position = 0 end object ppField2: TppField FieldAlias = 'Kuerzel' FieldName = 'Kuerzel' FieldLength = 10 DisplayWidth = 10 Position = 1 end object ppField3: TppField FieldAlias = 'LIDKrz' FieldName = 'LIDKrz' FieldLength = 4 DisplayWidth = 4 Position = 2 end object ppField4: TppField FieldAlias = 'Nachname' FieldName = 'Nachname' FieldLength = 30 DisplayWidth = 30 Position = 3 end object ppField5: TppField FieldAlias = 'Vorname' FieldName = 'Vorname' FieldLength = 20 DisplayWidth = 20 Position = 4 end object ppField6: TppField FieldAlias = 'Anrede' FieldName = 'Anrede' FieldLength = 10 DisplayWidth = 10 Position = 5 end object ppField7: TppField FieldAlias = 'Titel' FieldName = 'Titel' FieldLength = 20 DisplayWidth = 20 Position = 6 end object ppField8: TppField FieldAlias = 'Sortierung' FieldName = 'Sortierung' FieldLength = 0 DataType = dtInteger DisplayWidth = 10 Position = 7 end object ppField9: TppField FieldAlias = 'Expr1008' FieldName = 'Expr1008' FieldLength = 1 DisplayWidth = 1 Position = 8 end object ppField10: TppField FieldAlias = 'Aenderbar' FieldName = 'Aenderbar' FieldLength = 1 DisplayWidth = 1 Position = 9 end object ppField11: TppField FieldAlias = 'Geburtsdatum' FieldName = 'Geburtsdatum' FieldLength = 0 DataType = dtDateTime DisplayWidth = 18 Position = 10 end object ppField12: TppField FieldAlias = 'SerNr' FieldName = 'SerNr' FieldLength = 5 DisplayWidth = 5 Position = 11 end object ppField13: TppField FieldAlias = 'Strasse' FieldName = 'Strasse' FieldLength = 50 DisplayWidth = 50 Position = 12 end object ppField14: TppField FieldAlias = 'Tel' FieldName = 'Tel' FieldLength = 20 DisplayWidth = 20 Position = 13 end object ppField15: TppField FieldAlias = 'Handy' FieldName = 'Handy' FieldLength = 20 DisplayWidth = 20 Position = 14 end object ppField16: TppField FieldAlias = 'EMail' FieldName = 'EMail' FieldLength = 100 DisplayWidth = 100 Position = 15 end object ppField17: TppField FieldAlias = 'Statistik' FieldName = 'Statistik' FieldLength = 1 DisplayWidth = 1 Position = 16 end object ppField18: TppField FieldAlias = 'EMailDienstlich' FieldName = 'EMailDienstlich' FieldLength = 100 DisplayWidth = 100 Position = 17 end object ppField19: TppField FieldAlias = 'sichtbar' FieldName = 'sichtbar' FieldLength = 1 DisplayWidth = 1 Position = 18 end object ppField20: TppField FieldAlias = 'day_K_Lehrer_Geburtsdatum' FieldName = 'day_K_Lehrer_Geburtsdatum' FieldLength = 0 DataType = dtInteger DisplayWidth = 10 Position = 19 end object ppField21: TppField FieldAlias = 'month_K_Lehrer_Geburtsdat' FieldName = 'month_K_Lehrer_Geburtsdat' FieldLength = 0 DataType = dtInteger DisplayWidth = 10 Position = 20 end end object daSQL1: TdaSQL GuidCollationType = gcMSAccess DatabaseName = 'ADOConnection' DatabaseType = dtMSAccess DataPipelineName = 'K_Lehrer_GebDat' EditSQLAsText = True IsCaseSensitive = True LinkColor = clMaroon LinkType = ltParameterizedSQL MaxSQLFieldAliasLength = 25 SQLText.Strings = ( 'SELECT K_Lehrer.ID, K_Lehrer.Kuerzel, ' ' K_Lehrer.LIDKrz, K_Lehrer.Nachname, ' ' K_Lehrer.Vorname, K_Lehrer.Anrede, ' ' K_Lehrer.Titel, K_Lehrer.Sortierung, ' ' K_Lehrer.Sichtbar, K_Lehrer.Aenderbar, ' ' K_Lehrer.Geburtsdatum, K_Lehrer.SerNr, ' ' K_Lehrer.Strasse, K_Lehrer.Tel, ' ' K_Lehrer.Handy, K_Lehrer.EMail, ' ' K_Lehrer.Statistik, ' ' K_Lehrer.EMailDienstlich,' ' K_Lehrer.sichtbar, ' ' day(K_Lehrer.Geburtsdatum) AS day_K_Lehrer_Geburtsdatum, ' ' month(K_Lehrer.Geburtsdatum) AS month_K_Lehrer_Geburtsdat' 'FROM K_Lehrer K_Lehrer' 'WHERE K_Lehrer.sichtbar = '#39'+'#39 'ORDER BY 21, 20') SQLType = sqSQL2 object daField1: TdaField Alias = 'ID' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'ID' FieldLength = 0 FieldName = 'ID' SQLFieldName = 'ID' end object daField2: TdaField Alias = 'Kuerzel' DisplayWidth = 10 FieldAlias = 'Kuerzel' FieldLength = 10 FieldName = 'Kuerzel' SQLFieldName = 'Kuerzel' end object daField3: TdaField Alias = 'LIDKrz' DisplayWidth = 4 FieldAlias = 'LIDKrz' FieldLength = 4 FieldName = 'LIDKrz' SQLFieldName = 'LIDKrz' end object daField4: TdaField Alias = 'Nachname' DisplayWidth = 30 FieldAlias = 'Nachname' FieldLength = 30 FieldName = 'Nachname' SQLFieldName = 'Nachname' end object daField5: TdaField Alias = 'Vorname' DisplayWidth = 20 FieldAlias = 'Vorname' FieldLength = 20 FieldName = 'Vorname' SQLFieldName = 'Vorname' end object daField6: TdaField Alias = 'Anrede' DisplayWidth = 10 FieldAlias = 'Anrede' FieldLength = 10 FieldName = 'Anrede' SQLFieldName = 'Anrede' end object daField7: TdaField Alias = 'Titel' DisplayWidth = 20 FieldAlias = 'Titel' FieldLength = 20 FieldName = 'Titel' SQLFieldName = 'Titel' end object daField8: TdaField Alias = 'Sortierung' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'Sortierung' FieldLength = 0 FieldName = 'Sortierung' SQLFieldName = 'Sortierung' end object daField9: TdaField Alias = 'Expr1008' DisplayWidth = 1 FieldAlias = 'Expr1008' FieldLength = 1 FieldName = 'Expr1008' SQLFieldName = 'Expr1008' end object daField10: TdaField Alias = 'Aenderbar' DisplayWidth = 1 FieldAlias = 'Aenderbar' FieldLength = 1 FieldName = 'Aenderbar' SQLFieldName = 'Aenderbar' end object daField11: TdaField Alias = 'Geburtsdatum' DataType = dtDateTime DisplayWidth = 18 FieldAlias = 'Geburtsdatum' FieldLength = 0 FieldName = 'Geburtsdatum' SQLFieldName = 'Geburtsdatum' end object daField12: TdaField Alias = 'SerNr' DisplayWidth = 5 FieldAlias = 'SerNr' FieldLength = 5 FieldName = 'SerNr' SQLFieldName = 'SerNr' end object daField13: TdaField Alias = 'Strasse' DisplayWidth = 50 FieldAlias = 'Strasse' FieldLength = 50 FieldName = 'Strasse' SQLFieldName = 'Strasse' end object daField14: TdaField Alias = 'Tel' DisplayWidth = 20 FieldAlias = 'Tel' FieldLength = 20 FieldName = 'Tel' SQLFieldName = 'Tel' end object daField15: TdaField Alias = 'Handy' DisplayWidth = 20 FieldAlias = 'Handy' FieldLength = 20 FieldName = 'Handy' SQLFieldName = 'Handy' end object daField16: TdaField Alias = 'EMail' DisplayWidth = 100 FieldAlias = 'EMail' FieldLength = 100 FieldName = 'EMail' SQLFieldName = 'EMail' end object daField17: TdaField Alias = 'Statistik' DisplayWidth = 1 FieldAlias = 'Statistik' FieldLength = 1 FieldName = 'Statistik' SQLFieldName = 'Statistik' end object daField18: TdaField Alias = 'EMailDienstlich' DisplayWidth = 100 FieldAlias = 'EMailDienstlich' FieldLength = 100 FieldName = 'EMailDienstlich' SQLFieldName = 'EMailDienstlich' end object daField19: TdaField Alias = 'sichtbar' DisplayWidth = 1 FieldAlias = 'sichtbar' FieldLength = 1 FieldName = 'sichtbar' SQLFieldName = 'sichtbar' end object daField20: TdaField Alias = 'day_K_Lehrer_Geburtsdatum' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'day_K_Lehrer_Geburtsdatum' FieldLength = 0 FieldName = 'day_K_Lehrer_Geburtsdatum' SQLFieldName = 'day_K_Lehrer_Geburtsdatum' end object daField21: TdaField Alias = 'month_K_Lehrer_Geburtsdat' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'month_K_Lehrer_Geburtsdat' FieldLength = 0 FieldName = 'month_K_Lehrer_Geburtsdat' SQLFieldName = 'month_K_Lehrer_Geburtsdat' end end end end object raCodeModule1: TraCodeModule ProgramStream = { 01060F5472614576656E7448616E646C65720B50726F6772616D4E616D65060F 4C6162656C334F6E476574546578740B50726F6772616D54797065070B747450 726F63656475726506536F75726365066C70726F636564757265204C6162656C 334F6E476574546578742876617220546578743A20537472696E67293B0D0A62 6567696E0D0A202054657874203A3D20496E74546F5374722853636875656C65 725B27416B74536368756C6A616872275D2B31293B0D0A656E643B0D0A0D436F 6D706F6E656E744E616D6506064C6162656C33094576656E744E616D6506094F 6E47657454657874074576656E7449440235084361726574506F730102010201 000000} end object ppDesignLayers1: TppDesignLayers object ppDesignLayer1: TppDesignLayer UserName = 'Foreground' LayerType = ltBanded Index = 0 end end object ppParameterList2: TppParameterList end end