主题：请帮忙写个带数据库的指标

想学习数据库编模型，希望各位老师能帮忙写以下要求作为范例，谢谢！

 

=====================

时间周期：日线

 

1、满足条件 REF(H,1)=HHV(H,3) 时，记录：HH、D1、D2到数据库里，增加一条新记录；

                   HH:=REF(H,1);//分形最高价

                   D1:=REF(DATE,1);//昨天日期

                   D2:REF(DATE,BARSLAST(CROSS(HH,H))+1);//前一次日期，用于计算这次下跌浪持续的时间

 

2、只在最后一根K线执行：按以下条件检索数据库HH的历史记录；

                   小于H*1.002  &&  大于H*0.998；

                   该记录之后没有日期更新且HH值更大的记录；

 

     上述检索得到了上次的顶部日期；

 

3、在最后K线附近显示：

              OLDH:数据库里记录的上次顶部价格，画横线；

              显示文字：注意，即将到底双顶；

              上次顶部离现在的K线数，用今天日期-检索到的D1算出来；

              前一次跌破HH时下跌浪持续的时间长度，K线数，用检索到的D2-D1算出来；

 

 以上编程条件最终得到如下图的效果：

此主题相关图片如下：20120507203827.gif

还要记录到数据库？

一下子就变得麻烦了。。。

记录到数据库，应该比较节省CPU，否则需要用很大数值的HHV/BARSLAST多次。

 

说白了主要想学习下数据库的编程方法。

 

请老大们抽时间赐教，3Q~

千一编写程序

给出一个例子，仅供参考
////保存到数据库(可以正常执行的代码，不要删除)
//if islastbar then begin  //只在最后一周期保存到数据库
//  sql1:='insert into tblGuzhi1 (stockdate,stocktime,stockopen,stockhigh,stocklow,stockclose,var2,var3,D1,D2,G1,G2,A1,A2,Code,Market,Period)
//  values("'+numtostr(year,0)+'-'+numtostr(month,0)+'-'+numtostr(day,0)+'",'+numtostr(time,0)+','+numtostr(_open,1)
//  +','+numtostr(_high,1)+','+numtostr(_low,1)+','+numtostr(_close,1)+','+numtostr(var2,0)+','+numtostr(var3,0)+','
//  +numtostr(D1,1)+','+numtostr(D2,1)+','+numtostr(G1,1)+','+numtostr(G2,1)+','+numtostr(A1,1)+','+numtostr(A2,1)
//  +',"'+ stklabel + '","' + Marketlabel +'",'+numtostr(datatype,0)+')';
// dbexecute(sql1);
//end;