unitdictionary.~dfm

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

object frmCommDictionary: TfrmCommDictionary
  Left = 159
  Top = 89
  BorderStyle = bsDialog
  Caption = '字典'
  ClientHeight = 442
  ClientWidth = 543
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 33
    Top = 9
    Width = 481
    Height = 408
    ActivePage = TabSheet2
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = ' 原 材 料 字 典'
      object Splitter1: TSplitter
        Left = 0
        Top = 217
        Width = 473
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object dbgMaterDictionary: TDBGrid
        Left = 0
        Top = 0
        Width = 473
        Height = 217
        Align = alTop
        DataSource = DM.dsMaterDictionary
        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
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnCellClick = dbgMaterDictionaryCellClick
        Columns = <
          item
            Expanded = False
            FieldName = '标识号'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = '材料名称'
            Title.Alignment = taCenter
            Width = 147
            Visible = True
          end
          item
            Expanded = False
            FieldName = '简称'
            Title.Alignment = taCenter
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = '库存下限'
            Title.Alignment = taCenter
            Width = 75
            Visible = True
          end>
      end
      object Panel1: TPanel
        Left = 0
        Top = 220
        Width = 473
        Height = 158
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        Caption = 'Panel1'
        TabOrder = 1
        object Splitter4: TSplitter
          Left = 271
          Top = 1
          Width = 2
          Height = 156
          Cursor = crHSplit
        end
        object Panel2: TPanel
          Left = 1
          Top = 1
          Width = 270
          Height = 156
          Align = alLeft
          BevelInner = bvLowered
          BevelOuter = bvNone
          TabOrder = 0
          object Label1: TLabel
            Left = 23
            Top = 66
            Width = 24
            Height = 12
            Caption = '序号'
            FocusControl = dbeMaterID
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label2: TLabel
            Left = 24
            Top = 106
            Width = 24
            Height = 12
            Caption = '简称'
            FocusControl = DBEdit2
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label3: TLabel
            Left = 100
            Top = 66
            Width = 60
            Height = 12
            Caption = '原材料名称'
            FocusControl = DBEdit3
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label4: TLabel
            Left = 153
            Top = 106
            Width = 48
            Height = 12
            Caption = '库存下限'
            FocusControl = DBEdit1
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object dbeMaterID: TDBEdit
            Left = 21
            Top = 83
            Width = 52
            Height = 20
            DataField = '标识号'
            DataSource = DM.dsMaterDictionary
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnEnter = CEnter
            OnExit = CExit
          end
          object DBEdit2: TDBEdit
            Left = 24
            Top = 122
            Width = 88
            Height = 20
            CharCase = ecLowerCase
            DataField = '简称'
            DataSource = DM.dsMaterDictionary
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnEnter = CEnter
            OnExit = CExit
          end
          object DBEdit3: TDBEdit
            Left = 99
            Top = 83
            Width = 140
            Height = 20
            DataField = '材料名称'
            DataSource = DM.dsMaterDictionary
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnEnter = CEnter
            OnExit = CExit
          end
          object BitBtn1: TBitBtn
            Left = 59
            Top = 6
            Width = 75
            Height = 25
            Caption = '添加'
            TabOrder = 5
            OnClick = BitBtn1Click
          end
          object BitBtn2: TBitBtn
            Left = 142
            Top = 6
            Width = 74
            Height = 25
            Caption = '删除'
            TabOrder = 6
            OnClick = BitBtn2Click
          end
          object BitBtn3: TBitBtn
            Left = 142
            Top = 34
            Width = 74
            Height = 24
            Caption = '提交'
            TabOrder = 4
            OnClick = BitBtn3Click
          end
          object BitBtn4: TBitBtn
            Left = 59
            Top = 34
            Width = 75
            Height = 24
            Caption = '修改'
            TabOrder = 7
            OnClick = BitBtn4Click
          end
          object DBEdit1: TDBEdit
            Left = 151
            Top = 122
            Width = 88
            Height = 20
            DataField = '库存下限'
            DataSource = DM.dsMaterDictionary
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            OnEnter = CEnter
            OnExit = CExit
          end
        end
        object Panel3: TPanel
          Left = 273
          Top = 1
          Width = 199
          Height = 156
          Align = alClient
          BevelOuter = bvLowered
          TabOrder = 1
          object Label20: TLabel
            Left = 49
            Top = 69
            Width = 78
            Height = 13
            Caption = '请输入简称：'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object eMaterDictionaryFind: TEdit
            Left = 45
            Top = 90
            Width = 111
            Height = 23
            TabOrder = 0
            OnChange = eMaterDictionaryFindChange
          end
          object rgMaterDictionary: TRadioGroup
            Left = 45
            Top = 7
            Width = 111
            Height = 55
            Caption = '查找方式 '
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ItemIndex = 0
            Items.Strings = (
              '按简称'
              '按原材料名称')
            ParentFont = False
            TabOrder = 1
            OnClick = rgMaterDictionaryClick
          end
          object BitBtn5: TBitBtn
            Left = 46
            Top = 119
            Width = 110
            Height = 25
            Caption = '返回'
            TabOrder = 2
            OnClick = BitBtn5Click
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '产品字典'
      ImageIndex = 1
      object dbgProdDictionary: TDBGrid
        Left = 0
        Top = 0
        Width = 473
        Height = 185
        Align = alTop
        DataSource = DM.dsProdDictionary
        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
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnCellClick = dbgProdDictionaryCellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ProdID'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FigID'
            Title.Alignment = taCenter
            Title.Caption = '图  号'
            Width = 87
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ProdName'
            Title.Alignment = taCenter
            Width = 119
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'RubbName'
            Title.Alignment = taCenter
            Width = 91
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MakePrice'
            Title.Alignment = taCenter
            Width = 54
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SellPrice'
            Title.Alignment = taCenter
            Width = 52
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Weight'
            Title.Alignment = taCenter
            Width = 36
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Contain'
            Title.Alignment = taCenter
            Width = 51
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Tanhuang'
            Title.Alignment = taCenter
            Title.Caption = '弹簧数'
            Width = 40
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Gujia'
            Title.Alignment = taCenter
            Title.Caption = '骨架数'
            Width = 41
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Gjxh'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Thxh'
            Title.Alignment = taCenter
            Visible = True
          end>
      end
      object Panel4: TPanel
        Left = 0
        Top = 185
        Width = 473
        Height = 193
        Align = alClient
        TabOrder = 1
        object Splitter2: TSplitter
          Left = 1
          Top = 1
          Width = 471
          Height = 0
          Cursor = crVSplit
          Align = alTop
        end
        object Splitter3: TSplitter
          Left = 351
          Top = 1
          Width = 1
          Height = 191
          Cursor = crHSplit
          AutoSnap = False
        end
        object Panel5: TPanel
          Left = 1
          Top = 1
          Width = 350
          Height = 191
          Align = alLeft
          BevelInner = bvLowered
          BevelOuter = bvNone
          Font.Charset = GB2312_CHARSET