unitsulfper.dfm

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

object FrmSulfPer: TFrmSulfPer
  Left = 75
  Top = 98
  Width = 645
  Height = 501
  Caption = 'FrmSulfPer'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 637
    Height = 474
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 216
      Top = 112
      Width = 80
      Height = 19
      Caption = '查询结果'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -19
      Font.Name = '隶书'
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 37
      Width = 601
      Height = 73
      Caption = '按产品图号查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 136
      Width = 601
      Height = 313
      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 = 635
      Height = 31
      Align = alTop
      BevelInner = bvLowered
      Caption = '硫化车间按图号产品质量查询系统'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'SulfCard'
    SQL.Strings = (
      'select * from sulfcard')
    Left = 528
    Top = 200
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 560
    Top = 200
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 344
    Top = 200
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'SulfCard'
    TableName = 'SulfCardPer.DB'
    Left = 384
    Top = 200
    object Table1TMonth: TStringField
      DisplayLabel = '月份'
      FieldName = 'TMonth'
      Size = 8
    end
    object Table1TDate: TDateField
      DisplayLabel = '日期'
      FieldName = 'TDate'
    end
    object Table1FigID: TStringField
      DisplayLabel = '图号'
      FieldName = 'FigID'
      Size = 8
    end
    object Table1Prodname: TStringField
      DisplayLabel = '产品名称'
      FieldName = 'Prodname'
      Size = 10
    end
    object Table1QcNum: TIntegerField
      DisplayLabel = '合格品/只'
      FieldName = 'QcNum'
    end
    object Table1Wasternum: TIntegerField
      DisplayLabel = '废品/只'
      FieldName = 'Wasternum'
    end
    object Table1Qcper: TFloatField
      DisplayLabel = '合格率'
      FieldName = 'Qcper'
      DisplayFormat = '0.00%'
    end
    object Table1ProfitPer: TFloatField
      DisplayLabel = '利润率'
      FieldName = 'ProfitPer'
      DisplayFormat = '0.00%'
    end
    object Table1WasterPer: TFloatField
      DisplayLabel = '损耗/克'
      FieldName = 'WasterPer'
    end
    object Table1RubbMixID: TStringField
      DisplayLabel = '配方号'
      FieldName = 'RubbMixID'
      Size = 10
    end
    object Table1RubbCardID: TStringField
      DisplayLabel = '生产批号'
      FieldName = 'RubbCardID'
      Size = 10
    end
    object Table1SourceID: TStringField
      DisplayLabel = '货源号'
      FieldName = 'SourceID'
      Size = 10
    end
  end
  object DataSource3: TDataSource
    DataSet = SulfQueryPerDate
    Left = 560
    Top = 264
  end
  object SulfQueryPerDate: TQuery
    DatabaseName = 'SulfCard'
    SQL.Strings = (
      
        'select tdate,sum(qcnum),sum(wasternum),avg(qcper),avg(ProfitPer)' +
        ',sum(WasterPer) from sulfcardper group by tdate')
    Left = 528
    Top = 264
    object SulfQueryPerDatetdate: TDateField
      FieldName = 'tdate'
      Origin = 'SULFCARD."SulfCardPer.DB".TDate'
    end
    object SulfQueryPerDateSUMOFqcnum: TFloatField
      FieldName = 'SUM OF qcnum'
      Origin = 'SULFCARD."SulfCardPer.DB".QcNum'
    end
    object SulfQueryPerDateSUMOFwasternum: TFloatField
      FieldName = 'SUM OF wasternum'
      Origin = 'SULFCARD."SulfCardPer.DB".Wasternum'
    end
    object SulfQueryPerDateAVERAGEOFqcper: TFloatField
      FieldName = 'AVERAGE OF qcper'
      Origin = 'SULFCARD."SulfCardPer.DB".Qcper'
      DisplayFormat = '0.00%'
    end
    object SulfQueryPerDateAVERAGEOFProfitPer: TFloatField
      FieldName = 'AVERAGE OF ProfitPer'
      Origin = 'SULFCARD."SulfCardPer.DB".ProfitPer'
      DisplayFormat = '0.00%'
    end
    object SulfQueryPerDateSUMOFWasterPer: TFloatField
      FieldName = 'SUM OF WasterPer'
      Origin = 'SULFCARD."SulfCardPer.DB".WasterPer'
    end
  end
  object DataSource4: TDataSource
    DataSet = SulfQueryPerMonth
    Left = 560
    Top = 232
  end
  object SulfQueryPerMonth: TQuery
    DatabaseName = 'SulfCard'
    SQL.Strings = (
      
        'select tmonth,sum(qcnum),sum(wasternum),avg(qcper),avg(ProfitPer' +
        '),sum(WasterPer) from sulfcardper group by tmonth')
    Left = 528
    Top = 232
    object SulfQueryPerMonthtmonth: TStringField
      FieldName = 'tmonth'
      Origin = 'SULFCARD."SulfCardPer.DB".TMonth'
      Size = 8
    end
    object SulfQueryPerMonthSUMOFqcnum: TFloatField
      FieldName = 'SUM OF qcnum'
      Origin = 'SULFCARD."SulfCardPer.DB".QcNum'
    end
    object SulfQueryPerMonthSUMOFwasternum: TFloatField
      FieldName = 'SUM OF wasternum'
      Origin = 'SULFCARD."SulfCardPer.DB".Wasternum'
    end
    object SulfQueryPerMonthAVERAGEOFqcper: TFloatField
      FieldName = 'AVERAGE OF qcper'
      Origin = 'SULFCARD."SulfCardPer.DB".Qcper'
      DisplayFormat = '0.00%'
    end
    object SulfQueryPerMonthAVERAGEOFProfitPer: TFloatField
      FieldName = 'AVERAGE OF ProfitPer'
      Origin = 'SULFCARD."SulfCardPer.DB".ProfitPer'
      DisplayFormat = '0.00%'
    end
    object SulfQueryPerMonthSUMOFWasterPer: TFloatField
      FieldName = 'SUM OF WasterPer'
      Origin = 'SULFCARD."SulfCardPer.DB".WasterPer'
    end
  end
end