主题：给“十大股东”指标加点料

这是我发在原论坛的原文，现转过来。

看到hshcompass为斯道客专版制作的“十大股东”指标，觉得顶行显示的内容可换点新东西，便将原用的搬了点过来搭上。
 
{指标名：十大股东}
Svol:=INTPART(SUM(V,0)/CAPITAL);
St1:=svol>REF(svol,1) or BARSSINCE(CLOSE)=0;
S1:=BARSLAST(St1)+1;
St2:=S1<ref(S1,1);
S2:=if(St2,ref(S1,1)+1,S1);
S3:=sum(St2,0);
阶段总额:=SUM(AMOUNT/10000,S2)*100;
阶段总量:=SUM(Vol,S2)*100;
阶段成本:=阶段总额/(阶段总量/100);
Zk:=STKINDI('','kdj.k',0,7);
Zd:=STKINDI('','kdj.d',0,7);
ZF:=STKINDI('','macd.diff',0,7);
ZA:=STKINDI('','macd.dea',0,7);
hsl:=VOL/FINANCE(7);
100％换手:st2,LINETHICK0,PRECISION2;
五日换手:ma(hsl,5),Color00FFFF,PRECISION2,LINETHICK0;
十日换手:ma(hsl,10),Color0089FF,PRECISION2,LINETHICK0;
三十日换手:=ma(hsl,30),COLOR00FF00,PRECISION2,LINETHICK0;
JCD:=FILTER(CROSS(Zk,Zd) and Zd<25,13);{周KD金叉位置}
取点:=barslast(JCD);
吸筹区:=if(取点>0 and 取点<61,取点,0);
ZS1:=吸筹区;
ZS2:=吸筹区+1;
ZS3:=hsl/5;{庄家筹码估算}
ZSA:=IF(ZS1>0,sum((ZS3),吸筹区+1),0);{统计庄家筹码}
建仓天数:zs1,LINETHICK0,COLORCC9900;
主力筹码％:zsa,LINETHICK0,PRECISION2;
阶段平均成本:阶段成本,LINETHICK0,PRECISION2,COLOR00CC00;
DRAWICON(st2,0,8);
 
