捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
sqlConvert v1.0
关键字：sql代码转换小工具
来　自：原创
平　台：Win2k/XP/NT,Win2003 下载所需：0 火柴
深浅度：中级 完成时间：2008/5/26
发布者：mathsfan 发布时间：2008/5/26
编辑器：DELPHI7 语　　种：简体中文
分　类：开发 下载浏览：716/8715
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
使用说明

1、delphi_sql转换为mssql：

示例如下：

sql.add('select * from tb1');
sql.add(' where AutoId>0and CId= ''1'''); 

转换为：

select * from tb1
 where AutoId>0and CId= '1' 

实际实现的功能为：

a、双引号变单引号；b、 ');变空；c、sql.add('变空。

2、mssql转换为delphi_sql：

示例如下：

select * from tb1
 where AutoId>0 and CId='1'

转换为：

sql.Add('select * from tb1');
sql.Add('  where AutoId>0 andCId= ''1''');

实际实现的功能为：

a、单引号变双引号；b、每行末加');；c、每行前加sql.add('。

备注：此功能仅支持100行内容，并剔除了空行。

3、delphi_debug_show

示例如下：

'select * from tb1'#$D#$A'where AutoId>0 and CId= '1' '#$D#$A 

转换为：

select * from tb1
where AutoId>0 andCId = '1' 

实际实现的功能为：

a、'#$D#$A'变空；b、'#$D#$A变空；c、第一个单引号变空。

热键使用：
1、Ctrl + Shift + C    复制转换后语句 

2、Ctrl + W          退出程序 

3、Esc          退出程序 

4、Ctrl + Shift +A     从剪切板粘贴到“需要转换语句”并执行命令“delphi_sql转换为mssql”，并将结果放到剪切板 

5、Ctrl + Shift +S     从剪切板粘贴到“需要转换语句”并执行命令“mssql转换为delphi_sql”，并将结果放到剪切板 

6、Ctrl + Shift +D     从剪切板粘贴到“需要转换语句”并执行命令“delphi_debug_show”，并将结果放到剪切板 

7、Alt+R          当程序最小化时重新最大化
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论6条 当前显示最后6条评论
qq757526555 2008/5/29 12:43:04
功能不错,支持,能不能提供代码
dejoy 2008/5/29 19:13:29
不错,支持楼主
gxch 2008/6/4 12:05:26
谢谢楼主的共享，有许多sql语句是用‘+’号连接的，如果修改一下把加号连接的也能够转换就更好了，呵呵
mathsfan 2008/6/4 18:58:27
呵呵，其实我主要是用在查询报表的时候，因为这时的SQL语句最多：）
“+”的话可能不同的人有不同的写法，LS的可以举个例子出来，我再结合我自己的写法改天改下再放上来哈...
gxch 2008/7/19 23:05:46
不好意思，这段时间一直没上来，我没大接触过很长的SQL，比如很久以前的胜天进销存里面的一些SQL语句：

      sSql := ' SELECT 0 as ID, E.Dept,Sum(E.Wage) as Wage,Sum(A0) as A0,' +
        ' Sum(A1) as A1,Sum(A2) as A2,Sum(A3) as A3,Sum(A4) as A4,Sum(A5) as A5,Sum(A6) as A6,Sum(A7) as A7,Sum(A8) as A8,Sum(A9) as A9,Sum(A10) as A10,' +
        ' Sum(A11) as A11,Sum(A12) as A12,Sum(A13) as A13,Sum(A14) as A14,Sum(A15) as A15,Sum(A16) as A16,Sum(A17) as A17,Sum(A18) as A18,Sum(A19) as A19,Sum(A20) as A20,' +
        ' Sum(A21) as A21,Sum(A22) as A22,Sum(A23) as A23,Sum(A24) as A24,Sum(A25) as A25,Sum(A26) as A26,Sum(A27) as A27,Sum(A28) as A28,Sum(A29) as A29,Sum(A30) as A30' +
        ' FROM Employe AS E LEFT JOIN WageTable AS W ON E.ID = W.EmployeID' +
        ' WHERE E.Admin<>1' +
        ' GROUP BY E.Dept';
再有：

sSql := ' SELECT w.ID,w.TreeParent,w.UserCode,w.Name,w.Shortname,' +
        ' w.Unit,w.Unit2,w.Scale,i.Billdate,Sum(s.Number)As SumNumber,s.Price,Sum(s.Number*s.Price) as Total' +
        ' FROM Ware w,BillIndex i,BillStock s WHERE i.Type=1 and s.Type=1 and i.ID=s.IndexID and s.WareID=w.ID and ' +
        ' i.Mode=' + IntToStr(STOCK_ORDER_EDIT) + ' and ' +
        ' (i.Billdate >= ''' + sStartDate + ''' AND i.Billdate <=''' + sEndDate + ''')' +
        ' GROUP BY w.ID,w.TreeParent,w.UserCode,w.Name,w.Shortname,w.Unit,w.Unit2,w.Scale,i.BillDate,s.Price';

大致就是这个样子的。
mathsfan 2008/10/18 20:46:24
我无意中在百度里搜索“delphi 打包 sql”居然再csdn下载频道看到了自己放在2ccc论坛里的东西... 真是意外啊：）
http://download.csdn.net/source/693518
改天把新版的放上来，改了不少东西：）
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表