procedure TQJ_F.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13 then
begin
ADOQ_REN.Close;
ADOQ_REN.SQL.Text:=
ADOQ_REN.SQL.Text +
'OR BH=''' + Edit1.Text + '''';
ADOQ_REN.Open; Edit1.Clear;
end;
end;为什么我按回车都没有任何反应啊。前两天按回车都还可以的,昨天开始就不行了。我没有动过这段代码。好心人帮帮忙啊
Shift: TShiftState);
begin
if Key=13 then
begin
ADOQ_REN.Close;
ADOQ_REN.SQL.Text:=
ADOQ_REN.SQL.Text +
'OR BH=''' + Edit1.Text + '''';
ADOQ_REN.Open; Edit1.Clear;
end;
end;为什么我按回车都没有任何反应啊。前两天按回车都还可以的,昨天开始就不行了。我没有动过这段代码。好心人帮帮忙啊
解决方案 »
- 求一条SQL语句。
- TWebbrowser怎样使用Frame中的内容?
- 请教关于FASTREPORT问题
- 提供D5 Enterprise下载,要下的赶快行动,用Daemon打开
- 这个我真的不懂啊!动态创建一个button,我怎么写它的单击事件呢?
- 用过DELPHI7的进来聊聊,UP有分!!!有关dbexpreess 组件的问题!!!!
- 我以后就不能在这发言了,把分给大家(二)
- 哪位兄弟有ACM控件,给我传一份
- 请问如何复制光盘中的隐藏目录下的文件,特别是不知道有什么和多少隐藏目录时?
- 请问parent与parentwindow的区别??
- 很怪很怪的很小很小的问题。
- 巨困难或者巨简单, 如何正确让TImage动态载入TImageList正确透明显示
begin
if Key = #13 then
begin
showmessage('ok');
end;
end;就边写到keypress里也没有反应,和数据库没有关系吧。
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF key=13 then
showmessage(' ');
end;我试好用的
procedure TQJ_F.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
begin
ShowMessage('ok');
end;
end;
Shift: TShiftState);
begin
if Key = #13 then
begin
ShowMessage('ok');
end;
end; 你在 if Key = #13 then 中断一下看看,
begin
if key=#13 then
showmessage('ok');
end;跟踪一下你的程序,看看SQL语句是否有问题
不过,我也试过在keypress 中用:
if key=#13 then
照样没有反应。
难道 delphi出了问题?我新建一个窗体,添加一个tedit然后在edit1 的keydown中判断if key=13 then
showmessage('ok');
没有问题。但是在我原有的程序里就是不行。。怪了。。
你的问题不一定出在 key=#13这里,应该出在
ADOQ_REN.Close;
ADOQ_REN.SQL.Text:=
ADOQ_REN.SQL.Text +
'OR BH=''' + Edit1.Text + '''';
ADOQ_REN.Open; 你在这里加一个showmessage看是不是执行,如果不执行,你看看相关的属性,如果执行showmessage,你检查一下你的SQL.text的值是什么,也可能根本就没查出来符合条件的记录呢.