delphi7 非空判断时 点击提示框 原来填写好的窗口都关掉了

[xjjsky105]

delphi7 非空判断时 点击提示框 原来填写好的窗口都关掉了 要重新填写 怎么回事啊

[tanqth]

估计没人能回答你的问题。建议先学习怎样提问。

[hongss]

所有出现的状况，都是由你的代码执行显示的。 在判断非空时，要注意保留原来的参数值及显示。

[hongss]

有问题，贴代码，才好具体问题具体解决

[jjpweb]

代码问题，上代码

[xjjsky105]

当点击提示框确定 后面那个填写的 窗口都关掉了 怎么不让它关掉

这是代码 ：：
procedure TFrm_ZuFangAddEdit.btn1Click(Sender: TObject);
begin
if Trim(edt_FangJianHao.Text)='' then
begin
MessageBox(Self.Handle,'房间编号不能为空!','提醒',MB_OK or MB_ICONINFORMATION);
edt_FangJianHao.SetFocus;
//Exit;
end;

if Trim(edt_FangDongName.Text)='' then
begin
MessageBox(Self.Handle, '房东姓名不能为空!','提醒',MB_ok or MB_ICONInformation);
edt_FangDongName.SetFocus;
Exit;
end;

if Trim(edt_FangDongPhone.Text)='' then
begin
MessageBox(Self.Handle, '房东手机不能为空!','提醒',MB_ok or MB_ICONInformation);
edt_FangDongPhone.SetFocus;
Exit;
end;

if Trim(edt_ZuKe.Text)='' then
begin
MessageBox(Self.Handle, '租客姓名不能为空!','提醒',MB_ok or MB_ICONInformation);
edt_ZuKe.SetFocus;
Exit;
end;

if Trim(edt_ZuKePhone.Text)='' then
begin
MessageBox(Self.Handle, '租客手机不能为空!','提醒',MB_ok or MB_ICONInformation);
edt_ZuKePhone.SetFocus;
Exit;
end;

//--非空判断 --------

if Frm_ZuFangAddEdit.Caption='租房信息新增' then
begin
with Frm_Data.qry_ZuFang do
begin
Append;
FieldByName('ZuFangCode').AsString:=edt_DanJuHao.Text;

FieldByName('HouseCode').AsString:=edt_FangJianHao.Text;
FieldByName('MonMoney').AsFloat:=StrToFloat(edt_FangDanJia.Text);
FieldByName('HouseName').AsString:=edt_HouseName.Text;
FieldByName('FangDong').AsString:=edt_FangDongName.Text;
FieldByName('Phone1').AsString:=edt_FangDongPhone.Text;
FieldByName('ZuKe').AsString:=edt_ZuKe.Text;
FieldByName('Phone2').AsString:=edt_ZuKePhone.Text;
FieldByName('ShenFen').AsString:=edt_ZuKeShenHao.Text;
FieldByName('StartDate').AsDateTime:=dtp_StartDate.Date;
FieldByName('EndDate').AsDateTime:=dtp_EndDate.Date;
FieldByName('Memo').AsString:=Memo1.Text;
FieldByName('ZuFangTai').AsString:='使用';
post;
end;
MessageBox(Application.Handle,'增加成功','提醒',MB_OK or MB_ICONINFORMATION);
end;

end;