delphi中cxgrid和数据库搭配的基本应用

在delphi中我用的数据库控件是unidac，数据库是采用sqlite数据库，让delphi开发的软件和数据库连接上，并且对数据库的表可以操作有已下控件基本够用了。



uniconnection1是连接数据库的，双击打开选择使用的数据库，然后在把下面的database里面填上数据库的所在位置，就能连接上了，sqliteuniprovider1是表示sqlite服务端，用什么数据库就选什么服务端，unisql1是专门执行数据库语句的，如果对数据库操作频繁可以用这个控件封装成一个公用函数调用，unitable1是选中数据库中的表，unitable1中有个tablename可以选择数据库中的表，uniquery1我理解也是一种表，这种表是从unitable1的表中选择出来的表，是动态改变的表，可以用来做查询，筛选，unidatasource1是用来做中介的，它可以连接unitable1或者uniquery1然后连接到cxgrid.连接好cxgrid后右击griddbtableview选第二项创建所有列，或点击customize自己自定义设置。

接下来重点将cxgrid的功能，cxgrid 表可以让表中的选中行显示不同的颜色设置该属性在optionsseletion(颜色类型可以在styles里面设置需要结合TcxstyleResposity控件使用)

制定表格中数据的颜色，在cxgrid事件中有OnCustomDrawCell()双击打开代码如下

procedure TFormMain.clmnWakeStateCustomDrawCell(Sender: TcxCustomGridTableView;

ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;

var ADone: Boolean);

begin

end;

ACanvas是单元格中画布的对象，用它可以调用许多属性如ACanvas.font.color:=clred;这是让这个格子里面的字体变红。

AViewInfo是获得单元格子中的数据如AViewInfo.Displayvalue.

cxgrid 还可以改变格子中显示的内容，事件为OnGetDisplayText().

procedure TFormMain.clmnWakeStateGetDisplayText(

Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;

var AText: string);

begin

end;

这里面的Atext是显示的数据，可以在这里赋值给他改变它的显示，如

if Atext='0' then

begin

Atext:='你好'；

end;

cxgrid表中指定区域改变颜色事件OnFocusedRecordChanged()

procedure TFormMain.cxGridDBTableView3FocusedRecordChanged(

Sender: TcxCustomGridTableView; APrevFocusedRecord,

AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);

var

shows:string;

begin

if AFocusedRecord = nil then

exit;

shows := VarToStr(AFocusedRecord.Values[6]);

end

AFocusedRecord对象是可以获得任意一列的值，然后根据这个值判断上什么颜色，上背景色操作如下

Sender.Styles.Selection := styWaitWake;//styWaitWake是上面说的TcxstyleResposity控件里的属性。

cxgrid 还可以只选择单元格中的关键字变颜色，这需要RichEdit控件.下次再说。。。。。