发表于 2017-5-3 10:19

申请会员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 发表于 2017-5-4 18:21

抱歉,未能达到申请要求,申请不通过,可以关注论坛官方微信(吾爱破解论坛),等待开放注册通知。
页: [1]
查看完整版本: 申请会员ID:雨雾