unit_modechan.~dfm

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

object Form_modechan: TForm_modechan
  Left = 15
  Top = 75
  Width = 779
  Height = 483
  Caption = 'Form_modechan'
  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 Panel5: TPanel
    Left = 0
    Top = 0
    Width = 771
    Height = 28
    Align = alTop
    BevelInner = bvLowered
    Caption = '整修车间产品质量统计'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 31
    Width = 769
    Height = 422
    ActivePage = TabSheet1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = '全部产品整修质量'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      OnExit = TabSheet1Exit
      object Bevel1: TBevel
        Left = 12
        Top = 78
        Width = 127
        Height = 269
        Shape = bsFrame
      end
      object DBGrid1: TDBGrid
        Left = 160
        Top = 0
        Width = 600
        Height = 382
        DataSource = DataSource1
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -15
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Prodname'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FigID'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 101
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Elsenum'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'QcNum'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Wasternum'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Qcper'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'WasterPer'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Wastermoney'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Lacknum'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Impunum'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end>
      end
      object DateTimePicker1: TDateTimePicker
        Left = 51
        Top = 25
        Width = 96
        Height = 21
        CalAlignment = dtaLeft
        Date = 37565.9721481481
        Time = 37565.9721481481
        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 = 1
      end
      object DateTimePicker2: TDateTimePicker
        Left = 51
        Top = 51
        Width = 96
        Height = 21
        CalAlignment = dtaLeft
        Date = 37565.9722091435
        Time = 37565.9722091435
        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 = 2
      end
      object Panel1: TPanel
        Left = 4
        Top = 24
        Width = 47
        Height = 25
        Caption = '日期从'
        TabOrder = 3
      end
      object Panel2: TPanel
        Left = 4
        Top = 50
        Width = 47
        Height = 25
        Caption = '日期到'
        TabOrder = 4
      end
      object BitBtn2: TBitBtn
        Left = 22
        Top = 288
        Width = 107
        Height = 25
        Caption = '返回'
        TabOrder = 5
        Kind = bkClose
      end
      object Button1: TButton
        Left = 20
        Top = 104
        Width = 109
        Height = 25
        Caption = '查  询'
        TabOrder = 6
        OnClick = Button1Click
      end
      object bbpint: TBitBtn
        Left = 22
        Top = 140
        Width = 106
        Height = 25
        Caption = '打印数据'
        TabOrder = 7
        OnClick = bbpintClick
        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 bbprior: TBitBtn
        Left = 21
        Top = 211
        Width = 109
        Height = 28
        Caption = '上一条'
        TabOrder = 8
        OnClick = bbpriorClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
          3333333333777F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
          3333333777737777F333333099999990333333373F3333373333333309999903
          333333337F33337F33333333099999033333333373F333733333333330999033
          3333333337F337F3333333333099903333333333373F37333333333333090333
          33333333337F7F33333333333309033333333333337373333333333333303333
          333333333337F333333333333330333333333333333733333333}
        NumGlyphs = 2
      end
      object bbnext: TBitBtn
        Left = 20
        Top = 250
        Width = 109
        Height = 28
        Caption = '下一条'
        TabOrder = 9
        OnClick = bbnextClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
          333333333337F33333333333333033333333333333373F333333333333090333
          33333333337F7F33333333333309033333333333337373F33333333330999033
          3333333337F337F33333333330999033333333333733373F3333333309999903
          333333337F33337F33333333099999033333333373333373F333333099999990
          33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333300033333333333337773333333}
        NumGlyphs = 2
      end
      object BitBtn1: TBitBtn
        Left = 22
        Top = 175
        Width = 106
        Height = 26
        Caption = '图表显示'
        TabOrder = 10
        OnClick = BitBtn1Click