|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.11.2010, 15:29 | #1 |
Пользователь
Регистрация: 12.11.2010
Сообщений: 71
|
Как вивести сообщение
У меня есть б.д и кнопка поиска
procedure TForm1.Button2Click(Sender: TObject); var Key:Char; begin if AdoQuery1.Locate('Name',Edit5.Text,[loCaseInsensitive, loPartialKey]); end; У случае если не находит никакого значения виводилось сообщения типа MessageDlg('open form2?', mtConfirmation, [mbYes, mbNo], 0) = mrYes fom2.show; Как реализовать? |
15.11.2010, 15:37 | #2 |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нада вивести стек!!!! | yk92 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 16.05.2010 14:35 |
Как убрать сообщение | Kingson | Microsoft Office Access | 2 | 22.12.2009 11:05 |
Вивести числа из множества | Stingys | Помощь студентам | 1 | 10.11.2009 17:34 |
Как вывести сообщение... | Busine2009 | Microsoft Office Word | 3 | 09.06.2009 22:08 |
Как прочитать сообщение по ICQ? | Иллидан | Работа с сетью в Delphi | 5 | 18.02.2008 18:33 |