119
Список использованной литературы
1. Авдошин А.А., Песоцкая Е.В.: Информатизация бизнеса.
Управление рисками, - М., ДМК-Пресс, 2011 г., 176 с.
2. Аникеев С. П., Маркин Н.В.: Разработка приложений баз данных в
Delphi. Самоучитель, - М.,Диалог-МИФИ, 2013 г., 160 с.
3. Арнольд Виллемер: Программирование на С++, - М., Эксмо, 2013 г.,
528 с.
4. Белл, Киндал, Талманн: Обеспечение высокой доступности систем
на основе MySQL, - М., BHV, 2012 г., 624 с.
5. Васвани В.А.: MySQL: использование и администрирование, СПб,
Питер, 2011 г., 368 с.
6. Васильев А.В: Самоучитель C++ с примерами и задачами, - М.,
Наука и Техника, 2015 г., 480 с.
7. Герберт Шилдт: С++ для начинающих, - М., Эком, 2011 г., 640 с.
8. ГолощаповА. Р.: MicrosoftVisualStudio 2011, - М., BHV, 2011 г., 544
с.
9. Госсе, Келлер, Вудворт: Управление жизненным циклом
приложений с VisualStudio 2011. Профессиональный подход, - М., Эком, 2012 г,
896 с.
10. ГурвицГ.Е.: Microsoft Access 2011. Разработка приложений на
реальном примере, - М., BHV, 2011 г., 424 с.
11. Дейтел, Дейтел: Как программировать на Visual C# 2012. Включая
работу на Windows 7 и Windows 8, - М., Питер, 2014 г., 864 с.
12. Джо Майо: Самоучитель MicrosoftVisualStudio 2011, - М., BHV,
2011 г., 464 с.
13. Исаев Г.А.: Информационные системы в экономике. Учебник, - М.,
Омега-Л, 2013 г., 462 с.
14. Исаев Г.А.: Проектирование информационных систем. Учебное
пособие, - М., Омега-Л, 2015 г., 424 с.
120
15. ИэнГриффитс: Программирование на C# 5.0, - М., Эксмо, 2014 г.,
1135 с.
16. Курлов А.А, Петров Е.А.: Методология информационной
аналитики, - М.,Проспект, 2014 г., 384 с.
17. Мартынов Н.А: Программирование для Windows на С\С++. В 2-х
томах, - М., Бином, 2013 г., 480 с.
18. Ошероув Р.О: Искусство автономного тестирования с примерами на
С#, - М., ДМК-Пресс, 2014 г., 360 с.
19. Паттерсон, Хеннесси: Архитектура компьютера и проектирование
компьютерных систе- М. Классика ComputersScience, Спб Питер, , 2012 г., 784 с.
20. Пирогов В.А.: Информационные системы и базы данных:
организация и проектирование, - М., BHV, 2009 г., 528 с.
21. Полубенцева - М. П.: С/С++ Процедурное программирование, - М.,
BHV, 2014 г., 432 с.
22. Пугачев Е.К., Шериев Ш.К., Кичинский Е.А.: Разработка
приложений для Windows 8 на языке C#, - М., BHV, 2013 г., 416 с.
23. Роберт Дж. Мюллер, Проектирование баз данных и UML, - М.,
Лори, 2013 год, 432 с.
24. Роберт Лафоре: Объектно-ориентированное программирование в
С++, - М., Питер, 2013 г., 928 с.
25. СурядныйА.Е.: Microsoft Access 2011. Лучший самоучитель, - М.,
Астрель, 2012 г., 448 с.
26. Таненбаум А.А, Бос Е.В.: Современные операционные системы,
Спб, Питер, 2015 г., 1120 стр
27. Тахагхогхи, Вильямс: Руководство по MySQL, - М., BHV, 2011 г.,
544 с.
28. Тимофеев В. А: Самоучитель С++ как он есть, - М., Бином, 2009 г.,
336 с.
29. Ховард, Лебланк, Виега: Как написать безопасный код на С++, Java,
Perl, PHP, ASP.NET, - М., ДМК-Пресс, 2014 г., 288 с.
30. Чистов Д.А: Экономическая информатика (для бакалавров).
Учебное пособие, - М., Кнорус, 2014 г., 512 с.
121
31. Энди Орам, Грегори Уилсон, Идеальная разработка ПО. Рецепты
лучших программистов, Спб, Питер, 2013 год, 592 с.
32. Эндрю Стиллмен: Изучаем C#, - М., Питер, 2014 г., 816 с.
33. Энтони Молинаро, SQL. Сборник рецептов, - М., Символ-
Плюс,2011 г., 672 с.
34. Энтони Уильямс: Параллельное программирование на С++ в
действии. Практика разработки многопоточных программ, - М., ДМК-Пресс,
2014 г., 672 с.
35. Эрих Гамма, Ричард Хелм, Ральф Джонсон, Джон Влиссидес,
Приемы объектно-ориентированного проектирования. Паттерны
проектирования, - М., Питер, 2013 год, 368 с.
122
Приложение. Листинг программных модулей
unit ufOrder;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls,
Vcl.ExtCtrls,
Vcl.ComCtrls, Vcl.ActnList, Vcl.DBActns,
Vcl.PlatformDefaultStyleActnCtrls,
Vcl.ActnMan, Vcl.ToolWin, Vcl.ImgList, Vcl.StdActns, Vcl.ExtActns;
type
TfOrder = class(TForm)
Panel1: TPanel;
bOk: TButton;
bCancel: TButton;
bPrint: TButton;
Panel2: TPanel;
Label1: TLabel;
dbreOrder: TDBRichEdit;
Panel3: TPanel;
dblcbOrder: TDBLookupComboBox;
Label2: TLabel;
amOrder: TActionManager;
DataSetPost1: TDataSetPost;
aPrint: TAction;
amRegisterEditor: TActionManager;
123
EditCut1: TEditCut;
EditCopy1: TEditCopy;
EditPaste1: TEditPaste;
EditSelectAll1: TEditSelectAll;
EditUndo1: TEditUndo;
EditDelete1: TEditDelete;
RichEditBold1: TRichEditBold;
RichEditItalic1: TRichEditItalic;
RichEditUnderline1: TRichEditUnderline;
RichEditStrikeOut1: TRichEditStrikeOut;
RichEditBullets1: TRichEditBullets;
RichEditAlignLeft1: TRichEditAlignLeft;
RichEditAlignRight1: TRichEditAlignRight;
RichEditAlignCenter1: TRichEditAlignCenter;
SearchFind1: TSearchFind;
SearchFindNext1: TSearchFindNext;
SearchReplace1: TSearchReplace;
SearchFindFirst1: TSearchFindFirst;
FontEdit1: TFontEdit;
aAddDiseases: TAction;
ilRegisterEditor: TImageList;
ToolBar1: TToolBar;
ToolButton14: TToolButton;
ToolButton19: TToolButton;
ToolButton2: TToolButton;
ToolButton1: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton15: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
124
ToolButton8: TToolButton;
ToolButton17: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton18: TToolButton;
ToolButton10: TToolButton;
procedure aPrintExecute(Sender: TObject);
procedure bCancelClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
procedure FontEdit1BeforeExecute(Sender: TObject);
procedure FontEdit1Accept(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fOrder: TfOrder;
implementation
{$R *.dfm}
uses ufData;
procedure TfOrder.aPrintExecute(Sender: TObject);
begin
//
if (fData.tOrder.RecordCount > 0) then
125
begin
fData.frxReport.LoadFromFile(ExtractFilePath (Application.ExeName) +
'frxOrder.fr3' , true);
fData.frxReport.PrepareReport;
fData.frxReport.ShowPreparedReport;
end;
end;
procedure TfOrder.bCancelClick(Sender: TObject);
begin
//
Close;
end;
procedure TfOrder.FontEdit1Accept(Sender: TObject);
begin
dbreOrder.SelAttributes.Size := FontEdit1.Dialog.Font.Size;
dbreOrder.SelAttributes.Style := FontEdit1.Dialog.Font.Style;
dbreOrder.SelAttributes.Color := FontEdit1.Dialog.Font.Color;
dbreOrder.SelAttributes.Pitch := FontEdit1.Dialog.Font.Pitch;
dbreOrder.SelAttributes.Style := FontEdit1.Dialog.Font.Style;
dbreOrder.SelAttributes.Name := FontEdit1.Dialog.Font.Name;
dbreOrder.SelAttributes.Charset := FontEdit1.Dialog.Font.Charset;
end;
procedure TfOrder.FontEdit1BeforeExecute(Sender: TObject);
begin
FontEdit1.Dialog.Font.Size := dbreOrder.SelAttributes.Size;
FontEdit1.Dialog.Font.Style := dbreOrder.SelAttributes.Style;
FontEdit1.Dialog.Font.Color := dbreOrder.SelAttributes.Color;
FontEdit1.Dialog.Font.Pitch := dbreOrder.SelAttributes.Pitch;
126
FontEdit1.Dialog.Font.Style := dbreOrder.SelAttributes.Style;
FontEdit1.Dialog.Font.Name := dbreOrder.SelAttributes.Name;
FontEdit1.Dialog.Font.Charset := dbreOrder.SelAttributes.Charset;
end;
procedure TfOrder.FormActivate(Sender: TObject);
begin
//
if (fData.tOrder.RecordCount = 0) then
begin
raise Exception.Create ('Необходимо заполнить справочник
договоров');
end;
dblcbOrder.KeyValue := fData.tOrderКод.Value;
end;
procedure TfOrder.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
fData.tOrder.Cancel;
end;
end.
unit ufProduct;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids,
Vcl.StdCtrls, Vcl.DBCtrls;
127
type
TfProduct = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
bShowfProductType: TButton;
bShowfPackType: TButton;
GroupBox1: TGroupBox;
dblcbProductType: TDBLookupComboBox;
bClearProductType: TButton;
procedure bShowfProductTypeClick(Sender: TObject);
procedure bShowfPackTypeClick(Sender: TObject);
procedure dblcbProductTypeClick(Sender: TObject);
procedure bClearProductTypeClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fProduct: TfProduct;
implementation
{$R *.dfm}
uses ufData, ufRefBooks;
procedure TfProduct.bClearProductTypeClick(Sender: TObject);
128
begin
fData.tProduct.Filtered := false;
end;
procedure TfProduct.bShowfPackTypeClick(Sender: TObject);
begin
//
fRefBooks.TabIndex := 1;
fRefBooks.ShowModal;
end;
procedure TfProduct.bShowfProductTypeClick(Sender: TObject);
begin
fRefBooks.TabIndex := 0;
fRefBooks.ShowModal;
end;
procedure TfProduct.dblcbProductTypeClick(Sender: TObject);
begin
//
if (VarIsNull(dblcbProductType.KeyValue) = false) then
begin
//
fData.tProduct.Filtered := false;
fData.tProduct.Filter := '(Код_Тип_товара = ' +
VarToStr(dblcbProductType.KeyValue) + ')';
fData.tProduct.Filtered := true;
end;
end;
procedure TfProduct.FormClose(Sender: TObject; var Action: TCloseAction);