ВКР Разработка автоматизированной системы обработки заявок от внутреннего Клиента в ИТ-отдел + Программа для создания и обработки заявок в ИТ-отдел

Модуль формы авторизации (частично)

unit unLogin;
interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.ComCtrls,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Data.DB,
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf,
FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async,
FireDAC.Phys, FireDAC.VCLUI.Wait, FireDAC.Comp.Client, Vcl.Grids, Vcl.DBGrids,
Vcl.DBCtrls, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Phys.MySQLDef, FireDAC.Phys.MySQL,
Vcl.Mask;

type
TfrmLogin = class(TForm)
pnlBase: TPanel;
btnAuth: TButton;
lblPassword: TLabel;
lblLogin: TLabel;
dbITHelper: TFDConnection;
dsUsers: TDataSource;
qryUsers: TFDQuery;
MySQLDriver: TFDPhysMySQLDriverLink;
btnDB: TButton;
edLogin: TEdit;
edPassword: TEdit;
procedure btnAuthClick(Sender: TObject);
procedure btnDBClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmLogin: TfrmLogin;

implementation

uses
unCreateReq,
unITUser,
unDatabase;

{$R *.dfm}

procedure TfrmLogin.btnAuthClick(Sender: TObject);
begin

With dbITHelper Do
Begin
Close;
// create temporary connection definition
With Params Do
Begin
Clear;
Add('DriverID=MySQL');
Add('Server=127.0.0.1');
Add('Port=3306');
Add('Database=ithelper');
Add('User_Name=root');
End;
Open;
qryUsers.SQL.Text:=
'SELECT * FROM `users` WHERE `Login`="'+edLogin.Text+
'" AND `Password`="'+edPassword.Text+'";';
qryUsers.Open;
If (qryUsers.RowsAffected>0) Then
Begin
If (qryUsers.Fields[4].AsInteger=1) Then //If IT-Department
Begin
frmITUser.Tag:=qryUsers.Fields[0].AsInteger; //ITUserID
frmITUser.Show
End
Else //If Not IT-Department
Begin
frmCreateReq.Tag:=qryUsers.Fields[0].AsInteger;
frmCreateReq.edReqAuthor.Text:=qryUsers.Fields[3].AsString;
//DepartmentID
frmCreateReq.edDepartment.Tag:=qryUsers.Fields[4].AsInteger;
frmCreateReq.dtDate.DateTime:=Now;
frmCreateReq.Show;
End;
End
Else
ShowMessage('Ошибка: Неверный логин или пароль!');
//ShowMessage(IntToStr(qryUsers.RowsAffected));
End;

1. ГОСТ 34.602-89. Комплекс стандартов на автоматизированные системы. Техническое задание на создание автоматизированной системы
2. «Методология функционального моделирования IDEF0», Руководящий документ, Госстандарт России.
3. Архангельский А. Delphi 2006. Справочное пособие: Язык Delphi, классы, функции Win32 и .NET. М.:Бином, 2015 г., 1152 стр.
4. Боковой Ю. В. Особенности методологии проектирования информационных систем для малого и среднего бизнеса. М.: Синергия, 2006г., 254 cтр.
5. Бунаков П., Лопатин А. Практикум по решению задач на ЭВМ в среде Delphi. Учебное пособие. М.:Инфра-м, 2017 г., 304 стр.
6. Варфоломеева, А.О. Информационные системы предприятия: Учебное пособие / А.О. Варфоломеева, А.В. Коряковский, В.П. Романов. М.: НИЦ ИНФРА-М, 2013., 283 cтр.
7. Вернон В. Реализация методов предметно-ориентированного проектирования. М.:Диалектика, 2015 г., 688 стр.
8. Волкова В.Н. Теория информационных процессов и систем. М.: Юрайт, 2016г., 504 стр.
9. Гвоздева, В.А. Информатика, автоматизированные информационные технологии и системы: Учебник / В.А. Гвоздева. М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013г., 544 cтр.
10. Георгий Исаев: Проектирование информационных систем. Учебное пособие, Издательство: Омега-Л, М., 2015 г., 424 стр.
11. Горячев, А.В. Практикум по информационным технологиям / А.В. Горячев, Ю.А. Шафрин. М.: Бином, 2016г., 272 cтр.
12. Гришин, А.В. Промышленные информационные системы и сети: практическое руководство / А.В. Гришин. М.: Радио и связь, 2016г., 176 cтр.
13. Емельянов C., Ватутин Э., Панищев В., Титов В. Процедурно-модульное программирование на Delphi. М.:Аргамак-медиа, 2014 г., 352 стр.
14. Информатика и информационные технологии / ред. Ю.Д. Романова. М.: Эксмо, 2011г., 544 cтр.
15. Информационные технологии: учеб. пособие / О.Л. Голицына, Н.В. Максимов, Т.Л. Партыка, И.И. Попов. М.: ФОРУМ: ИНФРА-М, 2010г., 356 стр.
16. Майерс Г., Баджет Т., Сандлер К. Искусство тестирования программ, 3-е издание. М.:Вильямс, 2016 г., 272 стр.
17. Максимов, Н.В. Современные информационные технологии: Учебное пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. М.: Форум, 2013г., 512 cтр.
18. Пирогов, В. Информационные системы и базы данных: организация и проектирование: Учебное пособие / В. Пирогов. СПб.: BHV, 2009г., 528 cтр.
19. Репин В.В., Елиферов В.Г. Процессный подход к управлению. Моделирование бизнес-процессов, 2012г., 408 стр.
20. Реутов, А.П. Автоматизированные информационные системы: методы построения и исследования / А.П. Реутов, М.В. Черняков, С.Н. Замуруев. - М.: Радиотехника, 2010г., 328 cтр.
21. Румянцева, Е.Л. Информационные технологии: Учебное пособие / Е.Л. Румянцева, В.В. Слюсарь; Под ред. Л.Г. Гагарина. М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013г., 256 cтр.
22. Светлов, Н.М. Информационные технологии управления проектами: Учебное пособие / Н.М. Светлов, Г.Н. Светлова. М.: НИЦ ИНФРА-М, 2012г., 232 cтр.
23. Соловьев, Майоров: Проектирование информационных систем. Фундаментальный курс, Издательство: Академический проект, М., 2009 г., 398 стр.
24. Черемных С.В. Моделирование и анализ систем. IDEF-технологии, 2010г., 192 стр.
25. Большой самоучитель Delphi XE3. В. Рубанцев «Большой самоучитель Delphi XE3» Я + R, 2012 год, 1274 стр.
26. Википедия: Информационная система [Электронный ресурс] – Режим доступа https://ru.wikipedia.org/wiki/Информационная_система;
27. Студопедия: Виды моделей данных [Электронный ресурс] - URL: https://studopedia.ru/1_83797_vidi-modeley-dannih.html
28. Saukpgp: Средства разработки ИС [Электронный ресурс] - http://saukpgp.ru/sauk/Base_UMM/pgp/dis5/t1.htm#СредстваРазрИС;
29. Studwood: Информационная система [Электронный ресурс] - https://studwood.ru/2232989/informatika/informatsionnye_sistemy.