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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2009, 19:43   #1
Evgenii
Форумчанин
 
Аватар для Evgenii
 
Регистрация: 04.01.2008
Сообщений: 201
По умолчанию Вопрос по DbGrid

В DbGrid вносится количество деталей, следующий столбец-перечисление номеров этих деталей. Например в столбец "количество" вводим 6, в столбце "номера" ввели 3 номера (см. рис). т.е. получилось несоответствие (если мы поставили в количестве 6, то и в номерах должно быть перечислено 6 номеров). Можно ли как то сделать чтобы в этом случае выдавалось сообщение об ошибке?? и где это удобнее сделать: в Delphi или в Access? (в бд используется таблица Access)
Изображения
Тип файла: jpg таблица.jpg (19.4 Кб, 160 просмотров)
Evgenii вне форума Ответить с цитированием
Старый 17.05.2009, 19:55   #2
ArtInt
Форумчанин
 
Аватар для ArtInt
 
Регистрация: 06.03.2009
Сообщений: 583
По умолчанию

Попробуй создать переменную NomerList: TStringList в него занести данные из поля где номера, через DelimitedText, при этом Delimiter:=','
и сравнивать количество элементов в NomerList c содержимом количества деталей в данном поле.
Например, есть кнопка для добавления записей номеров деталей, то там пишем:
Код:
var
  NomerList: TStringList;
begin
NomerList:=TStringList.create;
NomerList.delimiter:=',';
NomerList.delimitedText:=Edit1.text//поле для ввода номеров

if NomerList.count<>AdoTable1.FieldbyName('Kol').asinteger then 
  showmessage('Неверное количество')
   else 
    begin
      AdoTable1.Insert;//может и Edit
      AdoTable1.FieldbyName('Nomer').asString:=NomerList.text;
      AdoTable1.Post;
    end;
Записывал прямо на форуме, поэтому могут быть синтаксические ошибки, но по логике примерно так.
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.

Последний раз редактировалось ArtInt; 17.05.2009 в 20:03.
ArtInt вне форума Ответить с цитированием
Старый 18.05.2009, 23:04   #3
Evgenii
Форумчанин
 
Аватар для Evgenii
 
Регистрация: 04.01.2008
Сообщений: 201
По умолчанию

спасибо ArtInt
Evgenii вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по работе с DBGRID Dux Компоненты Delphi 23 15.02.2010 15:42
dbgrid вопрос xaero93 Помощь студентам 1 22.03.2009 20:21
Вопрос про DBGrid ? juan666777 БД в Delphi 1 30.01.2009 21:14
Вопрос про DBGrid AD_min БД в Delphi 3 29.11.2008 16:44
Вопрос по DBGrid Cyn4uk БД в Delphi 12 26.12.2007 09:59