从数据库内读出数据，如何对窗体内控件操作的问题？(50分)

A

ahdhy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-18

• #1

我是从数据库内读出相映的键值（如：Button1），赋于窗体内Button1的
相映的属性值。

 

J

jasper

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-18

• #2

动态创建，赋值就可以了呀

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-18

• #3

读出来，赋上去就行了，有什么问题吗？

 

A

ahdhy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-18

• #4

我是先把Tmenu的name属性写入了数据库内，在创建窗体时不知道的情况下，
对其赋值。例如：
while not ADODataSet1.Eof do
begin
TMenuItem(ADODataSet1.FieldByName('menu_name').AsString).Enabled := ADODataSet1.FieldByName('menu_bool').Value;
ADODataSet1.Recordset.MoveNext;
end;
运行时报错，不知为什么请各位大侠多多指教？谢谢！！！

 

P

pink_wt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-18

• #5

这句错了>>TMenuItem(ADODataSet1.FieldByName('menu_name').AsString).Enabled := ADODataSet1.FieldByName('menu_bool').V
应该TMenuItem(findcomponent(ADODataSet1.FieldByName('menu_name').AsString)).Enabled := ADODataSet1.FieldByName('menu_bool').Value;
还要判断findcomponent(ADODataSet1.FieldByName('menu_name').AsString))是否为nil;
如果：＝NIl，则动态创建

 

A

ahdhy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-18

• #6

to pink_wt 非常感谢！！！