106
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. Аникеев С. П., Маркин Н.В.: Разработка приложений баз данных в
Delphi. Самоучитель, - М.,Диалог-МИФИ, 2018 г., 160 с.
2. Арнольд Виллемер: Программирование на С++, - М., Эксмо, 2018
г., 528 с.
3. Бондарев В. В., Введение в информационную безопасность
автоматизированных систем. Учебное пособие, М. , МГТУ им. Н. Э. Баумана,
2018 г., 252 с.
4. Брюс Тейт: Семь языков за семь недель. Практическое
руководство по изучению языков программирования, - М., Издательство:
ДМК-Пресс, 2018 г., 384 стр.
5. Васвани В.А.: MySQL: использование и администрирование, СПб,
Питер, 2018 г., 368 с.
6. Васильев А.В: Самоучитель C++ с примерами и задачами, - М.,
Наука и Техника, 2018 г., 480 с.
7. Вигерс, Битти: Разработка требований к программному
обеспечению, - М., Издательство: BHV, 2017 г., 736 стр.
8. Дейтел, Дейтел: Как программировать на Visual C# 2012. Включая
работу на Windows 7 и Windows 8, - М., Питер, 2017 г., 864 с.
9. Джо Майо: Самоучитель MicrosoftVisualStudio 2011, - М., BHV,
2017 г., 464 с.
10. Залогова Л. А., Основы объектно-ориентированного
программирования на базе языка С#, М., Лань 2018 г., 192 с.
11. Зоткин С. А., Программирование на языке высокого уровня С/С++.
Конспект лекций, М., МГСУ, 2018 г, 140 с.
12. Исаев Г.А.: Информационные системы в экономике. Учебник, -
М., Омега-Л, 2017 г., 462 с.
107
13. Исаев Г.А.: Проектирование информационных систем. Учебное
пособие, - М., Омега-Л, 2017 г., 424 с.
14. Иэн Гриффитс: Программирование на C# 5.0, - М., Эксмо, 2017 г.,
1135 с.
15. Кузьменко Е.А., Мойзес О.А., Информатика. Углубленный курс.
Учебное пособие для СПО, М., Юрайт, 2018 г., 164 с.
16. Курлов А.А, Петров Е.А.: Методология информационной
аналитики, - М.,Проспект, 2017 г., 384 с.
17. Мартынов Н.А: Программирование для Windows на С\С++. В 2-х
томах, - М., Бином, 2017 г., 480 с.
18. Никифоров С.Н, Прикладное программирование, М., Лань, 2018 г.,
140 с.
19. Ошероув Р.О: Искусство автономного тестирования с примерами
на С#, - М., ДМК-Пресс, 2017 г., 360 с.
20. Паттерсон, Хеннесси: Архитектура компьютера и проектирование
компьютерных систе- М. Классика ComputersScience, Спб Питер, , 2017 г., 784
с.
21. Полубенцева - М. П.: С/С++ Процедурное программирование, - М.,
BHV, 2017 г., 432 с.
22. Потопахин В.С.: Искусство алгоритмизации, - М., Издательство:
ДМК-Пресс, 2017 г., 320 стр.
23. Пугачев Е.К., Шериев Ш.К., Кичинский Е.А.: Разработка
приложений для Windows 8 на языке C#, - М., BHV, 2017 г., 416 с.
24. Роберт Дж. Мюллер, Проектирование баз данных и UML, - М.,
Лори, 2017 год, 432 с.
25. Роберт Лафоре: Объектно-ориентированное программирование в
С++, - М., Питер, 2017 г., 928 с.
26. СурядныйА.Е.: Microsoft Access 2011. Лучший самоучитель, - М.,
Астрель, 2017 г., 448 с.
108
27. Таненбаум А.А, Бос Е.В.: Современные операционные системы,
Спб, Питер, 2015 г., 1120 стр
28. Тахагхогхи, Вильямс: Руководство по MySQL, - М., BHV, 2019 г.,
544 с.
29. Тимофеев В. А: Самоучитель С++ как он есть, - М., Бином, 2019 г.,
336 с.
30. Тюгашев А. Е.: Языки программирования. Учебное пособие.
Стандарт третьего поколения, - М., Издательство: Питер, 2019 г. 336 стр.
31. Филимонова Е.В., Информатика и информационные технологии в
профессиональной деятельности. Учебник, М., Юстиция, 2019 г., 216 с.
32. Ховард, Лебланк, Виега: Как написать безопасный код на С++,
Java, Perl, PHP, ASP.NET, - М., ДМК-Пресс, 2018 г., 288 с.
33. Чистов Д.А: Экономическая информатика (для бакалавров).
Учебное пособие, - М., Кнорус, 2018 г., 512 с.
34. Шустова Л.В., Тараканов О.А., Базы данных. Учебник, М., Инфра-
М, 2018 г, 304 с.
35. Эндрю Стиллмен: Изучаем C#, - М., Питер, 2018 г., 816 с.
36. Энтони Молинаро, SQL. Сборник рецептов, - М., Символ-Плюс,
2018 г., 672 с.
109
ПРИЛОЖЕНИЕ. ЛИСТИНГ ПРОГРАММНЫХ МОДУЛЕЙ
unit Categories;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDropDownEdit, Menus, cxLookAndFeelPainters, StdCtrls,
cxButtons, cxVGrid, cxDBVGrid, cxControls, cxInplaceContainer,
cxLookAndFeels, cxDBLookupComboBox;
type
TfrmCategories = class(TForm)
btnYes: TcxButton;
btnNo: TcxButton;
vgCategories: TcxDBVerticalGrid;
vgCategoriesTypeId: TcxDBEditorRow;
vgCategoriesCategoryName: TcxDBEditorRow;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure btnNoClick(Sender: TObject);
procedure btnYesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmCategories: TfrmCategories;
implementation
uses DataBase;
{$R *.dfm}
procedure TfrmCategories.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataInfo.qListTypes.Close;
DataInfo.qCategories.Close;
end;
110
procedure TfrmCategories.FormShow(Sender: TObject);
begin
DataInfo.qListTypes.Open;
if frmCategories.Tag=1 then
begin
frmCategories.Caption:='Новая категория';
DataInfo.qCategories.Close;
DataInfo.qCategories.Parameters.ParamValues['CategoryId']:=0;
DataInfo.qCategories.Open;
DataInfo.qCategories.Insert;
end
else
begin
frmCategories.Caption:=DataInfo.qListCategories.FieldByName('CategoryName').asString;
DataInfo.qCategories.Close;
DataInfo.qCategories.Parameters.ParamValues['CategoryId']:=DataInfo.qListCategories.FieldByName('Id')
.asInteger;
DataInfo.qCategories.Open;
DataInfo.qCategories.Edit;
end;
end;
procedure TfrmCategories.btnNoClick(Sender: TObject);
begin
DataInfo.qCategories.Cancel;
frmCategories.Close;
end;
procedure TfrmCategories.btnYesClick(Sender: TObject);
begin
if DataInfo.qCategories.FieldByName('TypeId').isNull then
begin
MessageDlg('Выберите тип изделия!',mtError,[mbOk],0);
Exit
end;
if DataInfo.qCategories.FieldByName('CategoryName').isNull then
begin
111
MessageDlg('Укажите название категории!',mtError,[mbOk],0);
Exit
end;
DataInfo.qCategories.Post;
try
Pos:=DataInfo.qListCategories.GetBookmark;
DataInfo.qListCategories.Close;
DataInfo.qListCategories.Open;
DataInfo.qListCategories.GotoBookmark(Pos);
finally
DataInfo.qListCategories.FreeBookmark(Pos);
end;
frmCategories.Close;
end;
end.
unit DataBase;
interface
uses
SysUtils, Classes, DB, ADODB, Dialogs;
type
TDataInfo = class(TDataModule)
ADOConnection: TADOConnection;
qQuery: TADOQuery;
qTypes: TADOQuery;
dsTypes: TDataSource;
qCategories: TADOQuery;
dsCategories: TDataSource;
dsUsers: TDataSource;
qUsers: TADOQuery;
qListTypes: TADOQuery;
dsListTypes: TDataSource;
qListCategories: TADOQuery;
dsListCategories: TDataSource;
qListUsers: TADOQuery;
dsListUsers: TDataSource;
qTypesId: TAutoIncField;
qListTypesId: TAutoIncField;
112
qCategoriesId: TAutoIncField;
qListCategoriesId: TAutoIncField;
qUsersId: TAutoIncField;
qUsersUserName: TStringField;
qListUsersId: TAutoIncField;
qListUsersUserName: TStringField;
qUsersPassword: TStringField;
qListUsersPassword: TStringField;
qListWares: TADOQuery;
dsListWares: TDataSource;
qListChecks: TADOQuery;
dsListChecks: TDataSource;
qCategoriesTypeId: TIntegerField;
qCategoriesCategoryName: TWideStringField;
qListTypesTypeName: TWideStringField;
qListCategoriesTypeId: TIntegerField;
qListCategoriesCategoryName: TWideStringField;
qListCategoriesTypeName: TWideStringField;
qListChecksId: TAutoIncField;
qListChecksWareId: TIntegerField;
qListChecksDateCheck: TDateTimeField;
qListChecksUserId: TIntegerField;
qListChecksMeasureId: TIntegerField;
qListChecksUserName: TWideStringField;
qListChecksMeasureName: TWideStringField;
qListChecksWareName: TWideStringField;
qListWaresId: TAutoIncField;
qListWaresUserId: TIntegerField;
qListWaresCategoryId: TIntegerField;
qListWaresDateInput: TDateTimeField;
qListWaresWareName: TWideStringField;
qListWaresTypeName: TWideStringField;
qListWaresCategoryName: TWideStringField;
qListWaresUserName: TWideStringField;
dsMeasures: TDataSource;
qMeasures: TADOQuery;
AutoIncField1: TAutoIncField;
113
qMeasuresMeasureName: TWideStringField;
qTypesTypeName: TWideStringField;
qListMeasures: TADOQuery;
AutoIncField2: TAutoIncField;
WideStringField1: TWideStringField;
dsListMeasures: TDataSource;
qUsersTypeUser: TWideStringField;
qListUsersTypeUser: TWideStringField;
dsNorms: TDataSource;
qNorms: TADOQuery;
qListNorms: TADOQuery;
dsListNorms: TDataSource;
qNormsId: TAutoIncField;
qNormsCategoryId: TIntegerField;
qNormsNormName: TWideStringField;
qNormsNormValue: TIntegerField;
qListNormsId: TAutoIncField;
qListNormsCategoryId: TIntegerField;
qListNormsNormName: TWideStringField;
qListNormsNormValue: TIntegerField;
qListNormsCategoryName: TWideStringField;
qWareParams: TADOQuery;
dsWareParams: TDataSource;
qWareParamsId: TAutoIncField;
qWareParamsWareId: TIntegerField;
qWareParamsNormId: TIntegerField;
qWareParamsNormName: TWideStringField;
qListChecksResult: TBlobField;
qWares: TADOQuery;
AutoIncField3: TAutoIncField;
IntegerField1: TIntegerField;
IntegerField2: TIntegerField;
DateTimeField1: TDateTimeField;
WideStringField2: TWideStringField;
dsWares: TDataSource;
qChecks: TADOQuery;
dsChecks: TDataSource;
114
qParams: TADOQuery;
AutoIncField5: TAutoIncField;
IntegerField6: TIntegerField;
IntegerField7: TIntegerField;
WideStringField9: TWideStringField;
dsParams: TDataSource;
qChecksId: TAutoIncField;
qChecksWareId: TIntegerField;
qChecksDateCheck: TDateTimeField;
qChecksUserId: TIntegerField;
qChecksMeasureId: TIntegerField;
qResult: TADOQuery;
dsResult: TDataSource;
qParamsParamValue: TIntegerField;
qWareParamsParamValue: TIntegerField;
qResultId: TAutoIncField;
qResultWareId: TIntegerField;
qResultNormId: TIntegerField;
qResultParamValue: TIntegerField;
qResultNormName: TWideStringField;
qResultNormValue: TIntegerField;
qListWaresParamCount: TIntegerField;
qResultCheckLow: TIntegerField;
qListWaresCheckDone: TIntegerField;
qListWaresCheckTrue: TIntegerField;
qChecksResult: TBlobField;
qChecksisCheck: TBooleanField;
qListChecksisCheck: TBooleanField;
SaveDialog: TSaveDialog;
qNormsTolerLow: TIntegerField;
qNormsTolerHigh: TIntegerField;
qResultTolerLow: TIntegerField;
qResultTolerHigh: TIntegerField;
qResultCheckHigh: TIntegerField;
qListNormsTolerLow: TIntegerField;
qListNormsTolerHigh: TIntegerField;
procedure qResultCalcFields(DataSet: TDataSet);
115
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataInfo: TDataInfo;
Pos: TBookmark;
AttemptLogin, c, UserId: Integer;
Cond, UserLevel, UserName, UserPassword: String;
isLogin: Boolean;
implementation
{$R *.dfm}
procedure TDataInfo.qResultCalcFields(DataSet: TDataSet);
begin
if DataSet.FieldByName('NormValue').AsInteger-
DataSet.FieldByName('ParamValue').AsInteger=0 then
begin
DataSet.FieldByName('CheckLow').AsInteger:=0;
DataSet.FieldByName('CheckHigh').AsInteger:=0;
Exit
end;
if DataSet.FieldByName('NormValue').AsInteger-
DataSet.FieldByName('ParamValue').AsInteger>0 then
begin
DataSet.FieldByName('CheckLow').AsInteger:=ABS(DataSet.FieldByName('NormValue').AsInteger-
DataSet.FieldByName('ParamValue').AsInteger)-DataSet.FieldByName('TolerLow').AsInteger;
DataSet.FieldByName('CheckHigh').AsInteger:=0;
end
else
begin
DataSet.FieldByName('CheckLow').AsInteger:=0;
DataSet.FieldByName('CheckHigh').AsInteger:=ABS(DataSet.FieldByName('NormValue').AsInteger-
DataSet.FieldByName('ParamValue').AsInteger)-DataSet.FieldByName('TolerHigh').AsInteger;
end
end;
end.