unit_mater_main.dfm

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

        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 = 57
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '库存'
        Title.Alignment = taCenter
        Width = 71
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '进货地点'
        Title.Alignment = taCenter
        Width = 80
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '采购员'
        Title.Alignment = taCenter
        Width = 39
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '检验员'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '最后领料标识'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '领料单号'
        Title.Alignment = taCenter
        Width = 56
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '出库货源号'
        Title.Alignment = taCenter
        Width = 61
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '使用部门'
        Title.Alignment = taCenter
        Width = 51
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '领料人'
        Title.Alignment = taCenter
        Width = 38
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '盘盈盘亏'
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '领料标识'
        Title.Alignment = taCenter
        Visible = False
      end>
  end
  object Qry_Main: TQuery
    AfterScroll = Qry_MainAfterScroll
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'SELECT * FROM "原材料台帐.DB" 原材料台帐')
    Left = 416
    Top = 308
  end
  object DS_Main: TDataSource
    DataSet = Qry_Main
    Left = 384
    Top = 308
  end
  object MainMenu1: TMainMenu
    Images = ImageList_MenuIO
    Left = 272
    Top = 308
    object N1: TMenuItem
      Caption = '日常操作'
      object N_OutCard: TMenuItem
        Caption = '出库'
        ImageIndex = 0
        ShortCut = 16463
        OnClick = N_OutCardClick
      end
      object N_InCard: TMenuItem
        Caption = '入库'
        ImageIndex = 1
        ShortCut = 16457
        OnClick = N_InCardClick
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object N_Auto: TMenuItem
        Caption = '按配方领料'
        ImageIndex = 10
        OnClick = N_AutoClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N_ModCard: TMenuItem
        Caption = '修改'
        ImageIndex = 2
        ShortCut = 16453
        OnClick = N_ModCardClick
      end
      object N_DelCard: TMenuItem
        Caption = '删除'
        ImageIndex = 4
        ShortCut = 16452
        OnClick = N_DelCardClick
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object N_Exit: TMenuItem
        Caption = '退出'
        ImageIndex = 3
        ShortCut = 27
        OnClick = N_ExitClick
      end
    end
    object N7: TMenuItem
      Caption = '查询'
      object N_QryIO: TMenuItem
        Caption = '查询台帐 并 打印单据'
        ImageIndex = 5
        OnClick = N_QryIOClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object N_StockView: TMenuItem
        Caption = '查询仓库'
        ImageIndex = 8
        OnClick = N_StockViewClick
      end
    end
    object N9: TMenuItem
      Caption = '结帐'
      object N_Sum: TMenuItem
        Caption = '结账 并且 打印报表'
        ImageIndex = 7
        OnClick = N_SumClick
      end
      object N20: TMenuItem
        Caption = '-'
      end
    end
    object N6: TMenuItem
      Caption = '打印'
      object N8: TMenuItem
        Caption = '打印台帐'
        ImageIndex = 9
        OnClick = N8Click
      end
      object N16: TMenuItem
        Caption = '模拟显示台帐'
        OnClick = N16Click
      end
    end
    object N2: TMenuItem
      Caption = '整理仓库'
      OnClick = N2Click
    end
    object N12: TMenuItem
      Caption = '关于'
      object N13: TMenuItem
        Caption = '说明'
        OnClick = N13Click
      end
    end
  end
  object ImageList_MenuIO: TImageList
    Left = 24
    Top = 240
    Bitmap = {
      494C01010B000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001002000000000000040
      000000000000000000000000000000000000FFFFFF00FFFFFF007F000000FFFF
      0000FF000000FF000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF0000808000C0C0C00080800000808000008080000080800000808000008080
      0000808000008080000080800000808080000080800000000000FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008080
      800000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080800000000000FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008080
      800000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000FF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000FF00FFFF
      FF00FFFFFF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF007F7F7F0000000000000000007F7F7F00FFFFFF00FF00
      0000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF0000808000C0C0C000FFFFFF0080800000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF0080808000FFFFFF00000000007F7F7F007F7F
      7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF0000808000C0C0C00080800000808000008080000080800000808000008080
      0000808000008080000080800000808080000080800000000000FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF008080800000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080800000000000FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00000000000000000080808000FFFFFF00FFFFFF00FFFFFF00808080000000
      00008080800000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF