ReportName = Demo Units List ReportGroup = Maintenance object ppReport1: TppReport AutoStop = False DataPipeline = daADOQueryDataView1.Units NoDataBehaviors = [ndBlankReport] PassSetting = psTwoPass PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Demo Units List' PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279401 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 1 SaveAsTemplate = True Template.DatabaseSettings.DataPipeline = dpReports Template.DatabaseSettings.Name = 'Demo Units List' Template.DatabaseSettings.NameField = 'ReportName' Template.DatabaseSettings.TemplateField = 'NewDef' Template.FileName = 'Demo Units List.rtm' Template.SaveTo = stDatabase Template.Format = ftASCII AllowPrintToArchive = True AllowPrintToFile = True DeviceType = 'Screen' EmailSettings.ReportFormat = 'PDF' EmailSettings.Enabled = True EmailSettings.PreviewInEmailClient = False EmailSettings.ShowEmailDialog = True OutlineSettings.CreateNode = True OutlineSettings.CreatePageNodes = True OutlineSettings.Enabled = True OutlineSettings.Visible = False PreviewFormSettings.ZoomSetting = zs100Percent SavePrinterSetup = True ShowAutoSearchDialog = True TextSearchSettings.DefaultString = '' TextSearchSettings.Enabled = True TextSearchSettings.Visible = True Left = 218 Top = 155 Version = '10.04' mmColumnWidth = 0 DataPipelineName = 'Units' object ppTitleBand1: TppTitleBand mmBottomOffset = 0 mmHeight = 30692 mmPrintPosition = 0 object ppLabel1: TppLabel UserName = 'Label1' AutoSize = False Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Units List with Count field and Notes with Dynamic Height' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 20 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 8202 mmLeft = 1323 mmTop = 1323 mmWidth = 195792 BandType = 1 end object ppRichText2: TppRichText UserName = 'RichText2' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'RichText2' RichText = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcha' + 'rset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#13#10'\viewkind4\uc1\' + 'pard\f0\fs16 This report demonstrates the use of a notes field w' + 'ith dynamic heights. It also demonstrates the use of a count su' + 'mmary.\par'#13#10'Note the notes field located in the group footer ban' + 'd. Right click on the band and you will see that the band is se' + 't to \par'#13#10'dynamic height. Right click on the notes field and n' + 'ote that it is set to Stretch. This allows you to make the note' + 's field\par'#13#10'and it and the band will stretch as needed to accom' + 'modate the notes when previewing / printing.\f1\par'#13#10'}'#13#10 mmHeight = 17198 mmLeft = 2117 mmTop = 10583 mmWidth = 197115 BandType = 1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 end end object ppHeaderBand1: TppHeaderBand mmBottomOffset = 0 mmHeight = 7408 mmPrintPosition = 0 object ppLine1: TppLine UserName = 'Line1' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Pen.Color = clNavy Pen.Width = 2 Weight = 1.500000000000000000 mmHeight = 3969 mmLeft = 1323 mmTop = 6085 mmWidth = 200555 BandType = 0 end object ppLabel2: TppLabel UserName = 'Label2' AutoSize = False Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Name' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4763 mmLeft = 12965 mmTop = 1323 mmWidth = 88371 BandType = 0 end object ppLabel3: TppLabel UserName = 'Label3' AutoSize = False Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Make' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4763 mmLeft = 120386 mmTop = 1323 mmWidth = 28046 BandType = 0 end object ppLabel4: TppLabel UserName = 'Label4' AutoSize = False Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Model' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4763 mmLeft = 149754 mmTop = 1323 mmWidth = 28046 BandType = 0 end object ppLabel6: TppLabel UserName = 'Label6' AutoSize = False Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Number' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4763 mmLeft = 179123 mmTop = 1323 mmWidth = 22490 BandType = 0 end end object ppDetailBand1: TppDetailBand mmBottomOffset = 0 mmHeight = 5556 mmPrintPosition = 0 object ppDBText1: TppDBText UserName = 'DBText1' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Name' DataPipeline = daADOQueryDataView1.Units Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'Units' mmHeight = 3260 mmLeft = 12965 mmTop = 529 mmWidth = 88371 BandType = 4 end object ppDBText2: TppDBText UserName = 'DBText2' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Make' DataPipeline = daADOQueryDataView1.Units Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'Units' mmHeight = 3260 mmLeft = 120386 mmTop = 529 mmWidth = 28046 BandType = 4 end object ppDBText3: TppDBText UserName = 'DBText3' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Model' DataPipeline = daADOQueryDataView1.Units Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'Units' mmHeight = 3260 mmLeft = 149754 mmTop = 529 mmWidth = 28046 BandType = 4 end object ppDBText5: TppDBText UserName = 'DBText5' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Unit' DataPipeline = daADOQueryDataView1.Units Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 8 Font.Style = [] Transparent = True DataPipelineName = 'Units' mmHeight = 3260 mmLeft = 179123 mmTop = 529 mmWidth = 22490 BandType = 4 end end object ppFooterBand1: TppFooterBand mmBottomOffset = 0 mmHeight = 6350 mmPrintPosition = 0 object ppLine2: TppLine UserName = 'Line2' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Pen.Color = clGray Pen.Width = 2 Weight = 1.500000000000000000 mmHeight = 3969 mmLeft = 1323 mmTop = 5027 mmWidth = 200555 BandType = 8 end object ppSystemVariable1: TppSystemVariable UserName = 'SystemVariable1' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False VarType = vtPrintDateTime Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [] Transparent = True mmHeight = 3725 mmLeft = 1323 mmTop = 1323 mmWidth = 27940 BandType = 8 end object ppSystemVariable2: TppSystemVariable UserName = 'SystemVariable2' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False VarType = vtPageSetDesc Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 9 Font.Style = [] TextAlignment = taRightJustified Transparent = True mmHeight = 3725 mmLeft = 187569 mmTop = 1323 mmWidth = 14436 BandType = 8 end end object ppSummaryBand1: TppSummaryBand mmBottomOffset = 0 mmHeight = 9790 mmPrintPosition = 0 object ppLabel7: TppLabel UserName = 'Label7' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Total Count:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4022 mmLeft = 6350 mmTop = 4233 mmWidth = 19135 BandType = 7 end object ppLine3: TppLine UserName = 'Line3' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Weight = 0.750000000000000000 mmHeight = 2381 mmLeft = 2117 mmTop = 2117 mmWidth = 89429 BandType = 7 end object ppDBCalc1: TppDBCalc UserName = 'DBCalc1' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Name' DataPipeline = daADOQueryDataView1.Units Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 10 Font.Style = [] Transparent = True DBCalcType = dcCount DataPipelineName = 'Units' mmHeight = 3969 mmLeft = 71967 mmTop = 4233 mmWidth = 17198 BandType = 7 end end object ppGroup1: TppGroup BreakName = 'Type' DataPipeline = daADOQueryDataView1.Units OutlineSettings.CreateNode = True UserName = 'Group1' mmNewColumnThreshold = 0 mmNewPageThreshold = 0 DataPipelineName = 'Units' object ppGroupHeaderBand1: TppGroupHeaderBand mmBottomOffset = 0 mmHeight = 8202 mmPrintPosition = 0 object ppDBText6: TppDBText UserName = 'DBText6' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False DataField = 'Type' DataPipeline = daADOQueryDataView1.Units Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True DataPipelineName = 'Units' mmHeight = 4498 mmLeft = 14817 mmTop = 2117 mmWidth = 17198 BandType = 3 GroupNo = 0 end object ppLabel8: TppLabel UserName = 'Label8' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Type:' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 11 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4530 mmLeft = 4233 mmTop = 2117 mmWidth = 9102 BandType = 3 GroupNo = 0 end end object ppGroupFooterBand1: TppGroupFooterBand PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 9260 mmPrintPosition = 0 object ppLabel5: TppLabel UserName = 'Label5' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'Type Count:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 10 Font.Style = [] Transparent = True mmHeight = 4022 mmLeft = 8467 mmTop = 4233 mmWidth = 19050 BandType = 5 GroupNo = 0 end object ppLine4: TppLine UserName = 'Line4' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Weight = 0.750000000000000000 mmHeight = 2381 mmLeft = 4233 mmTop = 2646 mmWidth = 89429 BandType = 5 GroupNo = 0 end object ppDBCalc2: TppDBCalc UserName = 'DBCalc2' Border.BorderPositions = [bpLeft, bpRight, bpBottom] Border.Color = clBlack Border.Style = psSolid Border.Visible = True DataField = 'Name' DataPipeline = daADOQueryDataView1.Units Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'ARIAL' Font.Size = 10 Font.Style = [] ResetGroup = ppGroup1 Transparent = True DBCalcType = dcCount DataPipelineName = 'Units' mmHeight = 3969 mmLeft = 74083 mmTop = 4233 mmWidth = 17198 BandType = 5 GroupNo = 0 end object ppRichText1: TppRichText UserName = 'RichText1' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = 'RichText1' RichText = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcha' + 'rset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}'#13#10'\viewkind4\uc1\' + 'pard\f0\fs16 jkldsfjlksdajfkljsdflkjsda\par'#13#10'dsajfklsdjaflkjsdaf' + 'lkjsadf\par'#13#10'sadjfklsdajflkjdsafklasd\par'#13#10'jdskfjklasdjflksadjfk' + 'ljdsaflkjsdafkljsadfk jjds akfl jdsakljf lksdajf lsdajf\par'#13#10'jkf' + 'sdaljf klsdaj flkads\f1\par'#13#10'}'#13#10 Stretch = True mmHeight = 4498 mmLeft = 107950 mmTop = 2117 mmWidth = 48948 BandType = 5 GroupNo = 0 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 end object ppLabel9: TppLabel UserName = 'Label9' Border.BorderPositions = [] Border.Color = clBlack Border.Style = psSolid Border.Visible = False Caption = '<<< Notes Field' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'TIMES NEW ROMAN' Font.Size = 12 Font.Style = [fsBold, fsItalic] Transparent = True mmHeight = 4911 mmLeft = 160867 mmTop = 2117 mmWidth = 28406 BandType = 5 GroupNo = 0 end end end object daDataModule1: TdaDataModule object daADOQueryDataView1: TdaADOQueryDataView UserName = 'Query_Units' Height = 177 Left = 10 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 10 TypeColumnWidth = 52 Width = 200 AutoSearchTabOrder = 0 object Units: TppChildDBPipeline AutoCreateFields = False UserName = 'Units' object ppField1: TppField FieldAlias = 'Name' FieldName = 'Name' FieldLength = 80 DisplayWidth = 80 Position = 0 TableName = 'Units' end object ppField2: TppField FieldAlias = 'Model' FieldName = 'Model' FieldLength = 25 DisplayWidth = 25 Position = 1 TableName = 'Units' end object ppField3: TppField FieldAlias = 'Make' FieldName = 'Make' FieldLength = 25 DisplayWidth = 25 Position = 2 TableName = 'Units' end object ppField4: TppField FieldAlias = 'SerialNumber' FieldName = 'SerialNumber' FieldLength = 20 DisplayWidth = 20 Position = 3 TableName = 'Units' end object ppField5: TppField FieldAlias = 'Type' FieldName = 'Type' FieldLength = 25 DisplayWidth = 25 Position = 4 TableName = 'Units' end object ppField6: TppField FieldAlias = 'Unit' FieldName = 'Unit' FieldLength = 25 DisplayWidth = 25 Position = 5 TableName = 'Units' end end object daSQL1: TdaSQL GuidCollationType = gcMSSQLServer DatabaseName = 'ADO1' DatabaseType = dtMSSQLServer DataPipelineName = 'Units' LinkColor = clMaroon MaxSQLFieldAliasLength = 25 SQLText.Strings = ( 'SELECT Units.Name, Units.Model, Units.Make, ' ' Units.SerialNumber, Units.Type, Units.Unit' 'FROM Units Units' 'ORDER BY Units.Type, Units.Name') SQLType = sqSQL2 object daField1: TdaField Alias = 'Name' DisplayWidth = 80 FieldAlias = 'Name' FieldLength = 80 FieldName = 'Name' SQLFieldName = 'Name' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField2: TdaField Alias = 'Model' DisplayWidth = 25 FieldAlias = 'Model' FieldLength = 25 FieldName = 'Model' SQLFieldName = 'Model' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField3: TdaField Alias = 'Make' DisplayWidth = 25 FieldAlias = 'Make' FieldLength = 25 FieldName = 'Make' SQLFieldName = 'Make' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField4: TdaField Alias = 'SerialNumber' DisplayWidth = 20 FieldAlias = 'SerialNumber' FieldLength = 20 FieldName = 'SerialNumber' SQLFieldName = 'SerialNumber' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField5: TdaField Alias = 'Type' DisplayWidth = 25 FieldAlias = 'Type' FieldLength = 25 FieldName = 'Type' SQLFieldName = 'Type' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField6: TdaField Alias = 'Unit' DisplayWidth = 25 FieldAlias = 'Unit' FieldLength = 25 FieldName = 'Unit' SQLFieldName = 'Unit' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField7: TdaField ChildType = 2 Alias = 'Type' DisplayWidth = 25 FieldAlias = 'Type' FieldLength = 25 FieldName = 'Type' SQLFieldName = 'Type' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daField8: TdaField ChildType = 2 Alias = 'Name' DisplayWidth = 80 FieldAlias = 'Name' FieldLength = 80 FieldName = 'Name' SQLFieldName = 'Name' TableAlias = 'Units' TableName = 'Units' TableSQLAlias = 'Units' end object daTable1: TdaTable ChildType = 5 Alias = 'Units' JoinType = dajtNone SQLAlias = 'Units' TableAlias = 'Units' TableName = 'Units' end end end end object ppParameterList1: TppParameterList end end