unit_mater_dic.dfm

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

object Form_Mater_Dic: TForm_Mater_Dic
  Left = 199
  Top = 105
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderStyle = bsDialog
  Caption = '宁波市巨龙橡塑有限公司 原材料仓库管理系统'
  ClientHeight = 373
  ClientWidth = 465
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 14
  object DBGrid_Dic: TDBGrid
    Left = 24
    Top = 8
    Width = 425
    Height = 225
    TabStop = False
    DataSource = DS_Dic
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '标识号'
        Title.Alignment = taCenter
        Title.Caption = '序号'
        Width = 40
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '材料名称'
        Title.Alignment = taCenter
        Width = 140
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '简称'
        Title.Alignment = taCenter
        Width = 78
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '库存下限'
        Title.Alignment = taCenter
        Width = 72
        Visible = True
      end>
  end
  object BitBtn_Ins: TBitBtn
    Left = 20
    Top = 248
    Width = 65
    Height = 25
    Hint = '添加原材料'
    Caption = '添加'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = BitBtn_InsClick
  end
  object BitBtn_Del: TBitBtn
    Left = 94
    Top = 248
    Width = 65
    Height = 25
    Hint = '删除原材料'
    Caption = '删除'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    TabStop = False
    OnClick = BitBtn_DelClick
  end
  object BitBtn_Mod: TBitBtn
    Left = 168
    Top = 248
    Width = 65
    Height = 25
    Hint = '修改原材料'
    Caption = '修改'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    TabStop = False
    OnClick = BitBtn_ModClick
  end
  object BitBtn_Post: TBitBtn
    Left = 241
    Top = 248
    Width = 65
    Height = 25
    Hint = '保存 添加 或 修改'
    Caption = '提交'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = BitBtn_PostClick
  end
  object BitBtn_Cancel: TBitBtn
    Left = 315
    Top = 248
    Width = 65
    Height = 25
    Hint = '放弃添加 或 修改'
    Caption = '取消'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    TabStop = False
    OnClick = BitBtn_CancelClick
  end
  object Panel1: TPanel
    Left = 16
    Top = 296
    Width = 425
    Height = 65
    TabOrder = 6
    object Panel2: TPanel
      Left = 44
      Top = 35
      Width = 68
      Height = 22
      Caption = '材料名称'
      TabOrder = 4
    end
    object DBEdit_Mater: TDBEdit
      Left = 112
      Top = 35
      Width = 121
      Height = 22
      DataField = '材料名称'
      DataSource = DS_Dic
      TabOrder = 1
      OnEnter = DBEdit_IdEnter
      OnExit = DBEdit_IdExit
    end
    object Panel3: TPanel
      Left = 234
      Top = 35
      Width = 60
      Height = 22
      Caption = '库存下限'
      TabOrder = 5
    end
    object Panel4: TPanel
      Left = 234
      Top = 13
      Width = 60
      Height = 22
      Caption = '简称'
      TabOrder = 6
    end
    object Panel5: TPanel
      Left = 44
      Top = 13
      Width = 68
      Height = 22
      Caption = '序号'
      TabOrder = 7
    end
    object DBEdit_Id: TDBEdit
      Left = 112
      Top = 13
      Width = 121
      Height = 22
      DataField = '标识号'
      DataSource = DS_Dic
      TabOrder = 0
      OnEnter = DBEdit_IdEnter
      OnExit = DBEdit_IdExit
    end
    object DBEdit_Lim: TDBEdit
      Left = 294
      Top = 35
      Width = 78
      Height = 22
      DataField = '库存下限'
      DataSource = DS_Dic
      TabOrder = 3
      OnEnter = DBEdit_IdEnter
      OnExit = DBEdit_LimExit
    end
    object DBEdit_Index: TDBEdit
      Left = 294
      Top = 13
      Width = 78
      Height = 22
      DataField = '简称'
      DataSource = DS_Dic
      TabOrder = 2
      OnEnter = DBEdit_IdEnter
      OnExit = DBEdit_IdExit
    end
  end
  object BitBtn1: TBitBtn
    Left = 389
    Top = 248
    Width = 65
    Height = 25
    Caption = '关闭'
    TabOrder = 7
    Kind = bkClose
  end
  object Tab_Dic: TTable
    DatabaseName = 'JL2000'
    TableName = '原材料字典.db'
    Left = 144
    Top = 16
  end
  object DS_Dic: TDataSource
    DataSet = Tab_Dic
    Left = 160
    Top = 32
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    Left = 320
    Top = 64
  end
end