Delphi中Dbgrid实现全选和反选

分类：Database, Delphi 阅读 (5,239) Add comments

10月 032012

转载请注明原文地址：http://bcoder.com/delphi/implement-select-all-and-select-inverse-for-dbgrid-in-delphi

//全选

procedure TFrameCustSelector.ToolButton1Click(Sender: TObject);
var
	OldCurrent: TBookmark;
begin
	OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;
	DBGrid1.DataSource.DataSet.DisableControls;

	DBGrid1.DataSource.DataSet.First ;
	while not DBGrid1.DataSource.DataSet.Eof do begin
		DBGrid1.SelectedRows.CurrentRowSelected := true;
		DBGrid1.DataSource.DataSet.Next;
	end;

	DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);
	DBGrid1.DataSource.DataSet.EnableControls;
end;

//全清

procedure TFrameCustSelector.ToolButton2Click(Sender: TObject);
var
	OldCurrent: TBookmark;
begin
	OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;
	DBGrid1.DataSource.DataSet.DisableControls;

	DBGrid1.DataSource.DataSet.First ;
	while not DBGrid1.DataSource.DataSet.Eof do begin
		DBGrid1.SelectedRows.CurrentRowSelected := False;
		DBGrid1.DataSource.DataSet.Next;
	end;

	DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);
	DBGrid1.DataSource.DataSet.EnableControls;
end;

//反选
procedure TFrameCustSelector.ToolButton3Click(Sender: TObject);
var
OldCurrent: TBookmark;
begin
	OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;
	DBGrid1.DataSource.DataSet.DisableControls;

	DBGrid1.DataSource.DataSet.First ;
	while not DBGrid1.DataSource.DataSet.Eof do begin
		DBGrid1.SelectedRows.CurrentRowSelected := not DBGrid1.SelectedRows.CurrentRowSelected;
		DBGrid1.DataSource.DataSet.Next;
	end;

	DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);
	DBGrid1.DataSource.DataSet.EnableControls;
end;

//全选

procedure TFrameCustSelector.ToolButton1Click(Sender: TObject);

var

OldCurrent: TBookmark;

begin

OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;

DBGrid1.DataSource.DataSet.DisableControls;

DBGrid1.DataSource.DataSet.First ;

while not DBGrid1.DataSource.DataSet.Eof do begin

DBGrid1.SelectedRows.CurrentRowSelected := true;

DBGrid1.DataSource.DataSet.Next;

end;

DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);

DBGrid1.DataSource.DataSet.EnableControls;

end;

//全清

procedure TFrameCustSelector.ToolButton2Click(Sender: TObject);

var

OldCurrent: TBookmark;

begin

OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;

DBGrid1.DataSource.DataSet.DisableControls;

DBGrid1.DataSource.DataSet.First ;

while not DBGrid1.DataSource.DataSet.Eof do begin

DBGrid1.SelectedRows.CurrentRowSelected := False;

DBGrid1.DataSource.DataSet.Next;

end;

DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);

DBGrid1.DataSource.DataSet.EnableControls;

end;

//反选

procedure TFrameCustSelector.ToolButton3Click(Sender: TObject);

var

OldCurrent: TBookmark;

begin

OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;

DBGrid1.DataSource.DataSet.DisableControls;

DBGrid1.DataSource.DataSet.First ;

while not DBGrid1.DataSource.DataSet.Eof do begin

DBGrid1.SelectedRows.CurrentRowSelected := not DBGrid1.SelectedRows.CurrentRowSelected;

DBGrid1.DataSource.DataSet.Next;

end;

DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);

DBGrid1.DataSource.DataSet.EnableControls;

end;

打赏

Leave a Reply Cancel reply