![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 28.05.2018
Сообщений: 1
|
![]()
Здравствуйте. Моя программа регистратура в поликлинике. При записи на прием, приложение должно учитывать людей, которые записались в определенное время и не записывать их повторно, собственно с этим я и не могу справиться. А именно, в программе нужно сделать уникальность времени. На форме добавления за время отвечают два компонента SpinEdit(часы) и ComboBox(минуты). в первом я выбираю часы от 8 до 20, во втором выбираю каждые 10 минут. В итоге, как мне сделать так, чтобы я не смог записывать пациентов на одно и то же время?
|
![]() |
![]() |
![]() |
#2 | |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,377
|
![]()
Например через массив.
(20-8)*60/10 = 72 десятиминутных интервала. Номер элемента массива позволяет получить временной интервал для записи и наоборот. Элемент массива хранит запись о пациенте. Если элемент пуст, то можно сохранить запись в нём. PS: Здесь "запись" - это тип данных. Цитата:
Кроме всего прочего неплохо бы подумать и о безопасности ... Но это так, на перспективу ...
Как-то так, ...
|
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 04.04.2018
Сообщений: 28
|
![]() |
![]() |
![]() |
![]() |
#4 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
![]() Цитата:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi, условия. Помогите разобраться с задачей. | Zakolochka | Помощь студентам | 1 | 16.03.2017 04:52 |
Delphi 7 - StringGrid - изменить цвет шрифта при выполнении условия | Ягодка | Помощь студентам | 7 | 22.02.2013 19:27 |
Как проверить два условия ??? Delphi | Aero1 | Помощь студентам | 3 | 19.01.2010 18:35 |
Пропуск условия if. Delphi 7 | Дикий | Помощь студентам | 11 | 12.05.2008 22:49 |