Список использованных источников
Анализ опасных и вредных производственных факторов — - Режим доступа http://www.studfiles.ru/preview/5 781 173/page:14/. Щеглов А. Ю., Защита компьютерной информации от несанкционированного доступа. = Нит, 2012 г. — 250с. S := VarToStr (SQLExecute ('SELECT count (id) FROM users WHERE (login = ''' + frmLogin.edUser.Text + ''') AND (password = ''' + frmLogin.edPassword.Text + ''');')); Салмин С… Читать ещё >
Список использованных источников (реферат, курсовая, диплом, контрольная)
- 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/tema62
- 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.