’假设库文件名为“产品数据库.mdb”,库中的表名为“产品表”,产品字段名“类别”
全局变量:a 文本型
如果真(数据库连接1.连接Access(取运行目录()+“\产品数据库.mdb”,“”)=假)
信息框(“连接数据库失败!”,0,)
返回()
’添加一个记录集控件;
记录集1.置连接(数据库连接1)
‘上面我们已经打开并且连接好了MDB数据库,接下来我们做读取和显示;
记录集1.打开(“select * from 产品表”,#SQL语句,#服务器端游标)
记录集1.到首记录()
判断循环首(记录集1.尾记录后=假)
记录集1.读文本(“类别”,a)
如果真(a=“日用品”)
树型框1.加入项目(0,a,,,,,)
如果真(a=“洗化用品”)
树型框1.加入项目(1,a,,,,,)
如果真(a=“洗发水” 或 a=“洗衣粉”)
树型框1.加入项目(2,a,,,,,)
记录集1.到下一条()
判断循环尾()
记录集1.关闭()
fne文件 是易语言的支持库,实际上是一个动态链接库(DLL文件),文件里有公开的函数。要读取里面的易语言数据类型、命令、常量等等,需要你了解开发易语言支持库的相关知识,需要调用公开的函数进行读取。GetNewInf 函数,返回类型:整数型 。返回支持库信息指针。这个指针需要转换成自定义数据类型。然后一一读出。
建议先看看支持库开发手册,不过,我估计你看不懂。还是在深入了解及学习一下易语言。
下面这几个API可以搞定。
.版本 2
.DLL命令 LoadLibraryA, 整数型, , "LoadLibraryA", , 载入指定的动态链接库,并将它映射到当前进程使用的地址空间
.参数 动态链接库名称, 文本型, , lpLibFileName,指定要载入的动态链接库的名称
.DLL命令 FreeLibrary, 整数型, , "FreeLibrary", , 非零表示成功,零表示失败
.参数 库句柄, 整数型, , hModule
.DLL命令 GetProcAddress, 整数型, , "GetProcAddress"
.参数 模块句柄, 整数型, , hModule
.参数 进程名称, 文本型, , lpProcName
.DLL命令 RtlMoveMemory, , , "RtlMoveMemory"
.参数 库信息, 易库信息
.参数 库数据, 整数型
.参数 库尺寸, 整数型
【1】.连接Access数据库代码!.版本2
.支持库
eDB
.如果
(数据库连接.连接Access
(MDB数据库,
“”)
=
真)
记录集.置连接
(数据库连接)
排序条件
=
“字段,表名,条件”
.如果
(记录集.打开并排序
(MDB数据表,
排序条件)
=
真)
.否则
销毁
()
【2】.填充树形框字段到父项目代码!.版本
2
.支持库
eDB
.支持库
iext.局部变量
分类变量,
文本型
.局部变量
树项目总数,
整数型
.局部变量
树循环循环,
整数型
.局部变量
临时项目文本,
文本型
.局部变量
是否存在重复,
整数型
记录集.到首记录
()
.判断循环首
(记录集.尾记录后
=
假)
记录集.读文本
(“字段”,
分类变量)
树项目总数
=
树型框.取项目数
()
.如果
(树项目总数
=
0)
树型框.加入项目
(,
分类变量,
,
,
)
.否则
.计次循环首
(树项目总数,
树循环循环)
临时项目文本
=
树型框.取项目文本
(树循环循环
-
1)
.如果
(临时项目文本
=
分类变量)
是否存在重复
=
1
跳出循环
()
.否则
是否存在重复
=
0
.如果结束
树循环循环
=
树循环循环
+
1
.计次循环尾
()
.如果真
(是否存在重复
=
0)
树型框.加入项目
(,
分类变量,
,
,
)
.如果真结束
.如果结束
记录集.到下一条
()
.判断循环尾
()
【3】.填充表名到树形框子项目并过滤树形框存在的重复项!.版本
2
.支持库
iext
.支持库
eDB.局部变量
原项目变量,
整数型
.局部变量
原项目循环,
整数型
.局部变量
项目数组,
文本型,
,
"0"
.局部变量
原项目文本,
文本型
.局部变量
新项目变量,
整数型
.局部变量
新项目循环,
整数型
.局部变量
新项目文本,
文本型
.局部变量
新项目标题,
文本型
.局部变量
过滤语句,
文本型
.局部变量
文本数组,
文本型,
,
"0"
.局部变量
文本变量,
文本型
.局部变量
数组成员,
整数型
.局部变量
数组循环,
整数型
.局部变量
次数数量,
整数型
.局部变量
项目变量,
整数型
.局部变量
循环变量,
整数型
.局部变量
次数循环,
整数型
原项目变量
=
树型框.取项目数
()
原项目循环
=
1
.计次循环首
(原项目变量,
原项目循环)
加入成员
(项目数组,
树型框.取项目文本
(原项目循环
-
1))
.计次循环尾
()
数组成员
=
取数组成员数
(项目数组)原项目文本
=
项目数组
[数组循环]
过滤语句
=
“字段”
+
“=”
+
“'”
+
原项目文本
+
“'”
.如果
(记录集.过滤记录
(过滤语句)
=
真)
次数数量
=
记录集.记录数量
清除数组
(文本数组)
.计次循环首
(次数数量,
次数循环)
记录集.读文本
(“表名称”,
文本变量)
加入成员
(文本数组,
文本变量)
次数循环
=
次数循环
+
1
记录集.到下一条
()
.计次循环尾
()
项目变量
=
树型框.取项目数
()
.计次循环首
(项目变量,
循环变量)
树型框.置项目数值
(循环变量
-
1,
循环变量)
.计次循环尾
().否则
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)