You are not logged in. Please login or register.
My Visual Database → Russian → Помогите создать таблицу "напоминаний"
Задумка...
Из существующей таблицы, просматривается (сравнивается) дата всех записей, и если выходит за рамки, формируется в другой таблице строки напоминания по просроченным записям.
Из оповещений, на главной форме анимация мигающей лампочки.
После входа в таблицу напоминаний и тыканья по интересующей строчке производится переход, а напоминание по просмотренному удаляется из списка, и создается новый предел срабатывания...
Вот....
Вот тело,... не понимаю, как занести значения во вторую таблицу...
Reminder.rar 294.5 kb, 268 downloads since 2020-07-01
можно при загрузке таблицы проверить записи счетчиком и раскрасить (выходящие за рамки дат)
после просмотра записи обновить дату...
Раскраска есть, но если база, по мере работы, заполнится так что будет не видно предыдущие записи и записи с "хранением", то они будут проигнорированы, а так, например, начался рабочий день, включил таблицу, обработал все напоминания...
Вот подсмотрел
SQLEXecute('INSERT INTO asd (data01,text01) SELECT (data00,text00) FROM qwe');Разметил в цикле, но в чем-то синтаксическая ошибка...
И так сделать, чтоб индивидуально по строке срабатывало...
Здравствуй Vit007,
Возможно, вложение представляет интерес, хотя и использует другой подход.
Существует 3 таблицы, каждая с фиксированным фильтром («текущие» задачи, «просроченные» задачи и «выполненные» задачи), и каждая запись автоматически перемещается из одной таблицы в другую в зависимости от ее состояния.
Там нет сценария, необходимого.
Derek.
vitreminder.zip 337.19 kb, 301 downloads since 2020-07-02
проверяйте значение в самой БД
procedure Form1_OnShow (Sender: TObject; Action: string);
var
i:integer;
list:TStringList;
begin
list:=TStringList.Create;
list.Text:=SQLExecute( 'SELECT group_concat(id, char(13) || char(10)) FROM file' );
for i:=0 to list.Count-1 do
// если имеется разница более 2-х дней
if (SQLexecute('SELECT julianday("now") - julianday(date)FROM file WHERE id='+list[i])>2) then ваше условие;
end;derek, да это интересно, но для движения задачи. А хотелось бы, после просмотра удалять запись без удаления из базы.
sibprogsistem, а можете разъяснить, вот эту строчку...
SELECT group_concat(id, char(13) || char(10)) FROM filesibprogsistem, а можете разъяснить, вот эту строчку...
SELECT group_concat(id, char(13) || char(10)) FROM file
берет id записи и добавляет их в список с новой строки каждый id
list.Count-1 - содержит количество этих строк...
смените file на Вашу таблицу
смените file на Вашу таблицу
Таблицу, из которой берутся значения...? И значит надо id записать в таблицу asd.
for k:=0 to list.Count-1 do if (SQLexecute('SELECT julianday("now") - julianday(data00)FROM qwe WHERE id='+list[k])>=0) then SQLEXecute('INSERT INTO asd (data01,text01) SELECT (data00,text00) FROM qwe');Что-то, я делаю не так...
for k:=0 to list.Count-1 do if (SQLexecute('SELECT julianday("now") - julianday(data00)FROM qwe WHERE id='+list[k])>=0) then SQLEXecute('INSERT INTO asd (data01,text01) SELECT (data00,text00) FROM qwe');Что-то, я делаю не так...
а вот это Вам зачем?
что Вы этим делаете?
SQLEXecute('INSERT INTO asd (data01,text01) SELECT (data00,text00) FROM qwe');вот пример...
test.7z 3.65 kb, 254 downloads since 2020-07-03
Условием, я б хотел, чтоб просроченные записи копировались в независимую таблицу (asd), где после просмотра, они удалялись без ущерба для основной базы.
Окраской в таблице, у меня занимается цикл
for Ii:=0 to Cc do form1.TableGrid1.Cell[Ii,i].Color := $adffaf;Условием, я б хотел, чтоб просроченные записи копировались в независимую таблицу (asd), где после просмотра, они удалялись без ущерба для основной базы.
Окраской в таблице, у меня занимается циклfor Ii:=0 to Cc do form1.TableGrid1.Cell[Ii,i].Color := $adffaf;
Копировались, то есть, что бы запись все таки осталась в первой таблице? тогда можно обойтись просто полем ДА/НЕТ (просмотрено)..
Да, чтоб оставалась, наверно, точнее делать дубликат... Задумка другая, когда появиться хоть одна запись в таблице дублирования, то на главной форме гифка за моргает,.Далее производится переход через кнопку в форму "напоминаний", а там тыкаем по записи, открывается форма просмотра, а после этого запись из таблицы напоминаний удаляется, и так с каждой записью "напоминания". Вот. Сейчас надо сделать дубликат записей по разности дат. Где условие понятно как сделать, а вот как выделить в таблице запись по условию и скопировать в другую непонятно...
Да, чтоб оставалась, наверно, точнее делать дубликат... Задумка другая, когда появиться хоть одна запись в таблице дублирования, то на главной форме гифка за моргает,.Далее производится переход через кнопку в форму "напоминаний", а там тыкаем по записи, открывается форма просмотра, а после этого запись из таблицы напоминаний удаляется, и так с каждой записью "напоминания". Вот. Сейчас надо сделать дубликат записей по разности дат. Где условие понятно как сделать, а вот как выделить в таблице запись по условию и скопировать в другую непонятно...
тогда так
procedure Form1_OnShow (Sender: TObject; Action: string);
var
i:integer;
name:string;
list:TStringList;
begin
list:=TStringList.Create;
list.Text:=SQLExecute( 'SELECT group_concat(id, char(13) || char(10)) FROM file' );
for i:=0 to list.Count-1 do
if (SQLexecute('SELECT julianday("now") - julianday(date)FROM file WHERE id='+list[i])>2) then
name:=SQLexecute('SELECT name FROM file WHERE id='+list[i]);
SQLExecute('INSERT INTO aaa(text)VALUES("'+name+'")');
end;
но от этого у вас появиться еще больше проблем...
лучше сделайте как в прикрепленном примере
test.7z 441.42 kb, 257 downloads since 2020-07-04
Спасибо, мы не ищем легких путей... попробую,...
Вот... Подскажите, как удалить все записи из указанной таблицы... нашел такой код, но не работает
SQLExecute('DROP DATABASE asd');sibprogsistem, Странно, принцип работы с обычным циклом похожи, но если просто цикл, то он записи 3 раза повторяет(заносит в таблицу). Тут, наверно, магическое TStringList...
Почему не работало
SQLEXecute('INSERT INTO asd (data01,text01) SELECT (data00,text00) FROM qwe');потому что надо, наверно, было конвертировать поле с датой в текстовое...
Вот... Подскажите, как удалить все записи из указанной таблицы... нашел такой код, но не работает
SQLExecute('DROP DATABASE asd');
SQLExecute('DELETE FROM asd');
sibprogsistem, Странно, принцип работы с обычным циклом похожи, но если просто цикл, то он записи 3 раза повторяет(заносит в таблицу). Тут, наверно, магическое TStringList...
Почему не работало
SQLEXecute('INSERT INTO asd (data01,text01) SELECT (data00,text00) FROM qwe');потому что надо, наверно, было конвертировать поле с датой в текстовое...
TStringList хранит конкретные строки и цикл for обрабатывает их все за исключением BREAK - в этом случае цикл будет прерван ...
SQLEXecute('INSERT INTO asd (поле_1,поле_2) VALUES (значение_1,значение_2) ');
А как будет выглядеть условие на просмотр таблицы на наличие хотя бы одного любого id...
My Visual Database → Russian → Помогите создать таблицу "напоминаний"
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi