87
В настоящее время разработанная в ходе дипломного проектирования си-
стема автоматизации прошла пробное тестирование первой версии программной
реализации в автосалоне «АлексАвто» – созданный вариант программной реали-
зации проекта был успешно протестирован менеджерами по продажам. Предло-
женная реализация решения комплекса задач отвечает всем поставленным тре-
бованиям предприятия, что в дальнейшем приведет к более детальному процессу
реализации проектного решения.
Вышесказанное свидетельствует о том, что все задачи дипломного проек-
тирования решены и его цель достигнута.
88
Список литературы
1. Автоматизация проектирования вычислительных систем. Языки, мо-
делирование и базы данных / ред. М. Брейер. – М.: Мир, 2014. – 463 c.
2. Архангельский А.Я. Программирование в Delphi: Учебник по класси-
ческим версиям Delphi. – М.: Бином-Пресс, 2013. – 816 c.
3. Белов В.В., Чистякова В.И. Программирование в Delphi: процедурное,
объектно-ориентированное, визуальное: Учебное пособие для вузов. – М.: РиС,
2014. – 240 c.
4. Выбор и обоснование стратегии автоматизации задачи [Электронный
ресурс] // URL: http://studopedia.info/5-66311.html (дата обращения: 21.09.2019).
5. Гвоздева В.А., Лаврентьева И.Ю. Основы построения автоматизиро-
ванных информационных систем. – М.: Форум, Инфра-М, 2016. – 320 c.
6. Зегжда Д.П. Ивашко А.М. Основы безопасности информационных си-
стем. – М.: Горячая линия-Телеком, 2013. – 452 c.
7. Карпова И.П. Базы данных: Учебное пособие. – СПб.: Питер, 2013. –
240 c.
8. Маккарти Джим, Маккарти Мишель. Правила разработки программ-
ного обеспечения. – М.: Русская Редакция, Питер, 2013. – 240 c.
9. Мартин Дж. Вычислительные сети и распределенная обработка дан-
ных: программное обеспечение, методы и архитектура. – М.: Финансы и стати-
стика, 2015. – 525 c.
10. Модели жизненного цикла ИС [Электронный ресурс] // URL:
http://iadshpory.narod.ru/shp/razd2/1.html (дата обращения: 12.10.2019).
11. Осипов Д. Delphi. Профессиональное программирование. – СПб.:
Символ-плюс, 2015. – 1056 c.
12. Пшенко А.В. Делопроизводство. Документальное обеспечение работы
офиса. – М.: Академия, 2016. – 176 c.
13. Санников Е. Курс практического программирования в Delphi. Объект-
но-ориентированное программирование. – М.: Солон-пресс, 2013. – 188 c.
14. Сидоров В.Д., Струмпэ Н.В. Аппаратное обеспечение ЭВМ. Учебник.
– М.: Академия, 2014. – 336 c.
89
15. Советов Б.Я. Цехановский В.В., Чертовской В.Д. Базы данных: теория
и практика: Учебник для бакалавров. – М.: Юрайт, 2013. – 463 c.
16. Ярочкин В. Безопасность информационных систем: моногр. – М.: Ось-
89, 2015. – 320 c.
17. Database в Delphi [Электронный ресурс] // URL: http://delphi-
box.ru/database-%D0%B2-delphi.html (дата обращения: 04.11.2019).
18. ГОСТ 34.601-90 Информационная технология. Комплекс стандартов
на автоматизированные системы. Автоматизированные системы. Стадии
создания.
19. ISO/IEC 12207:1995 Information Technology – Software Life Cycle Pro-
cess.
20. ГОСТ Р ИСО/МЭК 12207-99 – Информационные технологии. Процес-
сы жизненного цикла программных средств.
21. ISO/IEC 15288 Systems engineering. System life cycle processes.
22. ГОСТ Р ИСО/МЭК 15288-2005Ж – Информационная технология. Си-
стемная инженерия. Процессы жизненного цикла систем.
90
23.
Приложение 1
Общий вид справки-счета
Распечатывается на бланках установленного образца.
91
Приложение 2
Формы журналов поступлений и продаж автомобилей, используемых в автосалоне «Алекс»
Журнал поступлений автомобилей в автосалон «Алекс»
№
п/п
Номер кузова
Поставщик
Марка
Год вы-
пуска
Цвет
Масса,
кг
Объем
двигателя,
л
Мощность,
л.с.
Цена по-
купки,
тыс. руб.
Цена
продажи,
тыс. руб.
1
2
...
Журнал продаж автомобилей в автосалоне «Алекс»
№
п/п
Данные о покупателе
Данные об автомобиле
Цена
продажи,
тыс. руб.
Дата
продажи
ФИО покупа-
теля
Паспортные
данные
Год рожде-
ния
Адрес
ИНН
Номер
кузова
Поставщик
1
...
92
Приложение 3
Листинг программы
main.pas
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, Menus;
type
Tmainform = class(TForm)
MainMenu1: TMainMenu;
N8: TMenuItem;
N11: TMenuItem;
StatusBar1: TStatusBar;
Panel1: TPanel;
N12: TMenuItem;
N13: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N9: TMenuItem;
procedure N7Click(Sender: TObject);
procedure N11Click(Sender: TObject);
93
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
mainform: Tmainform;
implementation
uses mabout, mbuyer, msupplier, mcar, mbuying, mhelp;
{$R *.DFM}
procedure Tmainform.N7Click(Sender: TObject);
begin
Close;
end;
procedure Tmainform.N11Click(Sender: TObject);
begin
About.ShowModal;
end;
procedure Tmainform.N2Click(Sender: TObject);
begin
buyer.showmodal;
end;
94
procedure Tmainform.N3Click(Sender: TObject);
begin
supplier.showmodal;
end;
procedure Tmainform.N4Click(Sender: TObject);
begin
car.showmodal;
end;
procedure Tmainform.N5Click(Sender: TObject);
begin
buying.showmodal;
end;
procedure Tmainform.N9Click(Sender: TObject);
begin
help.showmodal;
end;
end.
buyer.pas
unit mbuyer;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBTables, StdCtrls;
95
type
Tbuyer = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Button5: TButton;
Label1: TLabel;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
buyer: Tbuyer;
implementation
uses medit_br, dmodule1;
{$R *.DFM}
procedure Tbuyer.Button4Click(Sender: TObject);
begin
96
close;
end;
procedure Tbuyer.Button1Click(Sender: TObject);
begin
DataModule1.Table1.Edit;
edit_br.Caption:='Изменить';
edit_br.showmodal;
end;
procedure Tbuyer.Button2Click(Sender: TObject);
begin
DataModule1.Table1.Append;
edit_br.Caption:='Добавить';
edit_br.showmodal;
end;
procedure Tbuyer.Button3Click(Sender: TObject);
begin
if DataModule1.Table1.RecordCount=0 then exit;
if MessageDlg('Удалить запись?',mtConfirmation,[mbOk,mbNo],0)=mrOk
then begin
DataModule1.Table1.Delete;
end;
end;
procedure Tbuyer.Button5Click(Sender: TObject);
var
KeyFields : string;
KeyValues : Variant;
Options : TLocateOptions;
begin