请问dbgrid的一个问题，100分送给主要解答建议人！

2004-05-06 01:48:24 75 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

CAPL编程的催化剂——CAPLdll的实现 CANoe作为一款功能强大的总线开发及测试工具，不仅仅是因为其丰富的库函数，最重要的是其兼容了多种编程语言，可以实现灵活的开发，极大的解决了纯CAPL编程所带来的限制，如通过动态链接库（DLL）来实现复杂函数的编写，使其能够在CAPL中可以调用，下面将对DLL的实现进行分析。capldll.cpp这个文件初看相当复杂，从整体上来说，这段代码主要包含了两部分：自定义函数实现和回调函数定义，今天的主要任务是实现自定义函数，这里的函数定义与普通函数定义差不多，只是利用了CAPL的格式。在VS2017工程中打开。阅读详情

我想在dbgrid中实现抄表的功能，就是：

让某一个字段（某一列）可以编辑，其它的不能编辑。

在第一行那一字段输入完后自动跳转到下一行该列的这一字段。

...全文

GNSS/INS松组合导航实战：如何用卡尔曼滤波提升定位精度（附MATLAB代码）本文深入探讨了GNSS/INS松组合导航的工程实践，详细阐述了如何利用卡尔曼滤波算法融合卫星与惯性数据以提升定位精度。内容涵盖从仿真环境搭建、误差状态卡尔曼滤波器（ESKF）设计，到状态与观测方程实现、噪声参数调试及常见问题排查的全过程，并提供了可直接运行的MATLAB代码，为开发高精度、鲁棒的组合导航系统提供实战指南。阅读详情

pgz_007

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

pgz_007 2004-05-07

打赏
举报

有没有直接的getColumn方法呀。

miky 2004-05-07

打赏
举报

字段和你的DataSet有关，你的ClientDataset的Fields是怎么排列的，那么在DbGrid里也怎么排列，现在知道怎么找了吧？

pgz_007 2004-05-07

打赏
举报

我是楼主，双击DBGrid1什么都没有，我是用ClientDataset设置的。
DBGrid1.Columns[i].ReadOnly := true;
这个i是列号，但是我数据表里面列很多，有20多列，那么我怎样得到需要编辑的字段所在的DBGrid表格中的列号呢？

yrhkds 2004-05-06

打赏
举报

楼上说得对。
你可以通过属性来设置
双击DBDGrid弹出的框中，添加的字段可以分别设置其只读属性，readonly ：＝true；

miky 2004-05-06

打赏
举报

更正，上面的方法不太好，
DBGrid1.Columns[i].ReadOnly := true; //i 是不可编辑的列

miky 2004-05-06

打赏
举报

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if DBGrid1.SelectedIndex = 可编辑的列 then
Include(DBGrid1.Options,dgEditing)
else
Exclude(DBGrid1.Options,dgEditing);
end;

viaboy 2004-05-06

打赏
举报

1,你再找找属性应该能解决。

2 procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then

if ActiveControl = DBGrid1 then

begin

TDBGrid(ActiveControl).SelectedIndex := TDBGrid (ActiveControl).SelectedIndex + 1;

Key := #0;

end;

end;

rockswj 2004-05-06

打赏
举报

净态列的readonly属性
if key=#13 then
begin
if not(ADOQuery.Eof) then
begin
ADOQuery.Next ;
DBGrid1.SelectedField:=你的字段名
end;
end;

AdoreTour 2004-05-06

打赏
举报

双击DBGrid1，再加入所有字段，将除了要编辑的字段的ReadOnly设为False外,其它全为True
然后在DBGrid1KeyPress中加代码
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if not(ADOTable1.Eof) then
begin
ADOTable1.Next ;
DBGrid1.SelectedIndex:=x;//x为你的字段在 DBGrid1中的排位，从0开始
end;
end;
end;

Kaykay 2004-05-06

打赏
举报

你把你的问题说详细点，看我能不能明确的告诉你如何解决

pgz_007 2004-05-06

打赏
举报

那么我怎样得到该字段所在的列号呢？也就是某字段是哪一列。

Kaykay 2004-05-06

打赏
举报

关于只读的设置听楼上各位的；

关于回车换行，很简单：
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBGrid1.DataSource.DataSet.Next;
end;

lincs3000 2004-05-06

打赏
举报

在每列设置readonly为true，在keypress设置回车就换行啊！

请问dbgrid的一个问题，100分送给主要解答建议人！

相关推荐