newmainut.dfm

读取大智慧股票软件中的日线数据进行分析的源代码。代码仅有读取数据部分

object NewMainFm: TNewMainFm
  Left = 137
  Top = 201
  Width = 674
  Height = 476
  Caption = 'NewMainFm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 376
    Top = 208
    Width = 48
    Height = 13
    Caption = #24050#24674#22797#20102
  end
  object Label2: TLabel
    Left = 376
    Top = 240
    Width = 48
    Height = 13
    Caption = #24050#32463#29992#20102
  end
  object Label3: TLabel
    Left = 376
    Top = 272
    Width = 48
    Height = 13
    Caption = #39044#35745#36824#35201
  end
  object Label4: TLabel
    Left = 376
    Top = 304
    Width = 48
    Height = 13
    Caption = #24635#20849#29992#26102
  end
  object Label6: TLabel
    Left = 24
    Top = 8
    Width = 503
    Height = 13
    Caption = #35831#23558#25968#25454#24211#25991#20214#20998#31163#21518#25335#36125'MDF'#25991#20214#65292#20316#20026#24674#22797#25968#25454#30340#21407#22987#25991#20214#12290#20877#38468#21152#25968#25454#24211#20197#36873#25321#24674#22797#23545#35937
  end
  object Label7: TLabel
    Left = 376
    Top = 168
    Width = 48
    Height = 13
    Caption = #36215#22987#22359#21495
  end
  object Label8: TLabel
    Left = 528
    Top = 168
    Width = 48
    Height = 13
    Caption = #22359#20869#39029#21495
  end
  object Label9: TLabel
    Left = 376
    Top = 96
    Width = 36
    Height = 13
    Caption = #24674#22797#21040
  end
  object Label10: TLabel
    Left = 24
    Top = 96
    Width = 36
    Height = 13
    Caption = #36830#25509#21040
  end
  object Button1: TButton
    Left = 368
    Top = 128
    Width = 75
    Height = 25
    Caption = 'MDF'#25991#20214
    TabOrder = 0
  end
  object Edit1: TEdit
    Left = 448
    Top = 160
    Width = 73
    Height = 21
    TabOrder = 1
    Text = '0'
  end
  object Edit2: TEdit
    Left = 584
    Top = 160
    Width = 73
    Height = 21
    TabOrder = 2
    Text = '0'
  end
  object Button3: TButton
    Left = 24
    Top = 56
    Width = 75
    Height = 25
    Caption = #21442#32771#25968#25454#24211
    TabOrder = 3
  end
  object Edit3: TEdit
    Left = 448
    Top = 128
    Width = 209
    Height = 21
    TabOrder = 4
  end
  object Button4: TButton
    Left = 368
    Top = 56
    Width = 75
    Height = 25
    Caption = #30446#30340#25968#25454#24211
    TabOrder = 5
  end
  object ProgressBar1: TProgressBar
    Left = 24
    Top = 408
    Width = 625
    Height = 17
    Step = 1
    TabOrder = 6
  end
  object Button5: TButton
    Left = 496
    Top = 368
    Width = 75
    Height = 25
    Caption = #24320#22987
    TabOrder = 7
  end
  object Button2: TButton
    Left = 576
    Top = 368
    Width = 75
    Height = 25
    Caption = #20013#27490
    TabOrder = 8
  end
  object ezDBGrid1: TezDBGrid
    Left = 16
    Top = 128
    Width = 345
    Height = 217
    DataSource = DM.DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 9
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = ezDBGrid1CellClick
    RowColor1 = clWindow
    RowColor2 = cl3DLight
    Columns = <
      item
        Expanded = False
        FieldName = 'sele'
        Title.Caption = #36873#25321
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'id'
        Title.Caption = 'ID'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = #34920#21517
        Width = 260
        Visible = True
      end>
  end
  object Button6: TButton
    Left = 16
    Top = 368
    Width = 75
    Height = 25
    Action = SeleAllAct
    TabOrder = 10
  end
  object Button7: TButton
    Left = 96
    Top = 368
    Width = 75
    Height = 25
    Action = ClearAct
    TabOrder = 11
  end
  object Button8: TButton
    Left = 176
    Top = 368
    Width = 75
    Height = 25
    Action = DeSelectAct
    TabOrder = 12
  end
  object OpenDialog1: TOpenDialog
    Left = 72
    Top = 192
  end
  object ActionList1: TActionList
    Left = 240
    Top = 272
    object SeleAllAct: TAction
      Caption = #20840#36873
    end
    object ClearAct: TAction
      Caption = #20840#28165
    end
    object DeSelectAct: TAction
      Caption = #21453#36873
    end
    object ExitAct: TAction
      Caption = #36864#20986
    end
  end
end