dfm_time.dfm

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

object dfmtime: Tdfmtime
  Left = 210
  Top = 143
  Width = 456
  Height = 373
  Caption = #26102#27573#38144#21806#20998#26512
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 327
    Width = 448
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 272
    Width = 448
    Height = 55
    Align = alBottom
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 11
      Width = 36
      Height = 12
      Caption = #26085#26399#65306
    end
    object Label2: TLabel
      Left = 177
      Top = 11
      Width = 12
      Height = 12
      Caption = #33267
    end
    object Label3: TLabel
      Left = 175
      Top = 35
      Width = 36
      Height = 12
      Caption = #26102#38388#65306
    end
    object Label4: TLabel
      Left = 263
      Top = 35
      Width = 12
      Height = 12
      Caption = #33267
    end
    object Label5: TLabel
      Left = 17
      Top = 35
      Width = 24
      Height = 12
      Caption = #37096#38376
    end
    object DateTimePicker1: TDateTimePicker
      Left = 56
      Top = 7
      Width = 97
      Height = 20
      CalAlignment = dtaLeft
      Date = 37364.4709046644
      Time = 37364.4709046644
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object DateTimePicker2: TDateTimePicker
      Left = 215
      Top = 7
      Width = 97
      Height = 20
      CalAlignment = dtaLeft
      Date = 37364.4712198148
      Time = 37364.4712198148
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object MaskEdit1: TMaskEdit
      Left = 215
      Top = 31
      Width = 25
      Height = 20
      TabOrder = 2
      Text = '9'
    end
    object MaskEdit2: TMaskEdit
      Left = 279
      Top = 31
      Width = 25
      Height = 20
      TabOrder = 3
      Text = '23'
    end
    object UpDown1: TUpDown
      Left = 240
      Top = 31
      Width = 15
      Height = 20
      Associate = MaskEdit1
      Min = 0
      Max = 23
      Position = 9
      TabOrder = 4
      Wrap = False
    end
    object UpDown2: TUpDown
      Left = 304
      Top = 31
      Width = 15
      Height = 20
      Associate = MaskEdit2
      Min = 0
      Max = 23
      Position = 23
      TabOrder = 5
      Wrap = False
    end
    object BitBtn1: TBitBtn
      Left = 356
      Top = 13
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 6
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object ComboBox1: TComboBox
      Left = 56
      Top = 31
      Width = 97
      Height = 20
      ItemHeight = 12
      TabOrder = 7
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 448
    Height = 272
    Align = alClient
    DataSource = DataSource1
    FooterColor = clYellow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    SumList.Active = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ctime'
        Footer.Value = #21512#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26102#38388
      end
      item
        EditButtons = <>
        FieldName = 'sl'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25968#37327
      end
      item
        EditButtons = <>
        FieldName = 'sjje'
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37329#39069
      end>
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 360
    Top = 48
  end
  object ADOQuery1: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      
        'SELECT t_time.ctime, Sum([t_saledet].[sl]) AS sl, Sum([t_saledet' +
        '].[sjje]) AS sjje'
      
        'FROM t_time LEFT JOIN t_saledet ON hour(t_saledet.sj)=trim(t_tim' +
        'e.ctime) and t_time.ctime>=9 and t_time.ctime<=23'
      'GROUP BY t_time.ctime'
      'ORDER BY t_time.ctime')
    Left = 392
    Top = 48
  end
  object ADOTable1: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_branch'
    Left = 392
    Top = 96
  end
end