求助判断edit 是否为空 来决定 是否往数据库存数据
procedure TForm2.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if (Components[I] is TEdit) and (TEdit(Components[I]).Text='')then
showMessage(Components[I].Name+'不能为空');
begin
if Fop = otAdd then
begin
addqury(FQuery);
end;
if Fop = otEdit then
begin
fixqury(FQuery);
end;
modalresult:=mrok;
end;
end;
代码如上
现在实现功能是 判断 edit 中有无数据 有则存入数据库
无则弹出提醒对话框 但不执行添加 修改程序 求助怎么修改