检测有没有数据求解?(20分)

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

topdelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
我的数据表里如下数据,我的窗体有三个文本框,第一个文本为起始工号,第二个为结束
工号,第三个为输入月分, 数据库字段如下,

我在这两个文本晨输入例如在起始里输入001,在结束里输入15,然后输出到报表,
并且在第三个文本里输入月份记录,然后在数据里面检测有没有这些记录,
如何没有,就不显示报表,我的语句如下,虽然可以查询但是到不达遇期的检测这个月
有没记录效果,请教如何修改啊.
数据库是ACCESS
工号 姓名 部门 职务 月份 底薪
001 abc it software 9月 ¥0.00
002 X X XXXX XXX XXX

WITH ADOQUERY1 DO BEGIN
IF RECORECS =1 THEN
BEGIN
CLOSE;
SQL.CLEAR;
SQL.ADD('SELECT * FROM TABLE WHERE 工号>='+EDIT1.TEXT+'AND 工号 <='+EDIT2.TEXT
+'AND 月份='+EDIT3.TEXT;
OPEN
END
ELSE BEGIN
SHOWMESSAGE('这个月没有这些数据')
EXIT;
END;
END;
 
with adoquery1 do
begin
close;
sql.clear;
sql.add('SELECT * FROM TABLE WHERE 工号>='''+EDIT1.TEXT+''' AND '+
'工号<='''+EDIT2.TEXT+''' AND 月份='''+EDIT3.TEXT+''';');
open;
if recordcount=0 then
showmessage('这个月没有这些数据')
else begin
//报表
end;
end;
 
接受答案了.
 
顶部