unit_modeman.dfm

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

object Form_modeman: TForm_modeman
  Left = 6
  Top = 88
  Width = 787
  Height = 483
  Caption = 'Form_modeman'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 33
    Width = 779
    Height = 423
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '全体人员整修技术统计'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      OnExit = TabSheet1Exit
      object GroupBox2: TGroupBox
        Left = 2
        Top = 9
        Width = 158
        Height = 357
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object DateTimePicker3: TDateTimePicker
          Left = 62
          Top = 16
          Width = 89
          Height = 20
          CalAlignment = dtaLeft
          Date = 37007.3930128472
          Time = 37007.3930128472
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 0
        end
        object DateTimePicker4: TDateTimePicker
          Left = 62
          Top = 48
          Width = 89
          Height = 20
          CalAlignment = dtaLeft
          Date = 37007.3930236111
          Time = 37007.3930236111
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 1
        end
        object Panel9: TPanel
          Left = 8
          Top = 16
          Width = 54
          Height = 21
          Caption = '开始日期'
          TabOrder = 2
        end
        object Panel10: TPanel
          Left = 7
          Top = 48
          Width = 54
          Height = 21
          Caption = '结束日期'
          TabOrder = 3
        end
        object bbSerchAllName: TBitBtn
          Left = 7
          Top = 79
          Width = 144
          Height = 34
          Caption = '查询'
          TabOrder = 4
          OnClick = bbSerchAllNameClick
          Kind = bkOK
        end
        object bballprint: TBitBtn
          Left = 7
          Top = 119
          Width = 144
          Height = 34
          Caption = '打印数据'
          TabOrder = 5
          OnClick = bballprintClick
          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
        object bballchart: TBitBtn
          Left = 7
          Top = 161
          Width = 144
          Height = 34
          Caption = '图表显示'
          TabOrder = 6
          OnClick = bballchartClick
          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 BitBtn4: TBitBtn
          Left = 6
          Top = 203
          Width = 144
          Height = 34
          Caption = '上一条'
          TabOrder = 7
          OnClick = BitBtn4Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
            3333333333777F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
            3333333777737777F333333099999990333333373F3333373333333309999903
            333333337F33337F33333333099999033333333373F333733333333330999033
            3333333337F337F3333333333099903333333333373F37333333333333090333
            33333333337F7F33333333333309033333333333337373333333333333303333
            333333333337F333333333333330333333333333333733333333}
          NumGlyphs = 2
        end
        object BitBtn5: TBitBtn
          Left = 6
          Top = 246
          Width = 144
          Height = 34
          Caption = '下一条'
          TabOrder = 8
          OnClick = BitBtn5Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
            333333333337F33333333333333033333333333333373F333333333333090333
            33333333337F7F33333333333309033333333333337373F33333333330999033
            3333333337F337F33333333330999033333333333733373F3333333309999903
            333333337F33337F33333333099999033333333373333373F333333099999990
            33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333300033333333333337773333333}
          NumGlyphs = 2
        end
        object BitBtn6: TBitBtn
          Left = 6
          Top = 291
          Width = 144
          Height = 34
          Cancel = True
          Caption = '关闭'
          TabOrder = 9
          OnClick = BitBtn6Click
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
            F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
            000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
            338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
            45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
            3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
            F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
            000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
            338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
            4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
            8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
            333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
            0000}
          NumGlyphs = 2
        end
      end
      object DBGrid2: TDBGrid
        Left = 164
        Top = 16
        Width = 608
        Height = 348
        DataSource = DataSource5
        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 = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SumElseNum'
            Title.Alignment = taCenter
            Title.Caption = '领坯数/只'
            Width = 59
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SumQcNum'
            Title.Alignment = taCenter
            Title.Caption = '合格品/只'
            Width = 58
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sumwasternum'
            Title.Alignment = taCenter
            Title.Caption = '废品数/只'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'avgqcper'
            Title.Alignment = taCenter
            Title.Caption = '合格率%'
            Width = 55
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sumper'