本文主要是介绍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控件.下次再说。。。。。
这篇关于delphi中cxgrid和数据库搭配的基本应用的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!