⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unitdictionary.~dfm

📁 此代码为企业原料管理代码
💻 ~DFM
📖 第 1 页 / 共 4 页
字号:
            C0C0C0C0C0C0C0C0C0C0C0000000FF0000FF0000FF0000FF0000FF0000000000
            000000BFB8BF7F787F000000FF0000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FF0000FF0000000000000000FFF8FF
            BFB8BFFFF8FF7F787F7F787F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000BFB8BFFFF8FFBFB8BF
            FFF8FFBFB8BF7F787F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000BFB8BFFFF8FFBFB8BFFFF8FF
            BFB8BF7F787F7F787F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000FFF8FFBFB8BF
            FFF8FF000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000000000BFB8BFFFF8FF
            BFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BF0000000000000000000000000000
            00000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0000000000000000000000000000000000000BFB8BF
            FFF8FFBFB8BFFFF8FFBFB8BFFFF8FFBFB8BF00000000007F00007F00007F0000
            FF00007F00007F00007F00007F00007F000000000000C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0000000000000000000000000000000000000000000
            BFB8BFFFF8FFBFB8BFFFF8FFBFB8BFBFB8BF0000000000FF0000FF0000FF0000
            7F00007FBFB8BF7F787F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0000000000000000000000000000000000000000000BFB8BF
            FFF8FFBFB8BFFFF8FFBFB8BFFFF8FFBFB8BF00000000000000007F00007FBFB8
            BFFFF8FFFFF8FF7F787F7F787F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0000000000000000000000000000000000000BFB8BFFFF8FF
            BFB8BFFFF8FFBFB8BFFFF8FFBFB8BFFFF8FFBFB8BFBFB8BF000000FFF8FFFFF8
            FFFFF8FFFFF8FF7F787F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0000000000000000000000000000000000000FFF8FFBFB8BF
            FFF8FFBFB8BFFFF8FFBFB8BFFFF8FFBFB8BFBFB8BF000000FFF8FFFFF8FFFFF8
            FFFFF8FFFFF8FF7F787F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0000000000000000000000000000000000000000000FFF8FF
            BFB8BFFFF8FFBFB8BFFFF8FFFF0000FFF8FFBFB8BF000000000000FFF8FFFFF8
            FFFFF8FF000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0000000000000000000000000000000000000000000000000
            000000BFB8BFFFF8FFBFB8BF000000000000000000000000000000BFB8BFFFF8
            FFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BF000000C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0000000000000000000000000000000000000000000000000
            000000000000BFB8BFFFF8FFBFB8BFFFF8FF000000000000000000000000BFB8
            BFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFBFB8BF000000C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0000000000000000000000000000000000000000000000000
            000000000000000000BFB8BFFFF8FFBFB8BFBFB8BF0000000000000000000000
            00FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFBFB8BF000000C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0000000000000000000000000000000000000000000
            000000000000000000000000BFB8BFFFF8FFBFB8BF000000000000000000BFB8
            BFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFBFB8BF000000000000C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0000000000000000000000000000000000000000000
            000000000000000000000000000000000000000000000000000000BFB8BFFFF8
            FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFBFB8BFBFB8BF000000C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000000000000000000000
            000000000000000000000000000000000000000000000000000000BFB8BFFFF8
            FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFBFB8BF000000C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000000000000000
            000000000000000000000000000000000000000000000000000000000000BFB8
            BFFFF8FFFFF8FFFFF8FFFFF8FFFF0000FFF8FFBFB8BF000000C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            00000000BFB8BFFFF8FFFFF8FF000000000000000000C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C00000000000000000000000000000000000000000000000
            00000000000000BFB8BFFFF8FFFFF8FFFFF8FF000000C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C00000000000000000000000000000000000000000000000
            00000000000000000000BFB8BFFFF8FFFFF8FFBFB8BF000000C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C00000000000000000000000000000000000000000
            00000000000000000000000000BFB8BFFFF8FFBFB8BF000000000000C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C00000000000000000000000000000000000000000
            00000000000000000000000000000000000000000000000000000000C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000000000000000000000000000000000
            00000000000000000000000000000000000000000000000000000000C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000000000000000000000000000
            00000000000000000000000000000000000000000000000000C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000000000000000
            00000000000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0}
        end
        object dbeStaffID: TDBEdit
          Left = 66
          Top = 112
          Width = 56
          Height = 20
          DataField = 'StaffID'
          DataSource = DM.dsStaff
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnEnter = CEnter
          OnExit = CExit
        end
        object DBEdit12: TDBEdit
          Left = 145
          Top = 112
          Width = 73
          Height = 20
          DataField = 'StaffName'
          DataSource = DM.dsStaff
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnEnter = CEnter
          OnExit = CExit
        end
        object BitBtn18: TBitBtn
          Left = 56
          Top = 13
          Width = 74
          Height = 26
          Caption = '添加'
          TabOrder = 3
          OnClick = BitBtn18Click
        end
        object BitBtn20: TBitBtn
          Left = 155
          Top = 13
          Width = 75
          Height = 26
          Caption = '删除'
          TabOrder = 4
          OnClick = BitBtn20Click
        end
        object BitBtn21: TBitBtn
          Left = 155
          Top = 54
          Width = 75
          Height = 24
          Caption = '提交'
          TabOrder = 2
          OnClick = BitBtn21Click
        end
        object BitBtn22: TBitBtn
          Left = 56
          Top = 54
          Width = 74
          Height = 24
          Caption = '修改'
          TabOrder = 5
          OnClick = BitBtn22Click
        end
      end
      object Panel11: TPanel
        Left = 275
        Top = 218
        Width = 198
        Height = 160
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        TabOrder = 2
        object Label21: TLabel
          Left = 46
          Top = 68
          Width = 78
          Height = 13
          Caption = '请输入编号:'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object eStaffFind: TEdit
          Left = 44
          Top = 87
          Width = 110
          Height = 23
          TabOrder = 0
          OnChange = eStaffFindChange
        end
        object rgStaff: TRadioGroup
          Left = 43
          Top = 7
          Width = 112
          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 = rgStaffClick
        end
        object Button1: TButton
          Left = 46
          Top = 121
          Width = 109
          Height = 24
          Caption = '返回'
          TabOrder = 2
          OnClick = Button1Click
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = '车间字典'
      ImageIndex = 4
      object Splitter6: TSplitter
        Left = 0
        Top = 222
        Width = 473
        Height = 2
        Cursor = crVSplit
        Align = alTop
      end
      object Splitter10: TSplitter
        Left = 278
        Top = 224
        Width = 4
        Height = 154
        Cursor = crHSplit
      end
      object DBGrid5: TDBGrid
        Left = 0
        Top = 0
        Width = 473
        Height = 222
        Align = alTop
        DataSource = DM.dsWorkShop
        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 = DBGrid5CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'WorkShopID'
            Title.Alignment = taCenter
            Title.Caption = '序号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'WorkShopName'
            Title.Alignment = taCenter
            Title.Caption = '车间名称'
            Width = 149
            Visible = True
          end>
      end
      object Panel12: TPanel
        Left = 0
        Top = 224
        Width = 278
        Height = 154
        Align = alLeft
        BevelOuter = bvLowered
        TabOrder = 1
        object Label13: TLabel
          Left = 40
          Top = 78
          Width = 24
          Height = 12
          Caption = '序号'
          FocusControl = dbeWorkShop
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 111
          Top = 78
          Width = 48
          Height = 12
          Caption = '车间名称'
          FocusControl = DBEdit14
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object dbeWorkShop: TDBEdit
          Left = 40
          Top = 94
          Width = 56
          Height = 20
          DataField = 'WorkShopID'
          DataSource = DM.dsWorkShop
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnEnter = CEnter
          OnExit = CExit
        end
        object DBEdit14: TDBEdit
          Left = 111
          Top = 94
          Width = 122
          Height = 20
          DataField = 'WorkShopName'
          DataSource = DM.dsWorkShop
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnEnter = CEnter
          OnExit = CExit
        end
        object BitBtn23: TBitBtn
          Left = 53
          Top = 10
          Width = 73
          Height = 26
          Caption = '添加'
          TabOrder = 3
          OnClick = BitBtn23Click
        end
        object BitBtn24: TBitBtn
          Left = 151
          Top = 10
          Width = 74
          Height = 26
          Caption = '删除'
          TabOrder = 4
          OnClick = BitBtn24Click
        end
        object BitBtn25: TBitBtn
          Left = 151
          Top = 45
          Width = 74
          Height = 25
          Caption = '提交'
          TabOrder = 2
          OnClick = BitBtn25Click
        end
        object BitBtn26: TBitBtn
          Left = 53
          Top = 45
          Width = 73
          Height = 25
          Caption = '修改'
          TabOrder = 5
          OnClick = BitBtn26Click
        end
      end
      object Panel13: TPanel
        Left = 282
        Top = 224
        Width = 191
        Height = 154
        Align = alClient
        BevelOuter = bvLowered
        TabOrder = 2
        object BitBtn8: TBitBtn
          Left = 56
          Top = 48
          Width = 75
          Height = 25
          Caption = '返回'
          TabOrder = 0
          Kind = bkClose
        end
      end
    end
  end
  object bbExit: TBitBtn
    Left = 388
    Top = 408
    Width = 74
    Height = 24
    Cancel = True
    Caption = '退出(ESC)'
    TabOrder = 1
    OnClick = bbExitClick
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select * from  ProdDictionary ')
    Left = 260
    Top = 163
  end
  object Query2: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select * from ProdDictionary')
    Left = 316
    Top = 123
    object Query2ProdID: TStringField
      DisplayLabel = '序号'
      FieldName = 'ProdID'
      Origin = 'JL2000."ProdDictionary.DB".ProdID'
      Size = 5
    end
    object Query2FigID: TStringField
      DisplayLabel = '图号'
      FieldName = 'FigID'
      Origin = 'JL2000."ProdDictionary.DB".FigID'
      Size = 25
    end
    object Query2ProdName: TStringField
      DisplayLabel = '产品名称'
      FieldName = 'ProdName'
      Origin = 'JL2000."ProdDictionary.DB".ProdName'
    end
    object Query2RubbName: TStringField
      DisplayLabel = '胶料名称'
      FieldName = 'RubbName'
      Origin = 'JL2000."ProdDictionary.DB".RubbName'
      Size = 15
    end
    object Query2MakePrice: TFloatField
      DisplayLabel = '加工单价'
      FieldName = 'MakePrice'
      Origin = 'JL2000."ProdDictionary.DB".MakePrice'
    end
    object Query2SellPrice: TFloatField
      DisplayLabel = '销售单价'
      FieldName = 'SellPrice'
      Origin = 'JL2000."ProdDictionary.DB".SellPrice'
    end
    object Query2Weight: TFloatField
      DisplayLabel = '净重'
      FieldName = 'Weight'
      Origin = 'JL2000."ProdDictionary.DB".Weight'
    end
    object Query2Contain: TIntegerField
      DisplayLabel = '每箱只数'
      FieldName = 'Contain'
      Origin = 'JL2000."ProdDictionary.DB".Contain'
    end
    object Query2Tanhuang: TIntegerField
      FieldName = 'Tanhuang'
      Origin = 'JL2000."ProdDictionary.DB".Tanhuang'
    end
    object Query2Gujia: TIntegerField
      FieldName = 'Gujia'
      Origin = 'JL2000."ProdDictionary.DB".Gujia'
    end
  end
  object Query3: TQuery
    DatabaseName = 'JL2000'
    Left = 365
    Top = 163
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -