unitdictionary.~dfm

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

      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      object DBGrid3: TDBGrid
        Left = 0
        Top = 0
        Width = 473
        Height = 210
        Align = alTop
        DataSource = DM.dsManufacturer
        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 = DBGrid3CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ManufacturerID'
            Title.Alignment = taCenter
            Title.Caption = '序号'
            Width = 26
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Manufacturer'
            Title.Alignment = taCenter
            Title.Caption = '客户单位名称'
            Width = 157
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Toxudizi'
            Title.Alignment = taCenter
            Title.Caption = '通讯地址'
            Width = 137
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Dihuhama'
            Title.Alignment = taCenter
            Title.Caption = '电话号码'
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Yobi'
            Title.Alignment = taCenter
            Title.Caption = '邮 编'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Lixire'
            Title.Alignment = taCenter
            Title.Caption = '联系人'
            Width = 50
            Visible = True
          end>
      end
      object Panel7: TPanel
        Left = 0
        Top = 210
        Width = 473
        Height = 168
        Align = alClient
        TabOrder = 1
        object Splitter5: TSplitter
          Left = 1
          Top = 1
          Width = 471
          Height = 3
          Cursor = crVSplit
          Align = alTop
        end
        object Splitter11: TSplitter
          Left = 271
          Top = 4
          Width = 2
          Height = 163
          Cursor = crHSplit
        end
        object Panel8: TPanel
          Left = 1
          Top = 4
          Width = 270
          Height = 163
          Align = alLeft
          BevelOuter = bvLowered
          TabOrder = 0
          object Label9: TLabel
            Left = 3
            Top = 63
            Width = 24
            Height = 12
            Caption = '序号'
            FocusControl = dbeManufacturerID
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label10: TLabel
            Left = 73
            Top = 64
            Width = 48
            Height = 12
            Caption = '客户单位'
            FocusControl = dbeManufacturer
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label22: TLabel
            Left = 3
            Top = 98
            Width = 24
            Height = 12
            Caption = '邮编'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label23: TLabel
            Left = 75
            Top = 99
            Width = 48
            Height = 12
            Caption = '通讯地址'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label24: TLabel
            Left = 3
            Top = 131
            Width = 48
            Height = 12
            Caption = '电话号码'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object Label25: TLabel
            Left = 152
            Top = 132
            Width = 36
            Height = 12
            Caption = '联系人'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
          end
          object dbeManufacturerID: TDBEdit
            Left = 28
            Top = 61
            Width = 41
            Height = 20
            DataField = 'ManufacturerID'
            DataSource = DM.dsManufacturer
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnEnter = CEnter
            OnExit = CExit
          end
          object dbeManufacturer: TDBEdit
            Left = 121
            Top = 61
            Width = 145
            Height = 20
            DataField = 'Manufacturer'
            DataSource = DM.dsManufacturer
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnEnter = CEnter
            OnExit = CExit
          end
          object BitBtn15: TBitBtn
            Left = 53
            Top = 5
            Width = 73
            Height = 22
            Caption = '添加'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 7
            OnClick = BitBtn15Click
          end
          object BitBtn16: TBitBtn
            Left = 147
            Top = 5
            Width = 75
            Height = 22
            Caption = '删除'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 8
            OnClick = BitBtn16Click
          end
          object BitBtn17: TBitBtn
            Left = 147
            Top = 30
            Width = 75
            Height = 22
            Caption = '提交'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 6
            OnClick = BitBtn17Click
          end
          object BitBtn19: TBitBtn
            Left = 53
            Top = 30
            Width = 73
            Height = 22
            Caption = '修改'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 9
            OnClick = BitBtn19Click
          end
          object DBEdit11: TDBEdit
            Left = 29
            Top = 96
            Width = 42
            Height = 20
            DataField = 'Yobi'
            DataSource = DM.dsManufacturer
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
          end
          object DBEdit13: TDBEdit
            Left = 195
            Top = 128
            Width = 60
            Height = 20
            DataField = 'Lixire'
            DataSource = DM.dsManufacturer
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 5
          end
          object DBEdit15: TDBEdit
            Left = 123
            Top = 95
            Width = 143
            Height = 20
            DataField = 'Toxudizi'
            DataSource = DM.dsManufacturer
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
          end
          object DBEdit16: TDBEdit
            Left = 53
            Top = 129
            Width = 82
            Height = 20
            DataField = 'Dihuhama'
            DataSource = DM.dsManufacturer
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 4
          end
        end
        object Panel9: TPanel
          Left = 273
          Top = 4
          Width = 199
          Height = 163
          Align = alClient
          BevelOuter = bvLowered
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object BitBtn6: TBitBtn
            Left = 64
            Top = 56
            Width = 75
            Height = 25
            Caption = '返回'
            TabOrder = 0
            Kind = bkClose
          end
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = '员工字典'
      ImageIndex = 3
      object Splitter7: TSplitter
        Left = 0
        Top = 218
        Width = 3
        Height = 160
        Cursor = crHSplit
      end
      object Splitter8: TSplitter
        Left = 0
        Top = 215
        Width = 473
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Splitter9: TSplitter
        Left = 273
        Top = 218
        Width = 2
        Height = 160
        Cursor = crHSplit
      end
      object dbgStaff: TDBGrid
        Left = 0
        Top = 0
        Width = 473
        Height = 215
        Align = alTop
        DataSource = DM.dsStaff
        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 = dbgStaffCellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'StaffID'
            Title.Alignment = taCenter
            Title.Caption = '序号'
            Width = 44
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'StaffName'
            Title.Alignment = taCenter
            Title.Caption = '姓名'
            Width = 88
            Visible = True
          end>
      end
      object Panel10: TPanel
        Left = 3
        Top = 218
        Width = 270
        Height = 160
        Align = alLeft
        BevelOuter = bvLowered
        TabOrder = 1
        object Label11: TLabel
          Left = 66
          Top = 95
          Width = 48
          Height = 12
          Caption = '员工序号'
          FocusControl = dbeStaffID
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 145
          Top = 95
          Width = 48
          Height = 12
          Caption = '员工姓名'
          FocusControl = DBEdit12
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Image2: TImage
          Left = 15
          Top = 34
          Width = 32
          Height = 32
          AutoSize = True
          Picture.Data = {
            07544269746D6170360C0000424D360C00000000000036000000280000002000
            0000200000000100180000000000000C0000C40E0000C40E0000000000000000
            0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000000000
            000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0000000000000000000FF0000FF0000FF0000FF0000
            FF0000000000000000FF0000FF0000000000000000C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0