unit1.dfm

ODAC+SDAC源代码

    Style = <>
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 5.000000000000000000
      RightMargin = 5.000000000000000000
      TopMargin = 5.000000000000000000
      BottomMargin = 5.000000000000000000
      Columns = 1
      ColumnWidth = 210.000000000000000000
      ColumnPositions.Strings = (
        '0')
      PrintOnPreviousPage = True
      object Band1: TfrxPageFooter
        Height = 22.677180000000000000
        Top = 298.582870000000000000
        Width = 755.906000000000000000
        object Memo5: TfrxMemoView
          Left = 3.779530000000000000
          Top = 3.779530000000022000
          Width = 706.772110000000000000
          Height = 15.118120000000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = [ftTop]
          Frame.Width = 2.000000000000000000
          HAlign = haRight
          Memo.Strings = (
            '[Page#]')
          ParentFont = False
        end
      end
      object Band2: TfrxReportTitle
        Height = 26.456710000000000000
        Top = 18.897650000000000000
        Width = 755.906000000000000000
        object Memo6: TfrxMemoView
          Left = 3.779530000000000000
          Top = 3.779530000000001000
          Width = 706.772110000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Color = clTeal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          HAlign = haCenter
          Memo.Strings = (
            'Orders')
          ParentFont = False
          VAlign = vaBottom
        end
      end
      object Band3: TfrxPageHeader
        Height = 22.677180000000000000
        Top = 68.031540000000010000
        Width = 755.906000000000000000
        object Memo22: TfrxMemoView
          Left = 3.779530000000000000
          Top = 3.779529999999994000
          Width = 706.772110000000000000
          Height = 15.118120000000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Frame.Typ = [ftTop]
          Frame.Width = 2.000000000000000000
          ParentFont = False
        end
      end
      object Band4: TfrxMasterData
        Height = 45.354360000000000000
        Top = 151.181200000000000000
        Width = 755.906000000000000000
        Columns = 1
        ColumnWidth = 200.000000000000000000
        ColumnGap = 20.000000000000000000
        DataSet = ReportData.OrdersDS
        DataSetName = 'Orders'
        RowCount = 0
        object Memo23: TfrxMemoView
          Left = 11.338590000000000000
          Width = 113.385826770000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Color = clNavy
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = [ftTop]
          Memo.Strings = (
            'OrderID')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo24: TfrxMemoView
          Left = 11.338590000000000000
          Top = 18.897650000000000000
          Width = 113.385826770000000000
          Height = 26.456710000000000000
          GroupIndex = 0
          Color = clNavy
          DataField = 'OrderID'
          DataSet = ReportData.OrdersDS
          DataSetName = 'Orders'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          Memo.Strings = (
            '[Orders."OrderID"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo25: TfrxMemoView
          Left = 124.724409450000000000
          Width = 302.362204720000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Color = clNavy
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = [ftTop]
          Memo.Strings = (
            'ShipName')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo26: TfrxMemoView
          Left = 427.086614170000000000
          Width = 162.519790000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Color = clNavy
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = [ftTop]
          Memo.Strings = (
            'ShipAddress')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo27: TfrxMemoView
          Left = 124.724409450000000000
          Top = 18.897650000000000000
          Width = 302.362204720000000000
          Height = 26.456710000000000000
          GroupIndex = 0
          Color = clNavy
          DataField = 'ShipName'
          DataSet = ReportData.OrdersDS
          DataSetName = 'Orders'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          Memo.Strings = (
            '[Orders."ShipName"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo28: TfrxMemoView
          Left = 427.086614170000000000
          Top = 18.897650000000000000
          Width = 162.519790000000000000
          Height = 26.456710000000000000
          GroupIndex = 0
          Color = clNavy
          DataField = 'ShipAddress'
          DataSet = ReportData.OrdersDS
          DataSetName = 'Orders'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          Memo.Strings = (
            '[Orders."ShipAddress"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo29: TfrxMemoView
          Left = 589.606299212598000000
          Width = 120.944881889764000000
          Height = 45.354360000000000000
          GroupIndex = 0
          Color = clNavy
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsItalic]
          Frame.Typ = [ftRight, ftTop]
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo7: TfrxMemoView
          Left = 3.779530000000000000
          Width = 7.559060000000000000
          Height = 45.354360000000000000
          GroupIndex = 0
          Color = clNavy
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsItalic]
          Frame.Typ = [ftLeft, ftTop]
          ParentFont = False
          VAlign = vaCenter
        end
      end
      object Band5: TfrxDetailData
        Height = 18.897650000000000000
        Top = 219.212740000000000000
        Width = 755.906000000000000000
        Columns = 1
        ColumnWidth = 200.000000000000000000
        ColumnGap = 20.000000000000000000
        DataSet = ReportData.CustomersDS
        DataSetName = 'Customers'
        RowCount = 0
        object Memo4: TfrxMemoView
          Left = 3.779530000000000000
          Width = 3.779530000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Color = clSilver
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Frame.Typ = [ftLeft]
          ParentFont = False
        end
        object Memo8: TfrxMemoView
          Left = 7.559060000000000000
          Width = 117.165430000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          Color = clSilver
          DataField = 'CompanyName'
          DataSet = ReportData.CustomersDS
          DataSetName = 'Customers'
          Memo.Strings = (
            '[Customers."CompanyName"]')
        end