2 / 2 / 2
Регистрация: 29.05.2013
Сообщений: 143
MS Access

Цикл и вывод необходимых элементов

12.04.2015, 13:35. Показов 865. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет. Есть Таблица Стоянка, в ней имеется ( Код, Въезд, Выезд, Владелец машины, № места).
Я пока что сделал так: при выборе места в списке ComboBox1 можно выбрать только те места которые еще раннее не были записаны в эту таблицу.
Код:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
// все возможные места 
ComboBox2->Items->Add(1);
ComboBox2->Items->Add(2);
ComboBox2->Items->Add(3);
ComboBox2->Items->Add(4);
ComboBox2->Items->Add(5);
ComboBox2->Items->Add(6);
ComboBox2->Items->Add(7);
ComboBox2->Items->Add(8);
 
//вывод в комбобокс всех уже когда либо занятых мест 
ADOTable1->Active = true;
        ADOTable1->First();
        while (!ADOTable1->Eof){
                ComboBox3->Items->Add(ADOTable1->FieldByName("№ места")->AsString);
                ADOTable1->Next();
        }
        ADOTable1->Active = false;
        ComboBox3->ItemIndex = 0;
 
//Вносятся в комбобокс все НЕ занятые места
for (int i = 0; i < ComboBox2->Items->Count; i++){
ComboBox2->Items->Strings[i];
if (ComboBox3->Items->IndexOf(ComboBox2->Items->Strings[i]) <0 ){
ComboBox1->Items->Add(ComboBox2->Items->Strings[i]);
}}
Это хорошо, но фишка в том что надо заносить в комбобокс все те свободные места которые даже были занятые ранее и ранее были уже освобождены.
Код:
C++
1
2
DateTimePicker1->DateTime = Now();
if (DateTimePicker1->DateTime > DateTimePicker2->DateTime){...}    //DateTimePicker2 - это дата выезда
Нужно как то прогнать через цикл все уже записанные в таблице места и приравнять даты выезда всех этих мест (По моему это делается через функцию Locate) к сегодняшней дате
C++
1
DateTimePicker1->DateTime = Now();
и если ДатаВыезда<СегодняшнейДаты то добавить №места которое было внесено вместе с этой датой выезда в ComboBox1, правда я не знаю что будет если одно и то самое место занималось несколько раз...
Помогите плиз ребят, понятия не имею как реализовать все это...
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
12.04.2015, 13:35
Ответы с готовыми решениями:

Вывод необходимых изображений
С помощью гет запроса получаю номер фотогалерии, как теперь вывести необходимые картинки из базы картинки? Не могу понять? ...

Вывод в DBLookupComboBox необходимых значений
Всем доброго времени суток. Вопрос такой. Есть таблица &quot;Комнаты&quot; БД Аксесс, подключенная к Делфи через ADOTable. В этой таблице есть...

Парсинг XML. Вывод необходимых записей
Добрый день, дамы и господа. Есть примерный XML вида: &lt;top&gt; &lt;hed&gt; &lt;Common&gt; &lt;id&gt;111&lt;/id&gt; ...

3
Модератор
 Аватар для D1973
9917 / 6454 / 2455
Регистрация: 21.01.2014
Сообщений: 27,389
Записей в блоге: 3
12.04.2015, 14:10
Лично мне такая БД видится из 2-х таблиц, связанные, как на рисунке
Дальше все просто: заехала машина, заняла место, данные внесены - обновляется список мест, которые свободны.
Выехала машина, место освободилось, данные опять изменились - снова обновляем список мест.
Миниатюры
Цикл и вывод необходимых элементов  
0
2 / 2 / 2
Регистрация: 29.05.2013
Сообщений: 143
12.04.2015, 21:55  [ТС]
D1973,
Это я пробную просто создал чтобы не морочить голову. Вообще у меня не стоянка а СТО 9 таблиц,
просто сейчас работаю над стоянкой в моей бд. Связана она другим полем. Нужно сделать именно так как выше написал, а там я уже по примеру сделаю под свою БД.

