以下内容为程序代码:

1 runmode:1;
2
3 begin
4     database(\'provider=microsoft.jet.oledb.4.0;data source=Analysis.mdb\');
5     
6     sql1:=\'create table tradedetail(opendate datetime,\'+\'contractname text,\'+\'opentime datetime,\'+\'openprice number,\'+\'tradetype text,\'+\'closetime datetime,\'+
7     \'closeprice number,\'+\'winlosspoint number,\'+\'lots number,\'+\'commissions number,\'+\'closewinloss number,\'+\'asset number,\'+\'strategy text)\';
8     dbexecute(sql1);
9     
10     sql2:=\'create table myasset(tradedate datetime,\'+\'asset number)\';
11     dbexecute(sql2);
12 end
13
14 begin
15     database(\'provider=microsoft.jet.oledb.4.0;data source=Trade.mdb\');
16     
17     sql1:=\'create table tradedetail(opendate datetime,\'+\'contractname text,\'+\'opentime datetime,\'+\'openprice number,\'+\'tradetype text,\'+\'closetime datetime,\'+
18     \'closeprice number,\'+\'winlosspoint number,\'+\'lots number,\'+\'commissions number,\'+\'closewinloss number,\'+\'asset number,\'+\'strategy text)\';
19     dbexecute(sql1);
20     
21     sql2:=\'create table myasset(tradedate datetime,\'+\'asset number)\';
22     dbexecute(sql2);
23 end
24