如何控制数据集字段被引用的所有控件的Visible、Enabled、ReadOnly

最新推荐文章于 2024-10-11 17:04:33 发布

weixin_30894389

最新推荐文章于 2024-10-11 17:04:33 发布

阅读量84

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/ZhouXiHong/archive/2007/01/25/630050.html

版权

var
//AQuery:TSQLDataSet;
UserDataField:TUserDataField;
begin
if AQuery=nil then
AQuery:=TSQLDataSet.Create(self);
AQuery.Database.URL:='Biz:\EYKJ\EYSJK.Database';
AQuery.SQL.Text:='SELECT * FROM ACC_DETAILS';

AQuery.Open;

UserDataField:=TUserDataField(AQuery.FindBizField('AccountID'));
UserDataField.DataSet:=AQuery;
UserDataField.ID:='AccountID';
UserDataField.Attributes.Visible.Text:='False';

UserDataField:=TUserDataField(AQuery.FindBizField('AccountCode'));
UserDataField.DataSet:=AQuery;
UserDataField.ID:='AccountCode';
UserDataField.Attributes.Enabled.Text:='False';

UserDataField:=TUserDataField(AQuery.FindBizField('AccountName'));
UserDataField.DataSet:=AQuery;
UserDataField.ID:='AccountName';
UserDataField.Attributes.ReadOnly.Text:='True';

DataSource1.DataSet:=AQuery;

转载于:https://www.cnblogs.com/ZhouXiHong/archive/2007/01/25/630050.html