高分求解！！高手请进》》》有关DLL的参数???

Question

本文向您揭示在Delphi中使用ADO是如何轻而易举，结合了ADO的Delphi应用程序，将不再依赖于BDE。
    ADO的精髓在于利用简单的COM指令来快速方便的访问ODBC数据源，微软的表格、列表框等ActiveX控件使得用户可以简便的利用ADO工作；然而，本文中笔者仅仅向您展示了如何利用程序访问数据库，将不采用任何可视化数据控件。
    本文将向您展示如何利用Variant或interfaces访问和修改ADO数据库，示例程序非常简单，可运行于Delphi 3或4。
    安装和访问一个ADO数据库。
    示例程序的代码不足150行，然而运行本程序必须首先安装ADO以及设置ODBC数据源。
    ADO是一组COM组件的集合，允许程序员利用利用少量的简单代码访问数据库。
    ADO通常和OLEDB、Universal Data Access以及Microsoft Data Access Components（MDAC）联系在一起。OLEDB产生较ADO为早，是后期各种技术的基础。
    如果你已经安装了ADO，你会在你的计算机中发现ADODB.DLL或者是MSADO15.DLL，这些文件中包含了一个类库，其中包括了利用ADO编程所需的全部接口和常量。在Delphi中，选择菜单Project | Import Type Library，选择以上的DLL文件，然后确定，系统生成了一个基于ADODB.DLL的ADODB_TLB.Pas文件，这个文件中包含了所有Delphi ADO编程所需的声明。
    最后一步的准备工作就是将Delphi演示数据库中的Clients.DBF设置为ODBC系统DSN，其别名为DBDemosDBase，驱动程序为Dbase 5。
    以下程序清单同时利用Variants和Interfaces访问ADO：
unit Main;
{---------------------------------------------------------------------
Created Jan 5, 1999. Copyright (c) 1999 by Charlie Calvert
----------------------------------------------------------------------}
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ComObj, Grids, ADODB_TLB, ExtCtrls;
const
SELECTSTRING = 'SELECT * FROM Clients.dbf'; 
DSNSTRING = 'DBDemosDBase'; 
type TForm1 = class(TForm) 
StringGrid1: TStringGrid; 
Panel1: TPanel;
VariantBtn: TButton; 
InterfaceBtn: TButton; 
UpdateBtn: TButton;
Edit1: TEdit; 
procedure VariantBtnClick(Sender: TObject);
procedure InterfaceBtnClick(Sender: TObject);
procedure UpdateBtnClick(Sender: TObject);
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean); private
procedure Display(RecordSet: _RecordSet); { Private declarations }
public { Public declarations } 
end;
var Form1: TForm1;implementation
uses
ActiveX;
{$R *.DFM}
procedure TForm1.Display(RecordSet: _RecordSet);
var
Y, i: Integer;
begin 
Y := 1; 
repeat 
for i := 0 to 6 do
StringGrid1.Cells[i, Y] := RecordSet.Fields[i].Value;
RecordSet.Move(1, EmptyParam); 
Inc(Y); 
until RecordSet.EOF;
end;
procedure TForm1.InterfaceBtnClick(Sender: TObject);
var RecordSet: _RecordSet;
DSN: string;
begin 
// 生成空的recordset object
OleCheck(CoCreateInstance(CLASS_RecordSet, nil, 
CLSCTX_ALL, IID__RecordSet, RecordSet)); 
DSN := 'dsn=' + DSNSTRING;
// 填写数据
RecordSet.Open(SelectString, DSN, adOpenForwardOnly, 
adLockReadOnly, adCmdUnspecified); 
// 显示数据
Display(RecordSet);
UpdateBtn.Enabled := True;
end;
procedure TForm1.UpdateBtnClick(Sender: TObject);
var RecordSet: _RecordSet;
DSN: string;
begin 
OleCheck(CoCreateInstance(CLASS_RecordSet, nil, 
CLSCTX_ALL, IID__RecordSet, RecordSet)); 
DSN := 'dsn=' + DSNSTRING;
// Fill the recordset 
RecordSet.Open(SELECTSTRING, DSN, adOpenDynamic, 
adLockOptimistic, adCmdUnspecified); 
// 修改
RecordSet.Move(StringGrid1.Row - 1, EmptyParam);
RecordSet.Fields[StringGrid1.Col].Value := Edit1.Text;
RecordSet.Update(EmptyParam, EmptyParam); 
RecordSet.MoveFirst; 
Display(RecordSet);
end;
procedure TForm1.VariantBtnClick(Sender: TObject);
var
RecordSet: OleVariant; 
Y, i: Integer;
begin
// Create an empty recordset object
RecordSet := CreateOleObject('ADODB.Recordset'); 
// Fill the recordset
RecordSet.Open(SELECTSTRING, DSNSTRING); 
// Display the data 
Y := 1; 
repeat
for i := 0 to 6 do
StringGrid1.Cells[i, Y] := RecordSet.Fields[i].Value;
RecordSet.Move(1); 
Inc(Y); 
until RecordSet.EOF;
end; 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
Edit1.Text := StringGrid1.Cells[ACOl, ARow];
end;
end.
    这个程序有三个按钮，一个StringGrid以及一个编辑框，第一个按钮利用以Variants连接的ADO填充表格，第二个则利用Inteface进行连接。
    第三个按钮用于修改数据，当用户单击StringGrid的单元格时，单元格中的数据会显示于编辑框中，可以修改编辑框中的数据，然后单击这个按钮，将会修改这个单元格以及数据库中的数据。
    ADO中含有许多不同的对象，本文将集中讲述RecordSet和Fields这两个对象。
    可以用如下的代码生成一个RecordSet的实例：
