fmqryreceiveu.dfm

小型库存管理,希望有帮助,小型库存管理,希望有帮助

inherited FMQryReceive: TFMQryReceive
  Left = 223
  Top = 125
  Width = 690
  Height = 418
  Caption = 'FMQryReceive'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel2: TPanel
    Width = 682
    Height = 347
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 682
      Height = 97
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object Label1: TLabel
        Left = 24
        Top = 24
        Width = 48
        Height = 12
        Caption = #35760#36134#26085#26399
      end
      object Label2: TLabel
        Left = 208
        Top = 24
        Width = 6
        Height = 12
        Caption = '~'
      end
      object Label3: TLabel
        Left = 24
        Top = 64
        Width = 48
        Height = 12
        Caption = #21378#21830#21517#31216
      end
      object Label4: TLabel
        Left = 400
        Top = 64
        Width = 48
        Height = 12
        Caption = #20135#21697#20998#31867
      end
      object BegDate: TDateTimePicker
        Left = 80
        Top = 20
        Width = 120
        Height = 20
        CalAlignment = dtaLeft
        Date = 38162.3448095602
        Time = 38162.3448095602
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object EndDate: TDateTimePicker
        Left = 224
        Top = 20
        Width = 120
        Height = 20
        CalAlignment = dtaLeft
        Date = 38162.3448381366
        Time = 38162.3448381366
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
      object DBfSupNo: TDBLookupComboBox
        Left = 80
        Top = 60
        Width = 130
        Height = 20
        DataField = 'fSupNo'
        DataSource = dsData
        KeyField = 'fsupno'
        ListField = 'fsupname'
        ListSource = dsSupplier
        NullValueKey = 46
        TabOrder = 2
      end
      object DBfClassNo: TDBLookupComboBox
        Left = 464
        Top = 60
        Width = 130
        Height = 20
        DataField = 'fClassNo'
        DataSource = dsData
        KeyField = 'fClassNo'
        ListField = 'fClassName'
        ListSource = dsClass
        NullValueKey = 46
        TabOrder = 3
      end
    end
    object DataGrid: TDBGrid
      Left = 0
      Top = 97
      Width = 682
      Height = 250
      Align = alClient
      DataSource = dbClient
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'fproductno'
          Title.Caption = #20135#21697#32534#21495
          Width = 77
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fproductname'
          Title.Caption = #20135#21697#21517#31216
          Width = 131
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fSpec'
          Title.Caption = #35268#26684
          Width = 130
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fSaleunit'
          Title.Caption = #21333#20301
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fqty'
          Title.Caption = #25968#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'famt'
          Title.Caption = #37329#39069
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fbuyprice'
          Title.Caption = #24179#22343#36827#20215
          Width = 88
          Visible = True
        end>
    end
  end
  inherited ToolBar: TToolBar
    Width = 682
    Customizable = True
    Transparent = True
    inherited btnQuery: TToolButton
      OnClick = btnQueryClick
    end
    inherited btnExcle: TToolButton
      OnClick = btnExcleClick
    end
  end
  inherited QrySQL: TADOQuery
    Left = 544
    Top = 0
  end
  inherited ImageList1: TImageList
    Left = 592
    Top = 0
  end
  object adoData: TADOQuery
    Connection = fmDB.AdoHouse
    Parameters = <>
    SQL.Strings = (
      'select fSupNo ,fSupNo as fClassNo from ts_supplier where 1=2')
    Left = 472
    Top = 160
  end
  object adoSupplier: TADOQuery
    Connection = fmDB.AdoHouse
    Parameters = <>
    SQL.Strings = (
      'select fsupno,fsupname from ts_supplier order by fsupno')
    Left = 408
    Top = 224
  end
  object dsData: TDataSource
    DataSet = adoData
    Left = 520
    Top = 160
  end
  object dsSupplier: TDataSource
    DataSet = adoSupplier
    Left = 472
    Top = 224
  end
  object adoClass: TADOQuery
    Connection = fmDB.AdoHouse
    Parameters = <>
    SQL.Strings = (
      
        'select fClassNo,fClassName from Ts_Class Order by fParentId,fCla' +
        'ssNo')
    Left = 544
    Top = 224
  end
  object dsClass: TDataSource
    DataSet = adoClass
    Left = 592
    Top = 224
  end
  object cdsData: TADODataSet
    Connection = fmDB.AdoHouse
    CommandText = 
      'SELECT max(c.fproductno) AS fproductno, max(c.fproductname) AS f' +
      'productname, max(c.fspec) AS fSpec, max(c.fsaleunit) AS fSaleuni' +
      't, sum(b.fqty) AS fqty, sum(b.fqty*b.fbuyprice) AS famt,sum(b.fq' +
      'ty*b.fbuyprice)/sum(b.fqty) as fbuyprice'#13#10'FROM ts_receive_head A' +
      'S a, ts_receive_detail AS b, ts_item AS c'#13#10'WHERE a.fbillid=b.fbi' +
      'llid and b.fproductid=c.fproductid'#13#10'GROUP BY b.fproductid'
    Parameters = <>
    Left = 64
    Top = 208
    object cdsDatafproductno: TWideStringField
      FieldName = 'fproductno'
    end
    object cdsDatafproductname: TWideStringField
      FieldName = 'fproductname'
      Size = 40
    end
    object cdsDatafSpec: TWideStringField
      FieldName = 'fSpec'
    end
    object cdsDatafSaleunit: TWideStringField
      FieldName = 'fSaleunit'
      Size = 14
    end
    object cdsDatafqty: TFloatField
      FieldName = 'fqty'
    end
    object cdsDatafamt: TFloatField
      FieldName = 'famt'
      DisplayFormat = '0.00'
    end
    object cdsDatafbuyprice: TFloatField
      FieldName = 'fbuyprice'
      ReadOnly = True
      DisplayFormat = '0.00'
    end
  end
  object dbClient: TDataSource
    DataSet = cdsData
    Left = 136
    Top = 208
  end
end