一个用Delphi开发的ERP软件
源代码在线查看： tas400_01.dfm.svn-base
inherited Tas400_01Form: TTas400_01Form
Caption = #26381#21153#25968#37327#20998#26512
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 lblDate: TLabel
Left = 45
Top = 12
Width = 48
Height = 12
Anchors = [akTop, akRight]
Caption = #36215#27490#26085#26399
Transparent = True
end
object lblType: TLabel
Left = 525
Top = 12
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #31867#22411
Transparent = True
end
object sbSearch: TSpeedButton
Left = 722
Top = 8
Width = 57
Height = 22
Anchors = [akTop, akRight]
Caption = #26597#35810
OnClick = sbSearchClick
end
object Label1: TLabel
Left = 333
Top = 12
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #31867#21035
Transparent = True
end
object edtFromDate: TwwDBDateTimePicker
Left = 101
Top = 8
Width = 105
Height = 20
Anchors = [akTop, akRight]
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
Epoch = 1950
ShowButton = True
TabOrder = 0
end
object edtToDate: TwwDBDateTimePicker
Left = 213
Top = 8
Width = 105
Height = 20
Anchors = [akTop, akRight]
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
Epoch = 1950
ShowButton = True
TabOrder = 1
end
object cbType: TComboBox
Left = 557
Top = 8
Width = 145
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 3
Items.Strings = (
#25353#20219#21153#31867#21035
#25353#20135#21697#31867#21035
#25353#23458#25143)
end
object cbClass: TComboBox
Left = 365
Top = 8
Width = 145
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 2
end
end
inherited ScrollBox2: TScrollBox
Height = 220
inherited dxDBTreeList1: TdxDBTreeList
Height = 216
KeyField = 'FNo'
ParentField = 'FParent'
PopupMenu = PopupMenu1
OnDblClick = dxDBTreeList1DblClick
object dxDBTreeList1FName: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'FName'
end
object dxDBTreeList1FTotal: TdxDBTreeListCurrencyColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 71
BandIndex = 0
RowIndex = 0
FieldName = 'FTotal'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FTotalDrawSummaryFooter
DisplayFormat = '0'
Nullable = False
end
object dxDBTreeList1FFinish: TdxDBTreeListCurrencyColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 71
BandIndex = 0
RowIndex = 0
FieldName = 'FFinish'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
OnDrawSummaryFooter = dxDBTreeList1FFinishDrawSummaryFooter
DisplayFormat = '0'
Nullable = False
end
object dxDBTreeList1FPercent: TdxDBTreeListCurrencyColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 71
BandIndex = 0
RowIndex = 0
FieldName = 'FPercent'
SummaryFooterType = cstAvg
SummaryFooterFormat = '0.00%'
OnDrawSummaryFooter = dxDBTreeList1FPercentDrawSummaryFooter
DisplayFormat = '0.00%'
Nullable = False
end
end
end
object Panel2: TPanel [4]
Left = 0
Top = 303
Width = 800
Height = 250
Align = alBottom
BevelOuter = bvNone
TabOrder = 3
object Splitter2: TSplitter
Left = 353
Top = 0
Width = 3
Height = 250
Cursor = crHSplit
end
object DBChart2: TDBChart
Left = 356
Top = 0
Width = 444
Height = 250
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
#20998#39006#20998#26512)
Align = alClient
BevelOuter = bvLowered
TabOrder = 1
object Series1: TBarSeries
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = True
DataSource = ADODataSet3
SeriesColor = clRed
Title = #26381#21153#24635#25968
XLabelsSource = 'FName'
BarWidthPercent = 50
SideMargins = False
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'FTotal'
end
object Series2: TBarSeries
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = True
DataSource = ADODataSet3
SeriesColor = clGreen
Title = #24050#23436#25104#25968
BarWidthPercent = 50
SideMargins = False
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'FFinish'
end
end
object DBChart1: TDBChart
Left = 0
Top = 0
Width = 353
Height = 250
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
#32317#25976#20998#26512)
Align = alLeft
BevelOuter = bvLowered
TabOrder = 0
object BarSeries1: TBarSeries
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = True
DataSource = ADODataSet2
SeriesColor = clRed
Title = #26381#21153#24635#25968
XLabelsSource = 'FName'
BarWidthPercent = 50
SideMargins = False
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'FTotal'
end
object BarSeries2: TBarSeries
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = True
DataSource = ADODataSet2
SeriesColor = clGreen
Title = #24050#23436#25104#25968
BarWidthPercent = 50
SideMargins = False
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'FFinish'
end
end
end
inherited ActionList1: TActionList
Left = 408
Top = 8
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 = 'FTotal'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FFinish'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FPercent'
Attributes = [faFixed]
DataType = ftFloat
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 ADODataSet1FTotal: TIntegerField
DisplayLabel = #26381#21153#24635#25968
FieldName = 'FTotal'
end
object ADODataSet1FFinish: TIntegerField
DisplayLabel = #24050#23436#25104#25968
FieldName = 'FFinish'
end
object ADODataSet1FPercent: TFloatField
DisplayLabel = #23436#25104#27604#29575
FieldName = 'FPercent'
DisplayFormat = '0.00%'
end
end
object ADOQuery1: TADOQuery
Connection = SYSDM.ADOC
Parameters =
SQL.Strings = (
'select count(T510_001) as FTotal,T100_001,T100_002,T100_003 from' +
' TAS510,TAS100 where T510_004=T100_001 group by T100_001,T100_00' +
'2,T100_003')
Left = 128
Top = 128
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 = 'FName'
DataType = ftString
Size = 50
end
item
Name = 'FTotal'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FFinish'
Attributes = [faFixed]
DataType = ftInteger
end>
Parameters =
StoreDefs = True
Left = 176
Top = 336
end
object ADODataSet3: TADODataSet
Connection = SYSDM.ADOC
CursorType = ctStatic
LockType = ltBatchOptimistic
FieldDefs = <
item
Name = 'FName'
DataType = ftString
Size = 50
end
item
Name = 'FTotal'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FFinish'
Attributes = [faFixed]
DataType = ftInteger
end>
Parameters =
StoreDefs = True
Left = 440
Top = 344
end
end
