unitsulfname.~dfm

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

              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TDate'
              Title.Alignment = taCenter
              Width = 69
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TMonth'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Prodname'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'Figid'
              Title.Alignment = taCenter
              Width = 98
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'QcNum'
              Title.Alignment = taCenter
              Width = 57
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'Wasternum'
              Title.Alignment = taCenter
              Width = 49
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'Qcper'
              Title.Alignment = taCenter
              Width = 47
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'WasterPer'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Shl'
              Width = 45
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'Wastermoney'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'LackNum'
              Title.Alignment = taCenter
              Width = 44
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ImpuNum'
              Title.Alignment = taCenter
              Width = 44
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PoleNum'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RipNum'
              Title.Alignment = taCenter
              Width = 43
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ElseNum'
              Title.Alignment = taCenter
              Width = 41
              Visible = True
            end>
        end
      end
    end
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 783
      Height = 33
      Align = alTop
      BevelInner = bvLowered
      Caption = '硫化车间个人产品质量统计'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -20
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 656
    Top = 240
  end
  object Table1: TTable
    DatabaseName = 'JL2000'
    TableName = 'SulfCardName.DB'
    Left = 624
    Top = 232
    object Table1Name: TStringField
      Alignment = taCenter
      DisplayLabel = '姓名'
      DisplayWidth = 8
      FieldName = 'Name'
      Size = 8
    end
    object Table1TDate: TDateField
      Alignment = taCenter
      DisplayLabel = '日期'
      DisplayWidth = 8
      FieldName = 'TDate'
    end
    object Table1TMonth: TStringField
      Alignment = taCenter
      DisplayLabel = '月份'
      DisplayWidth = 6
      FieldName = 'TMonth'
      Size = 8
    end
    object Table1Prodname: TStringField
      DisplayLabel = '产品名称'
      DisplayWidth = 18
      FieldName = 'Prodname'
      Size = 18
    end
    object Table1Figid: TStringField
      DisplayLabel = '图 号'
      DisplayWidth = 11
      FieldName = 'Figid'
    end
    object Table1QcNum: TIntegerField
      Alignment = taCenter
      DisplayLabel = '合格品/只'
      DisplayWidth = 10
      FieldName = 'QcNum'
    end
    object Table1Wasternum: TIntegerField
      DisplayLabel = '废品/只'
      DisplayWidth = 8
      FieldName = 'Wasternum'
    end
    object Table1WasterPer: TFloatField
      DisplayLabel = '胶料损耗/克'
      DisplayWidth = 11
      FieldName = 'WasterPer'
    end
    object Table1Wastermoney: TFloatField
      DisplayLabel = '金额损耗/元'
      DisplayWidth = 11
      FieldName = 'Wastermoney'
    end
    object Table1Qcper: TFloatField
      DisplayLabel = '合格率%'
      DisplayWidth = 7
      FieldName = 'Qcper'
      DisplayFormat = '0.00'
    end
    object Table1Shl: TFloatField
      Alignment = taCenter
      DisplayLabel = '损耗率%'
      FieldName = 'Shl'
    end
    object Table1LackNum: TSmallintField
      Alignment = taCenter
      DisplayLabel = '缺料/只'
      DisplayWidth = 8
      FieldName = 'LackNum'
    end
    object Table1ImpuNum: TSmallintField
      Alignment = taCenter
      DisplayLabel = '杂质/只'
      DisplayWidth = 8
      FieldName = 'ImpuNum'
    end
    object Table1PoleNum: TSmallintField
      Alignment = taCenter
      DisplayLabel = '气泡/只'
      DisplayWidth = 7
      FieldName = 'PoleNum'
    end
    object Table1RipNum: TSmallintField
      Alignment = taCenter
      DisplayLabel = '撕裂/只'
      DisplayWidth = 8
      FieldName = 'RipNum'
    end
    object Table1ElseNum: TSmallintField
      Alignment = taCenter
      DisplayLabel = '其它/只'
      DisplayWidth = 7
      FieldName = 'ElseNum'
    end
    object Table1Hgj: TFloatField
      FieldName = 'Hgj'
    end
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 656
    Top = 184
  end
  object Query2: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select * from sulfcard')
    Left = 616
    Top = 184
  end
  object DataSource3: TDataSource
    DataSet = QueryAllName
    Left = 25
    Top = 278
  end
  object QueryAllName: TQuery
    DatabaseName = 'JL2000'
    Left = 57
    Top = 278
  end
  object TableAllName: TTable
    DatabaseName = 'JL2000'
    TableName = 'SulfCardAllName.db'
    Left = 57
    Top = 246
  end
  object DataSource4: TDataSource
    DataSet = TableAllName
    Left = 25
    Top = 246
  end
  object Queryindexqcper: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      
        ' select name,sum(qcnum)as SumQcNum,sum(wasternum)as sumwasternum' +
        ','
      
        'sum(wasterper)as sumper,sum(wastermoney)as sumwmoney,avg(qcper)a' +
        's avgqcper,'
      
        'sum(lacknum)as SumLackNum,sum(impunum)as SumImpuNum,sum(polenum)' +
        'as SumPoleNum,'
      
        'sum(ripnum)as SumRipNum,sum(elsenum)as SumElseNum,sum(shl)as sum' +
        'shl from SulfCardAllName'
      'group by name')
    Left = 57
    Top = 214
    object Queryindexqcpername: TStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
      Origin = 'JL2000."SulfCardAllName.DB".Name'
      Size = 8
    end
    object QueryindexqcperSumQcNum: TFloatField
      DisplayLabel = '合格品/只'
      FieldName = 'SumQcNum'
      Origin = 'JL2000."SulfCardAllName.DB".QcNum'
    end
    object Queryindexqcpersumwasternum: TFloatField
      DisplayLabel = '废品/只'
      FieldName = 'sumwasternum'
      Origin = 'JL2000."SulfCardAllName.DB".Wasternum'
    end
    object Queryindexqcpersumper: TFloatField
      DisplayLabel = '胶料损耗/克'
      FieldName = 'sumper'
      Origin = 'JL2000."SulfCardAllName.DB".WasterPer'
    end
    object Queryindexqcpersumwmoney: TFloatField
      DisplayLabel = '金额损耗/元'
      FieldName = 'sumwmoney'
      Origin = 'JL2000."SulfCardAllName.DB".Wastermoney'
    end
    object Queryindexqcperavgqcper: TFloatField
      DisplayLabel = '合格率%'
      FieldName = 'avgqcper'
      Origin = 'JL2000."SulfCardAllName.DB".Qcper'
      DisplayFormat = '0.00'
    end
    object QueryindexqcperSumLackNum: TFloatField
      DisplayLabel = '缺料/只'
      FieldName = 'SumLackNum'
      Origin = 'JL2000."SulfCardAllName.DB".LackNum'
    end
    object QueryindexqcperSumImpuNum: TFloatField
      DisplayLabel = '杂质/只'
      FieldName = 'SumImpuNum'
      Origin = 'JL2000."SulfCardAllName.DB".ImpuNum'
    end
    object QueryindexqcperSumPoleNum: TFloatField
      DisplayLabel = '汽泡/只'
      FieldName = 'SumPoleNum'
      Origin = 'JL2000."SulfCardAllName.DB".PoleNum'
    end
    object QueryindexqcperSumRipNum: TFloatField
      DisplayLabel = '撕裂/只'
      FieldName = 'SumRipNum'
      Origin = 'JL2000."SulfCardAllName.DB".RipNum'
    end
    object QueryindexqcperSumElseNum: TFloatField
      DisplayLabel = '其它/只'
      FieldName = 'SumElseNum'
      Origin = 'JL2000."SulfCardAllName.DB".ElseNum'
    end
    object Queryindexqcpersumshl: TFloatField
      Alignment = taCenter
      DisplayLabel = '损耗率%'
      FieldName = 'sumshl'
      Origin = 'JL2000."SulfCardAllName.DB".Shl'
      Precision = 5
    end
  end
  object DataSource5: TDataSource
    DataSet = Queryindexqcper
    Left = 23
    Top = 214
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    Left = 629
    Top = 277
  end
  object Query3: TQuery
    DatabaseName = 'JL2000'
    Left = 461
    Top = 253
  end
end