Неправильное отображение времени

@Krit-Ydachnik · Регистрация: 06.12.2010

Студворк — интернет-сервис помощи студентам

Есть маленькая база данных (данные сохраняются на Access). Есть колонка куда вношу время (допустим 14:37). Изменения производятся в отдельной форме. Пишу 14:37, жму сохранить. На главной форме время отображается по другому: 30.12.1899 14:37. Уже готов с этим смириться, но как Вы видите дата отображается неправильно, и как бы я не экспериментировал с EditMask и с настройками даты и время через панель управления упорно пишет 30 декабря 1899 года.
Тут мне подсказали, что в базе то хранится все равно дата-время
а так показывает потому, что при записи в поле я отрезаю дату, а пустая она как раз ресетится в 30.12.1899 и раз я вношу только время, то нужно обрезать дату, либо, если нужно запоминать с текущей датой, то добавлять её при записи.
Я понимаю. что это возможно очень просто, но всё таки подскажите как обрезать, чтобы отражалось только время.
Спасибо.

Добавлено через 25 минут
_____________________________
Поле время текстовым типом делать не очень хочется.
Может быть существуют другие варианты??

@new_in_net · 29.03.2011, 23:55

Сообщение от Krit-Ydachnik

Всё отлично сортирует кроме Кол-во мест... странно конечно почему так....?
Даже правильней сказать вообще не сортирует выдаёт ошибку.

Аргументы имеют неверный тип , выходят за пределы допустимого диапозона или вступают в конфликт друг с другом

Возможно слово "Кол-во" воспринимается как арифметическое вычитание "Кол" из "во"

Попробуйте заключить Кол-во в кавычки, не знаю...
я вообще рекомендую столбцам давать английские названия - проблем гораздо меньше.

@Krit-Ydachnik · 30.03.2011, 00:04 **[ТС]**

И ещё, не можете ли подсказать как лучше сделать???
Мне надо реализовать ПОИСК. по всем критериям т.е. маршрут цена время кол-во мест.
Как лучше сделать...
При нажатии на поиск выскакивает список из 4 пунктов нажимаю на любое например на маршрут и высвечивается табличка где написано введите маршрут потом окно куда вводить и кнопки ОК и ОТМЕНА. И пкогда нажимаю ОК то ищет нужное. т.е. его выделяет или как оно ищет вообще .. наверно выделяет то что надо.

Может быть есть другие варианты??

Добавлено через 2 минуты

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

Возможно слово "Кол-во" воспринимается как арифметическое вычитание "Кол" из "во"
Попробуйте заключить Кол-во в кавычки, не знаю...
я вообще рекомендую столбцам давать английские названия - проблем гораздо меньше.

