|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.05.2018, 18:03 | #1 |
Новичок
Джуниор
Регистрация: 28.05.2018
Сообщений: 1
|
[Delphi] Условия
Здравствуйте. Моя программа регистратура в поликлинике. При записи на прием, приложение должно учитывать людей, которые записались в определенное время и не записывать их повторно, собственно с этим я и не могу справиться. А именно, в программе нужно сделать уникальность времени. На форме добавления за время отвечают два компонента SpinEdit(часы) и ComboBox(минуты). в первом я выбираю часы от 8 до 20, во втором выбираю каждые 10 минут. В итоге, как мне сделать так, чтобы я не смог записывать пациентов на одно и то же время?
|
28.05.2018, 20:49 | #2 | |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,309
|
Например через массив.
(20-8)*60/10 = 72 десятиминутных интервала. Номер элемента массива позволяет получить временной интервал для записи и наоборот. Элемент массива хранит запись о пациенте. Если элемент пуст, то можно сохранить запись в нём. PS: Здесь "запись" - это тип данных. Цитата:
Кроме всего прочего неплохо бы подумать и о безопасности ... Но это так, на перспективу ...
Как-то так, ...
|
|
31.05.2018, 12:05 | #3 |
Пользователь
Регистрация: 04.04.2018
Сообщений: 28
|
|
31.05.2018, 12:14 | #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 |