sql语句生成模块-sql语句生成器

一修

模块中包含：
1.字段操作：删，更，查，重命名
2.表格操作：创建，复制，删除，重命名
3.操作数据库常用的-超级列表框导出到Excel

4.SQL语句执行错误中文提示

  

子程序名	返回值类型	公开	备 注
显示错误信息	文本型		返回执行SQL语句后的错误信息
参数名	类 型	参考	可空	数组	备 注
数据库句柄	整数型

变量名	类 型	静态	数组	备 注
错误文本	文本型

如果真 (取错误文本 (数据库句柄, 错误文本))
错误文本 ＝ 翻译_中英互译 (错误文本, 0)
信息框 (错误文本, 16, “数据执行错误”, )
返回 (错误文本)[e=2].版本 2

子程序名	返回值类型	公开	备 注
超级列表框_导出表格	逻辑型		自动判断单元格是否为文本，整数，小数，百分比
参数名	类 型	参考	可空	数组	备 注
文件存储路径	文本型				可空，默认为运行目录；如果为要保存到桌面请直接输入“桌面”，文件存储路径，注意路径结尾带“\”
显示输入框	逻辑型				默认为真，为真则弹出输入框，以输入框的形式编辑文件名称，无需带后缀
文件名	文本型				文件名，带扩展名，如.xlsx
超级列表框	超级列表框				超级列表框组件名称
导出成功后是否打开文件	逻辑型				默认为假，为真是打开导出文件

变量名	类 型	静态	数组	备 注
XL	LibXL_dll
Book	整数型
Sheet	整数型
局_计次1	整数型
货号	文本型
局_列	整数型
局_行	整数型
局_计次2	整数型
局_超级列表框总列数	整数型			超级列表框总列数
局_EXCEL文件名	文本型
Format	整数型
局_正则1	正则表达式类
局_正则2	正则表达式类
局_正则3	正则表达式类
局_超级列表框单元格内容	文本型
局_文件名	文本型
局_显示输入框	逻辑型

判断 (文件存储路径 ＝ “”)
文件存储路径 ＝ 取运行目录 () ＋ “\”
判断 (文件存储路径 ＝ “桌面”)
文件存储路径 ＝ 目录_取桌面目录 () ＋ “\”



局_显示输入框 ＝ 真
如果真 (显示输入框 ＝ 假)
局_显示输入框 ＝ 假
判断 (文件名 ≠ “”)
局_文件名 ＝ 文件名
局_文件名 ＝ “导出资料.xlsx”


如果真 (局_显示输入框 ＝ 真)
如果 (输入框 (“请输入要输出的文件名”, “导出资料”, “导出资料”, 局_文件名, 1, ))
局_文件名 ＝ 局_文件名 ＋ “.xlsx”
判断 (文件名 ≠ “”)
局_文件名 ＝ 文件名
局_文件名 ＝ “导出资料.xlsx”



判断 (超级列表框.取标题 (0, 0) ＝ “”)
信息框 (“列表是空的”, 0, , )
Book ＝ XL.创建XLSX ()  ' 这个创建一次就行了
XL.注册 (Book, “GCCG”, “windows-282123090cc0e6036db16b60a1o3p0h9”)
如果真 (目录_是否存在 (文件存储路径) ＝ 假)
目录_创建 (文件存储路径)
局_EXCEL文件名 ＝ 文件存储路径 ＋ 局_文件名
如果真 (文件_是否存在 (局_EXCEL文件名))
文件_删除 (局_EXCEL文件名)
Sheet ＝ XL.添加表格 (Book, “Sheet1”, )
XL.表格置冻结窗格 (Sheet, 1, 0)
Format ＝ XL.添加格式 (Book, )
局_超级列表框总列数 ＝ 超级列表框.取列数 ()
计次循环首 (局_超级列表框总列数, 局_计次1)
XL.表格置单元格文本和格式 (Sheet, 0, 局_计次1 － 1, 超级列表框.取列标题 (局_计次1 － 1), )  ' 为excel表格第一行设置表头
计次循环尾 ()
计次循环首 (超级列表框.取表项数 (), 局_行)  ' 获取超级列表框每一行
局_列 ＝ 0
计次循环首 (局_超级列表框总列数, 局_列)  ' 写入超级列表框每一列的内容
局_超级列表框单元格内容 ＝ 超级列表框.取标题 (局_行 － 1, 局_列 － 1)
' 调试输出 (局_超级列表框单元格内容)
局_正则1.创建 (“[-?0-9\.,\%?]”, 局_超级列表框单元格内容, , , , )
如果 (取文本长度 (局_超级列表框单元格内容) ＝ 局_正则1.取匹配数量 () 且 文本_取出现次数 (局_超级列表框单元格内容, “-”, ) ＜ 2 且 文本_取出现次数 (局_超级列表框单元格内容, “.”, ) ≤ 1)
判断 (文本_取出现次数 (局_超级列表框单元格内容, “%”, ) ＝ 1)
' 调试输出 (“为百分比”)
XL.表格置单元格格式 (Sheet, 局_行, 局_列 － 1, Format)
XL.格式置数字格式 (XL.表格取单元格格式句柄 (Sheet, 局_行, 局_列 － 1), 10)  ' C列设置数字为比分比
XL.表格置单元格数值和格式 (Sheet, 局_行, 局_列 － 1, 到数值 (局_超级列表框单元格内容) ÷ 100, )
' 调试输出 (“整数或小数”)
XL.表格置单元格数值和格式 (Sheet, 局_行, 局_列 － 1, 到数值 (局_超级列表框单元格内容), )

