dfm_tsaleno.dfm

仓库管理系统 仓库管理系统

object dfmtsaleno: Tdfmtsaleno
  Left = 169
  Top = 128
  Width = 587
  Height = 375
  Caption = #38144#21806#21333#27719#24635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 329
    Width = 579
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 579
    Height = 329
    Align = alClient
    DataSource = DataSource1
    FooterColor = clYellow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    SumList.Active = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.CurrencyFont.Color = clWindowText
    CurrencyStyle.CurrencyFont.Height = -11
    CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
    CurrencyStyle.CurrencyFont.Style = []
    CurrencyStyle.CurrencySymbol = #65509
    CurrencyStyle.CompartColor = clSilver
    CurrencyStyle.KilobitColor = clGreen
    CurrencyStyle.RadixColor = clRed
    CurrencyStyle.ShowMinus = True
    CurrencyStyle.ShowZero = False
    CurrencyStyle.MinusColor = clRed
    CurrencyStyle.Layout = tlCenter
    CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.HeadFont.Color = clWindowText
    CurrencyStyle.HeadFont.Height = -11
    CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
    CurrencyStyle.HeadFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'rq'
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26085#26399
        Width = 69
      end
      item
        EditButtons = <>
        FieldName = 'bmh'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37096#38376#21495
        Width = 61
      end
      item
        EditButtons = <>
        FieldName = 'jyh'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#25454#21495
        Width = 91
      end
      item
        EditButtons = <>
        FieldName = 'skyh'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25910#27454#21592
      end
      item
        EditButtons = <>
        FieldName = 'yyyh'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #23548#36141#21592
      end
      item
        EditButtons = <>
        FieldName = 'ssl'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25968#37327
      end
      item
        EditButtons = <>
        FieldName = 'ssjje'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37329#39069
        Width = 69
      end
      item
        EditButtons = <>
        FieldName = 'szke'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25240#25187#39069
        Width = 68
      end>
  end
  object ADOQuery1: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      
        'SELECT t_saledet.bmh, t_saledet.rq, t_saledet.jyh, t_saledet.yyy' +
        'h, t_saledet.skyh, sum(t_saledet.sl) as ssl, sum(t_saledet.sjje)' +
        ' as ssjje, sum(t_saledet.zke) as szke'
      
        'FROM t_saledet INNER JOIN (t_spec INNER JOIN t_ware ON (t_spec.c' +
        'style = t_ware.flh) AND (t_spec.clabel = t_ware.clabel)) ON (t_s' +
        'aledet.clabel = t_ware.clabel) AND (t_saledet.spbh = t_ware.spbh' +
        ')'
      
        'GROUP BY t_saledet.bmh, t_saledet.rq, t_saledet.jyh, t_saledet.y' +
        'yyh, t_saledet.skyh')
    Left = 248
    Top = 128
    object ADOQuery1bmh: TWideStringField
      FieldName = 'bmh'
      Size = 6
    end
    object ADOQuery1rq: TDateTimeField
      FieldName = 'rq'
    end
    object ADOQuery1jyh: TWideStringField
      FieldName = 'jyh'
      Size = 15
    end
    object ADOQuery1yyyh: TWideStringField
      FieldName = 'yyyh'
      Size = 8
    end
    object ADOQuery1skyh: TWideStringField
      FieldName = 'skyh'
      Size = 8
    end
    object ADOQuery1ssl: TFloatField
      FieldName = 'ssl'
    end
    object ADOQuery1ssjje: TBCDField
      FieldName = 'ssjje'
      currency = True
      Precision = 19
    end
    object ADOQuery1szke: TBCDField
      FieldName = 'szke'
      currency = True
      Precision = 19
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 216
    Top = 128
  end
end