这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

				inherited Csh150_01Form: TCsh150_01Form
				  Left = 247
				  Top = 162
				  Caption = #39033#30446#36164#26009#32500#25252
				  PixelsPerInch = 96
				  TextHeight = 12
				  inherited dxDBTreeView1: TdxDBTreeView
				    KeyField = 'C150_001'
				    ListField = 'C150_002'
				    ParentField = 'C150_003'
				  end
				  inherited Panel2: TPanel
				    object Label1: TLabel
				      Tag = 1
				      Left = 16
				      Top = 32
				      Width = 48
				      Height = 12
				      Caption = #39033#30446#21517#31216
				      FocusControl = DBEdit1
				    end
				    object Label2: TLabel
				      Left = 16
				      Top = 88
				      Width = 48
				      Height = 12
				      Caption = #19978#32423#39033#30446
				    end
				    object DBEdit1: TDBEdit
				      Left = 16
				      Top = 48
				      Width = 153
				      Height = 20
				      DataField = 'C150_002'
				      DataSource = DataSource1
				      TabOrder = 0
				    end
				    object dxTreeViewEdit1: TdxTreeViewEdit
				      Left = 16
				      Top = 104
				      Width = 153
				      Height = 20
				      CanSelectParents = True
				      ParentColor = False
				      TabOrder = 1
				      TabStop = True
				      TreeViewColor = clWindow
				      TreeViewCursor = crDefault
				      TreeViewFont.Charset = DEFAULT_CHARSET
				      TreeViewFont.Color = clWindowText
				      TreeViewFont.Height = -11
				      TreeViewFont.Name = 'MS Sans Serif'
				      TreeViewFont.Style = []
				      TreeViewIndent = 19
				      TreeViewReadOnly = True
				      TreeViewShowButtons = True
				      TreeViewShowHint = False
				      TreeViewShowLines = True
				      TreeViewShowRoot = True
				      TreeViewSortType = stNone
				      OnKeyDown = dxTreeViewEdit1KeyDown
				      DividedChar = '.'
				      TextStyle = tvtsShort
				      Alignment = taLeftJustify
				    end
				  end
				  inherited ADOQuery1: TADOQuery
				    SQL.Strings = (
				      'select * from CSH150')
				    object ADOQuery1C150_001: TAutoIncField
				      FieldName = 'C150_001'
				      ReadOnly = True
				      Visible = False
				    end
				    object ADOQuery1C150_002: TStringField
				      DisplayLabel = #39033#30446#21517#31216
				      FieldName = 'C150_002'
				      Size = 50
				    end
				    object ADOQuery1C150_003: TIntegerField
				      DisplayLabel = #19978#32423#39033#30446
				      FieldName = 'C150_003'
				    end
				    object ADOQuery1C150_004: TBooleanField
				      FieldName = 'C150_004'
				      Visible = False
				    end
				  end
				  object ADOQuery2: TADOQuery
				    CacheSize = 1000
				    Connection = SYSDM.ADOC
				    Parameters = 
				    SQL.Strings = (
				      'select * from CSH150')
				    Left = 368
				    Top = 216
				  end
				end