公式网-网站导航


网站搜索：  

公式在线 发表于2009/11/21 10:37:43

股东查询源码指标

C/C++ Code复制内容到剪贴板
  1. INPUT:X1(500,100,1000),Y(80,10,100),M(0);   
  2. 股东1:=PFSTR(4001,M);   
  3. 股东2:=PFSTR(4011,M);   
  4. 股东3:=PFSTR(4021,M);   
  5. 股东4:=PFSTR(4031,M);   
  6. 股东5:=PFSTR(4041,M);   
  7. 股东6:=PFSTR(4051,M);   
  8. 股东7:=PFSTR(4061,M);   
  9. 股东8:=PFSTR(4071,M);   
  10. 股东9:=PFSTR(4081,M);   
  11. 股东10:=PFSTR(4091,M);   
  12. 股东:=股东1+股东2+股东3+股东4+股东5+股东6+股东7+股东8+股东9+股东10;   
  13. {DRAWTEXTREL(X1+100,450,'■提醒：请及时下载专业财务数据!'),COLOR0000FF;   
  14. DRAWTEXTREL(X1+100,600,'■技巧：请手动修改以上股东名称,'),COLORFFFFFF;   
  15. DRAWTEXTREL(X1+100,750,'  即可自由选择该股东所持有个股!'),COLORFFFFFF;   
  16. DRAWTEXTREL(X1+100,900,'====改编自一品茶缘【股东查询】===='),COLOR00FFFF;}   
  17. {以下设置副图显示方式}   
  18. y1:=150;   
  19. DRAWTEXTREL(20,20,'股票名称:'+'【'+STKLABEL+' '+STKNAME+'】'),COLOR00FFFF;DRAWTEXTREL(X1*0.97,40,'增减情况'),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,40,'持股数（万股）'),Color8080FF;DRAWTEXTREL(X1*0.97+250,40,'持股比例（%）'),ColorBFBFFF;   
  20.   
  21.     DRAWTEXTREL(20,y1,'1.'+股东1),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1,PFSTR(4004,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1,STR(PFFIN(4002,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1,STR(PFFIN(4003,M))),ColorBFBFFF;   
  22. DRAWTEXTREL(20,y1+y*1,'2.'+股东2),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*1,PFSTR(4014,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*1,STR(PFFIN(4012,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*1,STR(PFFIN(4013,M))),ColorBFBFFF;   
  23. DRAWTEXTREL(20,y1+y*2,'3.'+股东3),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*2,PFSTR(4024,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*2,STR(PFFIN(4022,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*2,STR(PFFIN(4023,M))),ColorBFBFFF;   
  24. DRAWTEXTREL(20,y1+y*3,'4.'+股东4),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*3,PFSTR(4034,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*3,STR(PFFIN(4032,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*3,STR(PFFIN(4033,M))),ColorBFBFFF;   
  25. DRAWTEXTREL(20,y1+y*4,'5.'+股东5),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*4,PFSTR(4044,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*4,STR(PFFIN(4042,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*4,STR(PFFIN(4043,M))),ColorBFBFFF;   
  26. DRAWTEXTREL(20,y1+y*5,'6.'+股东6),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*5,PFSTR(4054,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*5,STR(PFFIN(4052,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*5,STR(PFFIN(4053,M))),ColorBFBFFF;   
  27. DRAWTEXTREL(20,y1+y*6,'7.'+股东7),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*6,PFSTR(4064,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*6,STR(PFFIN(4062,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*6,STR(PFFIN(4063,M))),ColorBFBFFF;   
  28. DRAWTEXTREL(20,y1+y*7,'8.'+股东8),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*7,PFSTR(4074,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*7,STR(PFFIN(4072,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*7,STR(PFFIN(4073,M))),ColorBFBFFF;   
  29. DRAWTEXTREL(20,y1+y*8,'9.'+股东9),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*8,PFSTR(4084,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*8,STR(PFFIN(4082,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*8,STR(PFFIN(4083,M))),ColorBFBFFF;   
  30. DRAWTEXTREL(20,y1+y*9,'10.'+股东10),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*9,PFSTR(4094,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*9,STR(PFFIN(4092,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*9,STR(PFFIN(4093,M))),ColorBFBFFF;   
  31. DRAWTEXTREL(20,y1+y*10,'流通股东人数: '+STR(PFFIN(4253,M))+'  与上期相比增减:'+STR(PFFIN(4253,M)-PFFIN(4253,M+1))+'  人均持流通股: '+STR(PFFIN(4254,M))+'  与上期相比人均持股增减: '+STR(PFFIN(4254,M)-PFFIN(4254,M+1))),COLOR00AAFF;   
  32.   
  33. 总股本:=FINANCE2(35);   
  34. DRAWTEXTABS(445,60 ,'A股:'+capital/100+'万'),Color0080FF,LINETHICK2;   
  35. DRAWTEXTABS(445,80,'总股'+总股本+'万 '),LINETHICK2,Color0080FF;   
  36. 每股收益:=FINANCE2(3);   
  37. 每股市盈率:=DYNAINFO(39);   
  38. 每股净资产:=FINANCE2(4);   
  39. 销售毛利率:=FINANCE2(12);   
  40. 主营收入同比:=FINANCE2(11);     
  41. 净利润同比增长:=FINANCE2(10);   
  42. 每股公积金:=FINANCE2(7);   
  43. 每股未分配:=FINANCE2(8);   
  44. DRAWTEXTABS(445 ,100,'每股收益:'+NUMTOSTRN(每股收益,2)+'元'),linethick2,COLORYELLOW;   
  45. DRAWTEXTABS(445 ,120,'每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),Color62FFFF;   
  46. DRAWTEXTABS(445 ,140,'每股净资产:'+NUMTOSTRN(每股净资产,2)+'元'),linethick2,COLORYELLOW;   
  47. DRAWTEXTABS(445,160,'销售毛利率：'+NUMTOSTRN(销售毛利率,2)+'%'),LINETHICK1,Color62FFFF;   
  48. DRAWTEXTABS(445,180,'主营收入同比增长：'+NUMTOSTRN(主营收入同比,2)+'%'),LINETHICK1,ColorACFFFF;    
  49. DRAWTEXTABS(445,200,'净利润同比增长：'+NUMTOSTRN(净利润同比增长,2)+'%'),LINETHICK1,ColorACFFFF;   
  50. DRAWTEXTABS(445 ,220,'每股公积金:'+NUMTOSTRN(每股公积金,2)+'元'),ColorFFFFFF;  

股东查询源码指标

 



网站搜索：  



Copyright © 2009-2010 gszb.com ™,All Rights Reserved.　
公式网-www.gszx.com.cn-股票指标公式网