遇到怪事了,求救,TDBEDIT.READONLY不起作用了

sztony 2014-05-20 09:01:05
我有如下一段代码,就是对TDBEDIT控件的READONLY进行控制,非常简单,
但是,在运行过程中,把DOCTYPE_CODE类型改变时候,比如由STD切换到XX,
希望TDBEDIT能够写,但实际却还是只读,没办法写,跟踪时,明明执行了dbedit2.ReadOnly := false;语句
却就是没有效果,太奇怪了,从来没有遇到过这种怪事,求救了。

with zq_wkpiece do
begin
if state in [dsinsert,dsedit] then
begin
if trim(fieldbyname('doctype_code').AsString) = 'STD' then
begin
dbedit2.Color := clbtnshadow;
dbedit4.Color := clbtnshadow;

dbedit2.ReadOnly := true;
dbedit4.ReadOnly := true;
end else
begin
dbedit2.Color := clwindow;
dbedit4.Color := clwindow;

dbedit2.ReadOnly := false;
dbedit4.ReadOnly := false;

end;
end; //if state in .... then
end; //with zq_wkpiece do
...全文
207 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
sztony 2014-05-20
  • 打赏
  • 举报
回复
dataset相关字段READONLY也设为FALSE了,界面上的其它字段也可以编辑, 就是这个二个字段,因为被TRUE过,切换为FALSE后,还是不能编辑,但其它字段都能编辑(其它字段没有切换过TRUE 和FALSE)。
金卯刀 2014-05-20
  • 打赏
  • 举报
回复
dataset中字段的ReadOnly会影响数据感知控件的readOnly状态
sztony 2014-05-20
  • 打赏
  • 举报
回复
1)主键也是可以编辑的, 2)这二个字段,在我的程序里,不是主键字段, 真被搞崩溃了,不知道问题出在哪里?
Andy-88 2014-05-20
  • 打赏
  • 举报
回复
主键是不能编辑的 与READoNLY  没有关系
金卯刀 2014-05-20
  • 打赏
  • 举报
