申请会员ID:雨雾
申请会员ID:雨雾个人邮箱:18526700232@163.com
原创技术文章:
制作自己的SQLServer信息查询器
首先,创建一个易语言程序,并写上标题,大小为宽1200,高768或根据需要。
然后放一个编辑框,一个按钮,一个高级表格,一个数据库连接,一个记录集。
打开SSMS,建一张你需要查询的内容的表。
把高级表格的列数和表头行数改成刚才你建的列数。
最后加入代码。
代码如下:
.版本 2
.支持库 eDB
.支持库 dp1
.支持库 eGrid
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
数据库连接1.连接SQLServer (“你服务器的IP地址”, “你的数据库名称”, “你的SQLServer用户名”, “你SQLServer的密码”)
记录集1.置连接 (数据库连接1)
高级表格1.置列宽 (列号, 需要的列宽)
高级表格1.置数据 (列号, 行号, #表格常量.XXX型, “列名”)
.子程序 SQLServer关键字文本处理, 文本型
.参数 文本, 文本型
.局部变量 temp, 文本型
temp = “'%” + 子文本替换 (文本, “'”, “''”, , , 真) + “%'”
temp = 子文本替换 (temp, “要替换为关键字的文本”, “%”, , , 真)
返回 (temp)
.子程序 _按钮1_被单击
SQL查询 ()
.子程序 SQL查询
.局部变量 temptxt1, 文本型
.局部变量 n1, 整数型
.局部变量 n2, 整数型
.局部变量 n3, 整数型
.局部变量 n4, 整数型
.如果真 (删全部空 (编辑框_搜索.内容) = “”)
信息框 (“搜索内容不能为空!”, #警告图标, “警告”, )
返回 ()
.如果真结束
记录集1.打开 (“SELECT * FROM 表名 WHERE 需要查询的列名 LIKE ” + SQLServer关键字文本处理 (编辑框_搜索.内容) + “ ORDER BY 排序用的ID”, #SQL语句, )
高级表格1.行数 = 记录集1.记录数量 + 1
.计次循环首 (记录集1.记录数量, n1)
.计次循环首 (12, n2)
记录集1.读文本 (n2 - 1, temptxt1)
高级表格1.置数据 (n1, n2 - 2, #表格常量.XXX型, temptxt1)
.计次循环尾 ()
记录集1.到下一条 ()
.计次循环尾 ()
.子程序 _编辑框_搜索_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
_按钮1_被单击 ()
.如果真结束
抱歉,未能达到申请要求,申请不通过,可以关注论坛官方微信(吾爱破解论坛),等待开放注册通知。
页:
[1]