processdata.dfm

这是一个股票盘后数据分析系统基础底层,已经实现了基本的K线图的重现,RIS线,均线图的重现, 是在一个台湾高手发布的原码上修改的,现在支持通达信的股票数据格式.

object ProcessDataForm: TProcessDataForm
  Left = 192
  Top = 129
  BorderStyle = bsSingle
  Caption = #25968#25454#22788#29702
  ClientHeight = 473
  ClientWidth = 862
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 57
    Width = 862
    Height = 392
    Align = alClient
    DataSource = DataSource1
    FixedColor = 13885150
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghFrozen3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghRowHighlight, dghDialogFind]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    UseMultiTitle = True
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 862
    Height = 57
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 53
        Width = 858
      end>
    Color = 13885150
    FixedSize = True
    FixedOrder = True
    ParentColor = False
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 854
      Height = 53
      ButtonHeight = 51
      ButtonWidth = 43
      Flat = True
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 0
      Transparent = True
      object ToolButton6: TToolButton
        Left = 0
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 8
        Top = 0
        Cursor = crHandPoint
        Caption = #35835#20837
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton10: TToolButton
        Left = 51
        Top = 0
        Width = 8
        Caption = 'ToolButton10'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ToolButton2: TToolButton
        Left = 59
        Top = 0
        Cursor = crHandPoint
        Caption = #20445#23384
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
      object ToolButton7: TToolButton
        Left = 102
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 110
        Top = 0
        Cursor = crHandPoint
        Caption = #21024#38500
        ImageIndex = 3
      end
      object ToolButton11: TToolButton
        Left = 153
        Top = 0
        Width = 8
        Caption = 'ToolButton11'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 161
        Top = 0
        Cursor = crHandPoint
        Caption = ' '#20851#38381' '
        ImageIndex = 4
        OnClick = ToolButton5Click
      end
      object ToolButton8: TToolButton
        Left = 204
        Top = 0
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 7
        Style = tbsSeparator
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 449
    Width = 862
    Height = 24
    Panels = <>
  end
  object Memo1: TMemo
    Left = 416
    Top = 120
    Width = 313
    Height = 233
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object WorkQuery: TADOQuery
    Connection = MainForm.MC
    Parameters = <>
    Left = 80
    Top = 112
  end
  object DataQuery: TADOQuery
    Connection = MainForm.MC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From BaseInfo')
    Left = 208
    Top = 192
  end
  object OpenDialog1: TOpenDialog
    Left = 80
    Top = 176
  end
  object AC: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\'#32929#31080#20998#26512#31995#32479'\base.mdb;' +
      'Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 80
    Top = 264
  end
  object SubTable: TVirtualTable
    Active = True
    FieldDefs = <
      item
        Name = #26631#24535
        DataType = ftString
        Size = 2
      end
      item
        Name = #32929#31080#20195#21495
        DataType = ftString
        Size = 8
      end
      item
        Name = #32929#31080#21517#31216
        DataType = ftString
        Size = 24
      end
      item
        Name = #24635#32929#26412
        DataType = ftFloat
      end
      item
        Name = #24635#32929#25968
        DataType = ftFloat
      end
      item
        Name = #24066#30408#29575
        DataType = ftFloat
      end
      item
        Name = #26152#25910
        DataType = ftFloat
      end
      item