查看: 3061|回复: 0

DBGrid的小用法！

[复制链接]

字体大小: 正常放大

ilikenba

1万主题	49 听众	2万积分

TA的每日心情

	奋斗 2024-6-23 05:14

签到天数: 1043 天

[LV.10]以坛为家III

群组: 万里江山

群组: sas讨论小组

群组: 长盛证券理财有限公司

群组: C 语言讨论组

群组: Matlab讨论组

电梯直达

1^#

发表于 2004-12-8 15:10 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

<

>var
W1: array[1..8] of Integer;
W2: array[1..8] of Integer;
<

>procedure Treckoningform.Orderby(grid: TDBGrid;Column: TColumn;number:Integer);
var
 colwidth,Max:Integer;
begin
 colwidth:=5;
 Max:=5;
 if not(Column.Field is TBlobField ) then
Tadotable(Column.Field.DataSet).indexFieldNames := Column.Field.FieldName
 else
 begin
Column.width := max+50;
exit;
 end;
 with Tadotable(Column.Field.DataSet) do
 begin
 case number of
 1: begin
 case Column.ID of
 3: begin
 if(w1[3]*8+5)< grid.Canvas.TextWidth(Column.Title.Caption) then
 Column.width := grid.Canvas.TextWidth(Column.Title.Caption)+5
 else
 Column.width :=w1[3]*8+5;
 end;
 4: begin
 if(w1[4]*8+5)< grid.Canvas.TextWidth(Column.Title.Caption) then
 Column.width := grid.Canvas.TextWidth(Column.Title.Caption)+5
 else
 Column.width :=w1[4]*8+5;
 end;
 7: begin
 if(w1[7]*8+5)< grid.Canvas.TextWidth(Column.Title.Caption) then
 Column.width := grid.Canvas.TextWidth(Column.Title.Caption)+5
 else
 Column.width :=w1[7]*8+5;
 end;
 else
 begin
 first;
 while not eof do
 begin
 colwidth := grid.Canvas.TextWidth(Column.Field.AsString);
 Max:=math.Max(colwidth,Max);
 Next;
 end;
 if (Max < grid.Canvas.TextWidth(Column.Title.Caption)) or (colwidth = 0) then
 Column.width := grid.Canvas.TextWidth(Column.Title.Caption)+5
 else
 Column.width := Max+5;
 end;
 end;
 end;
 2: begin
 case Column.ID of
 4: begin
 if(w2[4]*8+5)< grid.Canvas.TextWidth(Column.Title.Caption) then
 Column.width := grid.Canvas.TextWidth(Column.Title.Caption)+5
 else
 Column.width :=w2[4]*8+5;
 end;
 5: begin
 if(w2[5]*8+5)< grid.Canvas.TextWidth(Column.Title.Caption) then
 Column.width := grid.Canvas.TextWidth(Column.Title.Caption)+5
 else
 Column.width :=w2[5]*8+5;
 end;
 6: begin
 if(w2[6]*8+5)< grid.Canvas.TextWidth(Column.Title.Caption) then
 Column.width := grid.Canvas.TextWidth(Column.Title.Caption)+5
 else
 Column.width :=w2[6]*8+5;
 end;
 else
 begin
 first;
 while not eof do
 begin
 colwidth := grid.Canvas.TextWidth(Column.Field.AsString);
 Max:=math.Max(colwidth,Max);
 Next;
 end;
 if (Max < grid.Canvas.TextWidth(Column.Title.Caption)) or (colwidth = 0) then
 Column.width := grid.Canvas.TextWidth(Column.Title.Caption)+5
 else
 Column.width := Max+5;
 end;
 end;
 end;
 end;
 end;
end;
<

>procedure Treckoningform.suiDBGrid2TitleClick(Column: TColumn);
begin
Orderby(suiDBGrid2,Column,2);
end;
<

>procedure Treckoningform.suiDBGrid1DrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn;
 State: TGridDrawState);
var
DrawString : String;
sys:TSysOper;
begin
if (gdSelected in State)then
begin
 suiDBGrid1.Canvas.Brush.Color:=clFuchsia;//使被选中的一行的颜色变成紫红色
end
else
 suiDBGrid1.Canvas.Brush.Color:=clWindow;
sys:=TSysOper.Create;
try
 if Column.Field.IsNull=false then
 begin
 case DataCol of
 3: begin
 DrawString:=sys.getSex(Column.Field.CurValue);//得到要显示的字符串。
 suiDBGrid1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,DrawString);
 w1[3]:=math.max(Length(DrawString),w1[3]);
 end;
 4: begin
 DrawString:=sys.getLoginMode(Column.Field.CurValue);
 suiDBGrid1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,DrawString);
 w1[4]:=math.max(Length(DrawString),w1[4]);
 end;
 7:begin
 DrawString:=TimeFormat(Column.Field.CurValue);
 suiDBGrid1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,DrawString);
 w1[7]:=math.max(Length(DrawString),w1[7]);
 end;
 else
 suiDBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
 end;
end
else
 suiDBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
 finally
sys.Free;
 end;
end;
<

>上面是操作DBGrid的两个事件的的例子！Orderby函数起到了一个点击标题排序并调整cell的大小使得显示完全的作用，这里在DBGrid的DrawColumnCell事件中加入将一些想将数据库中的内容换一种显示的方法，DrawString就是要显示的字符串，采用suiDBGrid1.Canvas.TextRect函数重画。这里是根据cell的ID号进行的重画，如果DBGrid是不能拖动的不会出问题，如果要实现拖动，还要动态取得cell的ID号！

zan