rp_contract_order.dfm

主要是介绍DELPHI三层应用以及分布式数据库的应用

      Size.Values = (
        47.625
        1905)
      Master = QRSubDetailOrders
      DataSet = Query3
      FooterBand = GroupFooterBand1
      PrintBefore = False
      PrintIfEmpty = True
      object QRShapeGray: TQRShape
        Left = 328
        Top = 0
        Width = 360
        Height = 18
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          47.625
          867.833333333333
          0
          952.5)
        Brush.Color = 14737632
        Pen.Style = psClear
        Shape = qrsRectangle
      end
      object QRDBText5: TQRDBText
        Left = 360
        Top = 0
        Width = 42
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          952.5
          0
          111.125)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = qryItems
        DataField = 'ItemNo'
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
      object QRDBText2: TQRDBText
        Left = 424
        Top = 0
        Width = 41
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1121.83333333333
          0
          108.479166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = qryItems
        DataField = 'PartNo'
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
      object QRDBText6: TQRDBText
        Left = 488
        Top = 0
        Width = 52
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1291.16666666667
          0
          137.583333333333)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        DataSet = qryItems
        DataField = 'Discount'
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
      object QRDBText7: TQRDBText
        Left = 552
        Top = 0
        Width = 30
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1460.5
          0
          79.375)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        DataSet = qryItems
        DataField = 'Qty'
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
      object QRDBOrderNo: TQRDBText
        Left = 176
        Top = 0
        Width = 49
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          465.666666666667
          0
          129.645833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Query2
        DataField = #21512#21516#21495
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRDBSalesDate: TQRDBText
        Left = 256
        Top = 0
        Width = 54
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          677.333333333333
          0
          142.875)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Query2
        DataField = 'SaleDate'
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
    end
    object QRGroupCust: TQRGroup
      Left = 48
      Top = 140
      Width = 720
      Height = 35
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        92.6041666666667
        1905)
      Expression = 'qryCustomer.CustNo'
      Master = QRSubDetailOrders
      ReprintOnNewPage = True
    end
    object GroupFooterBand1: TQRBand
      Left = 48
      Top = 211
      Width = 720
      Height = 8
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        21.1666666666667
        1905)
      BandType = rbGroupFooter
    end
  end
  object dscontract: TDataSource
    DataSet = Query1
    Left = 5
    Top = 10
  end
  object dsmachine: TDataSource
    DataSet = Query2
    Left = 5
    Top = 47
  end
  object qryCustomer: TQuery
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select * from pub_z_contract'
      'order by CustNo')
    Left = 609
  end
  object qryOrders: TQuery
    DatabaseName = 'DBDEMOS'
    DataSource = dscontract
    SQL.Strings = (
      'select * from orders'
      'where CustNo = :CustNo'
      'order by CustNo, OrderNo')
    Left = 658
    ParamData = <
      item
        DataType = ftFloat
        Name = 'CustNo'
        ParamType = ptUnknown
        Size = 8
      end>
  end
  object qryItems: TQuery
    DatabaseName = 'DBDEMOS'
    DataSource = dsmachine
    SQL.Strings = (
      'SELECT * '
      'FROM items'
      'WHERE OrderNo = :OrderNo'
      'ORDER BY OrderNo, ItemNo')
    Left = 567
    ParamData = <
      item
        DataType = ftFloat
        Name = 'OrderNo'
        ParamType = ptUnknown
        Size = 8
      end>
  end
  object Query1: TADOQuery
    Active = True
    Connection = dm_wxp.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from pub_z_contract '
      'where '#21512#21516#21495' <> '#39#39
      'order by '#21512#21516#21495)
    Left = 55
    Top = 11
  end
  object Query2: TQuery
    DatabaseName = 'zxjx'
    DataSource = dscontract
    SQL.Strings = (
      'select * from pub_z_contract_machine where '#21512#21516#21495' = :'#21512#21516#21495)
    Left = 55
    Top = 50
    ParamData = <
      item
        DataType = ftUnknown
        Name = #21512#21516#21495
        ParamType = ptUnknown
      end>
  end
  object Query3: TQuery
    DatabaseName = 'zxjx'
    DataSource = dscontract
    SQL.Strings = (
      'select * from  pub_z_contract_project where '#21512#21516#21495' =:'#21512#21516#21495)
    Left = 105
    Top = 50
    ParamData = <
      item
        DataType = ftUnknown
        Name = #21512#21516#21495
        ParamType = ptUnknown
      end>
  end
  object Query4: TQuery
    DatabaseName = 'zxjx'
    DataSource = dscontract
    SQL.Strings = (
      'select * from  pub_z_contract_specialties where '#21512#21516#21495' =:'#21512#21516#21495)
    Left = 155
    Top = 50
    ParamData = <
      item
        DataType = ftUnknown
        Name = #21512#21516#21495
        ParamType = ptUnknown
      end>
  end
end