主题：前十大股东公式原码（原发作者：hshcompass）

    首先,我的显示器为22",大家可以根据自己屏幕大小调整参数;

其次,由于只是砖头,为使用美化效果,留给大家自己作.最后,谢谢为我们提供交流平台。

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'),LINETHICK0;
VAR12:DBVALUE('gd1cgsl'),LINETHICK0;
VAR13:DBVALUE('gd1cgBl'),LINETHICK0;
VAR21:DBSTRING('gd2mc'),LINETHICK0;
VAR22:DBVALUE('gd2cgsl'),LINETHICK0;
VAR23:DBVALUE('gd2cgBl'),LINETHICK0;
VAR31:DBSTRING('gd3mc'),LINETHICK0;
VAR32:DBVALUE('gd3cgsl'),LINETHICK0;
VAR33:DBVALUE('gd3cgBl'),LINETHICK0;
VAR41:DBSTRING('gd4mc'),LINETHICK0;
VAR42:DBVALUE('gd4cgsl'),LINETHICK0;
VAR43:DBVALUE('gd4cgBl'),LINETHICK0;
VAR51:DBSTRING('gd5mc'),LINETHICK0;
VAR52:DBVALUE('gd5cgsl'),LINETHICK0;
VAR53:DBVALUE('gd5cgBl'),LINETHICK0;
VAR61:DBSTRING('gd6mc'),LINETHICK0;
VAR62:DBVALUE('gd6cgsl'),LINETHICK0;
VAR63:DBVALUE('gd6cgBl'),LINETHICK0;
VAR71:DBSTRING('gd7mc'),LINETHICK0;
VAR72:DBVALUE('gd7cgsl'),LINETHICK0;
VAR73:DBVALUE('gd7cgBl'),LINETHICK0;
VAR81:DBSTRING('gd8mc'),LINETHICK0;
VAR82:DBVALUE('gd8cgsl'),LINETHICK0;
VAR83:DBVALUE('gd8cgBl'),LINETHICK0;
VAR91:DBSTRING('gd9mc'),LINETHICK0;
VAR92:DBVALUE('gd9cgsl'),LINETHICK0;
VAR93:DBVALUE('gd9cgBl'),LINETHICK0;
VAR101:DBSTRING('gd10mc'),LINETHICK0;
VAR102:DBVALUE('gd10cgsl'),LINETHICK0;
VAR103:DBVALUE('gd10cgBl'),LINETHICK0;
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;

为方便大家复制到系统上摆弄，本人对作者发的原版作了排列整理。

这是附件：

由于我的浏览器不知怎的在原论坛上不支持控制码，所以取不到附件的下载地址，还请坛主把附件的下载地址给补过来。

楼主的已经开发好了ACCESS数据库代码.本帖这里只是提供了一个接口,供别人使用.

DATABASE函数的作用就是连接数据库

没事又在挖坟。。太过分了 。。。