1、首先打开电脑检查网络。
2、其次打开网络检测进行测试网络连接是否异常。
3、最后点击易语言重新运行即可。
.版本 2.支持库 mysql
.子程序 _按钮1_被单击
.局部变量 b, 整数型
.局部变量 取查询值, 整数型
.局部变量 MySQL语句, 文本型
.局部变量 记录数量, 整数型
.局部变量 i, 整数型
.局部变量 姓名, 文本型
b = 连接MySql (“120.26.*.*”, “root”, “123445”, “user”, 3306)
输出调试文本 (b)
MySQL语句 = “select * from user_table”
执行SQL语句 (b, MySQL语句)
取查询值 = 取记录集 (b)
记录数量 = 取记录集行数 (取查询值)
输出调试文本 (记录数量)
.计次循环首 (记录数量, i)
读字段值 (取查询值, “username”, 姓名)
.如果 (姓名 = “admin”)
信息框 (“已找到”, 0, , )
跳出循环 ()
.否则
.如果结束
' //输出调试文本 (姓名)
到下一行 (取查询值)
.计次循环尾 ()
-来源于网络
呵呵,建议你买一本《信息技术九年级上易语言版》,客户端(如下代码):
.版本
2
.程序集
窗口程序集1
.子程序
_按钮1_被单击
.如果
(客户1.连接
(“127.0.0.1”,
8888))
.否则
信息框
(“连接失败”,
0,
)
.如果结束
.子程序
_按钮2_被单击
客户1.发送数据
(发送编辑框.内容)
.子程序
_客户1_数据到达
接收编辑框.内容
=
到文本
(客户1.取回数据
())
.子程序
__启动窗口_创建完毕
服务器(如下代码):
.版本
2
.程序集
窗口程序集1
.子程序
_服务器1_客户进入
列表框1.加入项目
(服务器1.取回客户
(),
)
.子程序
_服务器1_数据到达
接收编辑框.内容
=
到文本
(服务器1.取回数据
())
.子程序
_按钮2_被单击
服务器1.发送数据
(列表框1.取项目文本
(列表框1.现行选中项),
发送编辑框.内容,
)
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)