Наверно вы правы но даже когда заключаю в кавычки не помогает. Полностью писать будет слишком длинно....
Может просто написать Мест а не кол-во мест и не количество мест... незнаю как смотрится....
Английским - нельзя((( Только русское((
И кстати как вот эти пункты Маршрут цена время вол-во мест по центру выровнять?? именна так сказать заголовки или как они там называются)) Данные как выравнивать то я понял а вот конкретно заголовки - незнаю(

@new_in_net · 30.03.2011, 00:08

Сообщение от Krit-Ydachnik

Наверно вы правы но даже когда заключаю в кавычки не помогает. Полностью писать будет слишком длинно....
Может просто написать Мест а не кол-во мест и не количество мест... незнаю как смотрится....
Английским - нельзя((( Только русское((
И кстати как вот эти пункты Маршрут цена время вол-во мест по центру выровнять??)) Даныне как вырвнивать то я понял а вот конкретно их - незнаю(

попробуйте еще квадратные скобки: [Кол-во]
а если не поможет, то переименуйте столбец "Кол-во" в "Колво"или "Кол_во". ну или Мест

@Krit-Ydachnik · 30.03.2011, 00:12 **[ТС]**

Ура!!. Квадратные скобки решили проблему.
А вот что насчёт поиска и выравнивания заголовков??..(

Ах, да, и ещё 1 оч простую вещь которую сегодня видел но увы не помню как реализуется.
Просто сделать чтобы НЕЛЬЗЯ было развернуть) Где то надо выставить False насколько я помню)) А где выставить... непомню))

@new_in_net · 30.03.2011, 00:18

Сообщение от Krit-Ydachnik

Ура!!. Квадратные скобки решили проблему.
А вот что насчёт поиска и выравнивания заголовков??..(

Может Фильтр, а не поиск?
создайте окошко с 4 полями и по нажатии на Ок, генерите условие фильтра по всем непустым полям соединяя их с AND. после чего

Delphi
1
2
BAZA.Filter := MyFilterString;
BAZA.Filtered := True;

"выравнивания заголовков" чего? столбцов в гриде? так у каждого столбца тоже есть свойство Alignment

@Krit-Ydachnik · 30.03.2011, 00:48 **[ТС]**

"выравнивания заголовков" чего? столбцов в гриде? так у каждого столбца тоже есть свойство Alignment

Ну вот у меня написано МАРШРУТ и ниже встолец перечислены маршруты
Вот мне слово маршрут и надо выровнять...

Может Фильтр, а не поиск?

Ну да, фильтр. но у меня он называться будет поиск.

А можно поподробнее про поиск?)

Добавлено через 27 минут
Ах, да, и ещё 1 оч простую вещь которую сегодня видел но увы не помню как реализуется.
Просто сделать чтобы НЕЛЬЗЯ было развернуть) Где то надо выставить False насколько я помню)) А где выставить... непомню))

@new_in_net · 30.03.2011, 00:57

Сообщение от Krit-Ydachnik

Ну вот у меня написано МАРШРУТ и ниже встолец перечислены маршруты
Вот мне слово маршрут и надо выровнять...

Ну да, фильтр. но у меня он называться будет поиск.

А можно поподробнее про поиск?)

Добавлено через 27 минут
Ах, да, и ещё 1 оч простую вещь которую сегодня видел но увы не помню как реализуется.
Просто сделать чтобы НЕЛЬЗЯ было развернуть) Где то надо выставить False насколько я помню)) А где выставить... непомню))

пожалуйста пишите подробнее о том что спрашиваете.
Где именно в какой компoненте написано "МАРШРУТ" которое надо выровнять?
Про фильтр я вам сказал и описал как надо сделать. Что именно, какую часть описания требуется подробнее?

Поймите, помогать когда дают минимум информации или она неточна, гораздо сложнее, чем написать с нуля такого рода простую программу имея нормальное описание

P.S. развернуть форму? посмотрите в свойствах формы BorderIcons - выставьте biMaximize в False

@Krit-Ydachnik · 30.03.2011, 01:04 **[ТС]**

Понял. Исправляюсь)))

Насчёт выравнивания - выделил красными стрелочками где надо выравнять)

Про фильтр я сегодня или завтра с утра попробую и если что вечером Вам сюда напишу) не теряйте эту тему пожалуйста)))))

Запрет на развёртывание формы получился. Спасибо.

