afiget Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   Q1.Active:=false; QFirms.Active:=false; QContractors.Active:=false; QCurrency.Active:=false; QPayTypes.Active:=false; try    QFirms.Open;    Q1.Open;    Q1.Insert;    Q1sign_value.Value:=1; except on E: Exception do    begin             MyMessage('Ошибка создания документа!', MB_OK + MB_ICONERROR);             ModalResult:=mrCancel;             // И вот здесь нужно закрыть форму Form1    end; end;   Всего записей: 545 | Зарегистр. 31-12-2005 | Отправлено: 15:40 12-08-2006

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование