张志峰的博客

水滴石川，积少成多。

导航

随笔分类 -  Delphi Ehlib

Delphi 在dbgrideh中表格输入数据时有效性的检查(转)

摘要：在数据库系统设计中经常要用到在表格中进行数据录入，如何判断在数据导入时的数据有效性呢？下面介绍几种常用的方法与大家交流。方法一：Dbgrid是与Table，在Table的Column的OnSetText和OnValidate事件中处理。 1、在OnSetText中判断数据的合法性，如果不合法，在OnValidate处理，如果不合法则abort2、抛出一个异常Raise,即可保证焦点不会丢失。也可以在Table1.BeforePost里面处理，如果不符合要求，ShowMessage(""),然后Abort;方法二：如果是Adoquery ,在Column的OnSetText和 阅读全文

posted @ 2012-01-18 16:38 ╰★张志峰★╮ 阅读(1773) 评论(0) 推荐(0)

Delphi 如何判断在DBGridEh中某格输入数据是否符合约束

摘要：不好意思，弄错了，为了不误导楼主，特更正如下：两种方法：1、如果要实现复杂的判断，可以用字段的OnValidate事件，写法如下：procedure ClientDataSetValidate( Sender: TField);var tpEvent:TFieldNotifyEvent;begin if Sender.AsFloat > 57 then begin ShowMessage('值不符事要求了'); tpEvent:=Sender.OnValidate; Sender.OnValidate:=Nil; Sender.Value:=值; //注意，如果要赋值，一 阅读全文

posted @ 2012-01-18 16:36 ╰★张志峰★╮ 阅读(2081) 评论(0) 推荐(0)

Delphi DbgridEh表格内容显示的状态

摘要：var MyCol: TColumnEh;begin with DBGridEh_DWUser do begin Columns.Clear; MyCol := Columns.Add; MyCol.FieldName := 'USER_CODE'; MyCol.Title.Caption := '用户编码'; MyCol.Width := 120; MyCol.ReadOnly := True; //只读 MyCol.Alignment := taCenter; //单元格中的内容对齐状态 MyCol.Layout := tlCenter;//单元格中的内容的 阅读全文

posted @ 2012-01-06 13:31 ╰★张志峰★╮ 阅读(2817) 评论(0) 推荐(0)

Delphi DbGridEh实现表格没有内容的渐变效果

摘要：OptionsEh =dghExtendVertLines 就会有这个效果， 去掉就会没有这个效果 阅读全文

posted @ 2012-01-06 12:18 ╰★张志峰★╮ 阅读(1116) 评论(4) 推荐(0)