unitsulfserchdate.~dfm

此代码为企业原料管理代码

object FrmSulfSerchDate: TFrmSulfSerchDate
  Left = 176
  Top = 107
  Width = 627
  Height = 480
  Caption = 'FrmSulfSerchDate'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 619
    Height = 453
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 216
      Top = 120
      Width = 80
      Height = 19
      Caption = '查询结果'
      Font.Charset = GB2312_CHARSET
      Font.Color = clFuchsia
      Font.Height = -19
      Font.Name = '隶书'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 224
      Top = 296
      Width = 132
      Height = 12
      Caption = '调试时参考数据，可去掉'
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 32
      Width = 561
      Height = 89
      Caption = '按日期查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Panel2: TPanel
        Left = 16
        Top = 19
        Width = 89
        Height = 26
        Caption = '查询日期从'
        TabOrder = 0
      end
      object bbSerch: TBitBtn
        Left = 250
        Top = 19
        Width = 75
        Height = 25
        Caption = '查询'
        TabOrder = 1
        OnClick = bbSerchClick
        Kind = bkOK
      end
      object bbcancal: TBitBtn
        Left = 251
        Top = 49
        Width = 75
        Height = 25
        Caption = '取消'
        TabOrder = 2
        Kind = bkCancel
      end
      object bbprior: TBitBtn
        Left = 431
        Top = 20
        Width = 75
        Height = 25
        Caption = '上一条'
        TabOrder = 3
      end
      object bbnext: TBitBtn
        Left = 433
        Top = 48
        Width = 75
        Height = 25
        Caption = '下一条'
        TabOrder = 4
      end
      object DateTimePicker1: TDateTimePicker
        Left = 112
        Top = 21
        Width = 110
        Height = 20
        CalAlignment = dtaLeft
        Date = 36951.425228125
        Time = 36951.425228125
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 5
      end
      object DateTimePicker2: TDateTimePicker
        Left = 111
        Top = 51
        Width = 111
        Height = 20
        CalAlignment = dtaLeft
        Date = 36979.4254512731
        Time = 36979.4254512731
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 6
      end
      object bbpint: TBitBtn
        Left = 339
        Top = 20
        Width = 75
        Height = 25
        Caption = '打印'
        TabOrder = 7
        OnClick = bbpintClick
      end
      object BitBtn1: TBitBtn
        Left = 341
        Top = 49
        Width = 75
        Height = 25
        Caption = '图表显示'
        TabOrder = 8
        OnClick = BitBtn1Click
      end
      object Panel6: TPanel
        Left = 16
        Top = 50
        Width = 89
        Height = 26
        Caption = '查询日期到'
        TabOrder = 9
      end
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 144
      Width = 561
      Height = 137
      DataSource = DataSource1
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
    end
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 617
      Height = 28
      Align = alTop
      BevelInner = bvLowered
      Caption = '硫化车间产品质量查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
  end
  object DBGrid2: TDBGrid
    Left = 24
    Top = 320
    Width = 545
    Height = 97
    DataSource = DataSource3
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'figid'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUM OF qcnum'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUM OF wasternum'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'AVERAGE OF qcper'
        Visible = True
      end>
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'SulfCard'
    SQL.Strings = (
      'select * from sulfcard')
    Left = 248
    Top = 24
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 288
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 400
    Top = 200
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'SulfCard'
    TableName = 'SulfCardPer.DB'
    Left = 432
    Top = 200
    object Table1FigID: TStringField
      DisplayWidth = 10
      FieldName = 'FigID'
      Size = 5
    end
    object Table1RubbCardID: TStringField
      DisplayWidth = 10
      FieldName = 'RubbCardID'
      Size = 10
    end
    object Table1SourceID: TStringField
      DisplayWidth = 10
      FieldName = 'SourceID'
      Size = 10
    end
    object Table1QcNum: TIntegerField
      DisplayWidth = 10
      FieldName = 'QcNum'
    end
    object Table1Wasternum: TIntegerField
      DisplayWidth = 10
      FieldName = 'Wasternum'
    end
    object Table1Qcper: TFloatField
      DisplayWidth = 10
      FieldName = 'Qcper'
      DisplayFormat = '0.00%'
    end
    object Table1LackNum: TSmallintField
      DisplayWidth = 10
      FieldName = 'LackNum'
    end
    object Table1ImpuNum: TSmallintField
      DisplayWidth = 10
      FieldName = 'ImpuNum'
    end
    object Table1PoleNum: TSmallintField
      DisplayWidth = 10
      FieldName = 'PoleNum'
    end
    object Table1RipNum: TSmallintField
      DisplayWidth = 10
      FieldName = 'RipNum'
    end
    object Table1ElseNum: TSmallintField
      DisplayWidth = 10
      FieldName = 'ElseNum'
    end
  end
  object DataSource3: TDataSource
    DataSet = Query1
    Left = 384
    Top = 376
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'SulfCard'
    SQL.Strings = (
      
        'select figid,sum(qcnum),sum(wasternum),avg(qcper) from sulfcardp' +
        'er group by figid')
    Left = 424
    Top = 376
    object Query1figid: TStringField
      FieldName = 'figid'
      Origin = 'SULFCARD."SulfCardPer.DB".FigID'
      Size = 5
    end
    object Query1SUMOFqcnum: TFloatField
      FieldName = 'SUM OF qcnum'
      Origin = 'SULFCARD."SulfCardPer.DB".QcNum'
    end
    object Query1SUMOFwasternum: TFloatField
      FieldName = 'SUM OF wasternum'
      Origin = 'SULFCARD."SulfCardPer.DB".Wasternum'
    end
    object Query1AVERAGEOFqcper: TFloatField
      FieldName = 'AVERAGE OF qcper'
      Origin = 'SULFCARD."SulfCardPer.DB".Qcper'
      DisplayFormat = '0.00%'
    end
  end
end