我在制作模拟划菜程序的时候,要依据ordr表的void值改变行的颜色
终于找到的方法,以下是代码
在窗体中添加Colorgird1
form ONCreate事件添加
ColorGrid1.ForeGroundIndex:=9;
ColorGrid1.BackGroundIndex:=15;
9是红色
15是白色
dbgrid的DrawDataCell事件添加
procedure TForm1.DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if cds2.Fieldbyname('VOID').value='Y' then
DBGrid2.Canvas.Brush.Color:=ColorGrid1.ForeGroundColor
else
if cds2.Fieldbyname('CNT').value<0 then
DBGrid2.Canvas.Brush.Color:=clYellow
else
DBGrid2.Canvas.Brush.Color:=ColorGrid1.BackGroundColor;
DBGrid2.Canvas.FillRect(Rect);
DBGrid2.Canvas.TextOut(Rect.left+2,Rect.top+2,Field.AsString);
dbgrid要刷新
DBGrid2.refresh;
dbgrid中不能add fields,一添加了数据显示不出来,不知道为什么,只能动态设定标题
DBGrid2.Columns[0].Title.caption:='编码';
DBGrid2.Columns[0].Width:=60;
DBGrid2.Columns[1].Title.caption:='名称';
DBGrid2.Columns[1].Width:=100;
DBGrid2.Columns[2].Title.caption:='点选人';
DBGrid2.Columns[2].Width:=40;
DBGrid2.Columns[3].Title.caption:='数量';
DBGrid2.Columns[3].Width:=40;
DBGrid2.Columns[4].Title.caption:='单位';
DBGrid2.Columns[4].Width:=40;
DBGrid2.Columns[5].Title.caption:='辅助数量';
DBGrid2.Columns[5].Width:=40;
DBGrid2.Columns[6].Title.caption:='上传时间';
DBGrid2.Columns[6].Width:=100;
DBGrid2.Columns[7].Title.caption:='价格';
DBGrid2.Columns[7].Width:=40;
DBGrid2.Columns[8].Title.caption:='总价格';
DBGrid2.Columns[8].Width:=40;
DBGrid2.Columns[9].Title.caption:='取消';
DBGrid2.Columns[9].Width:=40;
DBGrid2.Columns[10].Title.caption:='取消人';
DBGrid2.Columns[10].Width:=40;
end;