82
22. Обухов И.А., Гайфуллин Б.Н. Автоматизация систем
управления предприятиями стандарта ERP-MRPII. - М:Интерфейс-пресс,
2012. – 365 с.
23. Олейник, П.П. Корпоративные информационные системы:
Учебник для вузов. Стандарт третьего поколения / П.П. Олейник. - СПб.:
Питер, 2012. - 176 c.
24. Патрушина, С.М. Информационные системы в экономике:
Учебное пособие / С.М. Патрушина, Н.А. Аручиди. - М.: Мини Тайп, 2012.
- 144 c.
25. Пейн Э. Руководство по CRM. Путь к совершенствованию
менеджмента клиентов. – М.: Гревцов Паблишер, 2012. – 384 с.
26. "Salesforce.com Surpasses $10 Billion Run Rate". Fox Business.
2017-08-24. Retrieved 2017-08-29.
27. Ручкин, В.Н., Фулин, В.А. Архитектура компьютерных сетей. –
М.: Диалог-МИФИ, 2014. – 240 с.
28. Свифт Р. Улучшение отношений с клиентами: Использование
CRM технологий. – М.:2015. - 609 с.
29. Степанов, А. Н. Архитектура вычислительных систем и
компьютерных сетей : учебное пособие для вузов/ А. Н. Степанов. - Санкт-
Петербург: Питер, 2012. -509 с.
30. Титоренко Г.А. Автоматизированные информационные
технологии в экономике / Под ред. Г.А. Титоренко. - М.: Компьютер,
ЮНИТИ, 2012. – 342 с.
31. Уткин, В.Б. Информационные системы в экономике: Учебник
для студентов высших учебных заведений / В.Б. Уткин, К.В. Балдин. - М.:
ИЦ Академия, 2012. - 288 c.
32. Фаулер М. Архитектура корпоративных программных
приложений. – М.: Вильямс, 2014. – 328 с.
83
33. Федорова, Г.Н. Информационные системы: Учебник для студ.
учреждений сред. проф. образования / Г.Н. Федорова. - М.: ИЦ Академия,
2013. - 208 c.
34. Черкашин П. Готовы ли Вы к войне за клиента? Стратегия
управления взаимоотношениями с клиентами (CRM). - М.: ИНТУИТ, 2014.
— 384 c.
35. Официальный сайт журнала БИТ. Бизнес и информационные
технологии [Электронный ресурс]. URL: http://bit.samag.ru (дата
обращения: 10.07.2019).
36. Официальный сайт журнала CIT-Forum [Электронный ресурс].
URL: http://citforum.ru (дата обращения: 10.07.2019).
37. Электронный журнал Tadviser. Государство. Бизнес. ИТ
[Электронный ресурс]. URL: http://www.tadviser.ru/ . (Дата обращения:
10.09.2019).
38. Информационный портал Практика CRM [Электронный
ресурс]. URL: http://www.crm-practice.ru/. (Дата обращения: 15.09.2019).
39. Информационный портал LiveBusiness [Электронный ресурс].
URL: http://www.livebusiness.ru/ . (Дата обращения: 15.09.2019).
40. Сайт CRM-системы amoCRM [Электронный ресурс]. URL:
https://www.amocrm.ru/ . (Дата обращения: 15.09.2019).
84
ПРИЛОЖЕНИЕ. ЛИСТИНГ ПРОГРАММНОГО КОДА
// program.cs
using System;
using System.Collections.Generic;
using System.Linq;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace WindowsFormsApp5
{
static class Program
{
/// <summary>
/// Главная точка входа для приложения.
/// </summary>
[STAThread]
static void Main()
{
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
Application.Run(new Auth());
}
}
}
// Auth.cs
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
85
using System.Threading.Tasks;
using System.Windows.Forms;
using System.Data.OleDb;
namespace WindowsFormsApp5
{
public partial class Auth : Form
{
OleDbConnection connection = new OleDbConnection();
public Auth()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
}
private void textBox2_TextChanged(object sender, EventArgs e)
{
}
private void btn_Login_Click(object sender, EventArgs e)
{
connection.ConnectionString =
@"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Database3.accdb;Persist Security
Info=False";
connection.Open();
OleDbCommand command = new OleDbCommand();
command.Connection = connection;
command.CommandText = "select * from Пользователи where Логин='" +
txt_Login.Text + "' and Пароль='" + txt_Password.Text + "'";
86
OleDbDataReader reader = command.ExecuteReader();
int count = 0;
while (reader.Read())
{
count = count + 1;
}
reader.Close();
if (count == 1)
{
connection.Close();
connection.Dispose();
this.Hide();
if (txt_Login.Text == "admin")
{
Form f2 = new SelectDB();
f2.ShowDialog();
}
else
{
Form f3 = new Form6();
f3.ShowDialog();
}
}
else if (count > 1)
{
MessageBox.Show("Ошибка! Дублируется учетная запись");
connection.Close();
connection.Dispose();
}
else
{
MessageBox.Show("Ошибка! Учетной записи не существует!");
connection.Close();
connection.Dispose();
}
87
}
}
}
//Form1.cs
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.Data.OleDb;
namespace WindowsFormsApp5
{
public partial class Form1 : Form
{
OleDbConnection connection = new OleDbConnection();
public Form1()
{
InitializeComponent();
connection.ConnectionString =
@"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Database3.accdb";
}
private void Form1_Load(object sender, EventArgs e)
{
}
private void button1_Click(object sender, EventArgs e)
{
88
try
{
double prib = 0;
double activ = 0;
double real = 0;
double real_exp = 0;
UInt64 vneob = 0;
double ob = 0;
double KapRez = 0;
double dOb = 0;
double kOb = 0;
connection.Open();
OleDbCommand command = new OleDbCommand();
command.Connection = connection;
command.CommandText = "select * from ТЭП where Год='" +
textBox6.Text + "'";
OleDbDataReader reader = command.ExecuteReader();
while (reader.Read())
{
prib = Convert.ToDouble(reader["Прибыль"]);
activ = Convert.ToDouble(reader["Активы"]);
real = Convert.ToDouble(reader["Реализация"]);
real_exp = Convert.ToDouble(reader["РеалЭкспорт"]);
}
connection.Close();
connection.Open();
command.Connection = connection;
command.CommandText = "select * from Активы where Год='" +
textBox6.Text + "'";
89
reader = command.ExecuteReader();
while (reader.Read())
{
vneob = Convert.ToUInt64(reader["Внеоб"]);
ob = Convert.ToDouble(reader["Об"]);
}
connection.Close();
connection.Open();
command.Connection = connection;
command.CommandText = "select * from Пассив where Год='" +
textBox6.Text + "'";
reader = command.ExecuteReader();
while (reader.Read())
{
KapRez = Convert.ToDouble(reader["КапРез"]);
dOb = Convert.ToDouble(reader["ДОб"]);
kOb = Convert.ToDouble(reader["КОб"]);
}
connection.Close();
textBox1.Text = Convert.ToString(prib / activ);
textBox2.Text = Convert.ToString(prib/(real+real_exp));
textBox3.Text = Convert.ToString(prib / KapRez);
textBox4.Text = Convert.ToString(prib / ob);
textBox5.Text = Convert.ToString(prib / (ob-kOb));
}
catch (Exception ex)
{
MessageBox.Show("Error " + ex);
}
}
90
private void textBox6_TextChanged(object sender, EventArgs e)
{
}
}
}
// Form2.cs
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.Data.OleDb;
namespace WindowsFormsApp5
{
public partial class Form2 : Form
{
OleDbConnection connection = new OleDbConnection();
public Form2()
{
InitializeComponent();
}
private void Form2_Load(object sender, EventArgs e)
{
}
private void button1_Click(object sender, EventArgs e)
91
{
try
{
float ObA = 0;
float kp = 0;
float dc = 0;
float kf = 0;
connection.Open();
OleDbCommand command = new OleDbCommand();
command.Connection = connection;
command.CommandText = "select * from ТЭП where Год='" +
textBox4.Text + "'";
OleDbDataReader reader = command.ExecuteReader();
while (reader.Read())
{
kf = Convert.ToSingle(reader["Вложения"]);
}
connection.Close();
connection.Open();
command.Connection = connection;
command.CommandText = "select * from Пассивы where Год='" +
textBox4.Text + "'";
reader = command.ExecuteReader();
while (reader.Read())
{
kp = Convert.ToSingle(reader["КОб"]);
dc = Convert.ToSingle(reader["КапРез"]);
}
connection.Close();