|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
dblookupcombobox и showmessage
задача.есть таблица
Код:
spol//датасурс для этой таблицы назв/ тип/ значения ID_pol - счетчик| 1, 2. pol - текст | мужской, женский spol - текст | муж, жен. прикрепляю к этой таблице dblookupcombobox. делаю свойства такие, как надо...тоесть Код:
object Pol: TDBLookupComboBox Left = 288 Top = 48 Width = 145 Height = 21 DataField = 'Pol' DataSource = DataMod.Scard //сюда должны добавляться значения... KeyField = 'ID_pol' ListField = 'Pol' ListSource = DataMod.spol // отсюда берется список значений. TabOrder = 6 end и попутно сразу вопрос...вот кусок кода Код:
function Tdatamod.TestNoCard(var No: String): Boolean; var CountZero: Integer; begin CountZero := 8 - Length(No); // к-во незначащих нулей в номере карты. В реальной БД // необходимо использовать не константу, а размер поля No := Copy(ZeroStr, 1, CountZero) + No; //добавляем незначащие нули до 8 знаков with qSearch do //делаем запрос с номером begin Parameters.Items[0].Value := No; Open; Result := RecordCount = 0; //если нет записей с тким номером, значит тест пройден if not Result then //если результат негативный сообщаем об этом showmessage('такая карта уже существует'); Close; //закрываем запрос end; end; ругается на showmessage - неизвестный идентификатор.... везде это катит...а тут... |
#2
|
||||
|
||||
Цитата:
Цитата:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
так...ну активен он стал...тольк вот не значения необходимые не принимает...сделал, что бы по умолчанию муж пол был...это все делается на ура...а вот если выбрать жен пол, в таблице отображается пустота...
да, и вот еще интересный вопрос... в таблицу - через квери спокойно передаются все данные из дбэдитов...на другой форме - дбгрид, в который загружается таблица. но...вот в чем проблема: нажал кнопку "Добавить", все сработало...форма с дбэдитами закрылась.а в дбгриде значения не обновились.... как его обновить?* |
#4
|
||||
|
||||
Цитата:
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |