Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.03.2008, 08:29   #1
Jenya
Грызун Гранита
Пользователь
 
Аватар для Jenya
 
Регистрация: 25.01.2008
Сообщений: 33
Печаль DBGridEh+EditMask при условии.

Всем доброго времени суток!
По идее задача элементарная, да только время идет, а я не могу собраться мыслями и чётко скоординировать свои мысли.
Имеется таблица с реквизитами клиентов. Существует около 9 видов реквизитов, как-то: E_mail, Fax, Adres, Telephon, RNN и т.п....
Тип реквизита при заполнении, выбирается из выпадающего списка в самом DBGridEh.
Задача: необходимо сделать так, что бы в случае, если реквизит это телефон, то
Код:
EditMask := '!\(9999\)00-00-00;1;'
Ну, а если глобальнее, необходимо организовать контроль ввода телефонов, что бы вводили по маске, а не так, как вздумается оператору. Вся сложность в том, при каком событии вставить условие проверки значения типа реквизита и потом как вернуть назад все это дело...

По сути я почти сам же и ответил на свой вопрос, но в голове все же ветер. Очень сильно извеняюсь за такой вопрос, но очень надо. Зарание спасибо за помощь.
Jenya вне форума Ответить с цитированием
Старый 03.03.2008, 13:58   #2
Jenya
Грызун Гранита
Пользователь
 
Аватар для Jenya
 
Регистрация: 25.01.2008
Сообщений: 33
По умолчанию

Да, по сути все просто. сделал так:
Код:
procedure TMainForm.DBGridEh1CellClick(Column: TColumnEh);
begin
  If MainDM.Attributes.FieldByName('AttributeType_ID').AsInteger = 1 then
    begin
      DBGridEh1.Columns[1].EditMask := '!\(99999\)00-00-00, 00-00-00, 00-00-00, 00-00-00, 00-00-00;1;';
    end
  else
    begin
      DBGridEh1.Columns[1].EditMask := '';
    end;
end;
Реально вопрос был все же глуповат. сознаю свою вину. Но может сия инфа кому-либо пригодится)
Jenya вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос данных из ячеек при условии gavrylyuk Microsoft Office Excel 12 29.07.2008 12:33
Не дать сохранит файл при условии Диас Microsoft Office Excel 6 12.05.2008 18:59
Опять сумма. Теперь при условии jungo Microsoft Office Excel 11 07.05.2008 09:38
Проблема в условии.. POPOV Общие вопросы C/C++ 6 25.12.2007 13:39
Ошибка в условии запроса boks SQL, базы данных 4 25.10.2007 10:43