Editing已经设为true了,ReadOnly设置为False了,该字段在查询时也不是使用语句计算的
初学,不知道哪位大侠可以指点一下阿,谢谢。
初学,不知道哪位大侠可以指点一下阿,谢谢。
解决方案 »
- RzDBGrid 可以实现这样的效果吗?
- 这个功能困了我好多天,望能得到高手的帮助
- table中的treeview
- 关于RPC服务器不可用的错误!在线等.............
- console application 如何设置其版本信息(Version info)?
- 字符串中想递换某一指定的子字符串是用什么函数?
- 把类放入DLL中,可是。。。
- 求助一下,关于表的更新的一个问题
- delphi 动态创建TClientSocket
- 有关线程执行query的问题
- InstallShield Express 2010 打包的时候的问题
- d2010编译d6程序时报“left side cannot be assigned to”?
CXGRID有没有绑定DATASOURCE,DATASOURCE有没有与数据集关联。数据库有没有打开。
var
IsReadOnly:Boolean;
begin
IsReadOnly:=aStatus=sBrowse;
btnSB_New.Enabled:=IsReadOnly and HaveRight(FModuleID,_UserNo,rInsert);
btnSB_Modi.Enabled:=IsReadOnly and HaveRight(FModuleID,_UserNo,rModify);
btnSB_Save.Enabled:=not IsReadOnly;
btnSB_Cancel.Enabled:=not IsReadOnly;
cxGrid1DBTableView1.OptionsData.Editing:=not IsReadOnly;
cxGrid1DBBandedTableView1.OptionsData.Editing:=not IsReadOnly;
cxGrid2DBBandedTableView1.OptionsData.Editing:=not IsReadOnly;
cxGrid3DBTableView1.OptionsData.Editing:=not IsReadOnly;
cxGrid3DBBandedTableView1.OptionsData.Editing:=not IsReadOnly;
end;procedure TRES_TENMAX_MODEL_F.btnSB_NewClick(Sender: TObject);
begin
inherited;
adoq_tenmax.Append;
adoq_tenmax.FieldByName('YF').AsString:=FormatDateTime('yyyy'+'-'+'mm'+'月',Now);
cxGrid1DBTableView1.Columns[1].FocusWithSelection;
ChangeStatus(sEdit);
end;procedure TRES_TENMAX_MODEL_F.btnSB_SaveClick(Sender: TObject);
begin
inherited;
if adoq_tenmax.State in [dsInsert,dsEdit] then
adoq_tenmax.Post;
ChangeStatus(sBrowse);
end;