101 Reply by vit007

(48 replies, posted in Russian)

Вот кок раз и надо мне проверка "локального времени"... sibprogsistem а не знаете, есть программы автозагрузка или планировщик, чтоб именно в этот момент времени срабатывало действие, без нажатия чего либо...

Go to forum: Russian

102 Reply by vit007

(48 replies, posted in Russian)

Странно, с утра по раньше в процедуре OnMouseEnter,  перестало работать, а вчера норм было... Какой-то за тык был... у меня 10.30 часов в реали было, сработало не на больше 10, 9, а только на "1"... Добавил минуты и заработало... НО только в процедуре OnMouseEnter таблицы. В процедуре таблицы OnChange, не работает...

Go to forum: Russian

103 Reply by vit007

(48 replies, posted in Russian)

В этой процедуре не работает, а хотелось бы..

procedure 

...
form1.Button5.Visible := false;
...

Form1_TableGrid1_OnChange (Sender: TObject);
var
    i, Ii, cR, cC : integer;
begin
    cR := Form1.TableGrid1.RowCount - 1;
    cC := Form1.TableGrid1.Columns.Count - 1;

    Form1.TableGrid1.BeginUpdate;
    for i := 0 to cR do
    begin
        //Условие сравнение разности дат из 2го столбца
        if (Form1.TableGrid1.Cells[0,i] <>'') and (Date - StrToDateTime(Form1.TableGrid1.Cells[0,i]) >=0) then
        begin
            for Ii:=0 to Cc do Form1.TableGrid1.Cell[Ii,i].Color := $adffaf;
        end;
        if (Date - StrToDateTime(Form1.TableGrid1.Cells[0,i]) >=5) then
        begin
            for Ii:=0 to Cc do Form1.TableGrid1.Cell[Ii,i].Color := $addfff;
        end;
        if (Date - StrToDateTime(Form1.TableGrid1.Cells[0,i]) >=10) then
        begin
            for Ii:=0 to Cc do Form1.TableGrid1.Cell[Ii,i].Color := $adafff;
        end;
     end;
    //Обнавление таблицы
    Form1.TableGrid1.EndUpdate;
    //Формирование "напоминания"
    if (FormatDateTime('hh', now) > '12') then form1.Button5.Visible := true;
end;

Go to forum: Russian

104 Reply by vit007

(48 replies, posted in Russian)

Вот так ошибок нет... но не работает

if (FormatDateTime('hh', now) > '12') then

ага в OnChange не работает, а хотелось бы... или какая-нибудь чтоб кликнул на таблицу и скрипт сработал... на OnMouseEnter работает

Go to forum: Russian

105 Reply by vit007

(48 replies, posted in Russian)

Вот таблицу, хотелось бы не привлекать к временному условие. Оно, условие, должно быть автономное. Это почему... Т.к."Напоминание" срабатывает по старту проги, а если комп с прогой всегда в гибернации, то надо собирать "напоминание" по условию времени...

Go to forum: Russian

106 Reply by vit007

(3 replies, posted in Russian)

и можно скопировать значение DateTimePicker в Edit, и делать, что угодно...

Go to forum: Russian

107 Reply by vit007

(48 replies, posted in Russian)

Наверно, как-то так...

if (FormatDateTime('??.??', now) = 12.00) then

где ??.?? я не знаю обозначения из (dd.mm.yyyy.??.??.????)...

Go to forum: Russian

108 Reply by vit007

(48 replies, posted in Russian)

не скорее таймеру лучше условие на нажатие таблицы, а то прогу заставлять считать сутки секунд это, пипец, будет ее вешать...

Go to forum: Russian

109 Reply by vit007

(48 replies, posted in Russian)

Осталось таймер на 12 часов прикрутить и гифку...

Go to forum: Russian

110 Reply by vit007

(48 replies, posted in Russian)

Смотрите, когда в таблице дубликате (напоминание) появляется запись, то по условию, на главной форме должна появится форма оповещения, чтобы посмотреть выборку... И в этой выборке, разные id по возрастанию... Оно у меня работает, если удалить базу, и она заново создается...

Скорее мне надо 

if SQLExecute('SELECT count(id)FROM Table')>'0' then

