access数据浏览功能怎么实现?(20分)

  • 主题发起人 主题发起人 terry_zhou82
  • 开始时间 开始时间
T

terry_zhou82

Unregistered / Unconfirmed
GUEST, unregistred user!
我做了个数据库的界面,想利用键盘上的方向健进行记录移动,可是总不能实现,代码如下
在FORM1下的KEYDOWN事件下面:
begin
case key of
vk_right:begin
adotable1.next;
end;
vk_left:begin
adotable1.prior;
end;
但是不管怎么弄就是不能实现,请问改怎么弄?
 
在DBGrid的KeyDown事件里面写代码...
 
同意楼上的
 
但是我在主界面上面是没有DBGRID1控件的。只有DATASOURCE1.和ADOTABLE1,是考DBTEXT等控件显示数据的。怎么搞啊?急啊
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin


case key of
vk_left: begin
adotable1.Prior;
adotable1.Refresh;
end;

vk_right: begin
adotable1.Next;
adotable1.Refresh;
end;

end;
end;

上面的代码绝对可行
不要REFRESH行也行

估计是少加了END;的原因
 
试过了,不行啊!
 
将 窗体的属性 KeyPreview 设为True再试试
 
多人接受答案了。
 
后退
顶部