ADO的查询问题(50分)

M

migis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #1

我是初学者。有谁知道下列代码要怎样放在程序里？为什么我定上了，总显示出错啊！
function TForm1.GetSearchField: string;
begin
Result:= ADODataset1.Fields[radiogroup1.ItemIndex].FieldName;
end;

 

M

migis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #2

我非常着急，请高手帮帮忙啊！！！

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #3

function TForm1.GetSearchField: string;
begin
Result:= ADODataset1.Fields[radiogroup1.ItemIndex].FieldName;
end;
radiogroup1.ItemIndex表示你的radiogroup1控件当前选中的itemindex，从0开始的。
ADODataset1.Fields[radiogroup1.ItemIndex]就是取ADODataset1的一个Fields。
ADODataset1.Fields[radiogroup1.ItemIndex].FieldName;就是去这个Fields的名称
然后返回，这就是上面的代码的功能。

出错可能原因：
1、你的AdoDataSet1没有Open。
2、你的AdoDataSet1的字段数目少于RadioGroup1里面的Item的个数。

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #4

当然是放在TForm1的类定义里.例如
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
可以放这里,function GetSearchField: string;
public
{ Public declarations }
也可以放这里,function GetSearchField: string;
end;
至于private和public的区别看一下讲OOP的书就应该明白了.

 

M

migis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #5

function TForm1.GetSearchField: string;
这句应该加到
procedure TForm1.ADODataSet2AfterOpen(DataSet: TDataSet);
里，还是独立成行啊？？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #6

独立成行。放置在Private或者Public里面。将TForm1去除如下：
function GetSearchField: string;

 

M

migis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #7

Result:= ADODataset1.Fields[radiogroup1.ItemIndex].FieldName;
那这句要放在哪里啊？？

 

M

migis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #8

多人接受答案了。