.版本 2
.支持库 iext
.支持库 mysql
.子程序 _图形按钮1_被单击
.局部变量 记录集子句柄, 整数型
.局部变量 权限49, 文本型
透明标签3.标题 = “正在登陆,请耐心等待...”
' 连接到数据库
MySql句柄 = 连接MySql (服务器IP, “root”, “2838855”, “cicdl”, 3306)
' 判断连接数据库是否成功
.如果真 (MySql句柄 = 0)
信息框 (“连接数据库失败!请联系系统管理员。”, #信息图标, )
_启动窗口.销毁 ()
结束 ()
.如果真结束
' 转换编码,防止中文读出问号
执行SQL语句 (MySql句柄, “SET NAMES 'gbk'”)
' 查询语句,执行此句后方可取到记录集句柄
执行SQL语句 (MySql句柄, “select * from lp_cxgd”)
记录集全局句柄 = 取记录集 (MySql句柄)
记录集子句柄 = 查找记录 (MySql句柄, “qxb”, “工号,密码,姓名,权限1,权限2,权限3,权限4,权限5,权限6,权限7,权限8,权限9,权限10,权限11,权限12,权限13,权限14,权限15,权限16,权限17,权限18,权限19,权限20,权限21,权限22,权限23,权限24,权限25,权限26,权限27,权限28,权限29,权限30,权限31,权限32,权限33,权限34,权限35,权限36,权限37,权限38,权限39,权限40,权限41,权限42,权限43,权限44,权限45,权限46,权限47,权限48,权限49”, “工号='” + 编辑框1.内容 + “'”, “工号 ASC”)
读字段值 (记录集子句柄, “工号”, 工号)
读字段值 (记录集子句柄, “密码”, 密码)
首次连接要20秒才能连上,我感觉造成首次连接时慢的主要原因是这一句,:
记录集全局句柄 = 取记录集 (MySql句柄)
如果不用这一句下面的代码都不能读到数据库中的内容,请问有什么可以解决的办法,还有里面的查询也是很慢,请高手帮助分析。
|