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

看到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文件