unit_rubb_qryproccard.~dfm

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

      Caption = '按日期查询'
      ImageIndex = 2
      object DateTimePicker_from: TDateTimePicker
        Left = 84
        Top = 28
        Width = 100
        Height = 22
        CalAlignment = dtaLeft
        Date = 36879.7161508102
        Time = 36879.7161508102
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object DateTimePicker_to: TDateTimePicker
        Left = 84
        Top = 56
        Width = 100
        Height = 22
        CalAlignment = dtaLeft
        Date = 36879.716169213
        Time = 36879.716169213
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
      object BitBtn1: TBitBtn
        Left = 221
        Top = 14
        Width = 92
        Height = 25
        Caption = '开始查询'
        TabOrder = 2
        OnClick = BitBtn1Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object Panel2: TPanel
        Left = 31
        Top = 2
        Width = 152
        Height = 22
        Caption = '请输入查询起止日期'
        TabOrder = 3
      end
      object Panel3: TPanel
        Left = 32
        Top = 54
        Width = 46
        Height = 22
        Caption = '到'
        TabOrder = 4
      end
      object Panel4: TPanel
        Left = 32
        Top = 28
        Width = 46
        Height = 22
        Caption = '从'
        TabOrder = 5
      end
      object BitBtn4: TBitBtn
        Left = 222
        Top = 50
        Width = 91
        Height = 25
        Caption = '删除'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = BitBtn4Click
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
          FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
          FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF000000FF000000FF000000FF00FF00FF00FF00FF000000
          FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF000000FF000000FF000000FF000000FF000000
          FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF000000FF000000
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF000000FF000000
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF000000FF000000FF000000FF000000FF000000
          FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF000000FF000000FF000000FF00FF00FF00FF00FF000000
          FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
          FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
          FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      end
    end
    object TabSheet4: TTabSheet
      Caption = '其它方式查询'
      ImageIndex = 3
      object RadioGroup1: TRadioGroup
        Left = 8
        Top = 8
        Width = 108
        Height = 89
        Caption = '查找方式'
        ItemIndex = 0
        Items.Strings = (
          '按配方编号'
          '按货源号'
          '按生产批号')
        TabOrder = 0
        OnClick = RadioGroup1Click
      end
      object Edit_IgdCode: TEdit
        Left = 120
        Top = 22
        Width = 105
        Height = 22
        TabOrder = 1
      end
      object Edit_Source: TEdit
        Left = 120
        Top = 46
        Width = 105
        Height = 22
        Color = clBtnFace
        Enabled = False
        TabOrder = 2
      end
      object Edit_Bat: TEdit
        Left = 120
        Top = 70
        Width = 105
        Height = 22
        Color = clBtnFace
        Enabled = False
        TabOrder = 3
      end
      object BitBtn5: TBitBtn
        Left = 237
        Top = 20
        Width = 92
        Height = 25
        Caption = '开始查询'
        TabOrder = 4
        OnClick = BitBtn5Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
    end
  end
  object Panel5: TPanel
    Left = 25
    Top = 0
    Width = 584
    Height = 29
    Caption = '宁 波 市 巨 龙 橡 塑 有 限 公 司'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object BitBtn3: TBitBtn
    Left = 408
    Top = 409
    Width = 106
    Height = 25
    Caption = '返回'
    TabOrder = 5
    Kind = bkClose
  end
  object Qry_QryProcCard: TQuery
    AfterScroll = Qry_QryProcCardAfterScroll
    DatabaseName = 'JL2000'
    SQL.Strings = (
      
        'SELECT 标识号, 配方编号, 编号, 货源号, 生产批号, 混炼日期, 混炼' +
        '温度, 室温, 混炼时间, 车数, 混炼用料量, 制成品名称, 合格率, 混炼' +
        '人, 混炼检验员, 混炼检验结论, 配料日期, 配料人, 配料用料量, 配料' +
        '检验员, 配料检验结论, 剪料日期, 剪料用料量, 剪料人, 剪料检验员, ' +
        '剪料检验结论, 单价'
      'FROM "炼胶工艺卡.DB" 炼胶工艺卡')
    Left = 231
    Top = 143
  end
  object DS_QryProcCard: TDataSource
    DataSet = Qry_QryProcCard
    Left = 207
    Top = 143
  end
  object Qry_Exe: TQuery
    DatabaseName = 'JL2000'
    Left = 328
    Top = 200
  end
  object Query3: TQuery
    DatabaseName = 'JL2000'
    Left = 136
    Top = 184
  end
  object Query2: TQuery
    DatabaseName = 'JL2000'
    Left = 200
    Top = 224
  end
  object Table1: TTable
    DatabaseName = 'JL2000'
    TableName = '炼胶工艺卡.DB'
    Left = 384
    Top = 176
  end
end