برنامه نویس

به وبلاگ خودتان خوش آمدید.

برنامه نویس

به وبلاگ خودتان خوش آمدید.

فیلترگذاری بر روی dbgrideh دلفی

برای فیلتر گذاری روی dbgrideh کافی تنظیمات زیر انجام بدید 


uses EhLibMTE;
MemTableEh1.Filtered:=true;
DBGridEh1.STFilter.Local:=true;
DBGridEh1.STFilter.InstantApply:=true;
DBGridEh1.STFilter.Visible:=true;

مرتب سازی dbgrideh در دلفی

نحوه مرتب سازی dbgrideh در دلفی



procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;

Column: TColumnEh);

var i,j:Integer;
sort_str: String;

begin

for j:=0 to Column.Grid.Columns.Count-1 do
if (Column.Grid.Columns[j].Title.SortMarker <> smNoneEh) and (Column.Grid.Columns[j]<>Column)
then Column.Grid.Columns[j].Title.SortMarker := smNoneEh;
case Column.Title.SortMarker of
smNoneEh: Column.Title.SortMarker := smDownEh;

smDownEh: Column.Title.SortMarker := smUpEh;

end;

smUpEh: Column.Title.SortMarker := smNoneEh;


case Column.Title.SortMarker of
smUpEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := Column.FieldName+' ASC';
smDownEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := Column.FieldName+' DESC';
smNoneEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := '';
end;

end


و یا  تنظیمات زیر


uses ehlibADO; dbGrideh1.OptionsEh.dghAutoSortMarking:=true;