76
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1.
ГОСТ Р ИСО/МЭК 12207-2010 Информационная технология. Системная
и программная инженерия. Процессы жизненного цикла программных средств.
2.
Аппаратное обеспечение вычислительных систем / Д.В. Денисов, В.А.
Артюхин, М.Ф. Седненков; под ред. Д.В. Денисова. – М.: Маркет ДС, 2010. – 194 с.
(Университетская серия.)
3.
Беленькая , М.Н., Малиновский , С.Т., Яковенко , Н.В.
Администрирование в информационных системах. Научно-популярное издание. – М.:
Горячая линия - Телеком, 2011. – 300 с.
4.
Бодров , О.А. Предметно -ориентированные экономические
информационные системы: Учебник для вузов / О. А . Бодров. - М.: Гор . линия-
Телеком, 2013. – 244 c.
5.
Бородакий Ю. В ., Лободинский Ю. Г . Информационные технологии:
Методы, процессы, системы / Ю.В. Борода¬кий, Ю.Г. Лободинский. – М.: Радио и
связь, 2014. – 371 с.
6.
Варфоломеева , А.О. Информационные системы предприятия: Учебное
пособие / А.О. Варфоломеева, А.В. Коряковский, В.П. Романов. - М.: НИЦ ИНФРА- М,
2013. – 283 c.
7.
Грекул, В. И ., Денищенко, Г. Н ., Коровкина, Н. Л . Проектирование
информационных систем – М.: ИУИТ, 2012. – 300 с.
8.
Голицына, О.Л., Попов, И.И., Максимов, Н.В. Базы данных. Учебное
пособие. – 3-е изд., перераб. и доп. – М.: ФОРУМ, 2012. – 400 с.
9.
Гришин, А. В . Промышленные информационные системы и сети:
практическое руководство / А.В. Гришин. - М.: Радио и связь, 2010. – 176 c.
10.
Информационная безопасность и защита информации / В.П. Мельников.
– М.: Академия, 2012. – 336 с.
11.
Кузнецов, С.Д. Базы данных. Модели и языки. – М.: Бином-Пресс, 2013.
– 720 с.
12.
Култыгин, О.П. Администрирование баз данных. СУБД MS SQL Server.
– М: Московская финансово -промышленная академия, 2012. – 232 с .
(Университетская серия).
77
13.
Мезенцев, К.Н. Автоматизированные информационные системы:
Учебник для студентов учреждений среднего профессионального образования / К.Н.
Мезенцев. - М.: ИЦ Академия, 2013. – 176 c.
14.
Норенков, И .П. Автоматизированные информационные системы:
Учебное пособие / И.П. Норенков. - М.: МГТУ им. Баумана, 2011. – 342 c.
15.
Пирогов, В.Ю. Информационные системы и базы данных: организация и
проектирование: Учебное пособие / В.Ю. Пирогов. - СПб.: БХВ-Петербург, 2011. – 528
c.
16.
Устройство и функционирование информационных систем / Н.З.
Емельянова , Т.Л. Партыка , И.И. Попов . Учебное пособие. – М .: ФОРУМ, НИЦ,
ИНФРА-М. – 2012. – 448 с.
17.
Федорова, Г.Н. Информационные системы: Учебник для студ.
учреждений сред. проф. образования / Г.Н. Федорова. - М.: ИЦ Академия, 2013. – 208
c.
18.
Международные стандарты и жизненные циклы программного
обеспечения. [Электронный ресурс]. - URL:
<http://www.immsp.kiev.ua/publications/articles/2009/2009_3/Chumakova_03_2009
.pdf>
19.
Международный стандарт ICO/IEC 12207. [Электронный ресурс]. -
URL: http://do.gendocs.ru/docs/index-161242.html
20.
Вильданов, А. Н. Разработка приложений в DELPHI [Электронный
ресурс]: учеб. пособие / А. Н. Вильданов; БашГУ. — Уфа: РИЦ БашГУ, 2012 — 95 с.
— Электронная версия печатной публикации. —
<URL:https://elib.bashedu.ru/dl/read/VildanovRazrabPrilDelphi.pdf>
78
ПРИЛОЖЕНИЕ 1
Фрагменты кода программы
unit Unit16;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm16 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
DateTimePicker1: TDateTimePicker;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form16: TForm16;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm16.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm16.Button2Click(Sender: TObject);
begin
Form1.AdoTable5.Insert;
79
Form1.AdoTable5.FieldByName('Код_товара').Text:=Edit1.Text;
Form1.AdoTable5.FieldByName('Код_продавца').Text:=Edit2.Text;
Form1.AdoTable5.FieldByName('Количество').Text:=Edit3.Text;
Form1.AdoTable5.FieldByName('Дата_продажи').AsDateTime:=DateTimePicker1.Date;
if Form1.AdoTable5.Modified
then Form1.AdoTable5.Post;
close;
end;
end.
unit Unit17;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Unit1, StdCtrls, Mask, DBCtrls;
type
TForm17 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form17: TForm17;
implementation
{$R *.dfm}
80
procedure TForm17.Button1Click(Sender: TObject);
begin
if form1.ADOTable5.Modified
then form1.ADOTable5.Post;
end;
procedure TForm17.Button2Click(Sender: TObject);
begin
Close;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Menus, DB, ADODB;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
81
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
DataSource2: TDataSource;
ADOTable3: TADOTable;
DataSource3: TDataSource;
ADOTable4: TADOTable;
DataSource4: TDataSource;
ADOTable5: TADOTable;
DataSource5: TDataSource;
DataSource6: TDataSource;
ADOTable6: TADOTable;
ADOTable7: TADOTable;
DataSource7: TDataSource;
ADOTable8: TADOTable;
DataSource8: TDataSource;
ADOTable9: TADOTable;
DataSource9: TDataSource;
ADOTable10: TADOTable;
ADOTable11: TADOTable;
DataSource10: TDataSource;
DataSource11: TDataSource;
procedure N10Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
82
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
Unit11, Unit12;
{$R *.dfm}
procedure TForm1.N10Click(Sender: TObject);
begin
Form2.Showmodal;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Form2.Showmodal;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Form5.ShowModal;
end;
83
procedure TForm1.N7Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Form7.Showmodal;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Form7.Showmodal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form8.ShowModal;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form8.ShowModal;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Form9.ShowModal;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
Form10.ShowModal;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
84
Form11.Showmodal;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
Form12.ShowModal;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form1.Close;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
85
procedure TForm1.Button2Click(Sender: TObject);
var a,s:string;
begin
a:=Edit2.Text;
s:=Edit1.Text;
if ((s='Admin') and (a='123')) then
Form2.ShowModal
else
begin
ShowMessage('Неправильный логин или пароль');
Edit1.Clear;
Edit2.Clear;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close();
end;
end.