一个用Delphi开发的ERP软件
源代码在线查看： csh720_01.dfm.svn-base
inherited Csh720_01Form: TCsh720_01Form
Left = -4
Top = -4
Width = 808
Height = 580
Caption = #36164#37329#21435#21521#26597#35810
PixelsPerInch = 96
TextHeight = 12
object Splitter1: TSplitter [0]
Left = 0
Top = 300
Width = 800
Height = 3
Cursor = crVSplit
Align = alBottom
Visible = False
end
inherited CoolBar1: TCoolBar
Width = 800
Bands = <
item
Control = ToolBar2
ImageIndex = -1
MinHeight = 39
Width = 796
end>
inherited ToolBar2: TToolBar
Width = 783
end
end
inherited Panel1: TPanel
Width = 800
inherited Image1: TImage
Width = 796
end
object lblDate: TLabel
Left = 461
Top = 13
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #26085#26399
Transparent = True
end
object sbSearch: TSpeedButton
Left = 725
Top = 8
Width = 57
Height = 22
Anchors = [akTop, akRight]
Caption = #26597#35810
OnClick = sbSearchClick
end
object edtFromDate: TwwDBDateTimePicker
Left = 493
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 = []
CalendarAttributes.PopupYearOptions.ShowEditYear = True
Epoch = 1950
ShowButton = True
TabOrder = 0
end
object edtToDate: TwwDBDateTimePicker
Left = 605
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 = []
CalendarAttributes.PopupYearOptions.ShowEditYear = True
Epoch = 1950
ShowButton = True
TabOrder = 1
end
end
inherited ScrollBox1: TScrollBox
Width = 800
Height = 220
inherited dxDBTreeList1: TdxDBTreeList
Width = 796
Height = 216
object dxDBTreeList1CURNM: TdxDBTreeListMaskColumn
HeaderAlignment = taCenter
Width = 90
BandIndex = 0
RowIndex = 0
FieldName = 'CURNM'
end
object dxDBTreeList1CLSNM: TdxDBTreeListMaskColumn
HeaderAlignment = taCenter
Width = 351
BandIndex = 0
RowIndex = 0
FieldName = 'CLSNM'
end
object dxDBTreeList1AMOUNT: TdxDBTreeListCurrencyColumn
HeaderAlignment = taCenter
Width = 137
BandIndex = 0
RowIndex = 0
FieldName = 'AMOUNT'
SummaryFooterType = cstSum
SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
OnDrawSummaryFooter = dxDBTreeList1AMOUNTDrawSummaryFooter
Nullable = False
end
end
end
object Panel2: TPanel [4]
Left = 0
Top = 303
Width = 800
Height = 250
Align = alBottom
BevelOuter = bvNone
TabOrder = 3
Visible = False
object DBChart1: TDBChart
Left = 0
Top = 0
Width = 800
Height = 250
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
' ')
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object BarSeries1: TBarSeries
Marks.ArrowLength = 20
Marks.Style = smsPercent
Marks.Visible = True
DataSource = ADODataSet1
SeriesColor = clRed
Title = 'Series1'
XLabelsSource = 'CLSNM'
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 = 'AMOUNT'
end
end
end
inherited ActionList1: TActionList
object ActOpen: TAction
Caption = #26597#30475'(&N)'
ShortCut = 16397
OnExecute = ActOpenExecute
end
end
inherited ADODataSet1: TADODataSet
object ADODataSet1CURNM: TStringField
DisplayLabel = #24065#21035
FieldName = 'CURNM'
Size = 30
end
object ADODataSet1CLSNO: TIntegerField
FieldName = 'CLSNO'
Visible = False
end
object ADODataSet1CLSNM: TStringField
DisplayLabel = #19994#21153#20998#31867
FieldName = 'CLSNM'
Size = 50
end
object ADODataSet1PARNO: TIntegerField
FieldName = 'PARNO'
Visible = False
end
object ADODataSet1AMOUNT: TCurrencyField
DisplayLabel = #37329#39069
FieldName = 'AMOUNT'
end
object ADODataSet1LEVEL: TIntegerField
FieldName = 'LEVEL'
Visible = False
end
object ADODataSet1SEQNO: TIntegerField
FieldName = 'SEQNO'
Visible = False
end
end
object ADOQuery1: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
Parameters = <
item
Name = 'DATE1'
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end
item
Name = 'DATE2'
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end>
Prepared = True
SQL.Strings = (
'select D.G100_003, C.C140_001, C.C140_002, C.C140_004, sum(C500_' +
'007) as C500_007'
'from CSH500 A, CSH550 B, CSH140 C, GLD100 D'
'where A.C500_001=B.C550_001 and A.C500_006=C.C140_001 and '
' B.C550_005=D.G100_001 and A.C500_0023 and '
' A.C500_008=1 and A.C500_003>=:DATE1 and '
' A.C500_003 'group by D.G100_003, C.C140_001, C.C140_002, C.C140_004'
'order by D.G100_003, C.C140_004, C.C140_001')
Left = 288
Top = 128
end
object qryCsh550: TADOQuery
Connection = SYSDM.ADOC
Parameters =
SQL.Strings = (
'select * from CSH550')
Left = 328
Top = 128
end
object ADODataSet2: TADODataSet
CacheSize = 1000
CursorType = ctStatic
LockType = ltBatchOptimistic
FieldDefs = <
item
Name = 'CURNM'
DataType = ftString
Size = 100
end
item
Name = 'CLSNO'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'CLSNM'
DataType = ftString
Size = 50
end
item
Name = 'PARNO'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'LEVEL'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'SEQNO'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'AMOUNT'
Attributes = [faFixed]
DataType = ftBCD
Size = 4
end>
IndexFieldNames = 'SEQNO'
Parameters =
StoreDefs = True
Left = 208
Top = 248
object ADODataSet2CURNM: TStringField
FieldName = 'CURNM'
Size = 100
end
object ADODataSet2CLSNO: TIntegerField
FieldName = 'CLSNO'
end
object ADODataSet2CLSNM: TStringField
FieldName = 'CLSNM'
Size = 50
end
object ADODataSet2PARNO: TIntegerField
FieldName = 'PARNO'
end
object ADODataSet2AMOUNT: TBCDField
FieldName = 'AMOUNT'
Size = 0
end
object ADODataSet2LEVEL: TIntegerField
FieldName = 'LEVEL'
end
object ADODataSet2SEQNO: TIntegerField
FieldName = 'SEQNO'
Visible = False
end
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