Go to forum: Russian

111 Reply by vit007

(48 replies, posted in Russian)

Я так пытался, но не заработало... я так думаю, из-за того что, условие ищет нулевой id, а его нет. приходящие id могут быть разными...  Вот...

Go to forum: Russian

112 Reply by vit007

(48 replies, posted in Russian)

А как будет выглядеть условие на просмотр таблицы на наличие хотя бы одного любого id...

Go to forum: Russian

113 Reply by vit007

(48 replies, posted in Russian)

sibprogsistem, Странно, принцип работы с обычным циклом похожи, но если просто цикл, то он записи 3 раза повторяет(заносит в таблицу). Тут, наверно, магическое TStringList...

Почему не работало 

SQLEXecute('INSERT INTO asd (data01,text01) SELECT (data00,text00) FROM qwe');

потому что надо, наверно, было конвертировать поле с датой в текстовое...

Go to forum: Russian

114 Reply by vit007

(48 replies, posted in Russian)

Вот... Подскажите, как удалить все записи из указанной таблицы... нашел такой код, но не работает

SQLExecute('DROP DATABASE asd');

Go to forum: Russian

115 Reply by vit007

(48 replies, posted in Russian)

Спасибо, мы не ищем легких путей... попробую,...

Go to forum: Russian

116 Reply by vit007

(48 replies, posted in Russian)

Да, чтоб оставалась, наверно, точнее делать дубликат... Задумка другая, когда появиться хоть одна запись в таблице дублирования, то на главной форме гифка за моргает,.Далее производится переход через кнопку в форму "напоминаний", а там тыкаем по записи, открывается форма просмотра, а после этого запись из таблицы напоминаний удаляется, и так с каждой записью "напоминания". Вот. Сейчас надо сделать дубликат записей по разности дат. Где условие понятно как сделать, а вот как выделить в таблице запись по условию и скопировать в другую непонятно...

Go to forum: Russian

117 Reply by vit007

(48 replies, posted in Russian)

Условием, я б хотел, чтоб просроченные записи копировались в независимую таблицу (asd), где после просмотра, они удалялись без ущерба для основной базы.
Окраской в таблице, у меня занимается цикл 

for Ii:=0 to Cc do form1.TableGrid1.Cell[Ii,i].Color := $adffaf;

Go to forum: Russian

118 Reply by vit007

(48 replies, posted in Russian)

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');

Что-то, я делаю не так...

Go to forum: Russian

119 Reply by vit007

(48 replies, posted in Russian)

sibprogsistem wrote:

смените file на Вашу таблицу

Таблицу, из которой берутся значения...? И значит надо id записать в таблицу asd.

Go to forum: Russian

120 Reply by vit007

(48 replies, posted in Russian)

sibprogsistem, а можете разъяснить, вот эту строчку...

SELECT group_concat(id, char(13) || char(10)) FROM file

Go to forum: Russian

121 Reply by vit007

(48 replies, posted in Russian)

derek, да это интересно, но для движения задачи. А хотелось бы, после просмотра удалять запись без удаления из базы.

Go to forum: Russian

122 Reply by vit007

(48 replies, posted in Russian)

Вот подсмотрел

SQLEXecute('INSERT INTO asd (data01,text01) SELECT (data00,text00) FROM qwe');

Разметил в цикле, но в чем-то синтаксическая ошибка...

И так сделать, чтоб индивидуально по строке срабатывало...

Go to forum: Russian

123 Reply by vit007

(48 replies, posted in Russian)

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

Go to forum: Russian

124 Reply by vit007

(48 replies, posted in Russian)

Вот тело,... не понимаю, как занести значения во вторую таблицу...

Go to forum: Russian

125 Topic by vit007

(48 replies, posted in Russian)

Задумка...
Из существующей таблицы, просматривается (сравнивается) дата всех записей, и если выходит за рамки, формируется в другой таблице строки напоминания по просроченным записям.
Из оповещений, на главной форме анимация мигающей лампочки.
После входа в таблицу напоминаний и тыканья по интересующей строчке производится переход, а напоминание по просмотренному удаляется из списка, и создается новый предел срабатывания...

Вот....

Go to forum: Russian