829
社区成员
发帖
与我相关
我的任务
分享帮我看看这段小代码，感觉不知如何下手
procedure TfrmUser.btnQueryClick(Sender: TObject);
begin
if edit1.Text='' then
begin
showmessage('请输入需要查询的条件！');
exit;
end;
if query.RecordCount=0 then //从这开始
begin
showmessage('无此信息！');
end; //到这结束，怎么不行呢
query.Close;
query.SQL.Clear;
query.SQL.Add('select * from public_czybm where czymc like ''%'+edit1.Text+'%''');
query.Open;
inherited;
end;
如果用户要查询的数据不在ＳＱＬ数据库中，然后提示错误，我应该怎么做啊，我上面写的不对耶。
begin
if edit1.Text='' then
begin
showmessage('请输入需要查询的条件！');
exit;
end;
if query.RecordCount=0 then //从这开始
begin
showmessage('无此信息！');
end; //到这结束，怎么不行呢
query.Close;
query.SQL.Clear;
query.SQL.Add('select * from public_czybm where czymc like ''%'+edit1.Text+'%''');
query.Open;
inherited;
end;
如果用户要查询的数据不在ＳＱＬ数据库中，然后提示错误，我应该怎么做啊，我上面写的不对耶。
...全文
请发表友善的回复…
发表回复
628421 2007-06-05
- 打赏
- 举报
接分
condor2000 2007-06-05
- 打赏
- 举报
接分
代码跳动 2007-06-04
- 打赏
- 举报
分
love_li 2007-06-04
- 打赏
- 举报
怎么给分？
mdejtod 2007-06-04
- 打赏
- 举报
倒塌..点一下管理.输入密码..再给每个回复人你想给他的分数
love_li 2007-06-04
- 打赏
- 举报
每次我在这里提问题时，有人给我解答后，不知道怎么给他分啊
真郁闷，我可是初出茅ＬＵ的哦
真郁闷，我可是初出茅ＬＵ的哦
mdejtod 2007-06-04
- 打赏
- 举报
我晕...原来才二十分...
那我不要了./给帮你的兄弟吧
那我不要了./给帮你的兄弟吧
mdejtod 2007-06-04
- 打赏
- 举报
楼主,行行好,给俺也一点吧
Bear_hx 2007-06-02
- 打赏
- 举报
接分
rong451 2007-06-02
- 打赏
- 举报
接了
love_li 2007-06-02
- 打赏
- 举报
procedure TfrmUser.btnQueryClick(Sender: TObject);
begin
if edit1.Text='' then
begin
showmessage('请输入需要查询的条件！');
exit;
end;
query.Close;
query.SQL.Clear;
query.SQL.Add('select * from public_czybm where czymc like ''%'+edit1.Text+'%''');
query.Open;
if ds.DataSet.RecordCount=0 then
begin
showmessage('无此信息！');
exit;
end;
inherited;
end;
问题终于解决了，散分
begin
if edit1.Text='' then
begin
showmessage('请输入需要查询的条件！');
exit;
end;
query.Close;
query.SQL.Clear;
query.SQL.Add('select * from public_czybm where czymc like ''%'+edit1.Text+'%''');
query.Open;
if ds.DataSet.RecordCount=0 then
begin
showmessage('无此信息！');
exit;
end;
inherited;
end;
问题终于解决了，散分
