• Registered: 2016-07-27
  • Posts: 180

Topic: колір у випадку обранності потрібного дійства

Добрий вечір.
Допоможіть розібратися із задачею.
Зробив програму обліку робочого часу. Є доступ до програми за логіном і паролем. Як мені зробити, щоб тільки керівник міг призначати пріорітетність завдань, які будуть писати колеги мені. (наприклад найважливіше завдання (строка 1) була червоним кольором, менш пріорітетна (наприклад 2га) - зеленим, і не пріорітетна - жовтим.)
І третє. Як можна зробити нагадування, коли з"явилася задача в програмі?
Чи це реально?
Якщо треба, можу прикласти проект.
З повагою.

stas.kodpi's Website

2 Reply by sibprogsistem (edited by sibprogsistem 2018-11-13 21:21:18)

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

Re: колір у випадку обранності потрібного дійства

если я правильно понял ваш вопрос
раскрасить ячейки по условию можно так

procedure Form1_TableGrid1_OnChange (Sender: TObject);
    var
       i,c: integer;
    begin
         c := Form1.TableGrid1.RowCount - 1;
         for i := 0 to c do
         begin
             if Form1.TableGrid1.Cells[1,i] = '1' then Form1.TableGrid1.Cell[1,i].Color := clRed;
             if Form1.TableGrid1.Cells[1,i] = '3' then Form1.TableGrid1.Cell[1,i].Color := clGreen;
         end;

    end;
Post's attachments

Attachment icon color.rar 3.81 kb, 455 downloads since 2018-11-13 

3 Reply by sibprogsistem (edited by sibprogsistem 2018-11-13 20:51:43)

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

Re: колір у випадку обранності потрібного дійства

а в этом примере
если авторизован администратор то кнопка enabled иначе desabled

Post's attachments

Attachment icon Login .rar 37.06 kb, 441 downloads since 2018-11-13 

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

Re: колір у випадку обранності потрібного дійства

В этой теме можете найти пример  напоминалки
http://myvisualdatabase.com/forum/viewtopic.php?id=711

Dmitry.

5 Reply by stas.kodpi (edited by stas.kodpi 2018-11-14 09:09:20)

  • Registered: 2016-07-27
  • Posts: 180

Re: колір у випадку обранності потрібного дійства

