一个用Delphi开发的ERP软件
源代码在线查看： ord400_01.dfm.svn-base
inherited Ord400_01Form: TOrd400_01Form
Caption = #38144#21806#25968#37327#20998#26512
PixelsPerInch = 96
TextHeight = 12
inherited Panel1: TPanel
object lblType: TLabel
Left = 312
Top = 12
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #31867#22411
Transparent = True
end
object lblDate: TLabel
Left = 472
Top = 12
Width = 24
Height = 12
Anchors = [akTop, akRight]
Caption = #26085#26399
Transparent = True
end
object sbSearch: TSpeedButton
Left = 732
Top = 8
Width = 57
Height = 22
Anchors = [akTop, akRight]
Caption = #26597#35810
OnClick = sbSearchClick
end
object cbType: TComboBox
Left = 344
Top = 8
Width = 114
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
ItemIndex = 0
TabOrder = 0
Text = #25353#23458#25143
Items.Strings = (
#25353#23458#25143
#25353#23458#25143#31867#21035
#25353#20135#21697
#25353#20135#21697#31867#21035
#25353#38144#21806#21592
#25353#22320#21306)
end
object edtFromDate: TwwDBDateTimePicker
Left = 504
Top = 8
Width = 105
Height = 20
Anchors = [akTop, akRight]
AutoSize = False
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 edtToDate: TwwDBDateTimePicker
Left = 612
Top = 8
Width = 105
Height = 20
Anchors = [akTop, akRight]
AutoSize = False
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 = 2
end
end
inherited ScrollBox2: TScrollBox
inherited dxDBTreeList1: TdxDBTreeList
KeyField = 'FNo'
ParentField = 'FParent'
PopupMenu = PopupMenu1
object dxDBTreeList1FName: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 320
BandIndex = 0
RowIndex = 0
FieldName = 'FName'
end
object dxDBTreeList1FQty: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 100
BandIndex = 0
RowIndex = 0
FieldName = 'FQty'
SummaryFooterType = cstSum
end
object dxDBTreeList1FAmount: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 100
BandIndex = 0
RowIndex = 0
FieldName = 'FAmount'
SummaryFooterType = cstSum
end
end
end
inherited ActionList1: TActionList
Left = 408
Top = 8
object ActOpen: TAction
Caption = #26597#30475'(&N)'
ShortCut = 16397
end
end
inherited ADODataSet1: TADODataSet
CursorType = ctStatic
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 = 'FQty'
Attributes = [faFixed]
DataType = ftFloat
end
item
Name = 'FAmount'
Attributes = [faFixed]
DataType = ftFloat
end>
StoreDefs = True
object ADODataSet1FNo: TIntegerField
FieldName = 'FNo'
Visible = False
end
object ADODataSet1FName: TStringField
DisplayLabel = #32534#21495#21517#31216
FieldName = 'FName'
Size = 50
end
object ADODataSet1FParent: TIntegerField
FieldName = 'FParent'
Visible = False
end
object ADODataSet1FQty: TFloatField
DisplayLabel = #38144#21806#25968#37327
FieldName = 'FQty'
end
object ADODataSet1FAmount: TFloatField
DisplayLabel = #38144#21806#37329#39069
FieldName = 'FAmount'
end
end
inherited pmPrint: TPopupMenu
Left = 464
Top = 16
end
object ADOQuery1: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select O150_001 as FCode,'#39'['#39'+O150_002+'#39']'#39'+O150_003 as FName,O150' +
'_001 as FParent,sum(O510B_005) as FQty,sum(O510B_013) as FAmount'
'from ORD510A,ORD510B,ORD150'
'where O510A_001=O510B_001 and O510A_017=O150_001'
' Group By O150_001,O150_002,O150_003,O510A_003'
' order by O510A_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
end
