Дипломная работа: Автоматизация управления сервисного обслуживания клиентов в ООО "Монолит Системз"

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
13. Дэвид Паттерсон, Джон Хеннесси, Архитектура компьютера и
проектирование компьютерных систем, Издательство: Питер, М., 2012 год, 784
стр.,
14. Емельянова Н. З., Партыка Т. Л., И. И. Попов, Проектирование
информационных систем, М, Издательство: Форум, 2012 г., 432 стр.
15. Заботина Н.А, Проектирование информационных систем,
Издательство: Инфра-М, М., 2013 год, 336 стр,
16. Илюшечкин В. М., Основы использования и проектирования баз
данных, М, Издательство Юрайт, 2010 г., 224 стр.
17. Котляров В. П., Т. В. Коликова, Основы тестирования
программного обеспечения, Издательства: Интернет-университет
информационных технологий, Бином. Лаборатория знаний, 2009 г., 288 стр.
18. Крэг Ларман, Применение UML 2.0 и шаблонов проектирования.
Введение в объектно-ориентированный анализ, проектирование и итеративную
разработку, Издательство: Вильямс, М., 2013 год, 736 стр.
19. Кузин А. В., С. В. Левонисова, Базы данных, М, Издательство:
Академия, 2012 г., 320 стр.
20. Кузнецов С. Д., Основы баз данных, М, Издательства: Бином.
Лаборатория знаний, Интернет-университет информационных технологий, 2012
г., 488 стр.
21. Луки В. А., Введение в проектирование баз данных, Издательство:
Вузовская книга, М., 2013 год, 144 стр.
22. Мельников В. А., Клейменов С.П, Петраков А. Н., Информационная
безопасность и защита информации, Издательство: Академия, М., 2012 год, 336
стр;
23. Перерва А.И, Иванова В. Н., Путь аналитика. Практическое
руководство IT-специалиста, Издательство: Питер, Спб, 2013 год, 304 стр.
24. Платонов В. А., Программно-аппаратные средства защиты
информации, Издательство: Академия, М., 2013 год, 336 стр.,
25. Роберт Дж. Мюллер, Проектирование баз данных и UML,
Издательство: Лори, М., 2013 год, 432 стр.
26. Схемы алгоритмов, программ, данных и систем. Условные
обозначения и правила выполнения. ГОСТ 19.701-90 (ИСО 5807-85) /
Государственный комитет СССР по управлению качеством продукции и
стандартам, 01.01.1992.
27. Шаньгин В. А., Защита информации в компьютерных системах и
сетях, Издательство: ДМК Пресс, М., 2013 год, 592 стр.
28. Энди Орам, Грегори Уилсон, Идеальная разработка ПО. Рецепты
лучших программистов, Издательство: Питер, Спб, 2013 год, 592 стр.
29. Эрих Гамма, Ричард Хелм, Ральф Джонсон, Джон Влиссидес,
Приемы объектно-ориентированного проектирования. Паттерны
проектирования, Издательство: Питер, М., 2013 год, 368 стр.
Приложение. Листинг основных программных модулей
unit ufAccessEditor;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, DB;
type
TfAccessEditor = class(TForm)
DBText1: TDBText;
Label1: TLabel;
DBText2: TDBText;
Label2: TLabel;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
Button1: TButton;
Button2: TButton;
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fAccessEditor: TfAccessEditor;
implementation
{$R *.dfm}
uses udmData;
procedure TfAccessEditor.Button1Click(Sender: TObject);
begin
//
if (dmData.cdsAccess.State = dsInsert) or (dmData.cdsAccess.State = dsEdit) then
dmData.cdsAccess.Post;
Close;
end;
procedure TfAccessEditor.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TfAccessEditor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
dmData.cdsAccess.Cancel;
end;
procedure TfAccessEditor.FormKeyPress(Sender: TObject; var Key: Char);
begin
//
if (Key = #27) then Close;
end;
end.
unit ufAnalyserParams;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.DBCtrls;
type
TfAnalyserParams = class(TForm)
bOk: TButton;
bCancel: TButton;
DateTimePicker1: TDateTimePicker;
Label1: TLabel;
DateTimePicker2: TDateTimePicker;
Label2: TLabel;
eDaysCount: TEdit;
lDaysCount: TLabel;
eK: TEdit;
lK: TLabel;
lB: TLabel;
eB: TEdit;
procedure FormCreate(Sender: TObject);
procedure bOkClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
FDate1, FDate2 : TDateTime;
FDish, FDaysCount : Integer;
FK : Double;
FB : Double;
FDefectID : Integer;
public
{ Public declarations }
property Date1 : TDateTime read FDate1;
property Date2 : TDateTime read FDate2;
property DaysCount : Integer read FDaysCount;
property K : Double read FK;
property B : Double read FB;
property DefectID : Integer read FDefectID;
end;
var
fAnalyserParams: TfAnalyserParams;
implementation
{$R *.dfm}
uses udmData;
procedure TfAnalyserParams.bOkClick(Sender: TObject);
begin
//
FDate1 := DateTimePicker1.Date;
FDate2 := DateTimePicker2.Date;
if (FDate1 >= FDate2) then
raise Exception.Create('Дата начала периода должна быть меньше даны
окончания периода');
try
//
FDaysCount := StrToInt (eDaysCount.Text);
if (FDaysCount <= 0) then
raise Exception.Create('Прогнозируемый период должен быть больше нуля');
except
Источник: https://baza.diplomsite.ru/previewfile/2340