26 Reply by sibprogsistem (edited by sibprogsistem 2021-04-10 12:58:27)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Нужна помощь не программисту

перепроверил все работает
60000 - это минута, то есть событие произойдет по истечении 60 секунд с момента открытия формы..

можете в процедуру OnTimer;  добавить запись 
   
showmessage('');
   
если таймер сработает то появиться сообщение..

27 Reply by CDB

  • CDB
  • Member
  • Offline
  • Registered: 2019-12-16
  • Posts: 370

Re: Нужна помощь не программисту

I might have misunderstood, but if Remainder_OnShow is your renamed Form1, you need to change

Возможно, я неправильно понял, но если Remainder_OnShow - это ваша переименованная форма Form1, вам нужно изменить

TTimer.Create(Form1)

To

TTimer.Create(Remainder_OnShow)
On a clear disk you can seek forever
  • From: Санкт-Петербург
  • Registered: 2021-03-27
  • Posts: 15

Re: Нужна помощь не программисту

то что событие произойдет по истечении 60 сек, заявлял автор скрипта. Но суть не в этом. Не знаю как, но в конце концов скрипт вроде как запустился. Работает странновато, но работает. Погоняв его туда-сюда, понял, что время потрачено зря. Для моих целей он не подходит. То есть, открыл программу - записал напоминание - и если оно на сегодня и программа не закрывалась, то окно напоминания всплывет. Если программу закрыл, то при открытии это обычный планар. Для того чтобы напоминание появилось через месяц, программа не должна закрываться месяц. Вообщем скрипт для склеротиков на сегодня: выпить таблетку, проверить кран ну и т.д.   
Вообщем ветку закрываю. Огромное спасибо Sibprogsistem за терпение и помощь, а также CDB, что не прошел мимо.

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

Re: Нужна помощь не программисту

Помогите с запросом пожалуйста
Есть два имени:
Имя 1 - у него с сегодняшней даты по 2025 разница 4 года
Имя 2 - у него с сегодняшней даты разница 9 лет
Как одной кнопкой из всех записей в таблице вычислить того у кого разница больше 5 лет?
Имя 2 должно отобразиться а  как сделать запрос уже все варианты пробовал, ошибку все выдает sad

Проект прикладываю

Post's attachments

Attachment icon Data.rar 293.62 kb, 218 downloads since 2021-04-14 

30 Reply by sibprogsistem (edited by sibprogsistem 2021-04-14 05:23:48)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Нужна помощь не программисту

senseyesenseye1983 wrote:

Помогите с запросом пожалуйста
Есть два имени:
Имя 1 - у него с сегодняшней даты по 2025 разница 4 года
Имя 2 - у него с сегодняшней даты разница 9 лет
Как одной кнопкой из всех записей в таблице вычислить того у кого разница больше 5 лет?
Имя 2 должно отобразиться а  как сделать запрос уже все варианты пробовал, ошибку все выдает sad

Проект прикладываю

у Вас ошибка в формировании данных
удалите бд и создайте новые записи

procedure Form1_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
var
sDate:string;
begin
  sDate:=SQLExecute('SELECT strftime("%Y",enddate) - strftime("%Y",startdate) FROM q WHERE id=' + Form1.TableGrid1.sqlValue);
  showmessage(sDate);
end;
  • Registered: 2021-03-04
  • Posts: 140

Re: Нужна помощь не программисту

Извеняюсь  что не удалил sql файл вот прикрепил

Post's attachments

Attachment icon Data.rar 292.96 kb, 200 downloads since 2021-04-14 

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

Re: Нужна помощь не программисту

sibprogsistem wrote:
senseyesenseye1983 wrote:

Помогите с запросом пожалуйста
Есть два имени:
Имя 1 - у него с сегодняшней даты по 2025 разница 4 года
Имя 2 - у него с сегодняшней даты разница 9 лет
Как одной кнопкой из всех записей в таблице вычислить того у кого разница больше 5 лет?
Имя 2 должно отобразиться а  как сделать запрос уже все варианты пробовал, ошибку все выдает sad

Проект прикладываю

у Вас ошибка в формировании данных
удалите бд и создайте новые записи

procedure Form1_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
var
sDate:string;
begin
  sDate:=SQLExecute('SELECT strftime("%Y",enddate) - strftime("%Y",startdate) FROM q WHERE id=' + Form1.TableGrid1.sqlValue);
  showmessage(sDate);
end;

УХ СПАСИБО ОГРОМНОЕ ЗА ПОМОЩЬ ЗА СКРИПТ!!!
А подскажи пожалуйста есть возможность на кнопку запилить запрос чтоб в таблицу показал все записи которые  от сегодняшней даты до окончании не более 5 лет, как нибудь запросом
Спасибо заранее

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

Re: Нужна помощь не программисту

У меня MySQL  sad

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

Re: Нужна помощь не программисту

(case                                                       
when (julianday(enddate) - 90) < (julianday(startdate)) then "YES"
else " "
end)     
А как на mysql?

Post's attachments

Attachment icon Data.rar 293.44 kb, 202 downloads since 2021-04-19 

  • Petr
  • Member
  • Offline
  • Registered: 2016-03-02
  • Posts: 82

Re: Нужна помощь не программисту

