大智慧板塊漲幅指標(biāo)公式

夜來風(fēng)gnxkqg7g 2019-04-13

展開全文

{漲幅引用}
A:DYNAINFO(14);

{板塊漲A}
x1:=15 ; x2:=180; x3:=350; x4:=520; x5:=680; x6:=850; y1:=9; y2:=120; y3:=250; y4:=380; y5:=510; y6:=640; y7:=770; y8:=900;
DRAWTEXTREL(5,9,’上證：’+NUMTOSTRN(STKINDI(‘1a0001′,’漲幅引用.A’)*100,2)+’%’), {colorb48c33}COLORWHITE;
DRAWTEXTREL(80,9,’深證：’+NUMTOSTRN(STKINDI(‘993124′,’漲幅引用.A’)*100,2)+’%’), {colorb48c33}COLORWHITE;
IF STKINDI(‘991036′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y2,’券商： ‘ +NUMTOSTRN(STKINDI(‘991036′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991036′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y2,’券商： ‘ +NUMTOSTRN(STKINDI(‘991036′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991028′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y3,’醫(yī) 藥： ‘ +NUMTOSTRN(STKINDI(‘991028′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991028′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y3,’醫(yī) 藥： ‘ +NUMTOSTRN(STKINDI(‘991028′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991017′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y4,’銀行類： ‘ +NUMTOSTRN(STKINDI(‘991017′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991017′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,’銀行類： ‘ +NUMTOSTRN(STKINDI(‘991017′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991007′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y5,’房地產(chǎn)： ‘ +NUMTOSTRN(STKINDI(‘991007′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991007′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y5,’房地產(chǎn)： ‘ +NUMTOSTRN(STKINDI(‘991007′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991034′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y6,’有色金屬： ‘ +NUMTOSTRN(STKINDI(‘991034′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991034′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y6,’有色金屬： ‘ +NUMTOSTRN(STKINDI(‘991034′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991021′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y7,’農(nóng)林牧漁： ‘ +NUMTOSTRN(STKINDI(‘991021′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991021′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y7,’農(nóng)林牧漁： ‘ +NUMTOSTRN(STKINDI(‘991021′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991035′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y8,’造紙印刷： ‘ +NUMTOSTRN(STKINDI(‘991035′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991035′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y8,’造紙印刷： ‘ +NUMTOSTRN(STKINDI(‘991035′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991018′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y1,’旅游酒店： ‘ +NUMTOSTRN(STKINDI(‘991018′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991018′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y1,’旅游酒店： ‘ +NUMTOSTRN(STKINDI(‘991018′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991023′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y2,’商業(yè)連鎖： ‘ +NUMTOSTRN(STKINDI(‘991023′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991023′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y2,’商業(yè)連鎖： ‘ +NUMTOSTRN(STKINDI(‘991023′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991020′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y3,’釀酒食品： ‘ +NUMTOSTRN(STKINDI(‘991020′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991020′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y3,’釀酒食品： ‘ +NUMTOSTRN(STKINDI(‘991020′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991008′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y4,’紡織服裝： ‘ +NUMTOSTRN(STKINDI(‘991008′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991008′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y4,’紡織服裝： ‘ +NUMTOSTRN(STKINDI(‘991008′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991006′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y5,’電子信息： ‘ +NUMTOSTRN(STKINDI(‘991006′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991006′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y5,’電子信息： ‘ +NUMTOSTRN(STKINDI(‘991006′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991004′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y6,’計(jì)算機(jī)： ‘ +NUMTOSTRN(STKINDI(‘991004′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991004′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,’計(jì)算機(jī)： ‘ +NUMTOSTRN(STKINDI(‘991004′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991026′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y7,’汽車類： ‘ +NUMTOSTRN(STKINDI(‘991026′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991026′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y7,’汽車類： ‘ +NUMTOSTRN(STKINDI(‘991026′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991014′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y8,’電器： ‘ +NUMTOSTRN(STKINDI(‘991014′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991014′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y8,’電器： ‘ +NUMTOSTRN(STKINDI(‘991014′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993745′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y1,’稀缺資源： ‘ +NUMTOSTRN(STKINDI(‘993745′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993745′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,’稀缺資源： ‘ +NUMTOSTRN(STKINDI(‘993745′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991019′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y2,’煤炭石油： ‘ +NUMTOSTRN(STKINDI(‘991019′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991019′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y2,’煤炭石油： ‘ +NUMTOSTRN(STKINDI(‘991019′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991009′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y3,’鋼鐵： ‘ +NUMTOSTRN(STKINDI(‘991009′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991009′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y3,’鋼鐵： ‘ +NUMTOSTRN(STKINDI(‘991009′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991024′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y4,’建材： ‘ +NUMTOSTRN(STKINDI(‘991024′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991024′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y4,’建材： ‘ +NUMTOSTRN(STKINDI(‘991024′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991027′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y5,’機(jī) 械： ‘ +NUMTOSTRN(STKINDI(‘991027′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991027′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,’機(jī) 械： ‘ +NUMTOSTRN(STKINDI(‘991027′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991011′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y6,’化工化纖： ‘ +NUMTOSTRN(STKINDI(‘991011′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991011′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y6,’化工化纖： ‘ +NUMTOSTRN(STKINDI(‘991011′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991002′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y7,’工程建筑： ‘ +NUMTOSTRN(STKINDI(‘991002′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991002′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y7,’工程建筑： ‘ +NUMTOSTRN(STKINDI(‘991002′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991037′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y8,’電力設(shè)備： ‘ +NUMTOSTRN(STKINDI(‘991037′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991037′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y8,’電力設(shè)備： ‘ +NUMTOSTRN(STKINDI(‘991037′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991032′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y1,’教育傳媒： ‘ +NUMTOSTRN(STKINDI(‘991032′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991032′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y1,’教育傳媒： ‘ +NUMTOSTRN(STKINDI(‘991032′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991010′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y2,’供水供氣： ‘ +NUMTOSTRN(STKINDI(‘991010′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991010′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y2,’供水供氣： ‘ +NUMTOSTRN(STKINDI(‘991010′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991033′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y3,’儀電儀表： ‘ +NUMTOSTRN(STKINDI(‘991033′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991033′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y3,’儀電儀表： ‘ +NUMTOSTRN(STKINDI(‘991033′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991136′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y4,’運(yùn)輸物流： ‘ +NUMTOSTRN(STKINDI(‘991136′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991136′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y4,’運(yùn)輸物流： ‘ +NUMTOSTRN(STKINDI(‘991136′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991016′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y5,’交通設(shè)施： ‘ +NUMTOSTRN(STKINDI(‘991016′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991016′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y5,’交通設(shè)施： ‘ +NUMTOSTRN(STKINDI(‘991016′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991031′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y6,’外貿(mào)： ‘ +NUMTOSTRN(STKINDI(‘991031′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991031′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y6,’外貿(mào)： ‘ +NUMTOSTRN(STKINDI(‘991031′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991003′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y7,’電力： ‘ +NUMTOSTRN(STKINDI(‘991003′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991003′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,’電力： ‘ +NUMTOSTRN(STKINDI(‘991003′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991135′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y8,’通信： ‘ +NUMTOSTRN(STKINDI(‘991135′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991135′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y8,’通信： ‘ +NUMTOSTRN(STKINDI(‘991135′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993685′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y1,’3 G： ‘ +NUMTOSTRN(STKINDI(‘993685′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993685′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y1,’3 G： ‘ +NUMTOSTRN(STKINDI(‘993685′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993695′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y2,’創(chuàng) 投： ‘ +NUMTOSTRN(STKINDI(‘993695′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993695′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y2,’創(chuàng) 投： ‘ +NUMTOSTRN(STKINDI(‘993695′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993095′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y3,’奧運(yùn)： ‘ +NUMTOSTRN(STKINDI(‘993095′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993095′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,’奧運(yùn)： ‘ +NUMTOSTRN(STKINDI(‘993095′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993585′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y4,’新能源： ‘ +NUMTOSTRN(STKINDI(‘993585′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993585′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y4,’新能源： ‘ +NUMTOSTRN(STKINDI(‘993585′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993091′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y5,’新上海： ‘ +NUMTOSTRN(STKINDI(‘993091′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993091′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y5,’新上海： ‘ +NUMTOSTRN(STKINDI(‘993091′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993128′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y6,’農(nóng)業(yè)龍頭： ‘ +NUMTOSTRN(STKINDI(‘993128′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993128′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y6,’農(nóng)業(yè)龍頭： ‘ +NUMTOSTRN(STKINDI(‘993128′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993645′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y7,’節(jié)能環(huán)保： ‘ +NUMTOSTRN(STKINDI(‘993645′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993645′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y7,’節(jié)能環(huán)保： ‘ +NUMTOSTRN(STKINDI(‘993645′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993665′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y8,’航天軍工： ‘ +NUMTOSTRN(STKINDI(‘993665′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993665′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y8,’航天軍工： ‘ +NUMTOSTRN(STKINDI(‘993665′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993795′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y1,’中字頭： ‘ +NUMTOSTRN(STKINDI(‘993795′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993795′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y1,’中字頭： ‘ +NUMTOSTRN(STKINDI(‘993795′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993139′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y2,’大盤： ‘ +NUMTOSTRN(STKINDI(‘993139′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993139′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y2,’大盤： ‘ +NUMTOSTRN(STKINDI(‘993139′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993140′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y3,’中盤： ‘ +NUMTOSTRN(STKINDI(‘993140′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993140′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y3,’中盤： ‘ +NUMTOSTRN(STKINDI(‘993140′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993141′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y4,’小盤： ‘ +NUMTOSTRN(STKINDI(‘993141′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993141′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y4,’小盤： ‘ +NUMTOSTRN(STKINDI(‘993141′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993142′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y5,’高價(jià)： ‘ +NUMTOSTRN(STKINDI(‘993142′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993142′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y5,’高價(jià)： ‘ +NUMTOSTRN(STKINDI(‘993142′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993143′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y6,’中價(jià)： ‘ +NUMTOSTRN(STKINDI(‘993143′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993143′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y6,’中價(jià)： ‘ +NUMTOSTRN(STKINDI(‘993143′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993144′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y7,’低價(jià)： ‘ +NUMTOSTRN(STKINDI(‘993144′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993144′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y7,’低價(jià)： ‘ +NUMTOSTRN(STKINDI(‘993144′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993386′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y8,’預(yù) 增： ‘ +NUMTOSTRN(STKINDI(‘993386′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993386′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y8,’預(yù) 增： ‘ +NUMTOSTRN(STKINDI(‘993386′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993385′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y3,’預(yù) 減： ‘ +NUMTOSTRN(STKINDI(‘993385′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993385′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,’預(yù) 減： ‘ +NUMTOSTRN(STKINDI(‘993385′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;

{板塊漲B}
x1:=15; x2:=180; x3:=350; x4:=520; x5:=680; x6:=850; y1:=9; y2:=120; y3:=250; y4:=380; y5:=510; y6:=640; y7:=770; y8:=900;
DRAWTEXTREL(5,9,’上證：’+NUMTOSTRN(STKINDI(‘1a0001′,’漲幅引用.A’)*100,2)+’%’), {colorb48c33}COLORWHITE;
DRAWTEXTREL(80,9,’深證：’+NUMTOSTRN(STKINDI(‘993124′,’漲幅引用.A’)*100,2)+’%’), {colorb48c33}COLORWHITE;
IF STKINDI(‘993625′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y2,’QFII持股： ‘ +NUMTOSTRN(STKINDI(‘993625′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993625′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y2,’QFII持股： ‘ +NUMTOSTRN(STKINDI(‘993625′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993798′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y3,’煤化工： ‘ +NUMTOSTRN(STKINDI(‘993798′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993798′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y3,’煤化工： ‘ +NUMTOSTRN(STKINDI(‘993798′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991255′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y4,’保險(xiǎn)： ‘ +NUMTOSTRN(STKINDI(‘991255′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991255′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,’保險(xiǎn)： ‘ +NUMTOSTRN(STKINDI(‘991255′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993075′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y5,’次新： ‘ +NUMTOSTRN(STKINDI(‘993075′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993075′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y5,’次新： ‘ +NUMTOSTRN(STKINDI(‘993075′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993072′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y6,’S T： ‘ +NUMTOSTRN(STKINDI(‘993072′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993072′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y6,’S T： ‘ +NUMTOSTRN(STKINDI(‘993072′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993130′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y7,’基金重倉： ‘ +NUMTOSTRN(STKINDI(‘993130′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993130′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y7,’基金重倉： ‘ +NUMTOSTRN(STKINDI(‘993130′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993305′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y8,’網(wǎng)絡(luò)游戲： ‘ +NUMTOSTRN(STKINDI(‘993305′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993305′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y8,’網(wǎng)絡(luò)游戲： ‘ +NUMTOSTRN(STKINDI(‘993305′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993120′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y1,’新材料： ‘ +NUMTOSTRN(STKINDI(‘993120′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993120′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y1,’新材料： ‘ +NUMTOSTRN(STKINDI(‘993120′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘991025′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y2,’其他行業(yè)： ‘ +NUMTOSTRN(STKINDI(‘991025′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991025′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y2,’其他行業(yè)： ‘ +NUMTOSTRN(STKINDI(‘991025′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993405′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y3,’社保重倉： ‘ +NUMTOSTRN(STKINDI(‘993405′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993405′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y3,’社保重倉： ‘ +NUMTOSTRN(STKINDI(‘993405′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993450′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y4,’成渝特區(qū)： ‘ +NUMTOSTRN(STKINDI(‘993450′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993450′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y4,’成渝特區(qū)： ‘ +NUMTOSTRN(STKINDI(‘993450′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993580′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y5,’CDM 項(xiàng)目： ‘ +NUMTOSTRN(STKINDI(‘993580′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993580′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y5,’CDM 項(xiàng)目： ‘ +NUMTOSTRN(STKINDI(‘993580′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993586′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y6,’鐵路基建： ‘ +NUMTOSTRN(STKINDI(‘993586′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993586′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,’鐵路基建： ‘ +NUMTOSTRN(STKINDI(‘993586′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993590′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y7,’送轉(zhuǎn)： ‘ +NUMTOSTRN(STKINDI(‘993590′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993590′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y7,’送轉(zhuǎn)： ‘ +NUMTOSTRN(STKINDI(‘993590′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993596′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y8,’海峽西岸： ‘ +NUMTOSTRN(STKINDI(‘993596′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993596′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y8,’海峽西岸： ‘ +NUMTOSTRN(STKINDI(‘993596′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993597′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y1,’智能電網(wǎng)： ‘ +NUMTOSTRN(STKINDI(‘993597′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993597′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,’智能電網(wǎng)： ‘ +NUMTOSTRN(STKINDI(‘993597′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993598′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y2,’圖們江： ‘ +NUMTOSTRN(STKINDI(‘993598′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993598′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y2,’圖們江： ‘ +NUMTOSTRN(STKINDI(‘993598′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993599′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y3,’濱海新區(qū)： ‘ +NUMTOSTRN(STKINDI(‘993599′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993599′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y3,’濱海新區(qū)： ‘ +NUMTOSTRN(STKINDI(‘993599′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993601′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y4,’I G C C： ‘ +NUMTOSTRN(STKINDI(‘993601′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993601′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y4,’I G C C： ‘ +NUMTOSTRN(STKINDI(‘993601′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993602′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y5,’深圳本地： ‘ +NUMTOSTRN(STKINDI(‘993602′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993602′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,’深圳本地： ‘ +NUMTOSTRN(STKINDI(‘993602′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993603′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y6,’黃河三角： ‘ +NUMTOSTRN(STKINDI(‘993603′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993603′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y6,’黃河三角： ‘ +NUMTOSTRN(STKINDI(‘993603′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993604′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y7,’橫琴新區(qū)： ‘ +NUMTOSTRN(STKINDI(‘993604′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993604′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y7,’橫琴新區(qū)： ‘ +NUMTOSTRN(STKINDI(‘993604′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993606′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y8,’珠江三角： ‘ +NUMTOSTRN(STKINDI(‘993606′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993607′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y1,’江蘇沿海： ‘ +NUMTOSTRN(STKINDI(‘993607′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993607′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y1,’江蘇沿海： ‘ +NUMTOSTRN(STKINDI(‘993607′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993608′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y2,’遼寧沿海： ‘ +NUMTOSTRN(STKINDI(‘993608′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993608′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y2,’遼寧沿海： ‘ +NUMTOSTRN(STKINDI(‘993608′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993609′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y3,’關(guān)中天水： ‘ +NUMTOSTRN(STKINDI(‘993609′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993609′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y3,’關(guān)中天水： ‘ +NUMTOSTRN(STKINDI(‘993609′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993646′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y4,’物聯(lián)網(wǎng)： ‘ +NUMTOSTRN(STKINDI(‘993646′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993646′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y4,’物聯(lián)網(wǎng)： ‘ +NUMTOSTRN(STKINDI(‘993646′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993686′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y6,’期貨： ‘ +NUMTOSTRN(STKINDI(‘993686′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993686′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y6,’期貨： ‘ +NUMTOSTRN(STKINDI(‘993686′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993690′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y7,’注資承諾： ‘ +NUMTOSTRN(STKINDI(‘993690′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993690′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,’注資承諾： ‘ +NUMTOSTRN(STKINDI(‘993690′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993710′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y8,’低碳經(jīng)濟(jì)： ‘ +NUMTOSTRN(STKINDI(‘993710′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993710′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y8,’低碳經(jīng)濟(jì)： ‘ +NUMTOSTRN(STKINDI(‘993710′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993730′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y1,’大訂單： ‘ +NUMTOSTRN(STKINDI(‘993730′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993730′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y1,’大訂單： ‘ +NUMTOSTRN(STKINDI(‘993730′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993765′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y2,’定向增發(fā)： ‘ +NUMTOSTRN(STKINDI(‘993765′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993765′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y2,’定向增發(fā)： ‘ +NUMTOSTRN(STKINDI(‘993765′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993825′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y2,’參股金融： ‘ +NUMTOSTRN(STKINDI(‘993825′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993825′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y2,’參股金融： ‘ +NUMTOSTRN(STKINDI(‘993825′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993925′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y3,’股權(quán)激勵(lì)： ‘ +NUMTOSTRN(STKINDI(‘993925′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993925′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,’股權(quán)激勵(lì)： ‘ +NUMTOSTRN(STKINDI(‘993925′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘994005′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y7,’S 板： ‘ +NUMTOSTRN(STKINDI(‘994005′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘994005′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,’S 板： ‘ +NUMTOSTRN(STKINDI(‘994005′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘994027′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y7,’稅收優(yōu)惠： ‘ +NUMTOSTRN(STKINDI(‘994027′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘994027′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y7,’稅收優(yōu)惠： ‘ +NUMTOSTRN(STKINDI(‘994027′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993885′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y8,’中證100： ‘ +NUMTOSTRN(STKINDI(‘993885′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993885′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y8,’中證100： ‘ +NUMTOSTRN(STKINDI(‘993885′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993606′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y4,’珠江三角： ‘ +NUMTOSTRN(STKINDI(‘993606′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993606′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y4,’珠江三角： ‘ +NUMTOSTRN(STKINDI(‘993606′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993612′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y5,’皖江區(qū)域： ‘ +NUMTOSTRN(STKINDI(‘993612′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993612′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y5,’皖江區(qū)域： ‘ +NUMTOSTRN(STKINDI(‘993612′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993613′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y6,’鄱陽湖： ‘ +NUMTOSTRN(STKINDI(‘993613′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993613′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y6,’鄱陽湖： ‘ +NUMTOSTRN(STKINDI(‘993613′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993614′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y7,’長珠潭： ‘ +NUMTOSTRN(STKINDI(‘993614′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993614′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y7,’長珠潭： ‘ +NUMTOSTRN(STKINDI(‘993614′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993616′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y8,’武漢規(guī)劃： ‘ +NUMTOSTRN(STKINDI(‘993616′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993616′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y8,’武漢規(guī)則： ‘ +NUMTOSTRN(STKINDI(‘993616′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993617′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y1,’海南開發(fā)： ‘ +NUMTOSTRN(STKINDI(‘993617′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993617′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y1,’海南開發(fā)： ‘ +NUMTOSTRN(STKINDI(‘993617′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993621′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y2,’陜甘寧： ‘ +NUMTOSTRN(STKINDI(‘993621′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993621′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y2,’陜甘寧： ‘ +NUMTOSTRN(STKINDI(‘993621′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993731′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y3,’分拆上市： ‘ +NUMTOSTRN(STKINDI(‘993731′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993731′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y3,’分拆上市： ‘ +NUMTOSTRN(STKINDI(‘993731′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993751′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y5,’百元股： ‘ +NUMTOSTRN(STKINDI(‘993751′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993751′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y5,’百元股： ‘ +NUMTOSTRN(STKINDI(‘993751′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;
IF STKINDI(‘993801′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y4,’黃金股： ‘ +NUMTOSTRN(STKINDI(‘993801′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993801′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y4,’黃金股： ‘ +NUMTOSTRN(STKINDI(‘993801′,’漲幅引用.A’)*100,2)+’%’),colorb48c33;end;

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來自：夜來風(fēng)gnxkqg7g > 《待分類》

舉報(bào)/認(rèn)領(lǐng)