unitsulfmoju.~dfm

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

        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        Kind = dtkDate
        ParseInput = False
        ParentFont = False
        TabOrder = 4
        OnChange = DateTimePicker3Change
      end
      object DateTimePicker4: TDateTimePicker
        Left = 146
        Top = 33
        Width = 98
        Height = 21
        CalAlignment = dtaLeft
        Date = 37584.8237983796
        Time = 37584.8237983796
        DateFormat = dfShort
        DateMode = dmComboBox
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        Kind = dtkDate
        ParseInput = False
        ParentFont = False
        TabOrder = 5
      end
      object Panel4: TPanel
        Left = 74
        Top = 5
        Width = 72
        Height = 22
        Caption = '起始日期'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
      end
      object Panel5: TPanel
        Left = 74
        Top = 33
        Width = 72
        Height = 22
        Caption = '截止日期'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
      end
      object Panel6: TPanel
        Left = 271
        Top = 8
        Width = 73
        Height = 21
        Caption = '模具编号：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
      end
      object BitBtn2: TBitBtn
        Left = 523
        Top = 32
        Width = 89
        Height = 25
        Caption = '图表显示'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        OnClick = BitBtn2Click
        Glyph.Data = {
          F6040000424DF604000000000000360000002800000015000000130000000100
          180000000000C0040000C40E0000C40E00000000000000000000FFFFFFFFFFFF
          FFFFFF7F7F7FFFFFFF7F7F7FFFFFFF7F7F7FFFFFFF7F7F7FFFFFFF7F7F7FFFFF
          FF7F7F7FFFFFFF7F7F7FFFFFFF7F7F7FFFFFFF7F7F7FFFFFFF00FFFFFFFFFFFF
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000FFFFFF00FFFFFF7F7F7F
          000000FFFFFF0000FF0000FFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
          FFFFFF00FFFF00FFFFFF00007F00007FFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
          000000FFFFFF0000FF0000FFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
          FFFFFF00FFFF00FFFFFF00007F00007FFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
          000000FFFFFF0000FF0000FFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
          FFFFFF00FFFF00FFFFFF00007F00007FFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
          000000FFFFFF0000FF0000FFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
          FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
          000000FFFFFF0000FF0000FFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
          FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
          000000FFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
          FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
          000000FFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
          FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
          000000FFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
          FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
          000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00007F00FFFF
          FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
          000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00007F00FFFF
          FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
          000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00007F00FFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
          000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00007F00FFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
          000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
          000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
          000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
          000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00}
      end
      object BitBtn3: TBitBtn
        Left = 522
        Top = 5
        Width = 90
        Height = 25
        Caption = '打印数据'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        OnClick = BitBtn3Click
        Glyph.Data = {
          D6050000424DD605000000000000360000002800000017000000140000000100
          180000000000A0050000C40E0000C40E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BF00000000000000000000000000000000000000000000000000000000000000
          0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
          BFBFBFBFBFBF000000C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7
          C0C0C7C0000000C0C7C0000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          0000BFBFBFBFBFBFBFBFBF000000000000000000000000000000000000000000
          000000000000000000000000000000000000C0C7C0000000BFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF000000C0C7C0C0C7C0C0C7C0C0
          C7C0C0C7C0C0C7C000FFFF00FFFF00FFFFC0C7C0C0C7C0000000000000000000
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF000000C0C7
          C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0808780808780808780C0C7C0C0C7C000
          0000C0C7C0000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
          BFBFBF0000000000000000000000000000000000000000000000000000000000
          00000000000000000000C0C7C0C0C7C0000000BFBFBFBFBFBFBFBFBFBFBFBF00
          0000BFBFBFBFBFBFBFBFBF000000C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0
          C0C7C0C0C7C0C0C7C0C0C7C0000000C0C7C0000000C0C7C0000000BFBFBFBFBF
          BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000
          0000000000000000000000000000000000000000C0C7C0000000C0C7C0000000
          000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0
          C7C0000000C0C7C0000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFF0000000000000000000000000000
          00FFFFFF000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          0000FFFFFF000000000000000000000000000000FFFFFF000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000000000000000000000000000
          00000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000}
      end
    end
  end
  object Panel1: TPanel
    Left = 204
    Top = 0
    Width = 273
    Height = 30
    Caption = '模 具 质 量 统 计 表'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -21
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object Table1: TTable
    DatabaseName = 'JL2000'
    TableName = 'sulfmoju.DB'
    Left = 128
    Top = 240
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      
        ' select mjbh,sum(hgs)as hgs,sum(zje)as zje,sum(fps)as fps,sum(ms' +
        ')as ms,sum(fb)as fb,avg(hgl)as hgl,avg(jsl)as jsl,avg(jfb)as jfb' +
        ',avg(je)as je from Sulfmoju group by mjbh')
    Left = 112
    Top = 200
    object Query1mjbh: TStringField
      Alignment = taCenter
      FieldName = 'mjbh'
      Origin = 'JL2000."sulfmoju.DB".Mjbh'
      Size = 12
    end
    object Query1hgs: TFloatField
      FieldName = 'hgs'
      Origin = 'JL2000."Sulfmoju.DB".Hgs'
    end
    object Query1zje: TFloatField
      FieldName = 'zje'
      Origin = 'JL2000."Sulfmoju.DB".Zje'
    end
    object Query1fps: TFloatField
      FieldName = 'fps'
      Origin = 'JL2000."Sulfmoju.DB".Fps'
    end
    object Query1ms: TFloatField
      FieldName = 'ms'
      Origin = 'JL2000."Sulfmoju.DB".Ms'
    end
    object Query1fb: TFloatField
      FieldName = 'fb'
      Origin = 'JL2000."Sulfmoju.DB".Fb'
    end
    object Query1hgl: TFloatField
      FieldName = 'hgl'
      Origin = 'JL2000."Sulfmoju.DB".Hgl'
      Precision = 6
    end
    object Query1jsl: TFloatField
      FieldName = 'jsl'
      Origin = 'JL2000."Sulfmoju.DB".Jsl'
      Precision = 6
    end
    object Query1jfb: TFloatField
      FieldName = 'jfb'
      Origin = 'JL2000."Sulfmoju.DB".Jfb'
      Precision = 6
    end
    object Query1je: TFloatField
      FieldName = 'je'
      Origin = 'JL2000."Sulfmoju.DB".Je'
      Precision = 6
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 96
    Top = 240
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 447
    Top = 221
  end
  object Query2: TQuery
    DatabaseName = 'JL2000'
    Left = 391
    Top = 277
  end
  object Query3: TQuery
    DatabaseName = 'JL2000'
    Left = 199
    Top = 229
  end
  object Table2: TTable
    DatabaseName = 'JL2000'
    TableName = 'sulfmojuper.DB'
    Left = 415
    Top = 221
    object Table2Riqi: TDateField
      FieldName = 'Riqi'
    end
    object Table2Ms: TIntegerField
      FieldName = 'Ms'
    end
    object Table2Hgl: TFloatField
      FieldName = 'Hgl'
      Precision = 6
    end
    object Table2Fb: TFloatField
      FieldName = 'Fb'
    end
    object Table2Jsl: TFloatField
      FieldName = 'Jsl'
      Precision = 6
    end
    object Table2Hgs: TIntegerField
      FieldName = 'Hgs'
    end
    object Table2Fps: TIntegerField
      FieldName = 'Fps'
    end
    object Table2Jfb: TFloatField
      FieldName = 'Jfb'
      Precision = 6
    end
    object Table2Je: TFloatField
      FieldName = 'Je'
      Precision = 6
    end
    object Table2Zje: TFloatField
      FieldName = 'Zje'
      Precision = 6
    end
    object Table2Name: TStringField
      FieldName = 'Name'
      Size = 8
    end
  end
end