Дякую за підказку по парольності на кнопку. Відшукав в посту.
Але:
1. Є таблиця. Дата виконання, Кому призначене це виконання,Сам план робіт, Коли почато та закінчено роботи.
Додали завдання для мене.
По-перше: повинно вискочити нагадування про це завдання (коли з"явився новий запис).
По-друге: Мій керівник також заходить в це завдання та присвоює йому статус важливого (1ї необхідності), 2гої необхідності (наприклад зелений колір), та 3ї необхідності (наприклад жовтий колір). (і строка замальовується відповідним кольором)

Ось як реалізувати саме цю забаганку?

Все. Дякую

Post's attachments

Attachment icon звітність.jpg 131.9 kb, 170 downloads since 2018-11-14 

stas.kodpi's Website

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

Re: колір у випадку обранності потрібного дійства

1. Необходимо в таймере (например каждую минуту) проверять появилась ли задача, которая предназначена для вас и которая еще не помечена как прочитанная, после того как она выскочила, необходимо автоматически ее пометить как прочитанную (необходимо поле ДА/НЕТ).
К сожалению у меня нет готово примера.


2. Как подсвечивать записи в гриде было показано во втором сообщении.

Dmitry.
  • Registered: 2016-07-27
  • Posts: 180

Re: колір у випадку обранності потрібного дійства

procedure MainForm_TableGrid1_OnChange (Sender: TObject);
   var
       i,c: integer;
    begin
         c := MainForm.TableGrid1.RowCount - 1;
         for i := 0 to c do
         begin
             if MainForm.TableGrid1.Cells[4,i] = 'Да' then MainForm.TableGrid1.Cell[4,i].Color := clRed;
             if MainForm.TableGrid1.Cells[4,i] = 'Нет' then MainForm.TableGrid1.Cell[4,i].Color := clGreen;
         end;
end;


в мене не працює підсвітка ячейки
я не зовсім розумію, як відносяться літери 4, напримклад до колонок чи строк.  (в плані їх кількості чи номера самох колонки).
Дякую.

stas.kodpi's Website

  • Registered: 2016-07-27
  • Posts: 180

Re: колір у випадку обранності потрібного дійства

Все, зробив. Нарешті.
Але тепер нова задача - треба на чекбокс поставити пароль.
Код нижче - але видає помилку: Undeclared identifier 'Cancel'



procedure Form1_CheckBox1_OnClick (Sender: TObject);
begin
      // запрос на пароль, пароль: 123, якщо ввели не вірно, дія кнопки відміниться (Cancel := True)
   if InputBox ('Запит', 'Введіть пароль', '') <> '123' then Cancel := True;
end;

stas.kodpi's Website

9 Reply by sibprogsistem (edited by sibprogsistem 2018-11-15 16:42:37)

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

Re: колір у випадку обранності потрібного дійства

if InputBox ('Запит', 'Введіть пароль', '') <> '123' then form1.ComboBox1.enabled:= False;

нужно писать полный адрес  form1.ComboBox1.enabled:= False;

form1 -- имя формы
ComboBox1 -- имя компонента
enabled--- его свойство

10 Reply by stas.kodpi (edited by stas.kodpi 2018-11-16 08:42:26)

  • Registered: 2016-07-27
  • Posts: 180

Re: колір у випадку обранності потрібного дійства

Прикладую свою програму.
1. При заході в запис - просить пароль - воно не повинно питати пароль. (а питати повинно тільки коли ставлю галку на чекбоксі "Чи важливо?"
2. Також якщо я ставлю галки на чексбоксі "Чи важливо?" - питає пароль,  але коли я відміняю - то усе одно галка ставиться, хоча не повинна
3. Чомусь перестали відображатися всі записи в таблиці на основній формі (а тільки по одній)
4. Нагадування мені, коли з"явився запис так і не зробив (

І таке питання:
нагадування будуть робити тільки коли в мене програма буде відкрита? чи як?  як вони взагаллі реалізовані? якщо хтось напише мені завдання, то як нагадування в мене будуть працювати? і якщо програма буде мережевою - то нагадування будуть робити? чи держати програму постійну у ввімкнутому стані мені?


логін/пароль для входу:
admin/admin

Post's attachments

Attachment icon звітність_2018.zip 361.76 kb, 343 downloads since 2018-11-16 

stas.kodpi's Website

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

Re: колір у випадку обранності потрібного дійства

поменяйте

procedure Form1_CheckBox1_OnClick (Sender: TObject; var Cancel:boolean);   
begin
      // запрос на пароль, пароль: 123, якщо ввели не вірно, дія кнопки відміниться (Cancel := True)
if InputBox ('Запит', 'Введіть пароль', '') <> '123' then form1.ComboBox1.enabled:= False;

end;

на

procedure Form1_CheckBox1_OnClick (Sender: TObject; var Cancel:boolean);   
begin
      // запрос на пароль, пароль: 123, якщо ввели не вірно, дія кнопки відміниться (Cancel := True)
   if form1.CheckBox1.Checked then begin
   if InputBox ('Запит', 'Введіть пароль', '')='123'  then Form1.CheckBox1.enabled := True else
   form1.CheckBox1.Checked:=false;
   end else  form1.CheckBox1.Checked:= False;

end;

12 Reply by sibprogsistem (edited by sibprogsistem 2018-11-16 16:26:45)

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

Re: колір у випадку обранності потрібного дійства

касательно записей и меток
Вам их нужно поместить в одну таблицу а данные пользователей в другую
типа так:

записи            пользователи
-------------        -------------
план р.            имя
примечания    логин
дата                пароль
закончено
цвет
прочел
id_пользователи
----------------------------------------------
id_пользователи - связь между таблицами
на form1 за место edit поставьте ComboBox
через ComboBox будет устанавливаться кому пренадлежит это задание

и уберите запись по интеру - это плохая идея

13 Reply by stas.kodpi (edited by stas.kodpi 2018-11-18 18:00:07)

  • Registered: 2016-07-27
  • Posts: 180

Re: колір у випадку обранності потрібного дійства

1. вже немає кольорів на ячейках (
2. усе одно після відміни запиту пароля на чекбокс - галка ставиться (тобто увесь задум сводить к 0 результати)
3. чомусь не виводить усі записи в грід після натискання кнопки "усі записи"
4. як зробити, щоб в плані робіт можно було починати запис з нової строки (після натискання кнопки ентер).

якись дрібниці - а усе одно - неприємно (

stas.kodpi's Website

14 Reply by sibprogsistem (edited by sibprogsistem 2018-11-18 21:06:46)

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

Re: колір у випадку обранності потрібного дійства

не много переделал ваш проект
посмотрите, может что-то оставите
колонки не красятся по тому, что вы нарушили регистр букв.. (другого варианта не вижу)

Post's attachments

Attachment icon eee.rar 40.58 kb, 433 downloads since 2018-11-18