98
Список использованной литературы
1. Березин С.А., Березин Б.А., Начальный курс С и С++, М., Диалог-
МИФИ, 2017 г., 288 с.
2. Брайан У. Керниган, Деннис М. Ритчи, Язык программирования C,
М., Вильямс, 2017 г, 288 с.
3. Брайан У. Керниган, Роб Пайк, Практика программирования, М.,
Вильямс, 2017 г., 288 с.
4. Бунаков П.А., Лопатин А. В, Практикум по решению задач на ЭВМ
в среде Delphi. Учебное пособие, М., Инфра-М, 2018 г, 304 с.
5. Бэнкс, Порселло: React и Redux. Функциональная веб-разработка, М.
Питер, 2018 г., 336 с.
6. Васильев Р.А, Калянов Г.А., Левочкина Г.А., Стратегическое
управление информационными системами, М, Интернет-университет
информационных технологий, Бином. Лаборатория знаний, 2017 г, 512 с.
7. Вон Вернон, Реализация методов предметно-ориентированного
проектирования, М, Вильямс, 2017 г, 688 с.
8. Габасов Р.А., Кириллова Ф.А., Методы линейного
программирования. Часть 1. Общие задачи, М., Либроком, 2018 г, 176 с.
9. Габасов Р.А., Кириллова Ф.А., Методы линейного
программирования. Часть 3. Специальные задачи, М., Либроком, 2018 г, 368 с.
10. Гольштейн Е.А., Юдин Д.А., Специальные направления в линейном
программировании, М, Красанд, Editorial URSS, 2018 г, 526 с.
11. Грацианова Т.А., Программирование в примерах и задачах, М.,
Лаборатория знаний, 2018 г, 368 с.
12. Данилин А.А., Слюсаренко А. В., Архитектура и стратегия. "Инь" и
"янь" информационных технологий, М, Интернет-университет информационных
технологий, 2017 г, 506 с.
13. Джеффри Рихтер, CLR via C#. Программирование на платформе
Microsoft.NET Framework 4.5 на языке C#, М., Питер, 2017 г, 896 с.
14. Джон Дакетт: Javascript и jQuery. Интерактивная веб-разработка, М.
Эксмо, 2017 г., 640 с.
99
15. Джон Скит, C# для профессионалов. Тонкости программирования,
М., Вильямс, 2017 г, 608 с.
16. Джоэл Грас, Data Science. Наука о данных с нуля, М, БХВ-Петербург,
2018, 336 с.
17. Иванова Г.А., Технология программирования, М, КноРус, 2018 г, 336
с.
18. Исаев Г.А, Теоретико-методологические основы качества
информационных систем, М. Инфра-М, 2018 г. 258 с.
19. Ли Атчисон, Масштабирование приложений. Выращивание сложных
систем, М, Питер, 2018 г, 256 с.
20. Мартин Фаулер, Предметно-ориентированные языки
программирования, М., Вильямс, 2017 г, 576 с.
21. Окулов С.А., Пестов О.Г, Динамическое программирование, М.,
Бином. Лаборатория знаний, 2017 г, 296 с.
22. Панюкова Т.А. Панюков А.С., Языки и методы программирования.
Путеводитель по языку С++, М., Ленанд, 2018 г, 216 с.
23. Подбельский В.А, Курс программирования на языке Си, М.,
ДМК Пресс, 2018 г, 384 с.
24. Поль М. Дюваль, Стивен Матиас, Эндрю Гловер, Непрерывная
интеграция. Улучшение качества программного обеспечения и снижение риска,
М., Вильямс, 2017 г, 240 с.
25. Стенли Б. Липпман, Жози Лажойе, Заря Э. Му, Язык
программирования C++. Базовый курс, М, Вильямс, 2017 г, 1120 с.
26. Фредерик Брукс, Проектирование процесса проектирования. Записки
компьютерного эксперта, М., Вильямс, 2017 г, 464 с.
100
Приложение. Листинг программного модуля
unit uCommon;
interface
uses DB, ADODB, DBGrids, Windows, SysUtils, ShellAPI, Forms, Variants, Dialogs,
DBClient;
procedure ClearMemory (Obj : TObject);
procedure DataSetLocateKey (DS : TDataSet; KeyName : Variant; KeyValue :
Variant);
procedure DataSetReload (DS : TDataSet);
procedure dbgTitleClick (Column: TColumn);
function GetTempDir : WideString; stdcall;
function ExecuteFile(const FileName, Params, DefaultDir: string; ShowCmd: Integer):
THandle;
implementation
procedure ClearMemory (Obj : TObject);
begin
//
if (Obj <> nil) then Obj.Free;
end;
procedure DataSetLocateKey (DS : TDataSet; KeyName : Variant; KeyValue :
Variant);
begin
//
if (DS.Locate(KeyName, KeyValue, []) = false) then
raise Exception.Create('Не удалось найти строку с сохраненным значением
ключа');
end;
procedure DataSetReload (DS : TDataSet);
var
//
KeyName, KeyValue : Variant;
I : Integer;
F : TField;
begin
//
KeyName := '';
101
KeyValue := NULL;
for I := 0 to DS.FieldCount - 1 do
begin
//
F := DS.Fields.FieldByNumber (I);
if (F is TAutoIncField) then
begin
//
KeyName := F.FieldName;
KeyValue := F.Value;
end;
end;
DS.Close;
DS.Open;
if (KeyName <> '') then
begin
if (DS.Locate(KeyName, KeyValue, []) = false) then
raise Exception.Create('Не удалось найти строку с сохраненным значением
ключа');
end;
end;
procedure dbgTitleClick (Column: TColumn);
var
//
T : TClientDataSet;
SortType : TIndexOptions;
procedure ClearAllTags ();
var
I : Integer;
C : TDBGridColumns;
begin
//
C := (Column.Grid as TDBGrid).Columns;
for I := 0 to C.Count - 1 do
begin
//
if (C[I].Field.FieldName <> Column.Field.FieldName) then
begin
//
C[I].Field.Tag := 0;
C[I].Title.Caption := C[I].Field.DisplayName;
end
else
begin
//
102
end;
end;
end;
begin
//
T := Column.Field.DataSet as TClientDataSet;
Column.Field.Tag := Column.Field.Tag + 1;
ClearAllTags ();
if (Column.Field.Tag = 1) then
begin
SortType := [];
Column.Title.Caption := Column.Field.DisplayName + ' (по возр.)';
end;
if (Column.Field.Tag = 2) then
begin
SortType := [ixDescending];
Column.Title.Caption := Column.Field.DisplayName + ' (по убыв.)';
end;
if (Column.Field.FieldKind = fkData) then
begin
//
T.IndexDefs.Clear;
try
T.DeleteIndex('IX');
except
end;
T.AddIndex ('IX', Column.Field.FieldName, SortType + [ixCaseInsensitive]);
T.IndexName := 'IX';
end;
if (Column.Field.FieldKind = fkLookup) then
begin
//
T.IndexDefs.Clear;
try
T.DeleteIndex('IX');
except
end;
T.AddIndex ('IX', Column.Field.KeyFields, SortType + [ixCaseInsensitive]);
103
T.IndexName := 'IX';
end;
if (Column.Field.Tag >= 2) then Column.Field.Tag := 0;
end;
function GetTempDir : WideString; stdcall;
var
Buffer : array[0..1023] of Char;
begin
//
GetTempPath (1024 - 1, &Buffer);
SetString(Result, Buffer, Length(Buffer));
Result := Trim (Result);
end;
function ExecuteFile(const FileName, Params, DefaultDir: string; ShowCmd: Integer):
THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;
end.
unit ufRefBooks;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Vcl.ComCtrls,
Vcl.DBClientActns, Vcl.DBActns, Vcl.ActnList,
Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnMan, Vcl.ImgList, Vcl.ToolWin,
Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.ExtDlgs,
DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh, EhLibVCL,
GridsEh, DBAxisGridsEh,
DBGridEh;
104
type
TfRefBooks = class(TForm)
PageControl2: TPageControl;
TabSheet7: TTabSheet;
TabSheet10: TTabSheet;
TabSheet2: TTabSheet;
TabSheet4: TTabSheet;
TabSheet1: TTabSheet;
DBGridEh1: TDBGridEh;
DBGridEh3: TDBGridEh;
DBGridEh4: TDBGridEh;
DBGridEh5: TDBGridEh;
TabSheet3: TTabSheet;
DBGridEh6: TDBGridEh;
TabSheet5: TTabSheet;
DBGridEh7: TDBGridEh;
TabSheet8: TTabSheet;
DBGridEh9: TDBGridEh;
DBGridEh2: TDBGridEh;
TabSheet6: TTabSheet;
DBGridEh8: TDBGridEh;
private
{ Private declarations }
public
{ Public declarations }
end;
var
fRefBooks: TfRefBooks;
implementation
{$R *.dfm}
uses udmData, uCommon;
end.
105