在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
方法一:需要用到4个组件 实例名 组件名 (面板) con1 TADOConnection (dbGo) ds1 TDataSource (Data Access) tbl1 TADOTable (dbGo) dbgrd1 TDBGrids (Data Controls) TADOConnection 用来建立数据库连接 TDataSource 为TDBGrids提供数据来源 TADOTable 用来桥接TADOConnection和TDataSource,建立数据连接通道 TDBGrids 为数据显示控件 最好按顺序添加,不按顺序会出现属性设置时,相应的控件不能显示在下拉列表里 控件的设置: 设置con1的ConnectionString属性,通过向导对话框进行配置 设置tbl1的Connection为con1,Active为True Active设置后,数据库所有的表就会出现在TableName属性的下拉列表里,选择一个 设置数据源ds1的Dataset为tbl1 设置dbgrd1的DataSource为ds1 OK 运行一下,弹出输入用户名密码对话框,输入,没有的话跳过,好,数据显示出来了 如果TDBGrids显示花屏,设置 dbgrd1.DefaultDrawing:=True 去掉密码输入提示设置 con1.LoginPrompt:=True 这两个属性都可在对象监视器(属性设置)里设置 Delphi的大量VCL控件完成很多工作,这个例子没有写一句代码,只拖几个控件,配置一下属性,就完成所有的操作,这个就是RAD开发工具的高效之处。 测试环境:Windows XP SP3 / Delphi 2010 / Access数据库 当然以上的步骤还可以精简,去掉TADOConnection控件,直接配置tbl1的ConnectionString和tbl1的Active为True,将一二步合并 据我所想,配置tbl1的ConnectionString还是会建立TADOConnection,只不过VCL代劳了而已 这样做操作简单但有个缺点,单个数据源的时候倒不影响,多个数据源的话,浪费资源不说,而且不方便统一管理。 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论