使用TAB在DBGrid的问题,十万火急 !!!!(200分)

G

GaryLou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #1

如果使用TAB键或下箭号在DBGrid时 ,当到table尾,DBGrid就会自动新增
一笔record,如何令此功能失效,不再append blank呢,先行谢过.

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #2

if key=char(vk_tab) then
if dbgrid1.DataSource.DataSet.RecNo=dbgrid1.DataSource.DataSet.RecordCount then
key:=#0;

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #3

在dbgrid的keydown事件中
写下面的语句
if key=vk_tab or key=vk_down then
abort;
即可

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #4

在dbgrid的keydown事件中
写下面的语句
if key=vk_tab or key=vk_down then
begin
abort;
key;=#0;
end;
即可

 

李

李长柱

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #5

1.先设置一个开关变量
CanAppend:Boolean;
// CanAppend=False 不能增加记录
// CanAppend=True 可以增加记录
2.对Table编写OnNewRecord事件
procedure TForm1.Table1NewRecord(DataSet: TDataSet);
begin
if not CanAppend then
Abort;
end;

这种方法对DBGrid是很有效的。

 

L

lhxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #6

Liu JZX的方法把tab建禁用了,不太好
www和李长柱的方法应该都可以,
我更倾向于www的方法
注意写在 onkeydown 事件中,因为onkeypress没法处理 vk_tab和 vk_down

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #7

都可以。

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-16

• #8

if key=vk_tab then
if ((dbgrid1.DataSource.DataSet.RecNo=dbgrid1.DataSource.DataSet.RecordCount)
and (dbgrid1.SelectedIndex+1=table1.FieldCount)) then
abort;
if key=vk_down then
if (dbgrid1.DataSource.DataSet.RecNo=dbgrid1.DataSource.DataSet.RecordCount) then
abort;

 

X

xWolf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-16

• #9

如果DataSource.DataSet is TQuery 那么RecNo不可用.
if key=vk_tab then
if ((dbgrid1.DataSource.DataSet.Eof)
and (dbgrid1.SelectedIndex+1=table1.FieldCount)) then
abort;
if key=vk_down then
if (dbgrid1.DataSource.DataSet.Eof) then
abort;

 

G

GaryLou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-17

• #10

多人接受答案了。