欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → [原创]数据库工具

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有5726人关注过本帖树形打印复制链接

主题：[原创]数据库工具
帅哥哟，离线，有人找我吗？
z7c9
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		[原创]数据库工具  发帖心情 Post By：2011/1/23 19:58:15    Post IP：114.243.127.199[只看该作者]

以下内容为程序代码:

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

[此贴子已经被作者于2011-1-23 20:21:33编辑过]
 回到顶部
美女呀，离线，留言给我吧！
xian_0_9
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 BOO
等级：论坛游民 帖子：378 积分：1856 威望：0 精华：0 注册：2010/1/25 18:04:12 		  发帖心情 Post By：2011/1/25 12:46:18    Post IP：119.114.119.125[只看该作者]

图片点击可在新窗口打开查看

谢谢分享
 回到顶部
帅哥哟，离线，有人找我吗？
z7c9
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		  发帖心情 Post By：2011/1/25 13:46:06    Post IP：114.241.169.67[只看该作者]

以下内容为程序代码:

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

[此贴子已经被作者于2011-1-25 13:53:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
z7c9
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		  发帖心情 Post By：2011/1/25 14:19:45    Post IP：114.241.169.67[只看该作者]

以下内容为程序代码:

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
 回到顶部
帅哥哟，离线，有人找我吗？
z7c9
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		  发帖心情 Post By：2011/1/26 10:18:08    Post IP：114.241.165.114[只看该作者]

以下内容为程序代码:

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

[此贴子已经被作者于2011-1-26 10:18:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
readonly
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：514 积分：2695 威望：0 精华：0 注册：2011/3/4 18:24:01 		  发帖心情 Post By：2012/5/8 21:04:30    Post IP：113.95.128.141[只看该作者]

为什么前一楼二楼例子要先赋值SQL后，再执行；而后面的就直接执行，仅仅是编程习惯问题吗？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.06445 秒, 6 次数据查询