{以下是hshcompass为斯道客专版制作的原码，只是改了行列对应我的屏幕}
DATABASE('Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=D:\Weisoft Stock\DATA\sdgd.mdb');
DBTABLE('Select * From @Code@ Order By StockDate');
VAR11:=DBSTRING('gd1mc');
VAR12:=DBVALUE('gd1cgsl');
VAR13:=DBVALUE('gd1cgBl');
VAR21:=DBSTRING('gd2mc');
VAR22:=DBVALUE('gd2cgsl');
VAR23:=DBVALUE('gd2cgBl');
VAR31:=DBSTRING('gd3mc');
VAR32:=DBVALUE('gd3cgsl');
VAR33:=DBVALUE('gd3cgBl');
VAR41:=DBSTRING('gd4mc');
VAR42:=DBVALUE('gd4cgsl');
VAR43:=DBVALUE('gd4cgBl');
VAR51:=DBSTRING('gd5mc');
VAR52:=DBVALUE('gd5cgsl');
VAR53:=DBVALUE('gd5cgBl');
VAR61:=DBSTRING('gd6mc');
VAR62:=DBVALUE('gd6cgsl');
VAR63:=DBVALUE('gd6cgBl');
VAR71:=DBSTRING('gd7mc');
VAR72:=DBVALUE('gd7cgsl');
VAR73:=DBVALUE('gd7cgBl');
VAR81:=DBSTRING('gd8mc');
VAR82:=DBVALUE('gd8cgsl');
VAR83:=DBVALUE('gd8cgBl');
VAR91:=DBSTRING('gd9mc');
VAR92:=DBVALUE('gd9cgsl');
VAR93:=DBVALUE('gd9cgBl');
VAR101:=DBSTRING('gd10mc');
VAR102:=DBVALUE('gd10cgsl');
VAR103:=DBVALUE('gd10cgBl');
DBREADTYPE( 0);DRAWTEXTEX(C>0,1,10,10,'前十大股东名称'),colorgreen;
DRAWTEXTEX(C>0,1,270,10, '股东持股') ,colorgreen;
DRAWTEXTEX(C>0,1,350,10, '万股'),color00ffff;
DRAWTEXTEX(C>0,1,400,10, '持股比例%') ,colorgreen;
DRAWTEXTEX(C>0,1,1,190,'①'+VAR11);
DRAWTEXTEX(C>0,1,315,190,NUMTOSTR(VAR12/10000,2)),color00ffff;
DRAWTEXTEX(C>0,1,420,190,NUMTOSTR(VAR13,2)+'%');
DRAWTEXTEX(C>0,1,1,360,'②'+VAR21);
DRAWTEXTEX(C>0,1,315,360,NUMTOSTR(VAR22/10000,2)),color00ffff;
DRAWTEXTEX(C>0,1,420,360,NUMTOSTR(VAR23,2)+'%');
DRAWTEXTEX(C>0,1,1,530,'③'+VAR31);
DRAWTEXTEX(C>0,1,315,530,NUMTOSTR(VAR32/10000,2)),color00ffff;
DRAWTEXTEX(C>0,1,420,530,NUMTOSTR(VAR33,2)+'%');
DRAWTEXTEX(C>0,1,1,700,'④'+VAR41);
DRAWTEXTEX(C>0,1,315,700,NUMTOSTR(VAR42/10000,2)),color00ffff;
DRAWTEXTEX(C>0,1,420,700,NUMTOSTR(VAR43,2)+'%');
DRAWTEXTEX(C>0,1,1,870,'⑤'+VAR51);
DRAWTEXTEX(C>0,1,315,870,NUMTOSTR(VAR52/10000,2)),color00ffff;
DRAWTEXTEX(C>0,1,420,870,NUMTOSTR(VAR53,2)+'%');
DRAWTEXTEX(C>0,1,500,10,'前十大股东名称'),colorgreen;
DRAWTEXTEX(C>0,1,770,10, '股东持股'),colorgreen;
DRAWTEXTEX(C>0,1,850,10, '万股'),color00ffff;
DRAWTEXTEX(C>0,1,900,10, '持股比例%'),colorgreen;
DRAWTEXTEX(C>0,1,500,190,'⑥'+VAR61);
DRAWTEXTEX(C>0,1,820,190,NUMTOSTR(VAR62/10000,2)),color00ffff;
DRAWTEXTEX(C>0,1,920,190,NUMTOSTR(VAR63,2)+'%');
DRAWTEXTEX(C>0,1,500,360,'⑦'+VAR71);
DRAWTEXTEX(C>0,1,820,360,NUMTOSTR(VAR72/10000,2)),color00ffff;
DRAWTEXTEX(C>0,1,920,360,NUMTOSTR(VAR73,2)+'%');
DRAWTEXTEX(C>0,1,500,530,'⑧'+VAR81);
DRAWTEXTEX(C>0,1,820,530,NUMTOSTR(VAR82/10000,2)),color00ffff;
DRAWTEXTEX(C>0,1,920,530,NUMTOSTR(VAR83,2)+'%');
DRAWTEXTEX(C>0,1,500,700,'⑨'+VAR91);
DRAWTEXTEX(C>0,1,820,700,NUMTOSTR(VAR92/10000,2)),color00ffff;
DRAWTEXTEX(C>0,1,920,700,NUMTOSTR(VAR93,2)+'%');
DRAWTEXTEX(C>0,1,500,870,'⑩'+VAR101);
DRAWTEXTEX(C>0,1,820,870,NUMTOSTR(VAR102/10000,2)),color00ffff;
DRAWTEXTEX(C>0,1,920,870,NUMTOSTR(VAR103,2)+'%');
//DRAWTEXTEX(C>0,1,200,870, '◆◆◆◆hshcompass为斯道客专版制作,QQ46215528◆◆◆◆'),COLORCCCCCC;

在这里感谢十大股东数据和显示原码提供的作者， 下面是效果图。

（效果图，因我的浏览器不知是哪里的问题，不支持原论坛的控制码，所以在原论坛不能下载，就转不过来了）

没找到sdgd.mdb文件