csh810_01.dfm.svn-base

一个用Delphi开发的ERP软件

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