在DBGrid中怎样才能让我能点击一个单元格选择整行又doc.docx
- 文档编号:12539357
- 上传时间:2023-04-20
- 格式:DOCX
- 页数:7
- 大小:18.04KB
在DBGrid中怎样才能让我能点击一个单元格选择整行又doc.docx
《在DBGrid中怎样才能让我能点击一个单元格选择整行又doc.docx》由会员分享,可在线阅读,更多相关《在DBGrid中怎样才能让我能点击一个单元格选择整行又doc.docx(7页珍藏版)》请在冰豆网上搜索。
在DBGrid中怎样才能让我能点击一个单元格选择整行又doc
在DBGrid中,怎样才能让我能点击一个单元格选择整行,又可以编辑单元格的内容呢?
在设计过程中,有时候数据较大量,field较多的时候,只是点击单元格可能会对某个field的数据误操作(如数据错行),为此才会想到这个问题,解决办法如下:
点击单元格就改当前行颜色。
这个办法也算是没办法的办法吧!
type
TMyDBGrid=class(TDBGrid);
//////////////////////////////////
//DBGrid1.Options->dgEditing=True
//DBGrid1.Options->dgRowSelect=False
procedureTForm1.DBGrid1DrawColumnCell(Sender:
TObject;constRect:
TRect;
DataCol:
Integer;Column:
TColumn;State:
TGridDrawState);
begin
withTMyDBGrid(Sender)do
begin
ifDataLink.ActiveRecord=Row-1then
begin
Canvas.Font.Color:
=clWhite;
Canvas.Brush.Color:
=$00800040;
end
else
begin
Canvas.Brush.Color:
=Color;
Canvas.Font.Color:
=Font.Color;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
测试通过(d7)!
有关双击dbgrid排序的问题(想让用户双击dbgird控件的某一个字段时就升序,再双击就降序....?
)
procedureTForm1.DBGrid1TitleClick(Column:
TColumn);
var
temp,title:
string;
begin
temp:
=Column.FieldName;
qusp.Close;
ifColumn.Index<>lastcolumnthen
begin
if(Pos('↑',DBGrid1.Columns[LastColumn].Title.Caption)>0)or(Pos('↓',DBGrid1.Columns[LastColumn].Title.Caption)>0)then
DBGrid1.Columns[LastColumn].Title.Caption:
=Copy(DBGrid1.Columns[LastColumn].Title.Caption,3,Length(DBGrid1.Columns[LastColumn].Title.Caption)-2);
qusp.Sql[icount]:
='orderby'+temp+'asc';
DBGrid1.Columns[Column.Index].Title.Caption:
='↑'+DBGrid1.Columns[Column.Index].Title.Caption;
lastcolumn:
=column.Index;
end
else
begin
LastColumn:
=Column.Index;
title:
=DBGrid1.Columns[LastColumn].Title.Caption;
ifPos('↑',title)>0then
begin
qusp.Sql[icount]:
='orderby'+temp+'desc';
Delete(title,1,2);
DBGrid1.Columns[LastColumn].Title.Caption:
='↓'+title;
end
elseifPos('↓',title)>0then
begin
qusp.Sql[icount]:
='orderby'+temp+'asc';
Delete(title,1,2);
DBGrid1.Columns[LastColumn].Title.Caption:
='↑'+title;
end
else
begin
qusp.Sql[icount]:
='orderby'+temp+'asc';
DBGrid1.Columns[LastColumn].Title.Caption:
='↑'+title;
end;
end;
qusp.Open;
end;
DbGrid控件隐藏或显示标题栏
1、新建一个带两个参数的过程(第1个参数是菜单对象,第2个是DbGrid控件):
ProcedureViewTitle(Sender:
TObject;DbgColumns:
TDBGrid);
//隐藏或显示DbGrid标题栏
2、然后按Ctrl+Shift+C组合键,定义的过程会在实现部分出现。
ProcedureFrmStock.ViewTitle(Sender:
TObject;DbgColumns:
TDBGrid);
begin
With(SenderasTMenuItem)do
begin
Checked:
=notChecked;
DbgColumns.Columns[Tag].Visible:
=Checked;
end;
end;
3、把菜单子项的Tag设置成跟DbGrid的Columns值相对应,比如:
DbGrid有一个标题栏是‘日期‘在第0列,然后把要触法该列的菜单的Tag设置成0。
4、把菜单的onClick事件选择ViewTitle该过程。
DBGrid对非布尔字段的栏中如何出现CheckBox选择输入可将dbgrid关联的dataset中需显示特殊内容字段设为显式字段
在OnGetText事件中写如下代码:
以table举例:
procedureTForm1.Table1Myfield1GetText(Sender:
TField;
varText:
String;DisplayText:
Boolean);
varPd:
string;
begin
inherited;
pd:
=table1.fieldbyname('myfield1').asstring;
ifpd='1'then
Text:
='□'
else
ifpd='2'then
text:
='▲'
else
Text:
='√';
end;
用dbgrid或dbgrideh如何让所显示数据自动滚动?
procedureTForm1.Timer1Timer(Sender:
TObject);
var
m:
tmessage;
begin
m.Msg:
=WM_VSCROLL;
m.WParamLo:
=SB_LINEDOWN;
m.WParamHi:
=1;
m.LParam:
=0;
postmessage(self.DBGrid1.Handle,m.Msg,m.WParam,m.LParam);
end;
procedureTForm1.Button1Click(Sender:
TObject);
begin
self.Timer1.Enabled:
=true;
end;
如果需要让他自动不断地从头到尾滚动,添加如下代码
iftable1.Eofthentable1.First;
关于DBGrid中下拉列表的两种设计比较
一、DBGrid中的下拉列表
在DBGrid网格中实现下拉列表,设置好DBGrid中该字段的PickList字符串列表、初始的序号值DropDownRows即可。
以职工信息库中的籍贯字段(字符串类型)为例,具体设计步骤如下:
1、在窗体上放置Table1、DataSource1、DBGrid1、DBNavigator1等控件对象,按下表设置各个对象的属性:
---------------------------------------
对象 属性 设定值
---------------------------------------
Table1 DataBase sy1
TableName zgk.dbf//职工信息库
DataSource1 DataSetTable1
DbGrid1 DataSource DataSource1
DBNavigator1 DataSource Datasource1
-------------------------------------------
2、双击Table1,在弹出的Form1.Table1窗口中,用右键弹出快捷菜单,单击AddFields菜单项;选择所有的字段后,按OK按钮。
3、修改第2步新增字段的DisplayLabel属性。
以Table1ZGBH字段为例,在ObjectInspector窗口中选择Table1ZGBH,修改属性DisplayLabel=职工编号,其余字段类似。
4、双击DBGrid1,在弹出的EditingDBGrid1.Columns窗口中,单击AddallFields按钮,增加Table1的所有字段。
5、在EditingDBGrid1.Columns窗口,选择jg这一行,切换到ObjectInspector窗口,修改它的PickList.Strings为
“湖北枝江市
北京市
河南平顶山市
浙江德清市”
6、在Form1.Oncreate事件中写入语句:
Table1.Open;
7、F9运行,用鼠标点击某个记录的籍贯字段,右边即出现一个按钮,点击这个按钮,可出现一个下拉列表,包含第5步中输入的四行字符串,可用鼠标进行选择。
当然也可以自行输入一个并不属下拉列表中的字符串。
二、DBGrid中的查找字段
所谓查找字段(LookUpField),即DBGrid中的某个关键字段的数值来源于另外一个数据库的相应字段。
运用查找字段技术,不仅可以有效的避免输入错误,而且DBGrid的显示方式更为灵活,可以不显示关键字段,而显示源数据库中相对应的另外一个字段的数据。
例如,我们在DBGrid中显示和编辑职工信息,包括职工编号、职工姓名、籍贯、所在单位编号,而单位编号来源于另一个数据库表格——单位库,称“单位编号”为关键字段。
如果我们直接显示和编辑单位编号的话,将会面对1、2、3等非常不直观的数字,编辑时极易出错。
但是如果显示和编辑的是单位库中对应的单位名称话,将非常直观。
这就是DBGrid的所支持的查找字段带来的好处。
实现DBGrid的查找字段同样不需要任何语句,具体设计步骤如下:
1、在窗体上放置Table1、Table2、DataSource1、DBGrid1、DBNavigator1等控件对象,按下表设置各个对象的属性:
---------------------------------------
对象 属性 设定值
---------------------------------------
Table1 DataBase sy1
TableName zgk.dbf//职工信息库
Table2 DataBase sy1
TablenAME dwk.dbf//单位信息库
DataSource1 DataSet Table1
DbGrid1 DataSource DataSource1
DBNavigator1DataSource Datasource1
------------------------------------------
2、双击Table1,在弹出的Form1.Table1窗口中,用右键弹出快捷菜单,单击AddFields菜单项;选择所有的字段后,按OK按钮。
3、修改第2步新增字段的DisplayLabel属性。
以Table1ZGBH字段为例,在ObjectInspector窗口中选择Table1ZGBH,修改属性DisplayLabel=职工编号,其余字段类似。
4、设置Table1DWBH.Visible=False。
5、在Form1.Table1窗口,用右键弹出快捷菜单,单击NewField菜单项,新增一个查找字段DWMC,在弹出的窗口设置相应的属性,按OK按钮确认;在ObjectInspector窗口,设置Table1DWMC.DisplayLabel=单位名称。
6、在Form1.Oncreate事件中写入语句:
Table1.Open;
7、按F9运行,当光标移至某个记录的单位名称字段时,用鼠标点击该字段,即出现一个下拉列表,点击右边的下箭头,可在下拉列表中进行选择。
在这里可以看出,下拉列表的内容来自于单位信息库,并且不能输入其他内容。
三、DBGrid中的下拉列表和查找字段的区别
虽然DBGrid中的下拉列表和查找字段,都是以下拉列表的形式出现的,但两者有很大的差别。
1、用PickList属性设置的下拉列表,它的数据是手工输入的,虽然也可以在程序中修改,但动态特性显然不如直接由另外数据库表格提取数据的查找字段。
2、用PickList属性设置的下拉列表,允许输入不属于下拉列表中的数据,但查找字段中只能输入源数据库中关键字段中的数据,这样更能保证数据的完整性。
3、用PickList属性设置的下拉列表设计较为简单。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- DBGrid 怎样才能 点击 一个 单元格 选择 doc