一个用Delphi开发的ERP软件
源代码在线查看： csh810_01.dfm.svn-base
inherited Csh810_01Form: TCsh810_01Form
Left = -4
Top = -4
Width = 808
Height = 580
Caption = #25910#25903#20998#26512#25253#34920
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
Height = 62
inherited Image1: TImage
Width = 796
Height = 58
end
object lblItem: TLabel
Left = 213
Top = 13
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #39033#30446
Transparent = True
end
object lblDate1: TLabel
Left = 469
Top = 13
Width = 30
Height = 12
Anchors = [akTop, akRight]
Caption = #26399#27573'1'
Transparent = True
end
object lblType: TLabel
Left = 213
Top = 37
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #31867#22411
Transparent = True
end
object lblDate2: TLabel
Left = 469
Top = 37
Width = 30
Height = 12
Anchors = [akTop, akRight]
Caption = #26399#27573'2'
Transparent = True
end
object sbSearch: TSpeedButton
Left = 733
Top = 8
Width = 57
Height = 22
Anchors = [akTop, akRight]
Caption = #26597#35810
OnClick = sbSearchClick
end
object cbItem: TComboBox
Left = 245
Top = 8
Width = 217
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 0
end
object edtFromDate1: TwwDBDateTimePicker
Left = 509
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
object edtToDate1: TwwDBDateTimePicker
Left = 621
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 = 2
end
object cbType: TComboBox
Left = 245
Top = 32
Width = 217
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 3
OnChange = cbTypeChange
end
object edtFromDate2: TwwDBDateTimePicker
Left = 509
Top = 32
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 = 4
end
object edtToDate2: TwwDBDateTimePicker
Left = 621
Top = 32
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 = 5
end
end
inherited ScrollBox1: TScrollBox
Top = 105
Width = 800
Height = 195
inherited dxDBTreeList1: TdxDBTreeList
Width = 796
Height = 191
KeyField = 'FNo'
ParentField = 'FParent'
ShowFooter = False
object dxDBTreeList1FCurNm: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 110
BandIndex = 0
RowIndex = 0
FieldName = 'FCurNm'
end
object dxDBTreeList1FName: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 180
BandIndex = 0
RowIndex = 0
FieldName = 'FName'
end
object dxDBTreeList1FDate1: TdxDBTreeListCurrencyColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 95
BandIndex = 0
RowIndex = 0
FieldName = 'FDate1'
Nullable = False
end
object dxDBTreeList1FDate2: TdxDBTreeListCurrencyColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 95
BandIndex = 0
RowIndex = 0
FieldName = 'FDate2'
Nullable = False
end
object dxDBTreeList1FAmount: TdxDBTreeListCurrencyColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 95
BandIndex = 0
RowIndex = 0
FieldName = 'FAmount'
Nullable = False
end
object dxDBTreeList1FPercent: TdxDBTreeListCurrencyColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 59
BandIndex = 0
RowIndex = 0
FieldName = 'FPercent'
DisplayFormat = '0.00%;-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
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 = smsValue
Marks.Visible = True
DataSource = ADODataSet1
SeriesColor = clRed
Title = #26399#27573'1'
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 = 'FDate1'
end
object Series1: TBarSeries
Marks.ArrowLength = 20
Marks.Visible = True
DataSource = ADODataSet1
SeriesColor = clGreen
Title = #26399#27573'2'
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 = 'FDate2'
end
end
end
inherited ActionList1: TActionList
object ActOpen: TAction
Caption = #26597#30475'(&N)'
ShortCut = 16397
OnExecute = ActOpenExecute
end
end
inherited ADODataSet1: TADODataSet
CacheSize = 1
Connection = SYSDM.ADOC
CursorType = ctStatic
LockType = ltBatchOptimistic
FieldDefs = <
item
Name = 'FCurNm'
DataType = ftString
Size = 30
end
item
Name = 'FNo'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FParent'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FName'
DataType = ftString
Size = 50
end
item
Name = 'FDate1'
Attributes = [faFixed]
DataType = ftBCD
Size = 4
end
item
Name = 'FDate2'
Attributes = [faFixed]
DataType = ftBCD
Size = 4
end
item
Name = 'FAmount'
Attributes = [faFixed]
DataType = ftBCD
Size = 4
end
item
Name = 'FPercent'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FLevel'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FSeqNo'
Attributes = [faFixed]
DataType = ftInteger
end>
IndexFieldNames = 'FSeqNo'
StoreDefs = True
Left = 56
Top = 200
object ADODataSet1FCurNm: TStringField
DisplayLabel = #24065#21035
DisplayWidth = 30
FieldName = 'FCurNm'
Size = 30
end
object ADODataSet1FNo: TIntegerField
FieldName = 'FNo'
Visible = False
end
object ADODataSet1FParent: TIntegerField
FieldName = 'FParent'
Visible = False
end
object ADODataSet1FName: TStringField
DisplayLabel = #21517#31216
FieldName = 'FName'
Size = 50
end
object ADODataSet1FDate1: TBCDField
DisplayLabel = #26399#27573'1'
FieldName = 'FDate1'
Size = 0
end
object ADODataSet1FDate2: TBCDField
DisplayLabel = #26399#27573'2'
FieldName = 'FDate2'
Size = 0
end
object ADODataSet1FAmount: TBCDField
DisplayLabel = #37329#39069
FieldName = 'FAmount'
Size = 0
end
object ADODataSet1FPercent: TFloatField
DisplayLabel = #22686#38271#29575
FieldName = 'FPercent'
end
object ADODataSet1FLevel: TIntegerField
FieldName = 'FLevel'
Visible = False
end
object ADODataSet1FSeqNo: TIntegerField
FieldName = 'FSeqNo'
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