' 调试输出 (“文本”, 取文本长度 (局_超级列表框单元格内容), 局_正则1.取匹配数量 ())
' XL.表格置单元格格式 (Sheet, 局_行, 局_列 － 1, Format)
XL.表格置单元格文本和格式 (Sheet, 局_行, 局_列 － 1, 局_超级列表框单元格内容, )

计次循环尾 ()
计次循环尾 ()
XL.表格置自动行高列宽 (Sheet, , , , )
XL.保存EXCEL (Book, 局_EXCEL文件名)
XL.释放 (Book)
如果真 (导出成功后是否打开文件)
文件_执行 (局_EXCEL文件名, , )

返回 (真)

i支持库列表	支持库注释
mysql	MySql支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 mysql<br /> <br /> .子程序 显示错误信息, 文本型, 公开, 返回执行SQL语句后的错误信息<br /> .参数 数据库句柄, 整数型<br /> .局部变量 错误文本, 文本型<br /> <br /> .如果真 (取错误文本 (数据库句柄, 错误文本))<br />     错误文本 ＝ 翻译_中英互译 (错误文本, 0)<br />     信息框 (错误文本, 16, “数据执行错误”, )<br />     返回 (错误文本)[e=2].版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_导出表格, 逻辑型, 公开, 自动判断单元格是否为文本，整数，小数，百分比<br /> .参数 文件存储路径, 文本型, 可空, 可空，默认为运行目录；如果为要保存到桌面请直接输入“桌面”，文件存储路径，注意路径结尾带“\”<br /> .参数 显示输入框, 逻辑型, 可空, 默认为真，为真则弹出输入框，以输入框的形式编辑文件名称，无需带后缀<br /> .参数 文件名, 文本型, 可空, 文件名，带扩展名，如.xlsx<br /> .参数 超级列表框, 超级列表框, , 超级列表框组件名称<br /> .参数 导出成功后是否打开文件, 逻辑型, 可空, 默认为假，为真是打开导出文件<br /> .局部变量 XL, LibXL_dll<br /> .局部变量 Book, 整数型<br /> .局部变量 Sheet, 整数型<br /> .局部变量 局_计次1, 整数型<br /> .局部变量 货号, 文本型<br /> .局部变量 局_列, 整数型<br /> .局部变量 局_行, 整数型<br /> .局部变量 局_计次2, 整数型<br /> .局部变量 局_超级列表框总列数, 整数型, , , 超级列表框总列数<br /> .局部变量 局_EXCEL文件名, 文本型<br /> .局部变量 Format, 整数型<br /> .局部变量 局_正则1, 正则表达式类<br /> .局部变量 局_正则2, 正则表达式类<br /> .局部变量 局_正则3, 正则表达式类<br /> .局部变量 局_超级列表框单元格内容, 文本型<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 局_显示输入框, 逻辑型<br /> <br /> .判断开始 (文件存储路径 ＝ “”)<br />     文件存储路径 ＝ 取运行目录 () ＋ “\”<br /> .判断 (文件存储路径 ＝ “桌面”)<br />     文件存储路径 ＝ 目录_取桌面目录 () ＋ “\”<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> 局_显示输入框 ＝ 真<br /> .如果真 (显示输入框 ＝ 假)<br />     局_显示输入框 ＝ 假<br />     .判断开始 (文件名 ≠ “”)<br />         局_文件名 ＝ 文件名<br />     .默认<br />         局_文件名 ＝ “导出资料.xlsx”<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (局_显示输入框 ＝ 真)<br />     .如果 (输入框 (“请输入要输出的文件名”, “导出资料”, “导出资料”, 局_文件名, 1, ))<br />         局_文件名 ＝ 局_文件名 ＋ “.xlsx”<br />     .否则<br />         .判断开始 (文件名 ≠ “”)<br />             局_文件名 ＝ 文件名<br />         .默认<br />             局_文件名 ＝ “导出资料.xlsx”<br /> <br />         .判断结束<br /> <br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> .判断开始 (超级列表框.取标题 (0, 0) ＝ “”)<br />     信息框 (“列表是空的”, 0, , )<br /> .默认<br />     Book ＝ XL.创建XLSX ()  ' 这个创建一次就行了<br />     XL.注册 (Book, “GCCG”, “windows-282123090cc0e6036db16b60a1o3p0h9”)<br />     .如果真 (目录_是否存在 (文件存储路径) ＝ 假)<br />         目录_创建 (文件存储路径)<br />     .如果真结束<br />     局_EXCEL文件名 ＝ 文件存储路径 ＋ 局_文件名<br />     .如果真 (文件_是否存在 (局_EXCEL文件名))<br />         文件_删除 (局_EXCEL文件名)<br />     .如果真结束<br />     Sheet ＝ XL.添加表格 (Book, “Sheet1”, )<br />     XL.表格置冻结窗格 (Sheet, 1, 0)<br />     Format ＝ XL.添加格式 (Book, )<br />     局_超级列表框总列数 ＝ 超级列表框.取列数 ()<br />     .计次循环首 (局_超级列表框总列数, 局_计次1)<br />         XL.表格置单元格文本和格式 (Sheet, 0, 局_计次1 － 1, 超级列表框.取列标题 (局_计次1 － 1), )  ' 为excel表格第一行设置表头<br />     .计次循环尾 ()<br /> <br />     .计次循环首 (超级列表框.取表项数 (), 局_行)  ' 获取超级列表框每一行<br />         局_列 ＝ 0<br />         .计次循环首 (局_超级列表框总列数, 局_列)  ' 写入超级列表框每一列的内容<br />             局_超级列表框单元格内容 ＝ 超级列表框.取标题 (局_行 － 1, 局_列 － 1)<br /> <br />             ' 调试输出 (局_超级列表框单元格内容)<br />             局_正则1.创建 (“[-?0-9\.,\%?]”, 局_超级列表框单元格内容, , , , )<br /> <br />             .如果 (取文本长度 (局_超级列表框单元格内容) ＝ 局_正则1.取匹配数量 () 且 文本_取出现次数 (局_超级列表框单元格内容, “-”, ) ＜ 2 且 文本_取出现次数 (局_超级列表框单元格内容, “.”, ) ≤ 1)<br /> <br />                 .判断开始 (文本_取出现次数 (局_超级列表框单元格内容, “%”, ) ＝ 1)<br />                     ' 调试输出 (“为百分比”)<br />                     XL.表格置单元格格式 (Sheet, 局_行, 局_列 － 1, Format)<br />                     XL.格式置数字格式 (XL.表格取单元格格式句柄 (Sheet, 局_行, 局_列 － 1), 10)  ' C列设置数字为比分比<br />                     XL.表格置单元格数值和格式 (Sheet, 局_行, 局_列 － 1, 到数值 (局_超级列表框单元格内容) ÷ 100, )<br />                 .默认<br />                     ' 调试输出 (“整数或小数”)<br />                     XL.表格置单元格数值和格式 (Sheet, 局_行, 局_列 － 1, 到数值 (局_超级列表框单元格内容), )<br />                 .判断结束<br /> <br />             .否则<br />                 ' 调试输出 (“文本”, 取文本长度 (局_超级列表框单元格内容), 局_正则1.取匹配数量 ())<br />                 ' XL.表格置单元格格式 (Sheet, 局_行, 局_列 － 1, Format)<br />                 XL.表格置单元格文本和格式 (Sheet, 局_行, 局_列 － 1, 局_超级列表框单元格内容, )<br />             .如果结束<br /> <br />         .计次循环尾 ()<br /> <br />     .计次循环尾 ()<br />     XL.表格置自动行高列宽 (Sheet, , , , )<br />     XL.保存EXCEL (Book, 局_EXCEL文件名)<br />     XL.释放 (Book)<br />     .如果真 (导出成功后是否打开文件)<br />         文件_执行 (局_EXCEL文件名, , )<br />     .如果真结束<br /> <br /> .判断结束<br /> 返回 (真)

[/e]

模块持续更新中！

关于字段操作和数据表操作基本完成，经过测试没有什么问题。

等全部开发好之后公开源码，敬请关注。

下载的话就点个赞再走呗

链接：https://pan.baidu.com/s/1uiYp284SiNfGdR8LEy6E4w
提取码：i7c2
--来自百度网盘超级会员V1的分享

shuya1

支持一下，辛苦了

change2018

找不到，下载不了了

MissingYou

百du网盘失效了，老哥修复下

287710971

支持一下，辛苦了

287710971

66666666666666666666666

南絮

感谢感谢

as2012a

及时雨，最近正在研究MySQL

黑夜程程

大佬 这个模块能补个链接吗？

paulz2022

已经被删除了