以下内容为程序代码:
1 runmode:1;
2
3 database('provider=microsoft.jet.oledb.4.0;data source=Trade.mdb');
4
5 sql1:='create table tradedetail(opendate datetime,'+'contractname varchar,'+'opentime datetime,'+'openprice real,'+'tradetype varchar,'+'closetime datetime,'+
6 'closeprice real,'+'winlosspoint int,'+'lots int,'+'commissions real,'+'closewinloss real,'+'asset real,'+'strategy varchar)';
7 dbexecute(sql1);
runmode:1;
database('provider=microsoft.jet.oledb.4.0;data source=Trade.mdb');
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,'+'strategy varchar)';
dbexecute(sql1);
[此贴子已经被作者于2011-1-17 13:31:38编辑过]
以下内容为程序代码:
1 if debug=1 then begin
2 database('provider=microsoft.jet.oledb.4.0;data source=Analysis.mdb');
3 if barpos=1 then begin
4 sql1:='create table tradedetail(opendate datetime,'+
5 'contractname text,'+
6 'opentime datetime,'+
7 'openprice number,'+
8 'tradetype text,'+
9 'closetime datetime,'+
10 'closeprice number,'+
11 'winlosspoint number,'+
12 'lots number,'+
13 'commissions number,'+
14 'closewinloss number,'+
15 'asset number,'+
16 'strategy text)';
17 dbexecute(sql1);
18
19 sql2:='create table myasset(tradedate datetime,'+
20 'asset number)';
21 dbexecute(sql2);
22 end
23 end
if debug=1 then begin
database('provider=microsoft.jet.oledb.4.0;data source=Analysis.mdb');
if barpos=1 then begin
sql1:='create table tradedetail(opendate datetime,'+
'contractname text,'+
'opentime datetime,'+
'openprice number,'+
'tradetype text,'+
'closetime datetime,'+
'closeprice number,'+
'winlosspoint number,'+
'lots number,'+
'commissions number,'+
'closewinloss number,'+
'asset number,'+
'strategy text)';
dbexecute(sql1);
sql2:='create table myasset(tradedate datetime,'+
'asset number)';
dbexecute(sql2);
end
end