高级功能研发区-[原创]将交易明细输出到数据库金字塔客服中心 - 专业程序化交易软件提供商

以下内容为程序代码:

1 runmode:0;
2
3 debug:=1;
4
5 database(\'provider=microsoft.jet.oledb.4.0;data source=test.mdb\');
6
7 if debug=1 then begin
8     database(\'provider=microsoft.jet.oledb.4.0;data source=test.mdb\');
9     if barpos=1 then begin
10         sql1:=\'create table tradedetail(opendate datetime,\'+
11                      \'contractname varchar,\'+
12                      \'opentime datetime,\'+
13                      \'openprice real,\'+
14                      \'tradetype varchar,\'+
15                      \'closetime datetime,\'+
16                      \'closeprice real,\'+
17                      \'winlosspoint int,\'+
18                      \'lots int,\'+
19                      \'commissions real,\'+
20                      \'closewinloss real,\'+
21                      \'asset real)\';
22         dbexecute(sql1);
23     end
24 end
25
26 enterhour:=ref(hour,enterbars);
27 enterminute:=ref(minute,enterbars);
28
29 if holding=0 then begin
30     buy(1,1,limitr,low);
31 end
32
33 if holding＞0 then begin
34     sell(1,holding,limitr,high);
35     lots:=1;
36     commission:=6;
37
38     if debug=1 then begin
39         sql2:=\'insert into tradedetail(opendate,contractname,opentime,openprice,tradetype,closetime,closeprice,winlosspoint,lots,commissions,closewinloss,asset) values("\'+
40                                 numtostr(year,0)+\'-\'+numtostr(month,0)+\'-\'+numtostr(day,0)+\'","\'+stklabel+\'","\'+
41                                 numtostr(enterhour,0)+\':\'+numtostr(enterminute,0)+\'",\'+numtostr(enterprice,0)+\',"Buy","\'+
42                                 numtostr(hour,0)+\':\'+numtostr(minute,0)+\'",\'+numtostr(exitprice,0)+\',\'+
43                                 numtostr(enterprice-exitprice,0)+\',\'+numtostr(lots,0)+\',\'+numtostr(2*commission*lots,0)+\',\'+
44                                 numtostr((enterprice-exitprice)*multiplier*lots-2*commission*lots,0)+\',\'+numtostr(asset,2)+\')\';
45         dbexecute(sql2);
46     end
47 end

runmode:0;

debug:=1;

database(\'provider=microsoft.jet.oledb.4.0;data source=test.mdb\');

if debug=1 then begin
database(\'provider=microsoft.jet.oledb.4.0;data source=test.mdb\');
if barpos=1 then begin
sql1:=\'create table tradedetail(opendate datetime,\'+
\'contractname varchar,\'+
\'opentime datetime,\'+
\'openprice real,\'+
\'tradetype varchar,\'+
\'closetime datetime,\'+
\'closeprice real,\'+
\'winlosspoint int,\'+
\'lots int,\'+
\'commissions real,\'+
\'closewinloss real,\'+
\'asset real)\';
dbexecute(sql1);
end
end

enterhour:=ref(hour,enterbars);
enterminute:=ref(minute,enterbars);

if holding=0 then begin
buy(1,1,limitr,low);
end

if holding>0 then begin
sell(1,holding,limitr,high);
lots:=1;
commission:=6;

if debug=1 then begin
sql2:=\'insert into tradedetail(opendate,contractname,opentime,openprice,tradetype,closetime,closeprice,winlosspoint,lots,commissions,closewinloss,asset) values("\'+
numtostr(year,0)+\'-\'+numtostr(month,0)+\'-\'+numtostr(day,0)+\'","\'+stklabel+\'","\'+
numtostr(enterhour,0)+\':\'+numtostr(enterminute,0)+\'",\'+numtostr(enterprice,0)+\',"Buy","\'+
numtostr(hour,0)+\':\'+numtostr(minute,0)+\'",\'+numtostr(exitprice,0)+\',\'+
numtostr(enterprice-exitprice,0)+\',\'+numtostr(lots,0)+\',\'+numtostr(2*commission*lots,0)+\',\'+
numtostr((enterprice-exitprice)*multiplier*lots-2*commission*lots,0)+\',\'+numtostr(asset,2)+\')\';
dbexecute(sql2);
end
end