Список использованных источников

• 1. Аверченков В. И., Защита персональных данных в организациях. — Флинта, 2016 г. — 125с.
• 2. Бейли Л., Изучаем SQL. — Питер, 2012 г. — 240с.
• 3. Виссер Дж., Разработка обслуживаемых программ на языке С#. — .: ДМК Пресс, 2017 г. — 192с.
• 4. Кузнецова А. А., Экономика, 2012 г. — 200с.
• 5. Лобода Д. В., Microsoft Dynamics CRM 2016. — Эком, 2016 г. — 178с.
• 6. Меркулов А., CRM-системы. Краткий обзор — Москва, 2012 г, 39с.
• 7. Мокроносов А. Г., Конкуренция и конкурентосопобность. — БИБКОМ, 2016 г. — 290с. Все это можно сделать с использованием CRM-решений.
• 8. Орлов С. Д. Технологии разработки программного обеспечения. Учеб. пособие. 2-е изд. СПб.: Питер, 2015 г. — 480 с.
• 9. Ощенко И., Азбука программирования в 1С. — БХВ-Петербург, 2014 г. — 272с.
• 10. Пащенко И., Excel 2012. — Эксмо, 2014 г. — 496с.
• 11. Радченко М. Г., Радченко М. Г., 1С: Предприятие 8.3. Практическое пособие разработчика. Примеры и типовые приемы. — .: 1С-Паблишинг, 2013 г. — 965 с.
• 12. Рассел Дж., ER-модель данных. — Книга по требованию, 2012 г. 122с. Над рисунком 5 в конец.
• 13. Салмин С. П., Информационное обеспечение процессов управления. — Синергия, 2014 г. — 311с.
• 14. Трапезникова В. А., Сетевые модели в управлении. — РАН, 2012 г. — 400 с.
• 15. Шварц Д. А., Бинарные отношения, графы и коллективные решения. — ГУ-ВШЭ, 2012 г. — 400с.
• 16. Щеглов А. Ю., Защита компьютерной информации от несанкционированного доступа. — Наука и техника, 2012 г. — 310с.
• 17. Щеглов А. Ю., Защита компьютерной информации от несанкционированного доступа. = Нит, 2012 г. — 250с.
• 18. Структура реляционной модели данных — [Электронный ресурс] - Режим доступа: http://megapredmet.ru/1−38 597.html
• 19. My Visual Database — [Электронный ресурс] - Режим доступа: http://myvisualdatabase.com
• 20. Википедия — [Электронный ресурс] - Режим доступа: http://ru.wikipedia.org/wiki/FindBook.ru
• 21. My Visual Database software — [Электронный ресурс] - Режим доступа: http://www.drive-software.com/myvisualdatabase_ru.html
• 22. Анализ опасных и вредных производственных факторов — [Электронный ресурс] - Режим доступа http://www.studfiles.ru/preview/5 781 173/page:14/
• 23. Разработка программы «Напоминание» — [Электронный ресурс] - Режим доступа: http://дипкур.рф/?p=4388
• 24. Методология IDEF0 — [Электронный ресурс] - Режим доступа: https://sites.google.com/site/anisimovkhv/learning/pris/lecture/tema6/tema6₂
• 25. Недостатки CRM-систем — [Электронный ресурс] - Режим доступа: https://www.prostoy.ru/2154.html

Приложение 1.

var.

sUser: string = '';

// event OnShow.

procedure Form1_OnShow (Sender: string; Action: string);

begin.

frmLogin.edPassword.PasswordChar := '*';

frmLogin.ShowModal; // show windows for login.

end;

procedure frmLogin_bLogin_OnClick (Sender: string; var Cancel: boolean);

var.

s: string;

begin.

// SQL query for check user and password.

s := VarToStr (SQLExecute ('SELECT count (id) FROM users WHERE (login = ''' + frmLogin.edUser.Text + ''') AND (password = ''' + frmLogin.edPassword.Text + ''');'));

// if SQL query found login and password.

if (s '0') and (s'') then.

begin.

sUser := frmLogin.edUser.Text; // remember username.

// check admin rights.

s := VarToStr (SQLExecute ('SELECT administrator FROM users WHERE (login = ''' + sUser + ''');'));

if s='0' then Form1.bUsers.Enabled := False; // if the user does not have administrator privileges, deactivate the button to create other users.

// check permissions to read.

s := VarToStr (SQLExecute ('SELECT read FROM users WHERE (login = ''' + sUser + ''');'));

if s='0' then Form1.bEdit.Enabled := False; // deactivate the button to edit the record.

// check write permissions.

s := VarToStr (SQLExecute ('SELECT write FROM users WHERE (login = ''' + sUser + ''');'));

if s='0' then.

begin.

Form1.bAdd.Enabled := False; // deactivate the button to add the record.

frmEmployee.bOK.Enabled := False; // deactivate the button to save the record.

end;

// check permission to delete.

s := VarToStr (SQLExecute ('SELECT remove FROM users WHERE (login = ''' + sUser + ''');'));

if s='0' then Form1.bDelete.Enabled := False; // deactivate the button to delete the record.

// check permission to search.

s := VarToStr (SQLExecute ('SELECT search FROM users WHERE (login = ''' + sUser + ''');'));

if s='0' then Form1.bSearch.Enabled := False; // deactivate the button to search the records.

frmLogin.Close; // close login form.

end else MessageDlg ('password is incorrect', mtError, mbOk, 0); // message if the password is incorrect.

end;

// window closing event for login.

procedure frmLogin_OnClose (Sender: string; Action: string);

begin.

// if the user has not been defined, and the user closes the login window, then close the main form.

if sUser='' then Form1. Close;

end;

begin.

// Initial check whether there is a database administrator user.

// if not, create an administrator with username admin and password admin.

if VarToStr (SQLExecute ('SELECT count (id) FROM users WHERE administrator=1;')) = '0' then.

begin.

SQLExecute ('INSERT INTO users (login, password, read, write, remove, search, administrator) VALUES («admin», «admin», 1, 1, 1, 1, 1);');

frmLogin.edUser.Text := 'admin';

frmLogin.edPassword.Text := 'admin';

end;

end.

Приложение 2.

var.

Timer: TTimer;

procedure Form1_OnShow (Sender: string; Action: string);

begin.

Timer := TTimer. Create (Form);

Timer.Interval := 60 000;

Timer.OnTimer := @OnTimer;

OnTimer;

Timer.Enabled := true;

end;

procedure Form1_OnClose (Sender: string; Action: string);

begin.

Timer.Free;

end;

procedure OnTimer;

var.

sMessage: string;

begin.

sMessage := SQLExecute ('SELECT message FROM reminder WHERE strftime (''%d.%m.%Y %H:%M'', datetime) = strftime (''%d.%m.%Y %H:%M'', ''now'', ''localtime'') ');

if sMessage'' then ShowMessage (sMessage);

end;

begin.

end.