主题：[原创]数据库工具

以下内容为程序代码:

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