unit_modeman.dfm

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

              Top = 3
              Width = 73
              Height = 17
              Caption = '使用字典'
              Checked = True
              State = cbChecked
              TabOrder = 0
            end
          end
        end
      end
      object DBGrid1: TDBGrid
        Left = 5
        Top = 84
        Width = 765
        Height = 299
        DataSource = DataSource1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Name'
            Title.Alignment = taCenter
            Title.Caption = '姓 名'
            Width = 61
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TDate'
            Title.Alignment = taCenter
            Title.Caption = '日  期'
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TMonth'
            Title.Alignment = taCenter
            Title.Caption = '月份'
            Width = 45
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Prodname'
            Title.Alignment = taCenter
            Title.Caption = '产品名称'
            Width = 108
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Figid'
            Title.Alignment = taCenter
            Title.Caption = '图  号'
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ElseNum'
            Title.Alignment = taCenter
            Title.Caption = '领坯数/只'
            Width = 57
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'QcNum'
            Title.Alignment = taCenter
            Title.Caption = '合格品/只'
            Width = 56
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Wasternum'
            Title.Alignment = taCenter
            Title.Caption = '废品数/只'
            Width = 57
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Qcper'
            Title.Alignment = taCenter
            Title.Caption = '合格率%'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LackNum'
            Title.Alignment = taCenter
            Title.Caption = '修废数/只'
            Width = 57
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ImpuNum'
            Title.Alignment = taCenter
            Title.Caption = '硫废数/只'
            Width = 57
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Wastermoney'
            Title.Alignment = taCenter
            Title.Caption = '金额损失/元'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'WasterPer'
            Title.Alignment = taCenter
            Title.Caption = '胶料损失/克'
            Visible = True
          end>
      end
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 0
    Width = 779
    Height = 33
    Align = alTop
    BevelInner = bvLowered
    Caption = '整修车间个人整修质量统计'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -20
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  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 from modeAllNa' +
        'me'
      'group by name')
    Left = 196
    Top = 212
    object Queryindexqcpername: TStringField
      FieldName = 'name'
      Origin = 'JL2000."modeAllName.DB".Name'
      Size = 8
    end
    object QueryindexqcperSumQcNum: TFloatField
      FieldName = 'SumQcNum'
      Origin = 'JL2000."modeAllName.DB".QcNum'
    end
    object Queryindexqcpersumwasternum: TFloatField
      FieldName = 'sumwasternum'
      Origin = 'JL2000."modeAllName.DB".Wasternum'
    end
    object Queryindexqcpersumper: TFloatField
      FieldName = 'sumper'
      Origin = 'JL2000."modeAllName.DB".WasterPer'
    end
    object Queryindexqcpersumwmoney: TFloatField
      FieldName = 'sumwmoney'
      Origin = 'JL2000."modeAllName.DB".Wastermoney'
    end
    object Queryindexqcperavgqcper: TFloatField
      FieldName = 'avgqcper'
      Origin = 'JL2000."modeAllName.DB".Qcper'
    end
    object QueryindexqcperSumLackNum: TFloatField
      FieldName = 'SumLackNum'
      Origin = 'JL2000."modeAllName.DB".LackNum'
    end
    object QueryindexqcperSumImpuNum: TFloatField
      FieldName = 'SumImpuNum'
      Origin = 'JL2000."modeAllName.DB".ImpuNum'
    end
    object QueryindexqcperSumElseNum: TFloatField
      FieldName = 'SumElseNum'
      Origin = 'JL2000."modeAllName.DB".ElseNum'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 542
    Top = 253
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 540
    Top = 220
  end
  object DataSource3: TDataSource
    DataSet = QueryAllName
    Left = 158
    Top = 293
  end
  object DataSource4: TDataSource
    DataSet = TableAllName
    Left = 158
    Top = 253
  end
  object DataSource5: TDataSource
    DataSet = Queryindexqcper
    Left = 158
    Top = 213
  end
  object Table1: TTable
    DatabaseName = 'JL2000'
    TableName = 'modeName.DB'
    Left = 505
    Top = 254
    object Table1Name: TStringField
      FieldName = 'Name'
      Size = 8
    end
    object Table1TDate: TDateField
      FieldName = 'TDate'
    end
    object Table1Prodname: TStringField
      DisplayWidth = 18
      FieldName = 'Prodname'
      Size = 18
    end
    object Table1Figid: TStringField
      FieldName = 'Figid'
      Size = 25
    end
    object Table1QcNum: TIntegerField
      FieldName = 'QcNum'
    end
    object Table1Qcper: TFloatField
      FieldName = 'Qcper'
    end
    object Table1Wasternum: TIntegerField
      FieldName = 'Wasternum'
    end
    object Table1Wastermoney: TFloatField
      FieldName = 'Wastermoney'
    end
    object Table1WasterPer: TFloatField
      FieldName = 'WasterPer'
    end
    object Table1LackNum: TSmallintField
      FieldName = 'LackNum'
    end
    object Table1ImpuNum: TSmallintField
      FieldName = 'ImpuNum'
    end
    object Table1PoleNum: TSmallintField
      FieldName = 'PoleNum'
    end
    object Table1RipNum: TSmallintField
      FieldName = 'RipNum'
    end
    object Table1ElseNum: TSmallintField
      FieldName = 'ElseNum'
    end
    object Table1TMonth: TStringField
      FieldName = 'TMonth'
      Size = 8
    end
  end
  object TableAllName: TTable
    DatabaseName = 'JL2000'
    TableName = 'modeAllName.db'
    Left = 196
    Top = 260
    object TableAllNameName: TStringField
      FieldName = 'Name'
      Size = 8
    end
    object TableAllNameQcNum: TIntegerField
      FieldName = 'QcNum'
    end
    object TableAllNameQcper: TFloatField
      FieldName = 'Qcper'
    end
    object TableAllNameWasternum: TIntegerField
      FieldName = 'Wasternum'
    end
    object TableAllNameWastermoney: TFloatField
      FieldName = 'Wastermoney'
    end
    object TableAllNameWasterPer: TFloatField
      FieldName = 'WasterPer'
    end
    object TableAllNameLackNum: TSmallintField
      FieldName = 'LackNum'
    end
    object TableAllNameImpuNum: TSmallintField
      FieldName = 'ImpuNum'
    end
    object TableAllNamePoleNum: TSmallintField
      FieldName = 'PoleNum'
    end
    object TableAllNameRipNum: TSmallintField
      FieldName = 'RipNum'
    end
    object TableAllNameElseNum: TSmallintField
      FieldName = 'ElseNum'
    end
  end
  object QueryAllName: TQuery
    DatabaseName = 'JL2000'
    Left = 196
    Top = 300
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    Left = 508
    Top = 292
  end
  object Query2: TQuery
    DatabaseName = 'JL2000'
    Left = 500
    Top = 220
  end
  object Query3: TQuery
    DatabaseName = 'JL2000'
    Left = 396
    Top = 300
  end
end