dfm_total.dfm

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

object dfmtotal: Tdfmtotal
  Left = 284
  Top = 144
  Width = 450
  Height = 318
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #20170#26085#27719#24635
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 241
    Width = 442
    Height = 31
    Align = alBottom
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 272
    Width = 442
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 442
    Height = 41
    Align = alTop
    TabOrder = 2
    object Label2: TLabel
      Left = 134
      Top = 13
      Width = 32
      Height = 16
      Caption = #21697#29260
    end
    object Label3: TLabel
      Left = 273
      Top = 13
      Width = 32
      Height = 16
      Caption = #26085#26399
    end
    object Label5: TLabel
      Left = 9
      Top = 13
      Width = 32
      Height = 16
      Caption = #37096#38376
    end
    object MaskEdit5: TMaskEdit
      Left = 176
      Top = 9
      Width = 76
      Height = 24
      Enabled = False
      TabOrder = 0
    end
    object MaskEdit6: TMaskEdit
      Left = 47
      Top = 9
      Width = 66
      Height = 24
      Enabled = False
      TabOrder = 1
    end
    object DateTimePicker1: TDateTimePicker
      Left = 314
      Top = 9
      Width = 122
      Height = 24
      CalAlignment = dtaLeft
      Date = 37312.4117853819
      Time = 37312.4117853819
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 41
    Width = 442
    Height = 200
    Align = alClient
    DataSource = DataSource1
    FooterColor = clYellow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -16
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    SumList.Active = True
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnTitleClick = DBGridEh1TitleClick
    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 = 'bmh'
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37096#38376
        Width = 66
      end
      item
        EditButtons = <>
        FieldName = 'clabel'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21697#29260
        Width = 72
      end
      item
        EditButtons = <>
        FieldName = 'flh'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #27454#21495
        Width = 86
      end
      item
        EditButtons = <>
        FieldName = 'esl'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25968#37327
      end
      item
        EditButtons = <>
        FieldName = 'esjje'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37329#39069
        Width = 108
      end>
  end
  object DataSource1: TDataSource
    DataSet = aqrytdate
    Left = 288
    Top = 64
  end
  object aqrytdate: TADOQuery
    Active = True
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'vbmh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'vlabel'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'vrq'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT t_saledet.bmh, t_saledet.clabel, t_ware.flh,sum(t_saledet' +
        '.sl) as esl, sum(t_saledet.sjje) as esjje'
      'FROM t_saledet,t_ware'
      
        'WHERE t_saledet.clabel=t_ware.clabel and t_saledet.spbh=t_ware.s' +
        'pbh and (((t_saledet.bmh)=:vbmh) AND ((t_saledet.clabel)=:vlabel' +
        ') AND ((CDate([t_saledet.rq]))=:vrq))'
      'group by t_saledet.bmh, t_saledet.clabel,t_ware.flh; ')
    Left = 320
    Top = 64
  end
end