在数据库中用键盘控制数据记录的滚动(50分)

D

daidaiworm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-29

• #1

我想在数据库编程中一按pageUp就回到上一条记录，按pageDown就指向下一条记录，该怎样做?如果把pageup和pagedown换成上箭头和下箭头呢? [][][][]

代码:

 

L

linyi_cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-30

• #2

在什么控件中？（DBGRID？）

 

D

daidaiworm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-30

• #3

不在DBGRID中
我知道在onkeypress中添加 if key=#13 then (事件）可以在如tedit等控件中用回车
来触发事件，我想用类似的方法来用pageup,pagedown来触发某些事件，如使数据记录
指针向上或向下移动，就像很多dos下的foxpro编程一样

 

D

daidaiworm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-01

• #4

这个问题很难吗？很少有人这样做吗？怎么没有人回答？拜托，请帮一下忙

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-01

• #5

不难嘛， 在OnKeyDown事件中处理就是了：
新建一个工程，加上一个Table，一个DataSource，一个DBGrid(当然用DBEdit的也是可以的，不过
DBGRID直观一些[])，连好。
将Form1.KeyPreview属性设为true，处理OnKeyDown事件：

代码:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 33 then //向前翻
  begin
    if not Table1.Bof then//如果是第一条记录就不处理
       Table1.Prior;
  end;

  if Key = 34 then //向后翻
  begin
    if not Table1.Eof then//如果是最后一条记录就不处理
       Table1.Next;
  end;
end;

 

D

daidaiworm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-03

• #6

杜宝，想为你加分都不行，在加分栏没你的名字，我不知为什么，想要分的话你可以发个
帖子告诉我怎么办

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-03

• #7

谢谢，现在再试试看！

 

D

daidaiworm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-04

• #8

接受答案了.