csh700_01.dfm.svn-base

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

inherited Csh700_01Form: TCsh700_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #36164#37329#20313#39069#26597#35810
  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
      inherited ToolButton2: TToolButton
        Visible = False
      end
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
    object lblDate: TLabel
      Left = 573
      Top = 13
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #26085#26399
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 725
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object edtDate: TwwDBDateTimePicker
      Left = 605
      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 = 0
    end
  end
  inherited ScrollBox1: TScrollBox
    Width = 800
    Height = 220
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 216
      KeyField = 'ACCNO'
      Filter.Criteria = {00000000}
      object dxDBGrid1CURNM: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 88
        BandIndex = 0
        RowIndex = 0
        FieldName = 'CURNM'
      end
      object dxDBGrid1ACCNM: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 313
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ACCNM'
      end
      object dxDBGrid1AMOUNT: TdxDBGridCurrencyColumn
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'AMOUNT'
        SummaryFooterType = cstSum
        SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
        OnDrawSummaryFooter = dxDBGrid1AMOUNTDrawSummaryFooter
        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 = 'Series1'
        XLabelsSource = 'ACCNM'
        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 = 'AMOUNT'
      end
    end
  end
  inherited ActionList1: TActionList
    inherited ActInsert: TAction
      Visible = False
    end
    inherited ActUpdate: TAction
      Visible = False
    end
    inherited ActDelete: TAction
      Visible = False
    end
    object ActOpen: TAction
      Caption = #26597#30475'(&N)'
      ShortCut = 16397
    end
  end
  inherited ADODataSet1: TADODataSet
    object ADODataSet1ACCNO: TIntegerField
      DisplayLabel = #24080#25143#32534#21495
      FieldName = 'ACCNO'
      Visible = False
    end
    object ADODataSet1ACCNM: TStringField
      DisplayLabel = #24080#25143#21517#31216
      FieldName = 'ACCNM'
      Size = 50
    end
    object ADODataSet1CURNM: TStringField
      DisplayLabel = #24065#21035
      FieldName = 'CURNM'
      Size = 30
    end
    object ADODataSet1AMOUNT: TBCDField
      DisplayLabel = #20313#39069
      FieldName = 'AMOUNT'
      Size = 0
    end
  end
  object qryCsh550: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from CSH550')
    Left = 360
    Top = 152
  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