• Registered: 2016-11-05
  • Posts: 149

Topic: Несколько вопросов 3

Уважаемый Дмитрий!

В базе данных имеется следующее:

incomeDate          ДАТА
outcomeDate       ДАТА
numberTB            ТЕКСТ

В них хранятся дата прихода, дата ухода и номер работника. Надо чтобы при сохранении проверялись даты и не было удвоения номера работника.
Например: Работник пришел в 12.12.2016 и ушел 15.12.2016 и его номер 5. Этот же работник скажем опять пришел 17.12.2016 и ушел 20.12.2016 но его номер теперь будет уже другой. Надо чтобы при введении номера 5 если такого есть в 2016 году то выскачило сообшение о том что такой номер есть. Помогите с реализацией.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Несколько вопросов 3

Приветствую.


Извиняюсь за задержку с ответом. Вопрос все еще актуален для вас?

Dmitry.
  • Registered: 2016-11-05
  • Posts: 149

Re: Несколько вопросов 3

Спасибо но уже не надо. Есть другой вопрос.

В таблице имеется выч. поле - (Select strftime('%s', 'now'))
Как я понял она показывает в гриде секунды прошедшие с даты 01.01.1970.
Теперь в таблице имеется дата. Надо чтобы в гриде показала разницу между этой датой и выч. полем в секундах. Спасибо заранее.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Несколько вопросов 3

разницу между датами в секундах можно посчитать так

SELECT strftime('%s','now') - strftime('%s', datefield)
Dmitry.
  • Registered: 2016-11-05
  • Posts: 149

Re: Несколько вопросов 3

спасибо работает
А как задать сегоднящную дату в Edit1?
Я сделал так Form1.Edit1.Text:= SELECT strftime('%s','now');
Но не получился.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Несколько вопросов 3

bemorhona-qt wrote:

спасибо работает
А как задать сегоднящную дату в Edit1?
Я сделал так Form1.Edit1.Text:= SELECT strftime('%s','now');
Но не получился.


Можно так

Form1.Edit1.Text := DateToStr(now);


Но обычно компонент edit не используется для даты, для этого есть компонент DateTimePicker

Form1.DateTimePicker1.DateTime := now;
Dmitry.
  • Registered: 2016-11-05
  • Posts: 149

Re: Несколько вопросов 3

Form1.Edit1.Text := DateToStr(now); выдает дату например - 07.01.2017, а надо чтобы было в секундах, как это реализовать?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Несколько вопросов 3

bemorhona-qt wrote:

Form1.Edit1.Text := DateToStr(now); выдает дату например - 07.01.2017, а надо чтобы было в секундах, как это реализовать?

Можно так

Form1.Edit1.Text := FloatToStr(now*24*60*60);

Получите количество секунд прошедших с даты December 30, 1899

Dmitry.
  • Registered: 2021-03-04
  • Posts: 140

Re: Несколько вопросов 3

Всем привет. Подскажите как вывести в DateTimePicker текущую дату. Дело в том что когда ты открываешь форму с свойством "Показать запись" DateTimePicker  выдает тебе дату записи - а нужно чтоб была текущая дата
Уже перепробовал все:
Form1.DateTimePicker4.DateTime :=now;
Form1.Edit3.Text := DateToStr(now);
Не помогает...

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 455

Re: Несколько вопросов 3

senseyesenseye1983 wrote:

Всем привет. Подскажите как вывести в DateTimePicker текущую дату. Дело в том что когда ты открываешь форму с свойством "Показать запись" DateTimePicker  выдает тебе дату записи - а нужно чтоб была текущая дата
Уже перепробовал все:
Form1.DateTimePicker4.DateTime :=now;
Form1.Edit3.Text := DateToStr(now);
Не помогает...

Form1.DateTimePicker1.DateTime := Now;

  • Registered: 2021-03-04
  • Posts: 140

Re: Несколько вопросов 3

pavlenko.vladimir.v wrote:
senseyesenseye1983 wrote:

Всем привет. Подскажите как вывести в DateTimePicker текущую дату. Дело в том что когда ты открываешь форму с свойством "Показать запись" DateTimePicker  выдает тебе дату записи - а нужно чтоб была текущая дата
Уже перепробовал все:
Form1.DateTimePicker4.DateTime :=now;
Form1.Edit3.Text := DateToStr(now);
Не помогает...

Form1.DateTimePicker1.DateTime := Now;

Да спасибо разобрался. Убрал показать запись и вывел все через запросы smile