关闭窗体问题!

[CXL_2005]

窗体是带有数据集的,我判断当没有数据的时候,提示出 无记录,然后按下OK后
关闭窗体
但是我在SHOW和CREATE时间中都写了
...................................
Qry_dj.SQL.Add(' where danjbh in (select danjbh from pd_lsmx)');
Qry_dj.Open;
if Qry_dj.RecordCount <> 0 then
begin
MessageBox(0,'系统无记录,'提示',MB_OK);
close;
end;

跟踪程序执行了CLOSE但是仍然创建了窗体
我想问下,这是为什么,是因为我窗体还没创建出来,无法关闭吗

[陈保现]

自定义消息，发消息
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
const WM_USERClose = WM_USER + 90;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure WMDprc(var Msg:TMessage);message WM_USERClose;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('sdfsf');

PostMessage(Self.Handle,WM_USERClose,0,0);

end;

procedure TForm1.WMDprc(var Msg: TMessage);
begin
inherited;
Close;
end;

end.

[lqcc]

if Qry_dj.RecordCount < > 0 then
应该是if Qry_dj.RecordCount < 0 then吧,这样才是无数据的时候关闭

[No_1gogo]

Qry_dj.RecordCount = 0 才是无记录啊，大哥