Delphi中accesss实现树形结构查询系统(一次性生成比较方便)
主要是要读取数据库的信息,而delphi界面是一个树形结构。
例如有一个Ascess数据库:示例.MDB,内有一张表:“国家”,表的内容如下:
编号 名称
01 中国
0101 吉林省
010101 长春市
010102 吉林市
0102 江苏省
010201 南京市
010202 常州市
02 美国
0201 密歇根州
020101 底特律市
0202 华盛顿州
020201 温哥华市
020202 西雅图市
03 澳大利亚
在 TreeView 中显示结构
1. 新建一个Delphi工程
2. 在主窗体上,放一个TTreeView控件、一个TADoDataSet控件和一个按钮,
设置ADoDataSet1的ConnectionString属性为:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=示例.mdb;Persist Security Info=False
3. 添加按钮响应代码:
procedure TForm1.Button1Click(Sender: TObject);
const
ID_DEPT = 2;
var
nLevel: Integer;
pNodes: array[0..1023] of TTreeNode;
lpID, lpName: string;
begin
ADODataSet1.Close;
ADODataSet1.CommandText := 'SELECT * FROM [国家] ORDER BY [编号]';
ADODataSet1.Open;
pNodes[0] := nil;
TreeView1.Items.Clear;
with ADODataSet1.Recordset do
while not Eof do
begin
lpID := Fields['编号'].Value;
lpName := Fields['名称'].Value;
nLevel := Length(lpID) div ID_DEPT;
pNodes[nLevel] := TreeView1.Items.AddChild(pNodes[nLevel - 1], lpName);
MoveNext;
end;
end;
---------------------
作者:清风古韵
来源:CSDN
原文:https://blog.csdn.net/ttpage/article/details/9161689
版权声明:本文为博主原创文章,转载请附上博文链接!
相关文章
- 树莓派系统安装和调试 总结整理篇
- ASP .Net Core系统部署到SUSE Linux Enterprise Server 12 SP3 64 具体方案
- Windows服务器通过系统计划任务实现开机自动运行脚本
- 利用浏览器指纹技术进行防恶意点击和恶意骚扰刷新系统
- 重新整理 .net core 实践篇—————配置系统之环境配置[九]
- 【刷题】面筋-Linux 系统中“|”管道的作用是什么
- Qt编写安防视频监控系统8-双击节点
- .NET Core采用的全新配置系统[10]: 配置的同步机制是如何实现的?
- 浅谈 SAP ABAP 系统里的 ALV 输出方式实现
- SAP R/3系统的R和3分别代表什么含义,负载均衡的实现原理
- SAP gateway 后台系统的 OData service 服务探测机制实现原理
- 成功解决windows系统的视频格式文件不显示缩略图内容问题
- 【无功优化】考虑泄流效应的光伏并网点电压系统侧无功优化(Matlab代码实现)
- 配电系统的线性三相潮流(Matlab实现)
- 具有梯度流的一类系统的扩散图卡尔曼滤波(Matlab代码实现)
- 基于多目标粒子群优化算法的冷热电联供型综合能源系统运行优化(Matlab代码实现)
- 电力系统系统潮流分析【IEEE 57 节点】(Matlab代码实现)
- 【鲲鹏 DevKit黑科技解读】│如何实现全链路系统问题90%精准诊断?
- 015-关键业务系统的JVM参数
- 68.第十五章 运维自动化之系统部署 -- 利用Cobbler实现自动化安装(三)
- 【云原生之Docker实战】使用docker部署Ghost个人博客系统
- 【图文并茂】U盘重装Win11系统步骤图解
- Win10 如何使用DISM命令用本地镜像来修复系统损坏文件
- 谷歌宣布Android auto目前的汽车系统汽车市场的影响
- 分布式 Web UI 自动化系统的设计与实现
- 基于Java+SpringBoot+Thymeleaf点餐系统设计与实现
- Android 11.0 系统开启和关闭黑白模式主题功能实现