добрый день господа!
подскажите как правильно прописать в скрипте условие сравнения текущей даты с заданной?
что то типа: if Date > 27-04-2021 then
спасибо.

36 Reply by Andrei (edited by Andrei 2021-04-27 13:56:01)

  • From: Волгоград
  • Registered: 2017-10-04
  • Posts: 166

Re: Нужна помощь не программисту

Petr wrote:

добрый день господа!
подскажите как правильно прописать в скрипте условие сравнения текущей даты с заданной?
что то типа: if Date > 27-04-2021 then
спасибо.

if t1.Date > "2021-04-27"

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

procedure form1_Button1_OnClick (Sender: TObject);
begin
if t1.Date > {DateTimePicker1} then ...
  • Petr
  • Member
  • Offline
  • Registered: 2016-03-02
  • Posts: 82

Re: Нужна помощь не программисту

Andrei wrote:
if t1.Date > "2021-04-27"

ругается: THEN expected

Andrei wrote:

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

procedure form1_Button1_OnClick (Sender: TObject);
begin
if t1.Date > {DateTimePicker1} then ...

мне нужно чтобы при открытии формы в точно определённый день выскакивало сообщение

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Нужна помощь не программисту

Petr wrote:
Andrei wrote:
if t1.Date > "2021-04-27"

ругается: THEN expected

Andrei wrote:

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

procedure form1_Button1_OnClick (Sender: TObject);
begin
if t1.Date > {DateTimePicker1} then ...

мне нужно чтобы при открытии формы в точно определённый день выскакивало сообщение

Не понятно, что именно Вам нужно ..
   

   Now  - содержит сегодняшнюю дату..

  • Petr
  • Member
  • Offline
  • Registered: 2016-03-02
  • Posts: 82

Re: Нужна помощь не программисту

sibprogsistem wrote:

Не понятно, что именно Вам нужно ..

Мне нужно чтобы при открытии формы в точно определённый мною день производилось какое либо действие (нажималась кнопка на форме или выскакивало сообщение или т.п.)
Я хотел это реализовать прописав в скрипте события OnShow формы что то типа сравнения нужной мне даты с текущей датой.
Например: if Now > "2021-04-27" then frmX.Button1.Click;
Т.е. 28го апреля при открытии пользователем формы frmX будет автоматически нажиматься кнопка Button1.

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Нужна помощь не программисту

Petr wrote:
sibprogsistem wrote:

Не понятно, что именно Вам нужно ..

Мне нужно чтобы при открытии формы в точно определённый мною день производилось какое либо действие (нажималась кнопка на форме или выскакивало сообщение или т.п.)
Я хотел это реализовать прописав в скрипте события OnShow формы что то типа сравнения нужной мне даты с текущей датой.
Например: if Now > "2021-04-27" then frmX.Button1.Click;
Т.е. 28го апреля при открытии пользователем формы frmX будет автоматически нажиматься кнопка Button1.

if (DateToStr(Now) = '27.04.2021') then showmessage('Даты совпадают');
  • Petr
  • Member
  • Offline
  • Registered: 2016-03-02
  • Posts: 82

Re: Нужна помощь не программисту

sibprogsistem wrote:
if (DateToStr(Now) = '27.04.2021') then showmessage('Даты совпадают');

то что надо. спасибо!

  • Petr
  • Member
  • Offline
  • Registered: 2016-03-02
  • Posts: 82

Re: Нужна помощь не программисту

sibprogsistem wrote:
if (DateToStr(Now) = '27.04.2021') then showmessage('Даты совпадают');

Неточно обрисовал задачу(((
Мне нужно выполнение действия не только в определенную дату но и во все дни после этой даты.
Если использовать знак равно то проверка условия в Вашем скрипте работает.
Если использовать знак больше или меньше то сравнивается только дата, а месяц и год не учитываются.
Помогите пожалуйста доработать скрипт:
if (DateToStr(Now) > '27.04.2021') then showmessage('Время прошло')

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Нужна помощь не программисту

Petr wrote:

Неточно обрисовал задачу(((
Мне нужно выполнение действия не только в определенную дату но и во все дни после этой даты.
Если использовать знак равно то проверка условия в Вашем скрипте работает.
Если использовать знак больше или меньше то сравнивается только дата, а месяц и год не учитываются.
Помогите пожалуйста доработать скрипт:
if (DateToStr(Now) > '27.04.2021') then showmessage('Время прошло')

if (date > StrToDate('27.04.2021')) then showmessage('Сегодняшняя дата больше');
  • Petr
  • Member
  • Offline
  • Registered: 2016-03-02
  • Posts: 82

Re: Нужна помощь не программисту

sibprogsistem wrote:
if (date > StrToDate('27.04.2021')) then showmessage('Сегодняшняя дата больше');

вот теперь точно то что мне надо)))
спасибо!

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

Re: Нужна помощь не программисту

День добрый всем! Всех с наступающими праздниками !! smile Подскажите скриптом
Вот если нужно с помощью combobox выбрать значение 3  - то от текущей даты прибавилось 3 дня автоматически во вотором  как реализовать?

Post's attachments

Attachment icon Тест.rar 294.85 kb, 185 downloads since 2021-05-07