Delphi ADO 学习笔记

Delphi ADO 学习笔记  By Shaoyun 2010-03-16

方法一：需要用到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代劳了而已
这样做操作简单但有个缺点，单个数据源的时候倒不影响，多个数据源的话，浪费资源不说，而且不方便统一管理。