DELPHI +ClientDataSet+DBGRIDEH 进行排序

【DELPHI +ClientDataSet+DBGRIDEH 进行排序】的更多相关文章

DELPHI +ClientDataSet+DBGRIDEH 进行排序

DELPHI +ClientDataSet+DBGRIDEH 进行排序因为使用了DBX+ClientDataSet,所以排序显得简单些,只需要设定几个属性就OK了.1.DbGridEH 中设定:OptionsEh中dghAutoSortMarking:=True; SortLocal:=True; Columns的Title.TitleButton:=True; 2.在单元中引用 EhLibCDS 这样就实现了点击title进行排序,而且不回资料库再捞资料. (追加备注:在使用发现如果设定了C…

delphi clientdataset判断某一行值是否存在

ClientDataSet的数据查找.我所介绍的心得和技巧都是用ClientDataSet来做范例,也可以应用于其他的一些DataSet.废话就不多说了.我们还是先看代码,让后再总结.1.Scanning 扫描数据查找这是最简单最直接也是最慢的一种方法,遍历所有数据:procedure TForm1.ScanBtnClick(Sender: TObject);varFound: Boolean;beginFound := False;ClientDataSet1.DisableControls;…

Delphi ClientDataSet 主从结构 BUG

使用ADO控件 .ClientDataSet .增加了从表与主表的关连字段 SheetID,别的设置全为默认.如图1所示图1 ======= 问题 BUG: 打开主表与从表,先不对主表进行任何操作.图2所示. 图2 在从表编辑中,使用 ClientDataSet2.Delete; 进行对从表进行删除行,将该SheetID(B41170600011)的从表的所有行删除.如图3所示. 图3 在进行图3操作时,鼠标焦点不要点击主表结构,在删除完从表的数据后直接点击主表的所对应的字段,不要点到别的字段…

Delphi 有关Dbgrideh控件：变色处理

procedure OnDrawColumnCell( Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);var d : TDBGridEh;begin inherited;if adoWorkStatioin.FieldByName('FGROUP_ID').AsString <> '' then //进行判断那些数据需要变色 begin if ado…

Delphi的ListView自动排序

private SortCol: Integer; SortWay: Integer; procedure TForm1.LVweColumnClick(Sender: TObject; Column: TListColumn); begin SortCol:=Column.Index; if (SortWay=1) then SortWay:=-1 else SortWay:=1; (Sender as TCustomListView).AlphaSort; end; procedure TF…

Delphi ClientDataSet复制记录

数据源记录集:ClientDataSetSource:目标记录集:ClientDataSetCopy 1)复制一条记录. ClientDataSetCopy.Close; ClientDataSetCopy.Fields.Clear; ClientDataSetCopy.FieldDefs.Clear; //复制字段定义 ClientDataSetCopy.FieldDefs.Assign( ClientDataSetSource.FieldDefs); ClientDataSetCop…

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

在数据库系统设计中经常要用到在表格中进行数据录入,如何判断在数据导入时的数据有效性呢?下面介绍几种常用的方法与大家交流. 方法一:Dbgrid是与Table,在Table的Column的OnSetText和OnValidate事件中处理. 1.在OnSetText中判断数据的合法性,如果不合法,在OnValidate处理,如果不合法则abort 2.抛出一个异常Raise,即可保证焦点不会丢失. 也可以在Table1.BeforePost里面处理,如果不符合要求,ShowMessage("&qu…