一个用Delphi开发的ERP软件
源代码在线查看： tas440_01.dfm.svn-base
inherited Tas440_01Form: TTas440_01Form
Width = 812
Height = 612
Caption = #26410#23436#20219#21209#20998#26512
PixelsPerInch = 96
TextHeight = 12
inherited CoolBar1: TCoolBar
Width = 804
Bands = <
item
Control = ToolBar2
ImageIndex = -1
MinHeight = 39
Width = 800
end>
inherited ToolBar2: TToolBar
Width = 787
end
end
inherited Panel1: TPanel
Width = 804
inherited Image1: TImage
Width = 800
end
object lblDate: TLabel
Left = 429
Top = 12
Width = 48
Height = 12
Anchors = [akTop, akRight]
Caption = #36215#27490#26085#26399
Transparent = True
end
object sbSearch: TSpeedButton
Left = 722
Top = 8
Width = 57
Height = 22
Anchors = [akTop, akRight]
Caption = #26597#35810
OnClick = sbSearchClick
end
object edtFromDate: TwwDBDateTimePicker
Left = 485
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 = 596
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
end
inherited ScrollBox2: TScrollBox
Width = 804
Height = 505
object Splitter1: TSplitter [0]
Left = 0
Top = 210
Width = 800
Height = 3
Cursor = crVSplit
Align = alBottom
MinSize = 3
end
inherited dxDBTreeList1: TdxDBTreeList
Width = 800
Height = 210
Bands = <
item
Fixed = bfLeft
end
item
end
item
Fixed = bfRight
end>
DefaultLayout = False
HeaderMinRowCount = 2
KeyField = 'FNo'
ParentField = 'FParent'
PopupMenu = PopupMenu1
OnDblClick = dxDBTreeList1DblClick
FixedBandLineWidth = 1
end
object Panel2: TPanel
Left = 0
Top = 213
Width = 800
Height = 288
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object Splitter2: TSplitter
Left = 429
Top = 0
Width = 3
Height = 288
Cursor = crHSplit
Align = alRight
end
object DBChart2: TDBChart
Left = 432
Top = 0
Width = 368
Height = 288
AllowPanning = pmNone
AllowZoom = False
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
BackWall.Pen.Visible = False
Title.Text.Strings = (
'')
AxisVisible = False
ClipPoints = False
Frame.Visible = False
View3DOptions.Elevation = 315
View3DOptions.Orthogonal = False
View3DOptions.Perspective = 0
View3DOptions.Rotation = 360
View3DWalls = False
Align = alRight
BevelOuter = bvLowered
TabOrder = 0
object Series2: TPieSeries
Marks.ArrowLength = 8
Marks.Style = smsLabelPercent
Marks.Visible = True
DataSource = ADODataSet2
SeriesColor = clRed
ShowInLegend = False
XLabelsSource = 'FName'
OtherSlice.Text = 'Other'
PieValues.DateTime = False
PieValues.Name = 'Pie'
PieValues.Multiplier = 1
PieValues.Order = loNone
PieValues.ValueSource = 'FSum'
end
end
object DBChart1: TDBChart
Left = 0
Top = 0
Width = 429
Height = 288
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
'')
Legend.Visible = False
Align = alClient
BevelOuter = bvLowered
TabOrder = 1
object Series1: TBarSeries
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = True
DataSource = ADODataSet1
SeriesColor = clRed
XLabelsSource = 'FName'
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
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
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 ADODataSet2: TADODataSet
Connection = SYSDM.ADOC
CursorType = ctStatic
LockType = ltBatchOptimistic
FieldDefs = <
item
Name = 'FName'
DataType = ftString
Size = 50
end
item
Name = 'FSum'
Attributes = [faFixed]
DataType = ftInteger
end>
Parameters =
StoreDefs = True
Left = 88
Top = 200
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
end
