[spawn-1212]

Сообщение от poli-smen

А от чего зависит число знаков? Почему нельзя сделать чтобы все были, например, 7-значные? Вот например это ААА001 и это ААА0001 будет считаться как одно и то же?

Да одно и тоже, просто раньше были 6 значные, потом заканчиваться начали и решили сделать 7 значные, а в базе уже забиты старые

[poli-smen]

Сообщение от spawn-1212

Может мы друг друга не поняли.
Попытаюсь объяснить: например, Иванову А.А. выдали на руки карточки с диапазоном ААА050-ААА100 и забили их в БД таблица"Карточки".

Каким образом эти карточки помечаются, что они выданы именно Иванову А.А.?
В базе на каждую карточку своя запись или просто в одной записи записан диапазон ААА050-ААА100?

[spawn-1212]

Сообщение от poli-smen

Каким образом эти карточки помечаются, что они выданы именно Иванову А.А.?
В базе на каждую карточку своя запись или просто в одной записи записан диапазон ААА050-ААА100?

Записывается в Таблице "Карточки"? есть поля "Start"- начало диапазона, "Finish" - конец диапазона, "Seria" - серия диапозон, "ID"-уникальный номер, "FIO"-Фамилия

[poli-smen]

Сообщение от spawn-1212

Записывается в Таблице "Карточки"? есть поля "Start"- начало диапазона, "Finish" - конец диапазона, "Seria" - серия диапозон, "ID"-уникальный номер, "FIO"-Фамилия

Если одна запись в таблице "Карточки" это целый диапазон карточек, тогда что должен вернуть SQL-запрос?

[spawn-1212]

Сообщение от poli-smen

Если одна запись в таблице "Карточки" это целый диапазон карточек, тогда что должен вернуть SQL-запрос?

Вот из этого диапазона создать список и его сверить с БД. Так ни как нельзя?

[Freeman]

Интересная задача, но автор не хочет ее решить, выдавая информацию по каплям. Опиши, блин, одним постом сразу всю постановку, можно будет подумать.

[poli-smen]

Если я правильно понял речь идёт не об одной таблице (некой первоначально упоминавшейся под именем Lugi), а о двух таблицах "Карточки" и "Учёт". В таблице "Карточки" каждая запись хранит данные о целом диапазоне карточек выданных конкретному человеку, а в таблице "Учёт" каждая запись соответствует конкретной карточке которую человек уже вернул, но в этой таблице нет записей соответствующих карточкам которые человек ещё не вернул, но этот список хочется поиметь исходя из имеющихся данных.

В таком случае можно сделать так. Из таблицы "Карточки" из полей "Start" и "Finish" интересующего человека получаем значения диапазона и на их основе генерируем в список типа TStringList названия всех карточек которые этот человек получил. Потом запросом выбираем из таблицы "Учёт" карточки которые этот человек уже вернул и исключаем из списка TStringList эти карточки. После этого в списке TStringList останутся названия только тех карточек которые человек получил, но ещё не вернул - задача решена.

[Freeman]

Сообщение от poli-smen

Из таблицы "Карточки" из полей "Start" и "Finish" интересующего человека получаем значения диапазона и на их основе генерируем в список типа TStringList названия всех карточек которые этот человек получил.

Жалко, у меня нет сейчас под рукой Oracle, а то попытался бы решить эту задачу одним запросом. На самом деле ничего сложного в этом нет, я даже объяснить могу.

[Страдалецъ]

Ну дык я еще когда просил показать структуру данных. Задача предполагает 3 таблицы. Пациент, Карточки, Картотека. А тут похоже только 2 таблицы Пациент,Карточки. Попытка заменить Картотеку одним полем с диапазоном карточек интересна, но нарушает понятие реляционной БД и соответственно напрочь отбрасывает все средства быстрого доступа к данным. Для обработки такого поля придется писать свою библиотеку функций. В итоге кажущаяся простота приводит к сплошным проблемам.

[spawn-1212]

Сообщение от poli-smen

Если я правильно понял речь идёт не об одной таблице (некой первоначально упоминавшейся под именем Lugi), а о двух таблицах "Карточки" и "Учёт". В таблице "Карточки" каждая запись хранит данные о целом диапазоне карточек выданных конкретному человеку, а в таблице "Учёт" каждая запись соответствует конкретной карточке которую человек уже вернул, но в этой таблице нет записей соответствующих карточкам которые человек ещё не вернул, но этот список хочется поиметь исходя из имеющихся данных.

В таком случае можно сделать так. Из таблицы "Карточки" из полей "Start" и "Finish" интересующего человека получаем значения диапазона и на их основе генерируем в список типа TStringList названия всех карточек которые этот человек получил. Потом запросом выбираем из таблицы "Учёт" карточки которые этот человек уже вернул и исключаем из списка TStringList эти карточки. После этого в списке TStringList останутся названия только тех карточек которые человек получил, но ещё не вернул - задача решена.

Подскажи подробней пожалуйста как сделать

Из таблицы "Карточки" из полей "Start" и "Finish" интересующего человека получаем значения диапазона и на их основе генерируем в список типа TStringList названия всех карточек которые этот человек получил.

Я принцип понять не могу

[spawn-1212]

Сообщение от spawn-1212

Подскажи подробней пожалуйста как сделать

Я принцип понять не могу

Как создать список от и до я разобрался, а как сравнить два списка и вывести те которые "лишние" не знаю, кто-нибудь может подсказать в какую сторону копать?

[Alegun]

Понимаю так что из области БД данные вышли на "обычный" уровень и лежат уже напр. в StringList`ах, если это так, то нужно в связке пары циклов исключать совпадающие значения их строк, оставшееся и есть, оно искомое

[spawn-1212]

Сообщение от Alegun

Понимаю так что из области БД данные вышли на "обычный" уровень и лежат уже напр. в StringList`ах, если это так, то нужно в связке пары циклов исключать совпадающие значения их строк, оставшееся и есть, оно искомое

А подробнее можешь пояснить?

[Alegun]

Образец данных в ваших списках покажите пжлст, попробую даже пример сварганить

З.Ы. Нет времени ждать данных, вот пример как список от совпадений очистить, нужно два мемо, в первом обрабатываемый список, во втором что нужно из него исключить

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1.Button1Click(Sender: TObject); var sl, sl1: TStrings; i,b : integer; begin sl:= TStringList.Create; sl1:= TStringList.Create; sl.Assign(memo1.Lines); sl1.Assign(memo2.Lines);   for i:= sl.Count-1 downto 0 do  for b:= 0 to sl1.Count-1 do  if sl[i] = sl1[b] then sl.Delete(i);   memo1.Lines.Assign(sl);   sl.Free; sl1.Free;  end;