106
В результате расчетов экономической эффективности было
определено, что разработка и внедрение ИС регистрации и обработки заявок
на комплектующие для ПК в ООО «Tatincom Computers» сокращает расходы
минимум в 12,5 раз, а именно на 327383 рублей в год. Срок окупаемости
составляет 6 месяцев.
107
Список использованной литературы
1. Абдукаримов И.Т. Финансово-экономический анализ
хозяйственной деятельности коммерческих организаций (анализ деловой
активности): Учебное пособие / И.Т. Абдукаримов. - М.: НИЦ ИНФРА-М,
2015. - 320 c.
2. Колдаев В.Д. Архитектура ЭВМ: Учебное пособие / В.Д. Колдаев,
С.А. Лупин. - М.: Форум, 2017. - 159 c.
3. Сенкевич А.В. Архитектура ЭВМ и вычислительные системы:
Учебник / А.В. Сенкевич. - М.: Academia, 2017. - 896 c.
4. Перлова О.Н. Проектирование и разработка информационных
систем: Учебник / О.Н. Перлова. - М.: Академия, 2018. - 272 c.
5. Хетагуров Я.А. Проектирование автоматизированных систем
обработки информации и управления (АСОИУ) / Я.А. Хетагуров. - М.:
БИНОМ. Лаборатория знаний, 2015. - 240 c.
6. Конюх В.Л. Проектирование автоматизированных систем:
Учебное пособие / В.Л. Конюх. - М.: Курс, 2018. - 64 c.
7. Бройдо В.Л. Вычислительные системы, сети и телекоммуникации:
Учебник для вузов / В.Л. Бройдо, О.П. Ильина. - СПб.: Питер, 2017. - 560 c.
8. Программа Бухсофт: Предприятие [Электронный ресурс]. URL:
https://www.buhsoft.ru/uchet-zakazov-i-zayavok (дата обращения: 07.10.2019).
9. Программа "Заказы и заявки" [Электронный ресурс]. URL:
http://softstudio.ru/programs/zakazy-i-zayavki# (дата обращения: 07.10.2019).
10. Программа 1C: Предприятие [Электронный ресурс]. URL:
https://rarus.ru/1c8/platforma-1c-predpriyatie-8/ (дата обращения: 07.10.2019).
11. Клепиков В.В. Автоматизация произв. процессов: Учебное
пособие / В.В. Клепиков, Н.М. Султан-заде, А.Г. Схиртладзе. - М.: Инфра-М,
2018. - 480 c.
108
12. Виноградов В.М. Автоматизация технологических процессов и
производств. Введение в специальность: Учебное пособие / В.М. Виноградов,
А.А. Черепахин. - М.: Форум, 2018. - 305 c.
13. Пантелеев В.Н. Основы автоматизации производства: Учебник /
В.Н. Пантелеев. - М.: Academia, 2018. - 314 c.
14. Афонин А.М. Теоретические основы разработки и моделирования
систем автоматизации: Учебное пособие / А.М. Афонин, Ю.Н. Царегородцев,
А.М. Петрова. - М.: Форум, 2017. - 336 c.
15. Андреев С.М. Разработка и моделирование несложных систем
автоматизации с учетом специфики технологических процессов: Учебное
пособие / С.М. Андреев. - М.: Academia, 2017. - 36 c.
16. Гагарина, Л.Г. Разработка и эксплуатация автоматизированных
информационных систем / Л.Г. Гагарина. - Вологда: Инфра-Инженерия, 2016.
- 384 c.
17. Мартишин С.А. Проектирование и реализация баз данных в СУБД
MySQL с использованием MySQLWorkbench: Методы и средства
проектирования информационных систем и технологий. Инструментальные
средства информационных систем: Учебное пособие / С.А. Мартишин, В.Л.
Симонов,. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2012. - 160 c.
18. Сарка Д. Microsoft® SQLServerR 2012. Реализация хранилищ
данных: Учебный курс Microsoft / Д. Сарка. - М.: Русская редакция, 2014. -
816 c.
19. Гринченко Н.Н. Проектирование баз данных. СУБД
MicrosoftAccess: Учебное пособие для вузов. / Н.Н. Гринченко и др. - М.:
РиС, 2013. - 240 c.
20. СУБД «SQLite» [Электронный ресурс]. – Режим доступа:
https://ru.wikipedia.org/wiki/SQLite.
21. Сергеенко С.В. Разработка и проектирование Web-приложений
Oracle Developer / С.В. Сергеенко. - М.: Интуит, 2014. - 456 c.
109
22. Вагнер Б. Эффективное программирование на C#. 50 способов
улучшения кода. / Б. Вагнер. - М.: Вильямс И.Д., 2017. - 224 c.
23. Одинцов Б.Е. Информационные системы управления
эффективностью бизнеса: Учебник и практикум для бакалавриата и
магистратуры / Б.Е. Одинцов. - Люберцы: Юрайт, 2016. - 206 c.
24. Горбенко А.О. Информационные системы в экономике: Учебное
пособие / А.О. Горбенко. - М.: БИНОМ. Лаборатория знаний, 2014. - 292 c.
25. Рыжко А.Л. Информационные системы управления
производственной компанией: Учебник для академического бакалавриата /
А.Л. Рыжко, А.И. Рыбников, Н.А. Рыжко. - Люберцы: Юрайт, 2016. - 354 c.
26. Вдовин В.М. Предметно-ориентированные экономические
информационные системы: Учебное пособие / В.М. Вдовин, Л.Е. Суркова и
др. - М.: Дашков и К, 2016. - 388 c.
27. Лукин, В.Н. Введение в проектирование баз данных / В.Н. Лукин. -
М.: Вузовская книга, 2015. - 144 c.
28. Стружкин, Н.П. Базы данных: проектирование. практикум:
Учебное пособие для академического бакалавриата / Н.П. Стружкин, В.В.
Годин. - Люберцы: Юрайт, 2016. - 291 c.
29. Коннолли, Т. Базы данных. Проектирование, реализация и
сопровождение. Теория и практика / Т. Коннолли. - М.: Вильямс И.Д., 2017. -
1440 c.
30. Илюшечкин, В.М. Основы использования и проектирования баз
данных: Учебник для академического бакалавриата / В.М. Илюшечкин. -
Люберцы: Юрайт, 2016. - 213 c.
31. Кудрявцев, Е.М. Основы автоматизированного проектирования:
Учебник / Е.М. Кудрявцев. - М.: Academia, 2016. - 116 c.
32. Уткин В.Б. Информационные системы в экономике: Учебник для
студентов высших учебных заведений / В.Б. Уткин, К.В. Балдин. - М.: ИЦ
Академия, 2015. - 288 c.
110
Приложение 1
Программный код Формы Авторизация
namespace Zayavki
{
public partial class FAvtoriz: Form
{
public string connectionString;
public FAvtoriz()
{
InitializeComponent();
}
public DataTable GetTable(string Command, string Connection)
{
DataTable table = new DataTable();
table.Locale = System.Globalization.CultureInfo.InvariantCulture;
try
{
MySqlDataAdapter Adapter = new MySqlDataAdapter(Command, Connection);
MySqlCommandBuilder Builder = new MySqlCommandBuilder(Adapter);
Adapter.Fill(table);
return table;
}
catch (MySqlException ex)
{
MessageBox.Show("Ошибка: " + ex);
}
return table;
}
public void adddata(string str)
{
MySqlConnection sqlConnection = new
MySqlConnection(String.Format(@"Server={0};DATABASE=tatincomDb;UID =root; Password =",
textBox1.Text));
sqlConnection.Open();
MySqlCommand myCommandZ;
myCommandZ = new MySqlCommand(str, sqlConnection);
myCommandZ.Transaction =
sqlConnection.BeginTransaction(System.Data.IsolationLevel.Serializable);
try
{
myCommandZ.ExecuteNonQuery();
myCommandZ.Transaction.Commit();
}
catch (Exception ex)
{
myCommandZ.Transaction.Rollback();
MessageBox.Show("Запрос вызывает следующую ошибку: " + ex.Message,
"Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
finally
{
}
}
public void hadd(int idz, int idst)
{
adddata("update zayavka set idst=" + idst.ToString() + ",datast=curdate()
where idz="+ idz.ToString());
111
adddata("insert into history (idz,idst,datast,ids) values (" + idz.ToString()
+ ","+ idst.ToString() + ",curdate(),"+Globals.ids.ToString()+" )");
}
public void sostskl()
{
adddata("delete from sostsk");
adddata("insert into sostsk (idko) select idko from kompl");
adddata(" update sostsk set kolvor = (select IFNULL(count(idko),0) from
zayavkadet where sostsk.idko =idko and idz in (select idz from zayavka where idst=3)) ");
adddata(" update sostsk set kolvop = (select ifnull(sum(kolvo), 0) from
pokompl where sostsk.idko =idko)");
adddata(" update sostsk set itog = kolvop-kolvor");
}
public static class Globals
{
public static string str_connect { get; set; }
public static int role { get; set; }
public static int ids { get; set; }
public static int idko { get; set; }
public static string kompl { get; set; }
}
private void BTN1_Click(object sender, EventArgs e)
{
String fios="";
int role=0;
if (login.Text != "" & pass.Text != "")
{
connectionString = String.Format(@"Server={0};DATABASE=tatincomDb;UID
=root; Password =", textBox1.Text);
Globals.str_connect = connectionString;
MySqlConnection sqlConnection = new MySqlConnection(connectionString);
try
{
sqlConnection.Open();
Form2 newForm = new Form2();
MySqlCommand command = new MySqlCommand("SELECT ids,fio,idrole FROM
sotr where login ='" + login.Text + "' and pass=" + pass.Text, sqlConnection);
MySqlDataReader coRead = command.ExecuteReader();
while (coRead.Read())
{
fios = Convert.ToString(coRead["fio"]);
role = Convert.ToInt32(coRead["idrole"]);
Globals.role = role;
Globals.ids = Convert.ToInt32(coRead["ids"]);
}
coRead.Close();
if (String.Equals(fios, "") == true)
{
MessageBox.Show("Логин или пароль введен не верно", "Ошибка",
MessageBoxBTNs.OK, MessageBoxIcon.Error);
}
else
112
{
Form2 f2 = new Form2();
f2.Strole2.Text = Convert.ToString(role);
f2.fio2.Text = fios;
FAvtoriz.ActiveForm.Hide();
f2.Show();
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message.ToString(), ex.Source.ToString(),
MessageBoxBTNs.OK, MessageBoxIcon.Error);
sqlConnection.Close();
}
}
else
MessageBox.Show("Введите логин и пароль!", "Ошибка", MessageBoxBTNs.OK,
MessageBoxIcon.Error);
}
}
}
Программный код Формы Заявки
namespace Zayavki
{
public partial class zayavka : Form
{
public int I;
public string connectionString2;
public zayavka()
{
InitializeComponent();
}
private void LoadData(int idst)
{
connectionString2 = FAvtoriz.Globals.str_connect;
FAvtoriz f1 = new FAvtoriz();
if (idst == 0)
{
dataGridView8.DataSource = f1.GetTable(“select idz, nazv, dataz,z.idst,
status ,z.ids, fio” +
“ from zayavka as z left join klient as k on z.idk=k.idk left join
status as st on z.idst=st.idst “ +
“ left join
112
ort as s on z.ids=s.ids “, connectionString2);
}
else {
dataGridView8.DataSource = f1.GetTable(“select idz, nazv, dataz,z.idst,
status ,z.ids, fio” +
“ from zayavka as z left join klient as k on z.idk=k.idk left join
status as st on z.idst=st.idst “ +
“ left join
112
ort as s on z.ids=s.ids where z.idst=2”,
connectionString2);
}
113
dataGridView8.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader);
dGV8.Columns[0].Width = 40;
dGV8.Columns[1].Width = 220;
dGV8.Columns[2].Width = 220;
dGV8.Columns[3].Width = 220;
dGV8.Columns[3].Visible = false;
dGV8.Columns[4].Width = 120;
dGV8.Columns[5].Width = 220;
dGV8.Columns[5].Visible = false;
dGV8.Columns[6].Width = 120;
dGV8.Columns[0].HeaderText = “№ заказа”;
dGV8.Columns[1].HeaderText = “Наименование клиента”;
dGV8.Columns[2].HeaderText = “Дата заявки”;
dGV8.Columns[3].HeaderText = “ИДС”;
dGV8.Columns[4].HeaderText = “Статус”;
dGV8.Columns[5].HeaderText = “ИДK”;
dGV8.Columns[6].HeaderText = “ФИО сотрудника”;
getcombo();
}
public void getcombo()
{
string myQ = String.Format(“SELECT idk, nazv FROM klient”);
FAvtoriz f1 = new FAvtoriz();
DataTable myD = f1.GetTable(myQ, connectionString2);
comboBox1.DataSource = myD;
comboBox1.DisplayMember = “nazv”;
comboBox1.ValueMember = “idk”;
}
public void adddata(string str)
{
MySqlConnection sqlConnection = new MySqlConnection(connectionString2);
sqlConnection.Open();
MySqlCommand myCommandZ;
myCommandZ = new MySqlCommand(str, sqlConnection);
myCommandZ.Transaction =
sqlConnection.BeginTransaction(System.Data.IsolationLevel.Serializable);
try
{
myCommandZ.ExecuteNonQuery();
myCommandZ.Transaction.Commit();
}
catch (Exception ex)
{
myCommandZ.Transaction.Rollback();
MessageBox.Show(“Запрос вызывает следующую ошибку: “ + ex.Message,
“Ошибка”, MessageBoxBTNs.OK, MessageBoxIcon.Error);
}
finally
{
}
}
private void BTN3_Click(object sender, EventArgs e)
{
pnlZ24.Visible = true;
I = 0;
FAvtoriz f1 = new FAvtoriz();
dGV1.DataSource = f1.GetTable(“select idzz,nazv,cena, kompl.idpr, proizv,
kompl.ide, edizm,kolvo, itog from zayavkadet as z left join kompl “
114
+ “on z.idko=kompl.idko left join proizv on kompl.idpr=proizv.idpr left
join edizm on kompl.ide=edizm.ide “ +
“ left join sostsk on kompl.idko=sostsk.idko where idz=” +
dGV8.CurrentRow.Cells[0].Value.ToString(), connectionString2);
dGV1.AutoResizeColumns(DGVAutoSizeColumnsMode.AllCellsExceptHeader);
dGV1.Columns[0].Width = 40;
dGV1.Columns[1].Width = 220;
dGV1.Columns[2].Width = 120;
dGV1.Columns[3].Width = 40;
dGV1.Columns[3].Visible = false;
dGV1.Columns[4].Width = 120;
dGV1.Columns[5].Width = 40;
dGV1.Columns[5].Visible = false;
dGV1.Columns[6].Width = 120;
dGV1.Columns[7].Width = 80;
dGV1.Columns[8].Width = 80;
dGV1.Columns[0].HeaderText = “ID”;
dGV1.Columns[1].HeaderText = “Наименование комплектующего”;
dGV1.Columns[2].HeaderText = “Стоимость”;
dGV1.Columns[3].HeaderText = “ID”;
dGV1.Columns[4].HeaderText = “Производитель”;
dGV1.Columns[5].HeaderText = “ID”;
dGV1.Columns[6].HeaderText = “Единица измерения”;
dGV1.Columns[7].HeaderText = “Количество”;
dGV1.Columns[8].HeaderText = “Количество на складе”;
if (FAvtoriz.Globals.role == 1)
{
pnlZ7.Visible = false;
}
}
private void BTN31_Click(object sender, EventArgs e)
{
adddata(“delete from zayavka where idz=” +
dGV8.CurrentRow.Cells[0].Value.ToString());
LoadData(0);
}
private void BTN33_Click(object sender, EventArgs e)
{
adddata(“insert into zayavka (idk,dataz,ids,idst,datast) values (“ +
comboBox1.SelectedValue.ToString() +
“,curdate(),” + FAvtoriz.Globals.ids.ToString() + “,1,curdate() )”);
MySqlConnection sqlConnection = new MySqlConnection(connectionString2);
sqlConnection.Open();
Form2 newForm = new Form2();
MySqlCommand command = new MySqlCommand(“SELECT max(idz) as m FROM
zayavka “, sqlConnection);
MySqlDataReader coRead = command.ExecuteReader();
while (coRead.Read())
{
FAvtoriz f1 = new FAvtoriz();
f1.hadd(Convert.ToInt32(coRead[“m”]), 1);
}
coRead.Close();
LoadData(0);
115
}
private void textBox1_TextChanged(object sender, EventArgs e)
{
}
private void zayavka_Shown(object sender, EventArgs e)
{
if (FAvtoriz.Globals.role == 1)
{LoadData(2);
pnlZ3.Visible = false;
pnlZ5.Visible = false;
}
else {
LoadData(0);
pnlZ4.Visible = false;
}
}
private void textBox1_DoubleClick(object sender, EventArgs e)
{
vkompl newForm = new vkompl();
newForm.Show();
}
private void zayavka_Activated(object sender, EventArgs e)
{
if (String.Equals(FAvtoriz.Globals.kompl, “”) == false)
{
textBox1.Text = FAvtoriz.Globals.kompl;
textBox2.Text = FAvtoriz.Globals.idko.ToString();
}
}
private void BTN2_Click(object sender, EventArgs e)
{
adddata(“insert into zayavkadet (idz,idko,kolvo) values (“ +
dGV8.CurrentRow.Cells[0].Value.ToString() + “,” + textBox2.Text + “,” + textBox9.Text + “
)”);
FAvtoriz f1 = new FAvtoriz();
f1.sostskl();
dGV1.DataSource = f1.GetTable(“select idzz,nazv,cena, kompl.idpr, proizv,
kompl.ide, edizm,kolvo, itog from zayavkadet as z left join kompl “
+ “on z.idko=kompl.idko left join proizv on kompl.idpr=proizv.idpr left
join edizm on kompl.ide=edizm.ide “+
“ left join sostsk on kompl.idko=sostsk.idko where idz=” +
dGV8.CurrentRow.Cells[0].Value.ToString(), connectionString2);
dGV1.AutoResizeColumns(DGVAutoSizeColumnsMode.AllCellsExceptHeader);
dGV1.Columns[0].Width = 40;
dGV1.Columns[1].Width = 220;
dGV1.Columns[2].Width = 120;
dGV1.Columns[3].Width = 40;
dGV1.Columns[3].Visible = false;
dGV1.Columns[4].Width = 120;
dGV1.Columns[5].Width = 40;
dGV1.Columns[5].Visible = false;
dGV1.Columns[6].Width = 120;
dGV1.Columns[7].Width = 80;
dGV1.Columns[8].Width = 80;
dGV1.Columns[0].HeaderText = “ID”;
dGV1.Columns[1].HeaderText = “Наименование комплектующего”;