unit_mater_main.dfm

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

        Left = 162
        Top = 0
        Hint = '查询仓库'
        Caption = 'ToolButton4'
        ImageIndex = 8
        ParentShowHint = False
        ShowHint = True
        OnClick = N_StockViewClick
      end
      object ToolButton8: TToolButton
        Left = 185
        Top = 0
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object ToolButton7: TToolButton
        Left = 193
        Top = 0
        Hint = ' 结帐'
        Caption = 'ToolButton7'
        ImageIndex = 7
        ParentShowHint = False
        ShowHint = True
        OnClick = N_SumClick
      end
      object ToolButton_Exit: TToolButton
        Left = 216
        Top = 0
        Hint = '退出'
        Caption = 'ToolButton_Exit'
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = N_ExitClick
      end
      object ToolButton6: TToolButton
        Left = 239
        Top = 0
        Hint = '打印台帐'
        Caption = 'ToolButton6'
        ImageIndex = 9
        ParentShowHint = False
        ShowHint = True
      end
    end
    object Panel1: TPanel
      Left = 9
      Top = 26
      Width = 687
      Height = 26
      AutoSize = True
      BevelInner = bvLowered
      TabOrder = 0
      object Edit_index: TEdit
        Left = 60
        Top = 2
        Width = 71
        Height = 22
        CharCase = ecLowerCase
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnChange = Edit_indexChange
        OnEnter = Edit_indexEnter
        OnExit = Edit_indexExit
      end
      object BitBtn_Show: TBitBtn
        Left = 609
        Top = 2
        Width = 76
        Height = 22
        Cursor = crHandPoint
        Caption = '调出'
        TabOrder = 4
        OnClick = BitBtn_ShowClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
          0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
          00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
          00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
          F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
          F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
          FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
          0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
          00337777FFFF77FF7733EEEE0000000003337777777777777333}
        NumGlyphs = 2
      end
      object Edit_mater: TEdit
        Left = 198
        Top = 2
        Width = 119
        Height = 22
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnChange = Edit_materChange
        OnEnter = Edit_indexEnter
        OnExit = Edit_indexExit
      end
      object Panel2: TPanel
        Left = 2
        Top = 2
        Width = 57
        Height = 22
        Caption = '简称'
        TabOrder = 5
      end
      object Panel3: TPanel
        Left = 133
        Top = 2
        Width = 64
        Height = 22
        Caption = '材料名称'
        TabOrder = 6
      end
      object ComboBox_Indate: TComboBox
        Left = 381
        Top = 2
        Width = 112
        Height = 22
        Style = csDropDownList
        ItemHeight = 14
        TabOrder = 2
        OnChange = ComboBox_IndateChange
      end
      object Panel5: TPanel
        Left = 319
        Top = 2
        Width = 61
        Height = 22
        Caption = '入库日期'
        TabOrder = 7
      end
      object ComboBox_Per: TComboBox
        Left = 531
        Top = 2
        Width = 73
        Height = 22
        Style = csDropDownList
        ItemHeight = 14
        TabOrder = 3
      end
      object Panel4: TPanel
        Left = 494
        Top = 2
        Width = 38
        Height = 22
        Caption = '单价'
        TabOrder = 8
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 374
    Width = 632
    Height = 19
    Panels = <
      item
        Width = 170
      end
      item
        Width = 70
      end>
    SimplePanel = False
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 64
    Width = 609
    Height = 241
    DataSource = DS_Main
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '标识号'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '日期'
        Title.Alignment = taCenter
        Width = 63
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '出入标识'
        Title.Alignment = taCenter
        Visible = False
      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 = 60
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '生产厂家'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '入库数量'
        Title.Alignment = taCenter
        Width = 74
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '单价'
        Title.Alignment = taCenter
        Width = 43