ord400_01.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

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