开源的网站整站程序,功能强大带采集系统.
源代码在线查看: 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
|
相关资源 |
|
-
开源的网站整站程序,功能强大带采集系统.
-
内容丰富的太阳能网站整站程序,适合制作中小企业网站.
-
这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的..
如果你们可以.改良 ..改良...弄好它..就好啦!
-
网站整站程序,适合个人网站制作,不适合商业用途
-
燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://xywap.cn
-
烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员
-
这个也是一个功能强大的企业整站的ASP源代码
-
资源收录分类信息发布整站程序系统
|