100
выразить как в общественной, так и в производственной пользе при
использовании подобных разработок.
В итоге, главные задачи выпускной квалификационной работы – анализ
деятельности спортивного клуба по взаимодействию с клиентами, выявление в
ней значимых недостатков и ошибок управления, а также разработка
автоматизированной системы, выполнены.
Все цели проекта достигнуты.
.
101
Список использованной литературы
37. Авдошин А.А., Песоцкая Е.В.: Информатизация бизнеса.
Управление рисками, - М., ДМК-Пресс, 2011 г., 176 с.
38. Алекс Эллайн: C++. От ламера до программера (включая C++11), -
М., Издательство: Питер, 2015 г., 480 стр.
39. Аникеев С. П., Маркин Н.В.: Разработка приложений баз данных в
Delphi. Самоучитель, - М.,Диалог-МИФИ, 2013 г., 160 с.
40. Арнольд Виллемер: Программирование на С++, - М., Эксмо, 2013 г.,
528 с.
41. Брюс Тейт: Семь языков за семь недель. Практическое руководство
по изучению языков программирования, - М., Издательство: ДМК-Пресс, 2014 г.,
384 стр.
42. Васвани В.А.: MySQL: использование и администрирование, СПб,
Питер, 2011 г., 368 с.
43. Васильев А.В: Самоучитель C++ с примерами и задачами, - М., Наука
и Техника, 2015 г., 480 с.
44. Вигерс, Битти: Разработка требований к программному
обеспечению, - М., Издательство: BHV, 2014 г., 736 стр.
45. Герберт Шилдт: С++ для начинающих, - М., Эком, 2011 г., 640 с.
46. ГолощаповА. Р.: MicrosoftVisualStudio 2011, - М., BHV, 2011 г., 544
с.
47. ГурвицГ.Е.: Microsoft Access 2011. Разработка приложений на
реальном примере, - М., BHV, 2011 г., 424 с.
48. Дейтел, Дейтел: Как программировать на Visual C# 2012. Включая
работу на Windows 7 и Windows 8, - М., Питер, 2014 г., 864 с.
49. Джо Майо: Самоучитель MicrosoftVisualStudio 2011, - М., BHV, 2011
г., 464 с.
50. Исаев Г.А.: Информационные системы в экономике. Учебник, - М.,
Омега-Л, 2013 г., 462 с.
51. Исаев Г.А.: Проектирование информационных систем. Учебное
пособие, - М., Омега-Л, 2015 г., 424 с.
102
52. ИэнГриффитс: Программирование на C# 5.0, - М., Эксмо, 2014 г.,
1135 с.
53. Курлов А.А, Петров Е.А.: Методология информационной аналитики,
- М.,Проспект, 2014 г., 384 с.
54. Мартынов Н.А: Программирование для Windows на С\С++. В 2-х
томах, - М., Бином, 2013 г., 480 с.
55. Ошероув Р.О: Искусство автономного тестирования с примерами на
С#, - М., ДМК-Пресс, 2014 г., 360 с.
56. Паттерсон, Хеннесси: Архитектура компьютера и проектирование
компьютерных систе- М. Классика ComputersScience, Спб Питер, , 2012 г., 784 с.
57. Пирогов В.А.: Информационные системы и базы данных:
организация и проектирование, - М., BHV, 2009 г., 528 с.
58. Полубенцева - М. П.: С/С++ Процедурное программирование, - М.,
BHV, 2014 г., 432 с.
59. Потопахин В.С.: Искусство алгоритмизации, - М., Издательство:
ДМК-Пресс, 2014 г., 320 стр.
60. Пугачев Е.К., Шериев Ш.К., Кичинский Е.А.: Разработка
приложений для Windows 8 на языке C#, - М., BHV, 2013 г., 416 с.
61. Роберт Дж. Мюллер, Проектирование баз данных и UML, - М., Лори,
2013 год, 432 с.
62. Роберт Лафоре: Объектно-ориентированное программирование в
С++, - М., Питер, 2013 г., 928 с.
63. СурядныйА.Е.: Microsoft Access 2011. Лучший самоучитель, - М.,
Астрель, 2012 г., 448 с.
64. Таненбаум А.А, Бос Е.В.: Современные операционные системы, Спб,
Питер, 2015 г., 1120 стр
65. Тахагхогхи, Вильямс: Руководство по MySQL, - М., BHV, 2011 г., 544
с.
66. Тимофеев В. А: Самоучитель С++ как он есть, - М., Бином, 2009 г.,
336 с.
67. Тюгашев А. Е.: Языки программирования. Учебное пособие.
Стандарт третьего поколения, - М., Издательство: Питер, 2014 г. 336 стр.
103
68. Ховард, Лебланк, Виега: Как написать безопасный код на С++, Java,
Perl, PHP, ASP.NET, - М., ДМК-Пресс, 2014 г., 288 с.
69. Чистов Д.А: Экономическая информатика (для бакалавров). Учебное
пособие, - М., Кнорус, 2014 г., 512 с.
70. Эндрю Стиллмен: Изучаем C#, - М., Питер, 2014 г., 816 с.
71. Энтони Молинаро, SQL. Сборник рецептов, - М., Символ-Плюс,2011
г., 672 с.
72. Энтони Уильямс: Параллельное программирование на С++ в
действии. Практика разработки многопоточных программ, - М., ДМК-Пресс, 2014
г., 672 с.
104
Приложение. Листинги основных программных модулей
unit udmReport;
interface
uses
System.SysUtils, System.Classes, frxClass, frxDBSet, Vcl.ActnList,
Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnMan, Forms, frxDesgn, Vcl.Controls,
frxExportRTF, frxExportPDF, frxChBox, frxExportBIFF, frxExportXML,
frxExportXLS, frxChart, frxExportHTML, frxExportText, frxExportMail,
frxExportODF;
const
c_report_directory = 'Report\';
type
TdmReport = class(TDataModule)
frxReport: TfrxReport;
amReport: TActionManager;
frxSettings: TfrxDBDataset;
frxPDFExport1: TfrxPDFExport;
frxRTFExport1: TfrxRTFExport;
frxUserInfo: TfrxDBDataset;
frxCheckBoxObject1: TfrxCheckBoxObject;
frxChartObject1: TfrxChartObject;
frxXLSExport1: TfrxXLSExport;
frxXMLExport1: TfrxXMLExport;
frxBIFFExport1: TfrxBIFFExport;
frxRequest: TfrxDBDataset;
frxRequestDocument: TfrxDBDataset;
frxRequestService: TfrxDBDataset;
aRequest: TAction;
aOrder: TAction;
aPriceList: TAction;
aLournal: TAction;
aUserWork: TAction;
aEdit: TAction;
frxService: TfrxDBDataset;
frxRequestList: TfrxDBDataset;
frxUserList: TfrxDBDataset;
frxODSExport1: TfrxODSExport;
frxODTExport1: TfrxODTExport;
frxMailExport1: TfrxMailExport;
frxSimpleTextExport1: TfrxSimpleTextExport;
frxHTMLExport1: TfrxHTMLExport;
frxClient: TfrxDBDataset;
procedure aEditExecute(Sender: TObject);
105
procedure aRequestExecute(Sender: TObject);
procedure aOrderExecute(Sender: TObject);
procedure aPriceListExecute(Sender: TObject);
procedure aLournalExecute(Sender: TObject);
procedure aUserWorkExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure ExecuteReport(FileName: string; EditMode: Boolean);
end;
var
dmReport: TdmReport;
implementation
{$R *.dfm}
uses udmData;
procedure TdmReport.aEditExecute(Sender: TObject);
begin
//
end;
procedure TdmReport.aLournalExecute(Sender: TObject);
begin
dmData.TestActiveConnection;
ExecuteReport('Journal.fr3', aEdit.Checked);
end;
procedure TdmReport.aOrderExecute(Sender: TObject);
var
S : string;
Filtered : Boolean;
begin
dmData.TestActiveConnection;
S := dmData.cdsClient.Filter;
Filtered := dmData.cdsClient.Filtered;
dmData.cdsClient.Filtered := False ;
try
dmData.cdsClient.Filter := 'Код = ' + dmData.cdsRequestКод.AsString;
dmData.cdsClient.Filtered := True;
ExecuteReport('Order.fr3', aEdit.Checked);
finally
dmData.cdsClient.Filter := S;
dmData.cdsClient.Filtered := Filtered;
106
end;
end;
procedure TdmReport.aPriceListExecute(Sender: TObject);
begin
dmData.TestActiveConnection;
ExecuteReport('PriceList.fr3', aEdit.Checked);
end;
procedure TdmReport.aRequestExecute(Sender: TObject);
begin
dmData.TestActiveConnection;
ExecuteReport('Request.fr3', aEdit.Checked);
end;
procedure TdmReport.aUserWorkExecute(Sender: TObject);
begin
dmData.TestActiveConnection;
dmData.cdsUserList.Refresh;
ExecuteReport('UserWork.fr3', aEdit.Checked);
end;
procedure TdmReport.ExecuteReport(FileName: string; EditMode: Boolean);
begin
frxReport.LoadFromFile(ExtractFilePath(Application.ExeName) +
c_report_directory + FileName, True);
if EditMode then
begin
frxReport.DesignReport;
end
else
begin
frxReport.PrepareReport;
frxReport.ShowPreparedReport;
end;
end;
end.
unit ufClientEditor;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.DBCtrls,
107
Vcl.Mask, DB, Vcl.ComCtrls, EhLibVCL, GridsEh, DBAxisGridsEh,
DBVertGridsEh;
type
TfClientEditor = class(TForm)
DBVertGridEh1: TDBVertGridEh;
Panel2: TPanel;
bOk: TButton;
bCancel: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bOkClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fClientEditor: TfClientEditor;
implementation
{$R *.dfm}
uses udmData;
procedure TfClientEditor.bOkClick(Sender: TObject);
begin
//
if (dmData.cdsClient.State = dsEdit) or (dmData.cdsClient.State = dsInsert) then
dmData.cdsClient.Post;
Close;
end;
procedure TfClientEditor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
dmData.cdsClient.Cancel;
end;
procedure TfClientEditor.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;
end.