var
RecordSet: OleVariant;
begin
RecordSet := CreateOleObject('ADODB.Recordset');
... // Code omitted here
end;
    CreateOleObject声明于ComObj.Pas中。它是ActiveX.Pas中的核心函数CoCreateInstance的一个简单包装。
    要打开数据库，可利用以下代码：
const
SELECTSTRING = 'SELECT * FROM Clients.dbf';
DSNSTRING = 'DBDemosDBase';begin
RecordSet := CreateOleObject('ADODB.Recordset');
RecordSet.Open(SELECTSTRING, DSNSTRING);
.. // Code omitted here
end;
    Open方法有很多参数，但是在这个程序中我们只处理其中的两个。第一个是我们要执行的SQL语句，第二个是我们要操作的数据库。
    当打开一个数据集时，数据集游标位于第一个记录，可以用下面的代码访问这个记录：MyString := RecordSet.Fields[0].Value;
MyString := RecordSet.Fields[1].Value;    要移动游标，可以用RecordSet对象的Move方法：
RecordSet.Move(1);
    利用Interface访问ADO：    利用Interface访问ADO的步骤同从前的例子大致相同：procedure TForm1.InterfaceBtnClick(Sender: TObject);
var RecordSet: _RecordSet;
DSN: string;
begin 
// Create an empty recordset object
OleCheck(CoCreateInstance(CLASS_RecordSet, nil, 
CLSCTX_ALL, IID__RecordSet, RecordSet)); 
DSN := 'dsn=' + DSNSTRING;
// Fill the recordset 
RecordSet.Open(SelectString, DSN, adOpenForwardOnly, 
adLockReadOnly, adCmdUnspecified); 
// Display the data 
Display(RecordSet);
UpdateBtn.Enabled := True;
end;同前一节的代码不同，这些代码必须包含ADODB_TLB.PAS。
这一段代码用ADODB_TLB.PAS中声明的_RecordSet代替了Variants。
这里直接调用了CoCreateInstance来生成对象的实例。第一个参数传递了声明于ADODB_TLB.PAS中的常量CLASS_RecordSet，它代表RecordSet的Class ID，第四个参数为IID__RecordSet，也是声明于ADODB_TLB.PAS中的，注意，它带有两条下划线！最后一个参数是我希望建立的实例。
当调用recordSet.Open的时候，应该穿第五个参数。
const
SELECTSTRING = 'SELECT * FROM Clients.dbf';
DSNSTRING = 'DBDemosDBase';begin
.. // Code omitted
DSN := 'dsn=' + DSNSTRING;
RecordSet.Open(SelectString, DSN, adOpenForwardOnly, 
adLockReadOnly, adCmdUnspecified);
.. // Code omitted
end;
在前一节的例子中，可以只传递两个参数，这是因为Variants允许忽略参数，这时采用缺省值。当采用Interfaces时，则必须明确的定义参数。如果希望采用缺省值，则可以向下面这样调用函数：
RecordSet.Open(SelectString, DSN, EmptyParam, EmptyParam, EmptyParam);
在这里我们使用了EmptyParam这样一个Variant，它被声明于System.Pas，这些参数将采用缺省值。上面的例子中我用了声明于ADODB_TLB.PAS中的真正的缺省值。此类问题可参考Data Access SDK中的相关文件。
打开数据集以后，就可以用同上一节相同的方法显示数据。唯一的不同就是RecordSet.Move方法要有两个参数。
procedure TForm1.Display(RecordSet: _RecordSet);
var Y, i: Integer;
begin
Y := 1; 
Repeat
for i := 0 to 6 do
StringGrid1.Cells[i, Y] := RecordSet.Fields[i].Value;
RecordSet.Move(1, EmptyParam); 
Inc(Y); 
until RecordSet.EOF;
end;修改数据
    当修改数据时，不能用打开数据集时使用的缺省值，而是应该传递以下的参数：
const
adOpenDynamic = $00000002;
adLockOptimistic = $00000003;
adCmdUnspecified = $FFFFFFFF;
begin
.. // Call CoCreateInstance
DSN := 'dsn=' + DSNSTRING;
RecordSet.Open(SELECTSTRING, DSN, adOpenDynamic, adLockOptimistic, 
adCmdUnspecified);
.. // Code ommitted here
end;    无论你用的是Variants还是Interfaces，这段代码都将正常工作。
    当你的数据集以可读写的方式打开时，如adLockOptimistic方式，就可以修改数据库的内容了：
RecordSet.Fields[0].Value := Edit1.Text;
RecordSet.Update(EmptyParam, EmptyParam);
    这段代码可以修改当前记录的内容。当然也可以利用字段数组以及Move方法修改任何记录。如果

Answer 1

To上面老兄：
我是想从本地的dll中返回结果集，不用variant，要如何进行？？

Answer 2

在主程序调用时传递TClientDataset指针，DLL只需给该指针填充值即可!