Добавлено через 2 часа 41 минуту
D1973,
Вот что то получилось... Но цикл проверят только первый встречный элемент и на нем штопориться.
Как я и говорил вывел все даты выезда в новый комбо а потом через Locate нашел к ним места...


C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DateTimePicker1->DateTime = Now();
 
ADOTable1->Active = true;
for (int i = 0; i < ComboBox3->Items->Count; i++){
ComboBox3->Items->Strings[i];
if (DateTimePicker1->DateTime > ComboBox4->Items->Strings[i]){
Label1->Caption = "OK!";
if(ADOTable1->Locate("Дата Выезда",ComboBox4->Text,TLocateOptions())){
ComboBox1->Items->Add(ADOTable1->FieldByName("Место")->Value);}
}}
ADOTable1->Active = false;
 
for (int i = 0; i < ComboBox2->Items->Count; i++){
ComboBox2->Items->Strings[i];
if (ComboBox3->Items->IndexOf(ComboBox2->Items->Strings[i]) <0 ){
ComboBox1->Items->Add(ComboBox2->Items->Strings[i]);
}}
Добавлено через 21 минуту
D1973,
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DateTimePicker1->DateTime = Now();
 
ADOTable1->Active = true;
//Ищем те места которые уже должны быть свободны(сверяя текущую дату и даты выездов)
for (int i = 0; i < ComboBox3->Items->Count; i++){     
ComboBox3->Items->Strings[i];
if (DateTimePicker1->DateTime > ComboBox4->Items->Strings[i]){
Label1->Caption = "OK!";
// Ищем из полного списка дат выездов места стоянки и добавляем их в комбо 1
if(ADOTable1->Locate("Дата Выезда",ComboBox4->Text,TLocateOptions())){
ComboBox1->Items->Add(ADOTable1->FieldByName("Место")->Value);}
}}
ADOTable1->Active = false;
 
for (int i = 0; i < ComboBox2->Items->Count; i++){
ComboBox2->Items->Strings[i];
if (ComboBox3->Items->IndexOf(ComboBox2->Items->Strings[i]) <0 ){
ComboBox1->Items->Add(ComboBox2->Items->Strings[i]);
}}
Когда я добавил одну запись программа работала правильно, добавил еще одну и оно продублировало то самое место в комбобокс 1, а другое место не добавило (то что должно было добавиться со второго ввода).

Добавлено через 4 часа 29 минут
А вот и то что нужно было заменить
C++
1
if(ADOTable1->Locate("ДатаВыезда",ComboBox4->Items->Strings[i],TLocateOptions())){
 Комментарий модератора 
Пункт 4.14 и 5.2 Правил: за такие слова вам вообще никто помогать не будет.
0
12.04.2015, 22:24

Не по теме:

Hrustik, если Вам никто не ответил это не значит, что надо оскорблять

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
12.04.2015, 22:24
Помогаю со студенческими работами здесь

Вывод из базы данных необходимых значений
Есть база данных с с таблицей users; Внутри нее есть ячейки, пример: first_name: Казань, Уфа, Самара item0: 35, 36, 57 ...

Вывод из массива только необходимых данных
&lt;?php $arr = array(1,3,10,2,5); for($j=1;$j&lt;=5;$j++) for($i=0;$i&lt;$j;$i++){ print_r (&quot;($arr+$arr)&lt;br&gt;&quot;); } ?&gt; Как вывести...

Вывод количества необходимых операции для получения заданного числа
Я задаю любое число (например число 32). И программа должна вывести на экран получение этого числа с помощью операции MUL (умножение числа...

Макрос для подсчета количества необходимых элементов таблицы
Доброго времени суток! Когда-то давно в университете учили писать макросы, думал что не пригодится... Столкнулся с такой проблемой, что...

Разработать интерфейс с применением необходимых элементов управления Visual Basic и решить - 2
1. Синоптик предсказал погоду. Если будет южный ветер или не будет северного ветра, то будет дождливо и не будет холодно. Если ветра южного...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru