主题：[原创]将交易明细输出到数据库

以下内容为程序代码:

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