我的查询的代码在几个模块中是相同的,在我没有把数据库中的几个表的关系设置好之前都可以查询,在表之间的关系设置好之后就有两个模块的查询不能进行了。即使是数据库里面有数据,查询结果也是“没有找到相应数据” 不知道是怎么回事情?相关代码:
With ADOquery1 do
Close;
ADOquery1.Open;
if (combobox1.Text='')or(Edit1.Text='') then
begin
application.MessageBox('请选择查询方式和输入查询内容.','提示',mb_OK);
// showmessage('请选择查询方式和输入查询内容')
end else
begin
if combobox1.Text='检查号' then ADOquery1.filter:='检查号='''+edit1.Text+''''; ADOquery1.open;
ADOquery1.filtered:=true;
if (DBEdit1.Text='') then
begin
messagebeep(1);
Application.MessageBox('没有符合条件的记录!','提示',mb_OK);
//showmessage('没有符合条件的记录!');
if messagedlg('是否继续查询?',mtinformation,[mbyes,mbno],0)=mrno then
begin
ADOquery1.filtered:=false;
end
end;
end;
With ADOquery1 do
Close;
ADOquery1.Open;
if (combobox1.Text='')or(Edit1.Text='') then
begin
application.MessageBox('请选择查询方式和输入查询内容.','提示',mb_OK);
// showmessage('请选择查询方式和输入查询内容')
end else
begin
if combobox1.Text='检查号' then ADOquery1.filter:='检查号='''+edit1.Text+''''; ADOquery1.open;
ADOquery1.filtered:=true;
if (DBEdit1.Text='') then
begin
messagebeep(1);
Application.MessageBox('没有符合条件的记录!','提示',mb_OK);
//showmessage('没有符合条件的记录!');
if messagedlg('是否继续查询?',mtinformation,[mbyes,mbno],0)=mrno then
begin
ADOquery1.filtered:=false;
end
end;
end;
还有没有其他的方法?
我刚开始学不知道,
按了F7后,蓝条就显示在了begin 和end上