sdsdf.dfm

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

object Form1: TForm1
  Left = 192
  Top = 132
  Width = 870
  Height = 554
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 862
    Height = 433
    Align = alTop
    DataSource = DataSource1
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    UseMultiTitle = True
    Columns = <
      item
        EditButtons = <>
        FieldName = #26631#24535
        Footers = <>
        Width = 31
      end
      item
        EditButtons = <>
        FieldName = #32929#31080#20195#21495
        Footers = <>
        Width = 57
      end
      item
        EditButtons = <>
        FieldName = #32929#31080#21517#31216
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #21161#35760#30721
        Footers = <>
        Width = 50
      end
      item
        EditButtons = <>
        FieldName = #24635#32929#26412
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #24635#32929#25968
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #27969#36890#32929#26412
        Footers = <>
        Width = 56
      end
      item
        EditButtons = <>
        FieldName = #27969#36890#32929#25968
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #26085#26399
        Footers = <>
        Width = 65
      end
      item
        EditButtons = <>
        FieldName = #29616#20215
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #24320#30424#20215
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #26368#39640#20215
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #26368#20302#20215
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #26152#25910#20215
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #24066#30408#29575
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #25104#20132#37327
        Footers = <>
      end>
  end
  object BitBtn1: TBitBtn
    Left = 160
    Top = 448
    Width = 73
    Height = 41
    Caption = #35835#20837
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 376
    Top = 448
    Width = 65
    Height = 41
    Caption = #36864#20986
    TabOrder = 2
  end
  object DataQuery: TADOQuery
    Connection = AC1
    Parameters = <>
    Left = 384
    Top = 128
  end
  object AC1: 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 = 448
    Top = 136
  end
  object AC2: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\'#32929#31080#20998#26512#31995#32479'\StockInfo' +
      '.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 256
    Top = 312
  end
  object WorkQuery: TADOQuery
    Connection = AC2
    Parameters = <>
    Left = 256
    Top = 256
  end
  object TempQuery: TADOQuery
    Active = True
    Connection = AC2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From BaseInfo Order By '#32929#31080#20195#21495)
    Left = 152
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = TempQuery
    Left = 152
    Top = 64
  end
end