unit_mater_qry.dfm

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

object Form_Mater_Qry: TForm_Mater_Qry
  Left = 71
  Top = 28
  Width = 694
  Height = 548
  Caption = '宁波市巨龙橡塑有限公司 原材料仓库管理系统'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object DBGrid1: TDBGrid
    Left = 21
    Top = 134
    Width = 642
    Height = 371
    DataSource = DS_Qry
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ImeName = '全拼输入法'
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '标识号'
        Title.Alignment = taCenter
        Width = 51
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '日期'
        Title.Alignment = taCenter
        Width = 69
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '材料名称'
        Title.Alignment = taCenter
        Width = 97
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '入库数量'
        Title.Alignment = taCenter
        Width = 65
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '出库数量'
        Title.Alignment = taCenter
        Width = 58
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '库存'
        Title.Alignment = taCenter
        Width = 65
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '单价'
        Title.Alignment = taCenter
        Width = 52
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '入库单号'
        Title.Alignment = taCenter
        Width = 57
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '采购员'
        Title.Alignment = taCenter
        Width = 46
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '领料人'
        Title.Alignment = taCenter
        Width = 40
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '检验员'
        Title.Alignment = taCenter
        Width = 46
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '进货地点'
        Title.Alignment = taCenter
        Width = 73
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '生产厂家'
        Title.Alignment = taCenter
        Width = 85
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '领料单号'
        Title.Alignment = taCenter
        Width = 52
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '出库货源号'
        Title.Alignment = taCenter
        Width = 65
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '使用部门'
        Width = 69
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '剩余库存'
        Width = 65
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '最后领料标识'
        Width = 43
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '领料标识'
        Width = 51
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '出入标识'
        Width = 50
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '备注'
        Visible = True
      end>
  end
  object PageControl_Qry: TPageControl
    Left = 22
    Top = 30
    Width = 443
    Height = 104
    ActivePage = TabSheet2
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = '按时间段查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      object DateTimePicker_From0: TDateTimePicker
        Left = 129
        Top = 16
        Width = 105
        Height = 22
        CalAlignment = dtaLeft
        Date = 36889.5635018519
        Time = 36889.5635018519
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object DateTimePicker_To0: TDateTimePicker
        Left = 129
        Top = 38
        Width = 105
        Height = 22
        CalAlignment = dtaLeft
        Date = 36889.5635018519
        Time = 36889.5635018519
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
      object Panel1: TPanel
        Left = 105
        Top = 16
        Width = 25
        Height = 22
        Caption = '从'
        TabOrder = 2
      end
      object Panel2: TPanel
        Left = 105
        Top = 38
        Width = 24
        Height = 22
        Caption = '到'
        TabOrder = 3
      end
      object BitBtn1: TBitBtn
        Left = 284
        Top = 6
        Width = 86
        Height = 27
        Caption = '开始查询'
        Default = True
        TabOrder = 4
        OnClick = BitBtn1Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object Button2: TButton
        Left = 285
        Top = 39
        Width = 86
        Height = 29
        Caption = '返回'
        TabOrder = 5
        OnClick = Button2Click
      end
      object Panel13: TPanel
        Left = 24
        Top = 15
        Width = 62
        Height = 22
        Caption = '库 号'
        TabOrder = 6
      end
      object Edit1: TEdit
        Left = 24
        Top = 37
        Width = 61
        Height = 22
        Anchors = [akTop, akRight]
        TabOrder = 7
        Text = 'Edit1'
        OnClick = Edit1Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = '按名称查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      object Edit_Mater0: TEdit
        Left = 88
        Top = 50
        Width = 73
        Height = 22
        TabOrder = 2
        OnChange = Edit_Mater0Change
        OnExit = Edit_Mater0Exit
      end
      object Panel3: TPanel
        Left = 23
        Top = 50
        Width = 65
        Height = 22
        Caption = '材料简称'
        TabOrder = 3
      end
      object DateTimePicker_From1: TDateTimePicker
        Left = 48
        Top = 2
        Width = 113
        Height = 22
        CalAlignment = dtaLeft
        Date = 36889.5635018519
        Time = 36889.5635018519
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object DateTimePicker_To1: TDateTimePicker
        Left = 48
        Top = 24
        Width = 113
        Height = 22
        CalAlignment = dtaLeft
        Date = 36889.5635018519
        Time = 36889.5635018519
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False