首先,我的显示器为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函数的作用就是连接数据库

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