查询结果的全选和特选的问题

Question

想在查询结果中(显示在dbgrid),能否用一个按钮就把所有的记录都打上全选的标志,然后对这些记录进行处理,或者挑选几条记录做上选择标志,再做处理!
请大家帮忙!
谢谢

Answer 1

1.能否用一个按钮就把所有的记录都打上全选的标志
//首先设置dbgrid1的Options的dgMultiSelect设为true
procedure TMainForm.BitBtn2Click(Sender: TObject);
begin
        Query1.First;
        While Not Query1.Eof do
        begin
             dbgrid1.SelectedRows.CurrentRowSelected:=True;
             query1.next;
        end;
end;2.对这些记录进行处理,或者挑选几条记录做上选择标志,再做处理!
//以下是一个修改记录的例子
procedure TForm1.BitBtn1Click(Sender: TObject);
var
     i : integer;
begin
        with DBGrid1.DataSource.DataSet do
        for i:=0 to DBGrid1.SelectedRows.Count-1 do
        begin
             GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
             Edit;
             FieldByName('字段').AsString:= '修改字段值';
             Post;
        end;
end;

Answer 2

单选几个记录时，可以按住 Ctrl不放，然后用鼠标选择相关dbgrid1的记录行

Answer 3

foilsman(刀仔)不是已经给出实现的方法了，当然可以啊