CSDN论坛 > Delphi > VCL组件开发及应用

dbgrid问题,送分!!! [问题点数:20分,结帖人sharesky]

Bbs1
本版专家分:18
结帖率 100%
CSDN今日推荐
Bbs4
本版专家分:1696
Bbs1
本版专家分:18
匿名用户不能发表回复!
其他相关推荐
delphi DBGrid自动适应列宽(转)
比如有一个名称字段设置的长度是50,在DBGRID里面显示1条记录,这个名称只有3个字,要让DBGRID自动把这个字段的宽度缩到3个字宽。 uses Math; function DBGridRecordSize(mColumn: TColumn): Boolean; { 返回记录数据网格列显示最大宽度是否成功 } begin Result := False;
邮递员送信(最短路)
邮递员送信 【题目描述】 有一个邮递员要送东西,邮局在结点1。他总共要送N-1样东西,其目的地分别是2-N。由于这个城市的交通比较繁忙,因此所有的道路都是单行的,共M条道路,通过每条道路需要一定的时间。这个邮递员每次只能带一样东西。求送完这N-1样东西并且最终回到邮局最少需要多少时间。 【输入文件】 输入文件第一行包括一个正整数N和M; 接下来M行,每行三个正整数U,V,W,表示该条道路
在dbgrid中增加计算字段
先在adoquery或adotable中增加计算字段;然后在adoquery或adotable的OnCalcFields事件,添上计算金额的代码就行了应用例子:已有数量和单价,增加金额字段。 
在delphi中,从dbgrid导出数据保存成excel文件
实验了,很好用function TForm1.ExportDBGrid(DBGrid: TDBGrid; SheetName: string): boolean;//直接保存,不显示EXCEL<br />var<br />c, r, i, j: integer;<br />app: Olevariant;<br />TempFileName, ResultFileName: string;<br />begin<br />try<br />    result := True;<br />      app
CCF NOI1009 分配任务
问题链接:CCF NOI1009 分配任务。 时间限制: 1000 ms  空间限制: 262144 KB 题目描述   在社会实践活动中有三项任务分别是:种树、采茶、送水。依据小组人数及男生、女生人数决定小组的接受任务,人数小于10人的小组负责送水(输出water),人数大于等于10人且男生多于女生的小组负责种树(输出tree),人数大于等于10人且男生不多于女生的
DBGrid显示行号的几种方法
先在DataSet控件的加号点开,在里面的fields点右键add all fields,然后再右键new fields,这里添加一个数据表里没有的字段比如NO,这个NO字段设置为Integer,下面设置为calculated,确定,然后在这个NO字段的事件OnGetText里面添加这个代码:          int r=Sender->DataSet->RecNo;      Text=(
delphi dbgrid行颜色改变
把 dgRowSelect 设为True, 在option里面. // DBGrid1的OnDrawColumnCell事件 if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then     begin       DBGrid1.Canvas.Font.Color :=ClYellow;    
Delphi 动态导出DBGrid To Excel
经常会遇到DBGRID 转入到EXCEL中的情况,所以写了个通用程序,希望对大家有用。 procedure TDM.DBGridExport(GRID:TDBGRID); var       //DBGRID控件内容存储到EXCEL 只有第一行有标题     EclApp:Variant;     XlsFileName:String;     sh:olevariant;
DELPHI的DBGrid组件属性介绍
DBGrid.是以表格方式显示、编辑数据表中数据的组件,是Delphi中最常用的数据编辑组件, 其常用属性与方法如下:     1.常用属性     (1)Columns属性     该属性用于设置DBGrid组件的列属性。如设置每列的颜色、标题、字体等。单击Columns 属性
在DBGrid中实现多选功能。
1、首先把DBGrid->options-dgMulitSelect设为True.  dgRowSelect也设为True,此属性设为true后,DBGrid将不能编辑,如何实现能否编辑代码如下要先引用 uses DBGrids单元procedure TfrmXJCGHD.CheckBox1Click(Sender: TObject);begin  inherited;  if check
关闭