else

sroot_f:=treeview1.Selected.Parent.Text;

if sroot='未归档项目' then              //如果鼠标点击在" 未归档项目"上

begin

adodataset1.Active:=false;

adodataset1.CommandText:='select * from audit_proj_tab where Audit_grade=0';

adodataset1.Active:=true;

if  (sroot_f='未归档项目') and (sroot='常规内审') then         

begin                            //父类是'未归档项目' 且子类是'常规内审'

adodataset1.Active:=false;

adodataset1.CommandText:='select * from audit_proj_tab where Proj_type=1 and Audit_grade=0';

adodataset1.Active:=true;   //以下重复的代码已省去

相比ADODataset组件，ADOCommand 组件更多是用来执行一些更新、剔除等非select语句的sql命令，也用来执行存储过程。当数据库操作并不需要返回数据的时候，可以使用这个组件以达到更高的数据库存储效率。

例如在frm_main窗体中，使用了adocommand组件来实现用户给项目批示的功能。在该窗体中adocommand组件使用数据模块中的ADO连接组件，即把connection属性设置为：DataModule1.ADOConnection1。然后给‘通过’按钮添加以下事件代码：

adocommand1.CommandText:=’update audit_proj_tab set audit_pishi=:aa,audit_why=:bb  where  audit_id=:cc';

adocommand1.Parameters.ParamByName('aa').Value:=1;  //给参数aa传值1，设置audit_pishi的字段值为true;

adocommand1.Parameters.ParamByName('bb').Value:=memo3.Text;  //memo3.text是批示信息

adocommand1.Parameters.ParamByName('cc').Value:=dbgrid1.DataSource.DataSet.FieldByName('audit_id').Value;

adocommand1.Execute;                //执行adocommand

Office 2000符合OLE技术规范。所谓OLE （Object linking and embedding），就是对象链接与嵌入，它是应用程序之间交换数据和相互操作的一种方式，可使应用程序间能更好的协同工作。实际上，在Word中可以插入一个Excel工作表，并且能够进行编辑，这就是OLE技术的应用，Word与Excel已经是在协同工作了，彼此间交换数据并让用户感觉仍像使用同一个程序。同样的，我们的内审档案管理系统理应能够通过应用OLE技术来调用Word或Excel等支持OLE规范的应用程序。

OLE包括两个方面：OLE客户和OLE服务器。所谓的OLE客户，也叫做OLE容器，是指请求数据或者操纵其他程序的程序。相应的，OLE服务器是指被请求的程序，它向OLE客户提供所需的服务。内审档案管理系统充当的是OLE客户的角色，而Microsoft Office充当的就是OLE服务器。内审档案管理系统要向Office请求服务，实际上就是要调用Word的功能，包括最终存成Doc后缀格式的文件。

在本子系统中，OLE Automation 技术将在生成内审工作量统计报表的时候使用，控制Excel进行插入数据操作来生成Excel统计文档。

Delphi 6.0结合了可视化技术、面向对象技术、数据库技术、网络开发技术等多种先进的软件编程技术和思想，成为创建功能丰富、界面友好的Windows应用软件的工具之一。本系统选支持 ADO 与 OLE 的Delphi 6.0开发工具，使软件的开发更趋于合理且方便人们使用。(责任编辑：南粤论文中心)转贴于南粤论文中心: http://www.nylw.net(南粤论文中心__代写代发论文_毕业论文带写_广州职称论文代发_广州论文网）