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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.02.2011, 14:59   #11
tepes
 
Регистрация: 07.02.2011
Сообщений: 7
По умолчанию

а если не трудно можно по пунктам расписать что надо делать?
tepes вне форума Ответить с цитированием
Старый 07.02.2011, 16:29   #12
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

У вас у ADOQuery по идее должен быть создан набор TField-ов, иначе неудобно в колонках Grid-a указывать нужные поля. Находите нужный TField и создаете обработчик. Из своих исходников я выдернул один из таких:
Код:
procedure TFGdcWeightPochta.CDSVagWeightSetText(Sender: TField; const Text: String);
var xReal: Real;
begin
  xReal:=spRound(spStrToFloat(Text),2);
  if xReal<-0.001 then begin
    spError('Ввод отрицательной грузоподъёмности запрещен',ActiveControl);
    Exit;
  end;
  if xReal-0.001>99.99 then begin
    spError('Максимальная грузоподъёмность 99.99',ActiveControl);
    Exit;
  end;
  CDSVagWeight.AsFloat:=xReal;
end;
Основная идея: преобразовать из String (данные введенные в поле) в нужный тип и логический контроль. Если все Ok то присвоить результат Field-у, иначе - сообщение об ошибке, присвоение не делать (останутся исходные данные). На мои функции spRound,spStrToFloat,spError внимания не обращайте
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 07.02.2011 в 16:38.
Аватар вне форума Ответить с цитированием
Старый 08.02.2011, 13:25   #13
tepes
 
Регистрация: 07.02.2011
Сообщений: 7
По умолчанию

а как создать обработчик? на че нажимать? не че не получается?
tepes вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ADoQuery Night_owl БД в Delphi 6 29.07.2010 12:48
AdoQuery lenuxoid БД в Delphi 6 25.03.2010 18:24
ADOQuery Radin Помощь студентам 7 22.12.2009 12:50
AdoQuery salima Помощь студентам 17 09.12.2009 21:01
ADOQuery Только_Учусь Помощь студентам 2 16.07.2008 00:31