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

				object Cwa150_04Form: TCwa150_04Form
				  Left = 192
				  Top = 107
				  BorderIcons = [biSystemMenu]
				  BorderStyle = bsSingle
				  Caption = #20989#25968
				  ClientHeight = 240
				  ClientWidth = 385
				  Color = clBtnFace
				  Font.Charset = ANSI_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -12
				  Font.Name = #23435#20307
				  Font.Style = []
				  OldCreateOrder = False
				  Position = poMainFormCenter
				  OnClose = FormClose
				  OnCreate = FormCreate
				  PixelsPerInch = 96
				  TextHeight = 12
				  object bbtnInsert: TBitBtn
				    Left = 24
				    Top = 208
				    Width = 75
				    Height = 25
				    Caption = #26032#22686'(&I)'
				    TabOrder = 0
				    OnClick = bbtnInsertClick
				  end
				  object bbtnUpdate: TBitBtn
				    Left = 112
				    Top = 208
				    Width = 75
				    Height = 25
				    Caption = #20462#25913'(&U)'
				    TabOrder = 1
				    OnClick = bbtnUpdateClick
				  end
				  object bbtnDelete: TBitBtn
				    Left = 200
				    Top = 208
				    Width = 75
				    Height = 25
				    Caption = #21024#38500'(&D)'
				    TabOrder = 2
				    OnClick = bbtnDeleteClick
				  end
				  object bbtnExit: TBitBtn
				    Left = 288
				    Top = 208
				    Width = 75
				    Height = 25
				    Caption = #36864#20986'(&X)'
				    TabOrder = 3
				    OnClick = bbtnExitClick
				  end
				  object ScrollBox1: TScrollBox
				    Left = 8
				    Top = 8
				    Width = 369
				    Height = 193
				    TabOrder = 4
				    object dxDBGrid1: TdxDBGrid
				      Left = 0
				      Top = 0
				      Width = 365
				      Height = 189
				      Bands = <
				        item
				        end>
				      DefaultLayout = True
				      HeaderPanelRowCount = 1
				      KeyField = 'S990_001'
				      SummaryGroups = 
				      SummarySeparator = ', '
				      Align = alClient
				      BorderStyle = bsNone
				      TabOrder = 0
				      DataSource = dsSys990
				      Filter.Criteria = {00000000}
				      HeaderColor = 15262169
				      HideFocusRect = True
				      LookAndFeel = lfUltraFlat
				      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
				      OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
				      ShowGrid = False
				      object dxDBGrid1S990_003: TdxDBGridMaskColumn
				        DisableEditor = True
				        HeaderAlignment = taCenter
				        Width = 94
				        BandIndex = 0
				        RowIndex = 0
				        FieldName = 'S990_003'
				      end
				      object dxDBGrid1S990_004: TdxDBGridMaskColumn
				        DisableEditor = True
				        HeaderAlignment = taCenter
				        Width = 245
				        BandIndex = 0
				        RowIndex = 0
				        FieldName = 'S990_004'
				      end
				    end
				  end
				  object qrySys990: TADOQuery
				    CacheSize = 1000
				    Connection = SYSDM.ADOC
				    CursorType = ctStatic
				    Parameters = 
				    SQL.Strings = (
				      'select * from SYS990')
				    Left = 224
				    Top = 32
				    object qrySys990S990_003: TStringField
				      DisplayLabel = #32534#21495
				      FieldName = 'S990_003'
				      Size = 10
				    end
				    object qrySys990S990_004: TStringField
				      DisplayLabel = #21517#31216
				      FieldName = 'S990_004'
				      Size = 50
				    end
				    object qrySys990S990_001: TAutoIncField
				      FieldName = 'S990_001'
				      ReadOnly = True
				      Visible = False
				    end
				    object qrySys990S990_002: TSmallintField
				      FieldName = 'S990_002'
				      Visible = False
				    end
				    object qrySys990S990_005: TMemoField
				      FieldName = 'S990_005'
				      Visible = False
				      BlobType = ftMemo
				    end
				    object qrySys990S990_006: TMemoField
				      FieldName = 'S990_006'
				      Visible = False
				      BlobType = ftMemo
				    end
				  end
				  object dsSys990: TDataSource
				    DataSet = qrySys990
				    Left = 176
				    Top = 32
				  end
				end