回复
我的意思是直接设置字段属性readonly。如果一定要设置控件的属性,可以在actionlist.onupdate事件实时控制界面状态
********************************************* * Mida Basic Embarcadero XE6 Edition V 2.75 * * for Delphi XE6 and C++Builder XE6 * ********************************************* Mida is the only way to try to bring your project from VCL to FireMonkey. Version after version, Mida has expanded dramatically, now supports almost all features of FireMonkey. This version has a full support for XE6 and last FireMonkey version. Full support to Anchors, Action and TDbGrid and more more... Mida Basic Embarcadero XE6 Edition ---------------------------------- This is a basic version of the converter, available in conjunction with licensed Embarcadero XE6 IDE. This version supports many standard components of Embarcadero. It has support for LiveBindings. The LiveBindings-Links are automatically created between the standard components (TDbEdit. ..) and the database. You can upgrade to Mida Pro or Mida Studio activating these features : - Support of Hundreds of components of Third Party ( TMS,JVCL,DevExp... ) for example Mida automatically converts TMS TAdvPanel to FireMonkey TPanel - iPad and Android Mobile support ( Mida Studio only ) [New 4.0] You can to convert your VCL project to iPad or Nexus Tablet - Total Conversion, not only FireMonkey ( Mida Studio only ) [New 4.0] Convert a set of components in others ( VCL to IntraWeb, AnyDac to FireDac.. ) - Delphi iOS Native Components TMS iCL ( Mida Studio only ) [New 4.0] - Delphi iOS Native Components D.P.F. ( Mida Studio only ) [New 4.0] - Report Conversion ( QuickReport,FastReport... - Mida Studio only ) - Pascal and C++ Source Code Upgrade your code for FireMonkey (where possible) - Custom conversion for your Components for example convert your class TMyBitBtn in FireMonkey TButton - StyleBook Great ! Realistic font style, font color, background color - Advanced LiveBindings Visual components connects to DataSource In Mida Pro are supported more complex components as TDbLookUpComboBox - Image Converter The FireMonkey Image format is different from Vcl, Mida converts your TImage png, jpg... to FireMonkey format - Online Tables of conversion Always updated with new components every day - Mida Application without XE6 IDE Mida XE6 Basic is only a IDE PlugIn, Mida Pro/Studio is an application - Email Support Installation of Mida Basic XE6 : -------------------------------- 1) Create a directory 2) Unzip file Mida_Basic_XE6.zip 3) Close all Delphi / C++ Builder IDE 4) Run Mida_XE6_Installer.exe 5) Open Delphi XE6 or C++Builder XE6 6) Open VCL Project 7) Open Tools Menu -> Mida - Convert VCL To FireMonkey More Info : Official Site: http://www.midaconverter.com Mida Basic free forum : http://www.midaconverter.com/forum Blog: http://blog.midaconverter.com Youtube http://www.youtube.com/user/MidaFireMonkey FaceBook http://www.facebook.com/Mida.FireMonkey
Delphi是一种非常优秀的可视化程序开发语言,Delphi 5 基于Windows 95/98/NT,采用高度结构化的Object Pascal语言,具有结构清晰、编译迅速等特点。它强大的可扩展数据库功能更赢得了无数数据库开发人员的青睐。本书详细介绍了Delphi 5 所增加的强大的数据库编程工具,例如ADO组件、IBX组件和数据模块设计窗口。本书由浅入深,系统地介绍了如何利用Delphi 5 强大的开发工具进行数据库应用程序的开发,并结合每一部分的内容,列举了大量实例,以便于读者掌握。本书适用于从事数据库应用程序开发的广大技术人员以及作为各院校师生的学习参考。 ---------------------------------------------目 录前言第1章 Delphi 5.0 简介 11.1 Delphi 5.0 的新特点 11.1.1 集成开发环境(IDE)的改进 11.1.2 新的语言扩充 31.1.3 数据库的应用开发能力增强 41.1.4 其他方面的改进 41.2 Delphi 5.0 的集成开发环境 41.2.1 主窗口 51.2.2 代码编辑器 131.2.3 窗体设计器 151.2.4 对象观察器 161.2.5 工程管理器 181.3 面向对象的Pascal语言 191.3.1 Object Pascal 的语言基础 191.3.2 Object Pascal的程序设计 271.4 小结 29第2章 数据库应用程序开发基本概述 302.1 数据库的基本概念 302.2 数据存取 312.3 数据库应用程序的开发步骤 312.4 数据库应用开发能力的增强 322.5 小结 33第3章 Delphi 5.0 的数据库工具 343.1 数据库工作平台 343.1.1 Database Desktop 353.1.2 设置工作目录及私有目录 353.1.3 创建数据表格 353.1.4 数据表格的属性 363.1.5 在Database Desktop中创建SQL型数据表格 393.1.6 在Database Desktop中使用查询 403.2 数据库引擎 423.3 数据库资源管理器 423.4 数据字典 453.5 SQL监视器 463.6 Datapump工具 463.7 小结 48第4章 数据访问组件 494.1 数据访问组件简介 504.2 TTable组件介绍 504.2.1 数据集组件的基本知识 514.2.2 TTable 组件的重要属性 524.2.3 Ttable组件的重要方法 584.2.4 Ttable 组件的重要事件 694.2.5 举例说明 704.3 TQuery 组件介绍 714.3.1 TQuery组件和TTable组件的比较 724.3.2 TQuery组件的重要属性 724.3.3 TQuery组件的重要方法 754.4 TstoredProc组件介绍 774.4.1 TstoredProc组件的重要属性 774.4.2 TstoredProc组件的重要方法 784.4.3 利用TstoredProc组件实现存储过程 794.5 TDataSource组件介绍 814.5.1 TDataSource组件的重要属性 814.5.2 TDataSource组件的重要方法 824.5.3 TDataSource组件的重要事件 834.5.4 应用程序中建立TDataSource组件的基本步骤 844.6 Tdatabase组件介绍 844.6.1 TDatabase 组件的重要属性 844.6.2 TDatabase 组件的重要方法 874.6.3 TDatabase 组件的重要事件 884.7 Tsession组件介绍 884.7.1 Tsession的重要属性 894.7.2 Tsession的重要方法 894.8 其他组件介绍 904.9 数据访问组件的应用实例 914.10 ADO组件页介绍 994.10.1 ADO组件页概述 994.10.2 TADOConnection 1004.10.3 TADOCommand组件 1024.10.4 TADODataSet组件 1044.10.5 TADOTable 1064.11 小结 107第5章 数据控制组件 1085.1 数据控制组件简介 1085.2 TDBGrid组件介绍 1095.2.1 TDBGrid组件的重要属性 1105.2.2 TDBGrid组件的重要事件 1125.2.3 TDBGrid组件的应用举例 1135.3 TDBNavigator组件介绍 1185.3.1 TDBNavigator组件实现的主要功能 1185.3.2 TDBNavigator组件的重要属性 1195.3.3 TDBNav

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