[Vadim8491]

На форме три Edit'а +Button1, тема такая: Данные внесенные в Edit'ы запросом сохраняются в БД Нажатие на Button1 = MessageBox(Внести данную запись в базу?), при условии, что они заполнены, если хоть один Edit пуст, то MessageBox(Не все поля заполнены)

Код:

procedure TForm4.Button1Click(Sender: TObject);
var mr: TADOQuery;
begin
if (Edit1.Text <> '') or (Edit2.Text <> '') or (MaskEdit1.Text <> '') then
begin
case MessageBox(Handle,'Внести данного заемщика в базу?','Добавление',4) of

idyes: begin
mr:= TADOQuery.Create(nil);
mr.Connection:=fGeneral.ADOConnection1;
mr.SQL.Add('insert into tDB_GENERAL (FIO_KL,ID_KALITA,DATE_BRD_KL) VALUES ('''+Edit1.Text+''', '''+Edit2.Text+''', '''+MaskEdit1.Text+''') ');
mr.ExecSQL;
mr.Free;
 end;

 idno: begin  end;

else
 begin
 MessageBox(Handle,'Не все поля заполнены','Внимание',0)
 end;
end;
end;

Админ: Пользуемся тегами при оформлении кода!