home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Quickrpt / Qr3 / FRMLTR.DFM / FRMLTR.txt
Encoding:
Text File  |  1999-08-11  |  5.6 KB  |  217 lines
  1. object frmFormLetter: TfrmFormLetter
  2.   Left = 200
  3.   Top = 108
  4.   Width = 544
  5.   Height = 375
  6.   Caption = 'frmFormLetter'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = True
  14.   Scaled = False
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object QuickRep1: TQuickRep
  18.     Left = 16
  19.     Top = 0
  20.     Width = 816
  21.     Height = 1056
  22.     Frame.Color = clBlack
  23.     Frame.DrawTop = False
  24.     Frame.DrawBottom = False
  25.     Frame.DrawLeft = False
  26.     Frame.DrawRight = False
  27.     BeforePrint = QuickRep1BeforePrint
  28.     DataSet = qryEmployee
  29.     Description.Strings = (
  30.       
  31.         'This is a very simple example of how to generate form letters us' +
  32.         'ing the TQRExpMemo control.')
  33.     Font.Charset = DEFAULT_CHARSET
  34.     Font.Color = clWindowText
  35.     Font.Height = -13
  36.     Font.Name = 'Arial'
  37.     Font.Style = []
  38.     Functions.Strings = (
  39.       'PAGENUMBER'
  40.       'COLUMNNUMBER'
  41.       'REPORTTITLE')
  42.     Functions.DATA = (
  43.       '0'
  44.       '0'
  45.       #39#39)
  46.     Options = [FirstPageHeader, LastPageFooter]
  47.     Page.Columns = 1
  48.     Page.Orientation = poPortrait
  49.     Page.PaperSize = Letter
  50.     Page.Values = (
  51.       127.000000000000000000
  52.       2794.000000000000000000
  53.       127.000000000000000000
  54.       2159.000000000000000000
  55.       127.000000000000000000
  56.       127.000000000000000000
  57.       0.000000000000000000)
  58.     PrinterSettings.Copies = 1
  59.     PrinterSettings.Duplex = False
  60.     PrinterSettings.FirstPage = 0
  61.     PrinterSettings.LastPage = 0
  62.     PrinterSettings.OutputBin = Auto
  63.     PrintIfEmpty = True
  64.     ReportTitle = 'Form Letter example'
  65.     SnapToGrid = True
  66.     Units = Inches
  67.     Zoom = 100
  68.     object DetailBand1: TQRBand
  69.       Left = 48
  70.       Top = 88
  71.       Width = 720
  72.       Height = 40
  73.       Frame.Color = clBlack
  74.       Frame.DrawTop = False
  75.       Frame.DrawBottom = False
  76.       Frame.DrawLeft = False
  77.       Frame.DrawRight = False
  78.       AlignToBottom = False
  79.       BeforePrint = DetailBand1BeforePrint
  80.       Color = clWhite
  81.       ForceNewColumn = False
  82.       ForceNewPage = False
  83.       Size.Values = (
  84.         105.833333333333300000
  85.         1905.000000000000000000)
  86.       BandType = rbDetail
  87.       object QRExprMemo1: TQRExprMemo
  88.         Left = 40
  89.         Top = 8
  90.         Width = 481
  91.         Height = 17
  92.         Frame.Color = clBlack
  93.         Frame.DrawTop = False
  94.         Frame.DrawBottom = False
  95.         Frame.DrawLeft = False
  96.         Frame.DrawRight = False
  97.         Size.Values = (
  98.           44.979166666666670000
  99.           105.833333333333300000
  100.           21.166666666666670000
  101.           1272.645833333333000000)
  102.         RemoveBlankLines = False
  103.         Alignment = taLeftJustify
  104.         AlignToBand = False
  105.         AutoSize = False
  106.         AutoStretch = True
  107.         Color = clWhite
  108.         Lines.Strings = (
  109.           '{APPSTARTDATE}'
  110.           'Attention: {FirstName} {LastName}'
  111.           're: special bonus'
  112.           '∩┐╜'
  113.           'Dear {FirstName}.'
  114.           '∩┐╜'
  115.           
  116.             'You have been employed here since {Hiredate} and we are pleased ' +
  117.             'to announce that we will including a special bonus with your nex' +
  118.             't paycheck.'
  119.           '∩┐╜'
  120.           'regards,'
  121.           '∩┐╜'
  122.           'H.R. Department')
  123.         Transparent = False
  124.         WordWrap = True
  125.         FontSize = 10
  126.       end
  127.     end
  128.     object PageHeaderBand1: TQRBand
  129.       Left = 48
  130.       Top = 48
  131.       Width = 720
  132.       Height = 40
  133.       Frame.Color = clBlack
  134.       Frame.DrawTop = False
  135.       Frame.DrawBottom = False
  136.       Frame.DrawLeft = False
  137.       Frame.DrawRight = False
  138.       AlignToBottom = False
  139.       Color = clWhite
  140.       ForceNewColumn = False
  141.       ForceNewPage = False
  142.       Size.Values = (
  143.         105.833333333333300000
  144.         1905.000000000000000000)
  145.       BandType = rbPageHeader
  146.       object QRSysData1: TQRSysData
  147.         Left = 299
  148.         Top = 0
  149.         Width = 121
  150.         Height = 17
  151.         Frame.Color = clBlack
  152.         Frame.DrawTop = False
  153.         Frame.DrawBottom = False
  154.         Frame.DrawLeft = False
  155.         Frame.DrawRight = False
  156.         Size.Values = (
  157.           44.979166666666650000
  158.           791.104166666666700000
  159.           0.000000000000000000
  160.           320.145833333333300000)
  161.         Alignment = taCenter
  162.         AlignToBand = True
  163.         AutoSize = True
  164.         Color = clWhite
  165.         Data = qrsReportTitle
  166.         Transparent = False
  167.         FontSize = 10
  168.       end
  169.     end
  170.   end
  171.   object qryEmployee: TQuery
  172.     Active = True
  173.     DatabaseName = 'DBDEMOS'
  174.     SQL.Strings = (
  175.       'SELECT *'
  176.       'FROM Employee'
  177.       'WHERE HireDate < '#39'01/01/1990'#39)
  178.     Left = 8
  179.     Top = 8
  180.     ParamData = <>
  181.     object qryEmployeeEmpNo: TIntegerField
  182.       CustomConstraint = 'Value > 0'
  183.       ConstraintErrorMessage = 'EmpNo cannot be 0 or negative'
  184.       FieldName = 'EmpNo'
  185.       Origin = '"Employee.DB".EmpNo'
  186.       DisplayFormat = 'Emp'#39'#'#39' 0000'
  187.       MaxValue = 9999
  188.       MinValue = 1
  189.     end
  190.     object qryEmployeeLastName: TStringField
  191.       FieldName = 'LastName'
  192.       Origin = '"Employee.DB".LastName'
  193.     end
  194.     object qryEmployeeFirstName: TStringField
  195.       FieldName = 'FirstName'
  196.       Origin = '"Employee.DB".FirstName'
  197.       Size = 15
  198.     end
  199.     object qryEmployeePhoneExt: TStringField
  200.       FieldName = 'PhoneExt'
  201.       Origin = '"Employee.DB".PhoneExt'
  202.       Size = 4
  203.     end
  204.     object qryEmployeeHireDate: TDateTimeField
  205.       FieldName = 'HireDate'
  206.       Origin = '"Employee.DB".HireDate'
  207.     end
  208.     object qryEmployeeSalary: TFloatField
  209.       CustomConstraint = 'X > 4499'
  210.       ConstraintErrorMessage = 'Minimum Salary is $4,500.00'
  211.       FieldName = 'Salary'
  212.       Origin = '"Employee.DB".Salary'
  213.       currency = True
  214.     end
  215.   end
  216. end
  217.