开源的网站整站程序,功能强大带采集系统.

源代码在线查看: ord400_01.dfm.svn-base

软件大小: 2475 K
上传用户: a83133937
关键词: 开源 网站 程序 采集系统
下载地址: 免注册下载 普通下载 VIP

相关代码

				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
							

相关资源