这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
源代码在线查看： tas450_01.dfm.svn-base
inherited Tas450_01Form: TTas450_01Form
Caption = #26381#21209#23458#25143#25976#37327
PixelsPerInch = 96
TextHeight = 12
object Splitter1: TSplitter [0]
Left = 0
Top = 300
Width = 800
Height = 3
Cursor = crVSplit
Align = alBottom
end
inherited Panel1: TPanel
object lblYear: TLabel
Left = 589
Top = 12
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #24180#24230
Transparent = True
end
object sbSearch: TSpeedButton
Left = 722
Top = 8
Width = 57
Height = 22
Anchors = [akTop, akRight]
Caption = #26597#35810
OnClick = sbSearchClick
end
object cbYear: TComboBox
Left = 621
Top = 8
Width = 81
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 0
end
end
inherited ScrollBox2: TScrollBox
Height = 220
inherited dxDBTreeList1: TdxDBTreeList
Height = 216
Bands = <
item
Fixed = bfLeft
end
item
end
item
Fixed = bfRight
end>
DefaultLayout = False
KeyField = 'FNo'
ParentField = 'FParent'
PopupMenu = PopupMenu1
FixedBandLineWidth = 1
object dxDBTreeList1FName: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 208
BandIndex = 0
RowIndex = 0
FieldName = 'FName'
end
object dxDBTreeList1FTotal1: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal1'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal1DrawSummaryFooter
end
object dxDBTreeList1FTotal2: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal2'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal2DrawSummaryFooter
end
object dxDBTreeList1FTotal3: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal3'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal3DrawSummaryFooter
end
object dxDBTreeList1FTotal4: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal4'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal4DrawSummaryFooter
end
object dxDBTreeList1FTotal5: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal5'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal5DrawSummaryFooter
end
object dxDBTreeList1FTotal6: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal6'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal6DrawSummaryFooter
end
object dxDBTreeList1FTotal7: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal7'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal7DrawSummaryFooter
end
object dxDBTreeList1FTotal8: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal8'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal8DrawSummaryFooter
end
object dxDBTreeList1FTotal9: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal9'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal9DrawSummaryFooter
end
object dxDBTreeList1FTotal10: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal10'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal10DrawSummaryFooter
end
object dxDBTreeList1FTotal11: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal11'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal11DrawSummaryFooter
end
object dxDBTreeList1FTotal12: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 1
RowIndex = 0
FieldName = 'FTotal12'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotal12DrawSummaryFooter
end
object dxDBTreeList1FTotal: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 2
RowIndex = 0
FieldName = 'FTotal'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotalDrawSummaryFooter
end
end
end
object DBChart1: TDBChart [4]
Left = 0
Top = 303
Width = 800
Height = 250
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
'')
Align = alBottom
BevelOuter = bvLowered
TabOrder = 3
object Series1: TLineSeries
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = True
DataSource = ADODataSet2
SeriesColor = clRed
Title = #23458#25142#25976#37327
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series2: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
DataSource = Series1
SeriesColor = clGreen
Title = #24179#22343#20540
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
object TeeFunction1: TAverageTeeFunction
end
end
end
inherited ActionList1: TActionList
object ActOpen: TAction
Caption = #26597#30475'(&N)'
ShortCut = 16397
OnExecute = ActOpenExecute
end
end
inherited ADODataSet1: TADODataSet
CursorType = ctStatic
LockType = ltBatchOptimistic
FieldDefs = <
item
Name = 'FNo'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FName'
DataType = ftString
Size = 50
end
item
Name = 'FParent'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal1'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal2'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal3'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal4'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal5'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal6'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal7'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal8'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal9'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal10'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal11'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal12'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal'
Attributes = [faFixed]
DataType = ftInteger
end>
StoreDefs = True
object ADODataSet1FNo: TIntegerField
FieldName = 'FNo'
Visible = False
end
object ADODataSet1FName: TStringField
DisplayLabel = #21517#31216
FieldName = 'FName'
Size = 50
end
object ADODataSet1FParent: TIntegerField
FieldName = 'FParent'
Visible = False
end
object ADODataSet1FTotal1: TIntegerField
DisplayLabel = #19968#26376
FieldName = 'FTotal1'
end
object ADODataSet1FTotal2: TIntegerField
DisplayLabel = #20108#26376
FieldName = 'FTotal2'
end
object ADODataSet1FTotal3: TIntegerField
DisplayLabel = #19977#26376
FieldName = 'FTotal3'
end
object ADODataSet1FTotal4: TIntegerField
DisplayLabel = #22235#26376
FieldName = 'FTotal4'
end
object ADODataSet1FTotal5: TIntegerField
DisplayLabel = #20116#26376
FieldName = 'FTotal5'
end
object ADODataSet1FTotal6: TIntegerField
DisplayLabel = #20845#26376
FieldName = 'FTotal6'
end
object ADODataSet1FTotal7: TIntegerField
DisplayLabel = #19971#26376
FieldName = 'FTotal7'
end
object ADODataSet1FTotal8: TIntegerField
DisplayLabel = #20843#26376
FieldName = 'FTotal8'
end
object ADODataSet1FTotal9: TIntegerField
DisplayLabel = #20061#26376
FieldName = 'FTotal9'
end
object ADODataSet1FTotal10: TIntegerField
DisplayLabel = #21313#26376
FieldName = 'FTotal10'
end
object ADODataSet1FTotal11: TIntegerField
DisplayLabel = #21313#19968#26376
FieldName = 'FTotal11'
end
object ADODataSet1FTotal12: TIntegerField
DisplayLabel = #21313#20108#26376
FieldName = 'FTotal12'
end
object ADODataSet1FTotal: TIntegerField
DisplayLabel = #23567#35745
FieldName = 'FTotal'
end
end
object ADOQuery1: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select count(T510_001) as FTotal,T100_001,T100_002,T100_003,T510' +
'_013 as FDays'
'from TAS510,TAS100'
'where T510_004=T100_001'
' and T510_003=3 group by T100_001,T100_002,T100_003,T510_013')
Left = 336
Top = 144
end
object PopupMenu1: TPopupMenu
Left = 72
Top = 216
object N1: TMenuItem
Action = ActOpen
end
object N2: TMenuItem
Caption = '-'
end
object N4: TMenuItem
Action = ActLocate
end
object N5: TMenuItem
Action = ActSearch
end
end
object ADODataSet2: TADODataSet
Connection = SYSDM.ADOC
CursorType = ctStatic
LockType = ltBatchOptimistic
FieldDefs = <
item
Name = 'FMonth'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FTotal'
Attributes = [faFixed]
DataType = ftInteger
end>
IndexFieldNames = 'FMonth'
Parameters =
StoreDefs = True
Left = 344
Top = 384
end
end
