|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
На форме три Edit'а +Button1, тема такая
На форме три 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; Последний раз редактировалось Admin, 09.10.2017 в 19:18. |
#2
|
||||
|
||||
Здесь
Код:
if (Edit1.Text <> '') or (Edit2.Text <> '') or (MaskEdit1.Text <> '') then Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Alegun, спасибо, понял, только все равно не пускает, ругается на ELSE
Код:
else begin MessageBox(Handle,'Не все поля заполнены','Внимание',0) end; Последний раз редактировалось Admin, 09.10.2017 в 19:19. |
#4
|
|||
|
|||
Снимок.JPG,,,,,,,,,,,,,,,,,,,,,,,,
|
#5
|
||||
|
||||
Здесь чисто невнимательность, блоки begin\end не соблюдены и else
просто завис в воздухе З.Ы. end; перед else к кейсу (case) относится, нужен закрывающий блок условия (if..then) end без точки с запятой Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 09.10.2017 в 14:58. |
#6
|
||||
|
||||
Перед else стоит end, так вот нужно убрать точку с запятой, что стоит после этого end-а.
|
#7
|
||||
|
||||
Да нет, этот end; оператору выбора case принадлежит, нужно новый добавить, из курса молодого делфийца немного
Код:
if {условие} then begin case {переменная} of {значение1} : {значение2} : {значение3} : ... else {case} end; {case} end else begin ... end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |