queryproduct.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmQueryProduct: TfrmQueryProduct
  Left = 28
  Top = 46
  Width = 750
  Height = 501
  Caption = #20135#21697#26597#35810
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 0
    Top = 38
    Width = 742
    Height = 4
    Cursor = crVSplit
    Align = alTop
  end
  inherited ToolBar: TToolBar
    Width = 742
  end
  object GroupBox1: TGroupBox [2]
    Left = 0
    Top = 42
    Width = 742
    Height = 432
    Align = alClient
    Caption = #26597#35810#32467#26524
    TabOrder = 1
    object dxDBGrid1: TdxDBGrid
      Left = 2
      Top = 15
      Width = 738
      Height = 415
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      DataSource = dsQuery
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoUseBookmarks]
      object dxDBGrid1fID: TdxDBGridMaskColumn
        Visible = False
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fID'
      end
      object dxDBGrid1fTypeID: TdxDBGridMaskColumn
        Visible = False
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fTypeID'
      end
      object dxDBGrid1fTypeCode: TdxDBGridColumn
        Width = 65
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fTypeCode'
      end
      object dxDBGrid1sProductName: TdxDBGridLookupColumn
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'sProductName'
      end
      object dxDBGrid1fCode: TdxDBGridColumn
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fCode'
      end
      object dxDBGrid1fName: TdxDBGridColumn
        Width = 200
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fName'
      end
      object dxDBGrid1fSpec: TdxDBGridColumn
        Width = 50
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fSpec'
      end
      object dxDBGrid1fColor: TdxDBGridColumn
        Width = 50
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fColor'
      end
      object dxDBGrid1fLevel: TdxDBGridColumn
        Width = 50
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fLevel'
      end
      object dxDBGrid1fUnitsName: TdxDBGridColumn
        Width = 60
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fUnitsName'
      end
      object dxDBGrid1fRetailPrice: TdxDBGridColumn
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fRetailPrice'
      end
      object dxDBGrid1fPrePrice: TdxDBGridColumn
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fPrePrice'
      end
    end
  end
  inherited ALToolbar: TActionList
    Left = 480
    Top = 0
  end
  inherited QQuery: TADOQuery
    Active = True
    SQL.Strings = (
      
        'select fID,fTypeCode,fCode,fName,fSpec,fColor,fLevel,fUnitsName,' +
        'fRetailPrice,fPrePrice,fTypeID from tProduct')
    object QQueryfID: TIntegerField
      FieldName = 'fID'
      ReadOnly = True
    end
    object QQueryfTypeID: TIntegerField
      FieldName = 'fTypeID'
    end
    object QQueryfTypeCode: TWideStringField
      DisplayLabel = #31867#21035#20195#30721
      FieldName = 'fTypeCode'
      Size = 50
    end
    object QQueryfCode: TWideStringField
      DisplayLabel = #20135#21697#32534#30721
      FieldName = 'fCode'
      Size = 50
    end
    object QQueryfName: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'fName'
      Size = 50
    end
    object QQueryfSpec: TWideStringField
      DisplayLabel = #35268#26684
      FieldName = 'fSpec'
      Size = 50
    end
    object QQueryfColor: TWideStringField
      DisplayLabel = #39068#33394
      FieldName = 'fColor'
      Size = 50
    end
    object QQueryfLevel: TWideStringField
      DisplayLabel = #31561#32423
      FieldName = 'fLevel'
      Size = 50
    end
    object QQueryfUnitsName: TWideStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldName = 'fUnitsName'
      Size = 10
    end
    object QQueryfRetailPrice: TBCDField
      DisplayLabel = #38646#21806#20215
      FieldName = 'fRetailPrice'
      DisplayFormat = '0.00'
      Precision = 10
      Size = 2
    end
    object QQueryfPrePrice: TBCDField
      DisplayLabel = #25104#26412#20215
      FieldName = 'fPrePrice'
      DisplayFormat = '0.00'
      Precision = 10
      Size = 2
    end
    object QQuerysProductName: TStringField
      DisplayLabel = #31867#21035#21517#31216
      FieldKind = fkLookup
      FieldName = 'sProductName'
      LookupDataSet = QProuctType
      LookupKeyFields = 'fID'
      LookupResultField = 'fName'
      KeyFields = 'fTypeID'
      Size = 25
      Lookup = True
    end
  end
  inherited ppDBPipeline: TppDBPipeline
    object ppDBPipelineppField1: TppField
      Alignment = taRightJustify
      FieldAlias = 'fID'
      FieldName = 'fID'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 0
    end
    object ppDBPipelineppField2: TppField
      Alignment = taRightJustify
      FieldAlias = 'fTypeID'
      FieldName = 'fTypeID'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 1
    end
    object ppDBPipelineppField3: TppField
      FieldAlias = 'fTypeCode'
      FieldName = 'fTypeCode'
      FieldLength = 50
      DisplayWidth = 50
      Position = 2
    end
    object ppDBPipelineppField4: TppField
      FieldAlias = 'fCode'
      FieldName = 'fCode'
      FieldLength = 50
      DisplayWidth = 50
      Position = 3
    end
    object ppDBPipelineppField5: TppField
      FieldAlias = 'fName'
      FieldName = 'fName'
      FieldLength = 50
      DisplayWidth = 50
      Position = 4
    end
    object ppDBPipelineppField6: TppField
      FieldAlias = 'fSpec'
      FieldName = 'fSpec'
      FieldLength = 50
      DisplayWidth = 50
      Position = 5
    end
    object ppDBPipelineppField7: TppField
      FieldAlias = 'fColor'
      FieldName = 'fColor'
      FieldLength = 50
      DisplayWidth = 50
      Position = 6
    end
    object ppDBPipelineppField8: TppField
      FieldAlias = 'fLevel'
      FieldName = 'fLevel'
      FieldLength = 50
      DisplayWidth = 50
      Position = 7
    end
    object ppDBPipelineppField9: TppField
      FieldAlias = 'fUnitsName'
      FieldName = 'fUnitsName'
      FieldLength = 10
      DisplayWidth = 10
      Position = 8
    end
    object ppDBPipelineppField10: TppField
      Alignment = taRightJustify
      FieldAlias = 'fRetailPrice'
      FieldName = 'fRetailPrice'
      FieldLength = 2
      DataType = dtDouble
      DisplayWidth = 11
      Position = 9
    end
    object ppDBPipelineppField11: TppField
      Alignment = taRightJustify
      FieldAlias = 'fPrePrice'
      FieldName = 'fPrePrice'
      FieldLength = 2
      DataType = dtDouble
      DisplayWidth = 11
      Position = 10
    end
    object ppDBPipelineppField12: TppField
      FieldAlias = 'sProductName'
      FieldName = 'sProductName'
      FieldLength = 25
      DisplayWidth = 25
      Position = 11
    end
  end
  inherited ppReport: TppReport
    PrinterSetup.PaperName = 'A4 210 x 297 mm'
    PrinterSetup.mmMarginBottom = 20320
    PrinterSetup.mmPaperHeight = 297127
    PrinterSetup.mmPaperWidth = 210079
    PrinterSetup.PaperSize = 9
    DataPipelineName = 'ppDBPipeline'
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 19050
      mmPrintPosition = 0
      object ppShape7: TppShape
        UserName = 'Shape7'
        mmHeight = 8202
        mmLeft = 147373
        mmTop = 10848
        mmWidth = 12435
        BandType = 0
      end
      object ppShape6: TppShape
        UserName = 'Shape6'
        mmHeight = 8202
        mmLeft = 132821
        mmTop = 10848
        mmWidth = 14817
        BandType = 0
      end
      object ppShape5: TppShape
        UserName = 'Shape5'
        mmHeight = 8202
        mmLeft = 119856
        mmTop = 10848
        mmWidth = 13229
        BandType = 0
      end
      object ppShape4: TppShape
        UserName = 'Shape4'
        mmHeight = 8202
        mmLeft = 106892
        mmTop = 10848
        mmWidth = 13229
        BandType = 0
      end
      object ppShape2: TppShape
        UserName = 'Shape2'
        mmHeight = 8202
        mmLeft = 62971
        mmTop = 10848
        mmWidth = 44186
        BandType = 0
      end
      object ppShape1: TppShape
        UserName = 'Shape1'
        mmHeight = 8202
        mmLeft = 38894
        mmTop = 10848
        mmWidth = 24606
        BandType = 0
      end
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = #20135#21697#36164#26009
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 18
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 7408
        mmLeft = 88106
        mmTop = 0
        mmWidth = 25665
        BandType = 0
      end
      object ppLabel2: TppLabel
        UserName = 'Label2'
        Caption = #20135#21697#32534#30721
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 40481
        mmTop = 12965
        mmWidth = 16933
        BandType = 0
      end
      object ppLabel3: TppLabel
        UserName = 'Label3'
        Caption = #20135#21697#21517#31216
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 74613
        mmTop = 12965
        mmWidth = 16933
        BandType = 0
      end
      object ppLabel5: TppLabel
        UserName = 'Label5'
        Caption = #35268#26684
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 109009
        mmTop = 12965
        mmWidth = 8467
        BandType = 0
      end
      object ppLabel6: TppLabel
        UserName = 'Label6'
        Caption = #39068#33394
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 121709