要實現下拉過濾或排序的功能,下面的步驟並不可少;
1、uses EhLibMTE, EhlibADO;
2、DBGridEh.STFilter.Visible := True;
3、DBGridEh.STFilter.Local = True;(客戶端過濾);
4、增加TDataSource、TMemTableEh、TDataSetDriverEh、TAdoQuery,TDBGridEh四個控件,此四個控件的連接方法:
TDataSource的DataSet屬性賦值爲TMemTableEh控件;
TMemTableEh的DataDriver屬性賦值爲TDataSetDriverEh控件; FetchAllOnOpen := true;
TDataSetDriverEh的ProvierDataSet屬性賦值爲TAdoQuery控件;
TDBGridEh的DataSource屬性賦值爲TDataSource控件;
4、在單元的 initialization 節添加以下代:
DBGridEhCenter.FilterEditCloseUpApplyFilter := True;
5、實現語句:
if ADOQuery1.Active then ADOQuery1.Close;
ADOQuery1.SQL.Text := sql語句;
//ADOQuery1.Open;
if MemTableEh1.Active then MemTableEh1.Close;
MemTableEh1.Active := True;
6、要實現標題排序的步驟:
設置DBGridEh.OptionsEh.dghatuosortmarking := true;
DBGridEh.OptionsEh.dghmultisortmarking := true; //按住Ctrl操作
DBGridEh.sortlocal := true;
DBGridEh.sumlist.active := true;
然後再設置所要排序的標題的Title.TitleButton := true;(DBgrideh.column[0].title.titlebutton := true;)