zoukankan      html  css  js  c++  java
  • 如何控制数据集字段被引用的所有控件的Visible、Enabled、ReadOnly

    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;


  • 相关阅读:
    类和结构体(转)
    XLua标签(转)
    unity项目开始架构
    TCPSocket(转)
    UGUI源码(六)VertexHelper
    图文混排
    渲染管线(转)
    c#tostring用法(转)
    unity协程(转载)
    vue界面显示无效的token
  • 原文地址:https://www.cnblogs.com/ZhouXiHong/p/630050.html
Copyright © 2011-2022 走看看