unit_mater_qry.~dfm

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

      object Panel8: TPanel
        Left = 24
        Top = 24
        Width = 24
        Height = 22
        Caption = '到'
        TabOrder = 5
      end
      object BitBtn3: TBitBtn
        Left = 287
        Top = 6
        Width = 85
        Height = 27
        Caption = '开始查询'
        Default = True
        TabOrder = 6
        OnClick = BitBtn3Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object BitBtn8: TBitBtn
        Left = 288
        Top = 41
        Width = 84
        Height = 27
        Caption = '返回'
        TabOrder = 7
        Kind = bkClose
      end
    end
    object TabSheet3: TTabSheet
      Caption = '按名称和领料单号'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      object Panel4: TPanel
        Left = 8
        Top = 48
        Width = 60
        Height = 22
        Caption = '领料单号'
        TabOrder = 3
      end
      object Panel5: TPanel
        Left = 8
        Top = 26
        Width = 60
        Height = 22
        Caption = '材料名称'
        TabOrder = 4
      end
      object Edit_mater1: TEdit
        Left = 68
        Top = 26
        Width = 113
        Height = 22
        TabOrder = 1
        OnChange = Edit_mater1Change
      end
      object ComboBox_OutCardNum: TComboBox
        Left = 68
        Top = 48
        Width = 113
        Height = 22
        Style = csDropDownList
        ItemHeight = 14
        TabOrder = 2
      end
      object Panel6: TPanel
        Left = 8
        Top = 4
        Width = 60
        Height = 22
        Caption = '输入简称'
        TabOrder = 5
      end
      object Edit_Index1: TEdit
        Left = 68
        Top = 4
        Width = 113
        Height = 22
        TabOrder = 0
        OnChange = Edit_Index1Change
      end
      object BitBtn5: TBitBtn
        Left = 286
        Top = 6
        Width = 86
        Height = 29
        Caption = '开始查询'
        Default = True
        TabOrder = 6
        OnClick = BitBtn5Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object BitBtn2: TBitBtn
        Left = 288
        Top = 42
        Width = 87
        Height = 27
        Caption = '返回'
        TabOrder = 7
        Kind = bkClose
      end
    end
    object TabSheet4: TTabSheet
      Caption = '按名称和入库单号'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ImageIndex = 3
      ParentFont = False
      object BitBtn6: TBitBtn
        Left = 288
        Top = 6
        Width = 86
        Height = 28
        Caption = '开始查询'
        Default = True
        TabOrder = 0
        OnClick = BitBtn6Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object Panel9: TPanel
        Left = 8
        Top = 4
        Width = 60
        Height = 22
        Caption = '输入简称'
        TabOrder = 1
      end
      object Panel11: TPanel
        Left = 8
        Top = 26
        Width = 60
        Height = 22
        Caption = '材料名称'
        TabOrder = 2
      end
      object Panel12: TPanel
        Left = 8
        Top = 48
        Width = 60
        Height = 22
        Caption = '入库单号'
        TabOrder = 3
      end
      object Edit_mater2: TEdit
        Left = 67
        Top = 27
        Width = 114
        Height = 22
        TabOrder = 4
        OnChange = Edit_mater2Change
      end
      object Edit_index2: TEdit
        Left = 68
        Top = 4
        Width = 113
        Height = 22
        TabOrder = 5
        OnChange = Edit_index2Change
      end
      object BitBtn9: TBitBtn
        Left = 288
        Top = 42
        Width = 87
        Height = 28
        Caption = '返回'
        TabOrder = 6
        Kind = bkClose
      end
      object ComboBox_InCardNum: TComboBox
        Left = 67
        Top = 48
        Width = 114
        Height = 22
        ItemHeight = 14
        TabOrder = 7
      end
    end
  end
  object Panel10: TPanel
    Left = 23
    Top = 0
    Width = 640
    Height = 30
    Caption = '宁波市巨龙橡塑有限公司    材料仓库台帐查询系统'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object BitBtn4: TBitBtn
    Left = 520
    Top = 97
    Width = 97
    Height = 25
    Caption = '察看单据'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn4Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
      300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
      330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
      333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
      339977FF777777773377000BFB03333333337773FF733333333F333000333333
      3300333777333333337733333333333333003333333333333377333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
  end
  object Button1: TButton
    Left = 480
    Top = 40
    Width = 25
    Height = 17
    Cancel = True
    Caption = 'Button1'
    TabOrder = 4
    OnClick = Button1Click
  end
  object BitBtn7: TBitBtn
    Left = 519
    Top = 61
    Width = 97
    Height = 25
    Caption = '删除'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = BitBtn7Click
    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
  object Qry_Qry: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      
        'SELECT 标识号, 日期, 出入标识, 材料名称, 入库单号, 生产厂家, 进' +
        '货地点, 入库数量, 单价, 采购员, 检验员, 剩余库存, 最后领料标识, ' +
        '领料单号, 出库货源号, 使用部门, 领料人, 出库数量, 备注, 领料标识' +
        ', 库存'
      'FROM "原材料台帐.DB" 原材料台帐')
    Left = 342
    Top = 302
  end
  object DS_Qry: TDataSource
    DataSet = Qry_Qry
    Left = 318
    Top = 286
  end
  object Qry_exe: TQuery
    DatabaseName = 'JL2000'
    Left = 342
    Top = 350
  end
end