DBGrid相关技术整理
DBGrid相关技术整理;
注:对于DBGrid相关属性、方法的学习融入到技术整理过程中
一,多选
设置属性:
Options->dgMultiSelect = True;
->dgRowSelect = True;
应用属性:
SelectedRows;
操作方法:
-Ctrl + Mouse Clicks
-Shift + Arrow Keys
For example:
1,取得所选行某个字段的值的合计:
procedure TForm1.btnDoSumClick(Sender: TObject);
var
i: Integer;
sum: Single;
begin
if DBGrid1.SelectedRows.Count > 0 then
begin
sum := 0;
with DBGrid1.DataSource.DataSet do
begin
for i := 0 to DBGrid1.SelectedRows.Count - 1 do
begin
GotoBookmard(Pointer(DBGrid1.SelectedRows.Items[i]));
sum := sum + AdoQuery1.FieldByName('Size').asfloat;
end;
end;
edtSizeSum.Text := FloattoStr(sum);
end;
end;
//用edtSizeSum来接收计算来的合计值
2,全选DBGrid:
procedure DBGridSelectAll(AGrid: TDBGrid) ;
begin
AGrid.SelectedRows.Clear;
with AGrid.DataSource.DataSet do
begin
DisableControls;
First;
try
while not EOF do
begin
AGrid.SelectedRows.CurrentRowSelected := True;
Next;
end;
finally
EnableControls;
end;
end;
end;
深入了解:
1,SelectedRows:
The TDBGrid component keeps all the selections as Bookmarks in a TStringList,
and all the Bookmarks must be converted to a Pointer (what they really are) before using it.
&
The SelectedRows property is an object of type TBookmarkList.
We can use the SelectedRows property to, for example:
--get the number of rows selected,
--clear the selection(unselect),
--delete all the selected records,
--check whether a particular record is selected.
2,运行时设置DBGrid的多选属性
DBGrid1.Options := DBGrid1.Options + [dgMultiSelect];
//以上部分内容取自http://delphi.about.com/od/usedbvcl/l/aa032503a.htm
二,加入其它控件
http://delphi.about.com/od/usedbvcl/l/aa082003a.htm
http://delphi.about.com/od/usedbvcl/l/aa082003a.htm
三,颜色设置
http://delphi.about.com/od/usedbvcl/l/aa031699.htm