sdsdf.pas

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

unit sdsdf;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, Grids, DBGridEh, ADODB;

type
  TForm1 = class(TForm)
    DataQuery: TADOQuery;
    AC1: TADOConnection;
    AC2: TADOConnection;
    WorkQuery: TADOQuery;
    DBGridEh1: TDBGridEh;
    TempQuery: TADOQuery;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1   : TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  SQL_Str : string;
begin
  SQL_Str := 'Select * From Base Order By GPDM';
  DataQuery.Active := False;
  DataQuery.SQL.Clear;
  DataQuery.SQL.Add(SQL_Str);
  DataQuery.Open;
  DataQuery.First;
  SQL_Str := 'Select TOP 1 * from BaseInfo Order By 股票代号';
  WorkQuery.Active := False;
  WorkQuery.SQL.Clear;
  WorkQuery.SQL.Add(SQL_str);
  WorkQuery.Open;
  while DataQuery.Eof = False do
  begin
    WorkQuery.Append;
    WorkQuery.FieldByName('标志').AsString := DataQuery.FieldByName('SC').AsString;
    WorkQuery.FieldByName('股票代号').AsString := DataQuery.FieldByName('GPDM').AsString;
    WorkQuery.FieldByName('总股本').AsFloat := DataQuery.FieldByName('ZGB').AsFloat;
    WorkQuery.FieldByName('总股数').AsInteger := DataQuery.FieldByName('LTAG').AsInteger;
    WorkQuery.FieldByName('流通股本').AsFloat := DataQuery.FieldByName('LTAG').AsFloat;
    WorkQuery.Post;
    DataQuery.Next;
  end;
  TempQuery.Active := False;
  TempQuery.Active := True;

end;

end.