Итог:
Осталось лишь выравнивание.
И поиск может быть) попробую сам неполучится сообщу)
И печать) тоже поищу) счас слегка был пробижался минут 10 толком ничего ненашёл((

@Krit-Ydachnik · 31.03.2011, 20:40 **[ТС]**

Подскажите овтеты на вопросы верху??? И на этот:

Вот поиск.

Code
1
2
3
4
5
6
if not Table1.Locate('Название', Edit1.Text,
[loCaseInsensitive,loPartialKey])then
begin
MessageDlg('Запись не найдена!',mtInformation,[mbOK],0);
exit;
end;

Куда его присобачить?:

Добавлено через 17 часов 54 минуты
Вот вы ушли а крмое Вас - никто не знает как сделать(((
Неужели здесь нету опытных?? ((

@new_in_net · 31.03.2011, 23:12

Сообщение от Krit-Ydachnik

Подскажите овтеты на вопросы верху??? И на этот:

Вот поиск.

Code
1
2
3
4
5
6
if not Table1.Locate('Название', Edit1.Text,
[loCaseInsensitive,loPartialKey])then
begin
MessageDlg('Запись не найдена!',mtInformation,[mbOK],0);
exit;
end;

Куда его присобачить?:

Ну собственно бросьте на форму TEdit и кнопку TButton.
На событие OnClick кнопки напишите ваш код - выглядит он нормально

Либо бросьте на форму только TEdit и на его событие OnChange напишите ваш код - тогда это будет "интерактивный поиск"

@Krit-Ydachnik · 01.04.2011, 00:41 **[ТС]**

[Error] Unit4.pas(29): Undeclared identifier: 'Table1'

В этой строке.
if not Table1.Locate('Маршрут', Edit1.Text,

И как выровнять это???

(((((((((

@new_in_net · 01.04.2011, 17:35

Сообщение от Krit-Ydachnik

[Error] Unit4.pas(29): Undeclared identifier: 'Table1'

В этой строке.
if not Table1.Locate('Маршрут', Edit1.Text,

И как выровнять это???

(((((((((

Может у тебя таблица иначе называется или если она на другой форме, то к ней надо обращаться так

Delphi
1
Form3.Table1.Locate('Маршрут', Edit1.Text,

Картинку не вижу (на работе видимо этот сайт блокируется) если все еще нужно, сделай вложением, чтоб я мог увидеть

@Krit-Ydachnik · 01.04.2011, 18:57 **[ТС]**

Вот собственно картинка.. Хотелось бы чтобы было по центру....

@Krit-Ydachnik · 01.04.2011, 19:16 **[ТС]**

Да, и как УМЕНЬШИТЬ ширину времени. а то там оч много место...
Я думал что может быть это место из-за тог очто Делфи выдаёт 31,12,1899 и толкьо потом время а когда запускаю оно замоскировывает, но остаётся какбы место?? Вообще можно както умешить... только как??(

@new_in_net · 01.04.2011, 19:48

Сообщение от Krit-Ydachnik

Да, и как УМЕНЬШИТЬ ширину времени. а то там оч много место...
Я думал что может быть это место из-за тог очто Делфи выдаёт 31,12,1899 и толкьо потом время а когда запускаю оно замоскировывает, но остаётся какбы место?? Вообще можно както умешить... только как??(

А вы просто создайте столбцы DBGrid в дизайн-тайме отрегулируйте их ширину, названия, выравнивания...

@Krit-Ydachnik · 01.04.2011, 20:11 **[ТС]**

Эм... а можно поподробнее??...(

@new_in_net · 01.04.2011, 20:42

Сообщение от Krit-Ydachnik

Эм... а можно поподробнее??...(

double-click на DBGrid - откроется дизайнер столбцов. Нажимаете на кнопку "добавить", выделяете мышкой только что созданнуй столбец и в object inspector меняете свойства:
FieldName, Alignment, Width, Title.Alignment, Title.Caption
Создаете столько столбцов, сколько вы планировали показывать.
Все.

@Krit-Ydachnik · 01.04.2011, 21:30 **[ТС]**

Отлично. Получилось.

Но так и не допёр как делатть фильтрацию((
Можно также попунктно как вы рассказали про колонки)))?

@Krit-Ydachnik · 07.04.2011, 01:01 **[ТС]**

(((((

@new_in_net · 07.04.2011, 17:38

Сообщение от Krit-Ydachnik

Но так и не допёр как делатть фильтрацию((
Можно также попунктно как вы рассказали про колонки)))?

Давай приведу простой пример.
1. Бросаешь на форму TTable - Table1, TDataSource DataSource1, TDBGrid - DBGrid1
2. Соединяешь их все друг с другом: DataSource с Table1, DBGrid c DataSource, и выставляешь свойство Table в Table1
3. Бросаешь на форму TEdit - Edit1, TLabel - Label1 и TCheckBox (CheckBox1 и выставь свойство Checked в True)
4. На событие OnShow формы пишешь

Delphi
1
2
3
4
procedure TForm1.FormShow(Sender: TObject);
begin
  Table1.Open;
end;

5. На событие OnChange Edit1 пишешь

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Table1.Filtered := False;
  // Поле [Name] замени на свое поле
  Label1.Caption := '[Name] like '+QuotedStr('%'+Edit1.Text+'%');
  Table1.Filter := Label1.Caption;
  Table1.Filtered := CheckBox1.Checked;
end;

Все. Запускаем, и начинаем писать в окошке Edit1, если CheckBox1 checked, то по мере написания данные в DBGrid1 динамически меняются, а в Label1 ты увидишь какой фильтр формируется.

Новые блоги и статьи Все статьи Все блоги /
Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205

	Неправильное отображение времени 28.03.2011, 02:59. Показов 13188. Ответов 84 Метки нет (Все метки) Есть маленькая база данных (данные сохраняются на Access). Есть колонка куда вношу время (допустим 14:37). Изменения производятся в отдельной форме. Пишу 14:37, жму сохранить. На главной форме время отображается по другому: 30.12.1899 14:37. Уже готов с этим смириться, но как Вы видите дата отображается неправильно, и как бы я не экспериментировал с EditMask и с настройками даты и время через панель управления упорно пишет 30 декабря 1899 года. Тут мне подсказали, что в базе то хранится все равно дата-время а так показывает потому, что при записи в поле я отрезаю дату, а пустая она как раз ресетится в 30.12.1899 и раз я вношу только время, то нужно обрезать дату, либо, если нужно запоминать с текущей датой, то добавлять её при записи. Я понимаю. что это возможно очень просто, но всё таки подскажите как обрезать, чтобы отражалось только время. Спасибо. Добавлено через 25 минут _____________________________ Поле время текстовым типом делать не очень хочется. Может быть существуют другие варианты?? 1

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	30.03.2011, 00:12 [ТС]
	Ура!!. Квадратные скобки решили проблему. А вот что насчёт поиска и выравнивания заголовков??..( Ах, да, и ещё 1 оч простую вещь которую сегодня видел но увы не помню как реализуется. Просто сделать чтобы НЕЛЬЗЯ было развернуть) Где то надо выставить False насколько я помню)) А где выставить... непомню)) 1

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	30.03.2011, 01:04 [ТС]
	Понял. Исправляюсь))) Насчёт выравнивания - выделил красными стрелочками где надо выравнять) Про фильтр я сегодня или завтра с утра попробую и если что вечером Вам сюда напишу) не теряйте эту тему пожалуйста))))) Запрет на развёртывание формы получился. Спасибо. Итог: Осталось лишь выравнивание. И поиск может быть) попробую сам неполучится сообщу) И печать) тоже поищу) счас слегка был пробижался минут 10 толком ничего ненашёл(( 1

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	01.04.2011, 00:41 [ТС]
	[Error] Unit4.pas(29): Undeclared identifier: 'Table1' В этой строке. if not Table1.Locate('Маршрут', Edit1.Text, И как выровнять это??? ((((((((( 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	01.04.2011, 18:57 [ТС]
	Вот собственно картинка.. Хотелось бы чтобы было по центру.... Миниатюры 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	01.04.2011, 19:16 [ТС]
	Да, и как УМЕНЬШИТЬ ширину времени. а то там оч много место... Я думал что может быть это место из-за тог очто Делфи выдаёт 31,12,1899 и толкьо потом время а когда запускаю оно замоскировывает, но остаётся какбы место?? Вообще можно както умешить... только как??( 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	01.04.2011, 20:11 [ТС]
	Эм... а можно поподробнее??...( 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	01.04.2011, 21:30 [ТС]
	Отлично. Получилось. Но так и не допёр как делатть фильтрацию(( Можно также попунктно как вы рассказали про колонки)))? 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	07.04.2011, 01:01 [ТС]
	((((( 0