申请会员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_被单击 ()
.如果真结束

Hmily

抱歉，未能达到申请要求，申请不通过，可以关注论坛官方微信（吾爱破解论坛），等待开放注册通知。