Delphi中:如何限制dbgird或者cxgrid某一列只能输入整数或小数。
程序是直接操作表格(dbgird或cxgrid)进行数据的修改,所以需要限制某一列只能输入整数或小数,否则写入数据库时会报错。求各位帮忙解决,感激不尽!!!...
程序是直接操作表格(dbgird或cxgrid)进行数据的修改,所以需要限制某一列只能输入整数或小数,否则写入数据库时会报错。求各位帮忙解决,感激不尽!!!
展开
展开全部
1 2 3 4 5 6 7 8 9 | 可通过在数据源控件的ondatachange事件中加入约束代码实现。比如table1对应的表定义了ee字段是数值型字段,整数、小数位均有一定长度。下面就是限制ee字段只能输入整数或小数的示例代码(功能是当输入不满足要求时直接回退放弃,并未给出提示,你可自行加入): procedure TForm1 . DataSource1DataChange(Sender: TObject; Field: TField); var x: real ; begin x:=table1 . FieldByName( 'ee' ).AsFloat; if abs (table1 . FieldByName( 'dd' ).AsFloat)>= 1 then table1 . Cancel; if not ((int(x)=x) or ( abs (x)< 1 )) then table1 . Cancel; end ; |
追问
我再试试,思路感觉还比较合理
追答
已验证过了!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询