以下内容为程序代码:

1 if barpos=1 then begin
2     sql:=\'drop table tradedetail\';
3     dbexecute(sql);
4     
5     sql:=\'drop table myasset\';
6     dbexecute(sql);
7     
8     sql:=\'create table tradedetail(opendate datetime,contractname text,opentime datetime,openprice number,tradetype text,closetime datetime,\'+
9                              \'closeprice number,winlosspoint number,lots number,commissions number,closewinloss number,strategy text,account text)\';
10     
11     dbexecute(sql);
12     
13     sql:=\'create table myasset(tradedate datetime,asset number,closewinloss number,return number,cumreturn number,account text)\';
14     dbexecute(sql);
15 end

以下内容为程序代码:

1 database(\'provider=microsoft.jet.oledb.4.0;data source=分析数据库.mdb\');
2
3 if barpos=1 then begin
4     sql:=\'drop table 账户\';
5     dbexecute(sql);
6     
7     sql:=\'drop table 策略\';
8     dbexecute(sql);
9     
10     sql:=\'drop table 权益\';
11     dbexecute(sql);    
12     
13     sql:=\'drop table 交易明细\';
14     dbexecute(sql);
15     
16     sql:=\'create table 账户(名称 text,id text,开始时间 datetime,结束时间 datetime,初始资金 number,期末权益 number,累计收益率 number)\';
17     dbexecute(sql);
18     
19     sql:=\'create table 策略(名称 text,交易品种 text,交易周期 text,入市策略 text,风险控制 text,资金管理 text)\';
20     dbexecute(sql)    ;
21     
22     sql:=\'create table 权益(日期 datetime,权益 number,平仓盈亏 number,收益率 number,累计收益率 number,账户 text)\';
23     dbexecute(sql);
24     
25     sql:=\'create table 交易明细(开仓日期 datetime,合约名称 text,开仓时间 datetime,开仓价格 number,交易类型 text,平仓时间 datetime,平仓价格 number,盈亏点数 number,交易手数 number,总手续费 number,平仓盈亏 number,策略 text,账户 text)\';
26     
27     dbexecute(sql);        
28     
29     sql:=\'insert into 账户(名称,id,开始时间,初始资金) values("myaccount","myaccount","\'+numtostr(year,0)+\'-\'+numtostr(month,0)+\'-\'+numtostr(day,0)+\'",40000)\';
30     dbexecute(sql);
31 end

以下内容为程序代码:

1 database(\'provider=microsoft.jet.oledb.4.0;data source=Analysis.mdb\');
2 debug=1;
3
4 if debug=1 and barpos=1 then begin
5
6     dbexecute(\'drop table 账户\');
7     dbexecute(\'drop table 策略\');
8     dbexecute(\'drop table 权益\');    
9     dbexecute(\'drop table 交易明细\');    
10
11     dbexecute(\'create table 账户(名称 text,id text,开始时间 datetime,结束时间 datetime,初始资金 number,期末权益 number,累计收益率 number)\');
12     dbexecute(\'create table 策略(名称 text,交易品种 text,交易周期 text,入市策略 text,风险控制 text,资金管理 text)\')    ;
13     dbexecute(\'create table 权益(日期 datetime,权益 number,平仓盈亏 number,收益率 number,累计收益率 number,账户 text)\');
14     dbexecute(\'create table 交易明细(开仓日期 datetime,合约名称 text,开仓时间 datetime,开仓价格 number,交易类型 text,平仓时间 datetime,平仓价格 number,盈亏点数 number,交易手数 number,总手续费 number,平仓盈亏 number,策略 text,账户 text)\');        
15     
16     sql:=\'insert into 账户(名称,id,开始时间,初始资金) values("myaccount","myaccount","\'+numtostr(year,0)+\'-\'+numtostr(month,0)+\'-\'+numtostr(day,0)+\'",40000)\';
17     dbexecute(sql);
18 end

以下内容为程序代码:

1 database(\'provider=microsoft.jet.oledb.4.0;data source=Analysis.mdb\');
2 debug:=1;
3
4 if debug=1 and barpos=1 then begin
5     dbexecute(\'drop table 账户\');
6     dbexecute(\'drop table 策略\');
7     dbexecute(\'drop table 权益\');    
8     dbexecute(\'drop table 交易明细\');    
9
10     dbexecute(\'create table 账户(名称 text,id text,开始时间 datetime,结束时间 datetime,初始资金 number,期末权益 number,累计收益率 number)\');
11     dbexecute(\'create table 策略(名称 text,交易品种 text,交易周期 text,入市策略 text,风险控制 text,资金管理 text)\')    ;
12     dbexecute(\'create table 权益(日期 datetime,权益 number,平仓盈亏 number,收益率 number,累计收益率 number,账户 text)\');
13     dbexecute(\'create table 交易明细(开仓日期 datetime,合约名称 text,开仓时间 datetime,开仓价格 number,交易类型 text,平仓时间 datetime,平仓价格 number,盈亏点数 number,交易手数 number,总手续费 number,平仓盈亏 number,策略 text,账户 text)\');        
14     
15     dbexecute(\'insert into 账户(名称,id,开始时间,初始资金) values("myaccount","myaccount","\'+numtostr(year,0)+\'-\'+numtostr(month,0)+\'-\'+numtostr(day,0)+\'",40000)\');
16     dbexecute(\'insert into 策略(名称,交易品种,交易周期,入市策略,风险控制,资金管理) values("PCB","白糖","5分钟","趋势跟踪","止损","CPR")\');
17 end