Заключение

Перед началом работы ставилась задача создать такую информационную систему, которая бы позволяла автоматизировать работу по учёту заявок, путем хранения и обработки информаци. Результаты работы должны предоставляться в виде отчетов.

В ходе работы была создана информационная система, с помощью которой автоматизируются процессы, выполняемые при ведении учёта заявок отдела.

Данная программа позволяет вести полный учёт заявок ГУ Кропоткинской краевой Ветеринарной лаборатории, так же присутствует функция добавления новых и удаление имеющихся записей, так же в программе присутствует множество других полезных и необходимых функций.

Программа «Учет заявок торгово-коммерчиская производственная фирма» имеет удобный, эргономичный и интуитивный графический интерфейс понятный любому пользователю.

Литература

1. Мескон М.Х., Альберт И., Хедоури Ф., «Основы менеджмента»; пер. с англ. – изд-во “Демо”, 1995 г. – 704с.

2. Шекшня С.В., «Управление персоналом современной организации» /учебно-практическое пособие/ - изд-во ЗАО “Бизнес-школа «Интел-синтез»”, 1997 г. – 336 с.

3. Литвинцева Н.А., «Психологические аспекты подбора и проверки персонала» изд-во ЗАО “Бизнес-школа «Интел-синтез»”, 1997 г. – 400 с.

4. Черчикова И.Н., «Менеджмент» /учебник –2 изд./, перераб-ый и доп. Изд-во “Банки и биржи”, ЮНИТИ, 1995 г. – 480с.

5. Диго С.М. Проектирование и использование базы данных / Учебник -М.: Финансы и статистика, 2005.

6. Михеева В.Д., Харитонова И.А. Microsoft Access 2007. – СПб.: БХВ-Петербург, 2008.

7. Вендров А.М. Проектирование программного обеспечения экономических информационных систем /Учебник М.: Финансы и статистика, 2009.

8. Вендров А.М. Практикум по проектированию программного обеспечения экономических информационных систем: Учеб. пособие. - М.: Финансы и статистика, 2009. – 192с.: ил.

9. Смирнова Г.Н. и др. Проектирование экономических информационных систем /Учебник Г.Н. Смирнова, А.А. Сорокин, Ю.Ф. Тельнов; Под ред. Ю.Ф. Тельнова. - М.: Финансы и статистика, 2009. – 512с.: ил.

10. Архитектура компьютерных систем и сетей: Учеб. пособие/ Т.П. Барановская, В.И. Лойко, М.И. Семенов, А.И. Трубилин; Под ред. В.И. Лойко. - М.: Финансы и статистика, 2009. – 256с.: ил.

Приложение 1

public void Updater()

{

oleDbDataAdapter1.Update(blDataSet);

blDataSet.Clear();

oleDbDataAdapter1.Fill(bl.Bl);

}

private void Bl_Load(object sender, EventArgs e)

{

this.blTableAdapter.Fill(this.blDataSet.Postavshiki);

}

private void button1_Click(object sender, EventArgs e)

{

DataRow row = bl.Bl.NewRow();

row["ФИО"] = textBox1.Text;

row["Адрес"] = comboBox1.Text;

row["Дата пос"] = textBox2.Text;

row["Дата зав"] = textBox3.Text;

row["Результат"] = comboBox4.Text;

double ob = Convert.ToDouble(textBox2.Text);

double c = Convert.ToDouble(textBox3.Text);

c = c * ob;

string st = Convert.ToString(c);

double o = Convert.ToDouble(textBox2.Text);

double k = Convert.ToDouble(comboBox2.Text);

o = o - (o * k);

row["Объём_после_срока_хранения"] = o;

blDataSet.Bl.Rows.Add(row);

comboBox3.DataSource = blDataSet.Tables["Postavshiki"];

comboBox3.DisplayMember = "Наименование";

Updater();

this.blDataSet.AcceptChanges();

Bl_Load(null, null);

}

private void button3_Click(object sender, EventArgs e)

{

if (dataGridView2.SelectedRows.Count != 0)

{

DataRow raw = blDataSet.Bl.Rows[dataGridView2.CurrentRow.Index];

raw["ФИО"] = textBox5.Text;

raw["Адрес"] = comboBox5.Text;

raw["Дата пост"] = textBox6.Text;

raw["Дата зав"] = textBox7.Text;

raw["Результат"] = comboBox6.Text;

double ob = Convert.ToDouble(textBox6.Text);

double c = Convert.ToDouble(textBox7.Text);

Updater();

this.blDataSet.AcceptChanges();

}

else

MessageBox.Show("Выберите строку для редактирования",

"Ошибка");

Bl_Load(null, null);

}

private void button5_Click(object sender, EventArgs e)

{

if (dataGridView3.SelectedRows.Count != 0)

{

dataGridView3.Rows.RemoveAt(dataGridView3.CurrentRow.Index);

Updater();

this.blDataSet.AcceptChanges();

}

else

MessageBox.Show("Выберите строку для удаления",

"Ошибка");

}

private void button7_Click(object sender, EventArgs e)

{

Form5 rep = new Form5();

rep.MFFF = this;

rep.Show();

}

private void button8_Click(object sender, EventArgs e)

{

DataRow r = blDataSet.Bl.Rows[dataGridView1.CurrentRow.Index];

wordApp = new Word.Application();

Object template = Application.StartupPath + @"\шаблон.docx";

Object newTemplate = false;

Object documentType = Word.WdNewDocumentType.wdNewBlankDocument;

Object visible = true;

wordDoc = wordApp.Documents.Add(ref template, ref newTemplate, ref documentType, ref visible);

wordApp.Visible = true;

double sto=0;

for(int i=0;i<dataGridView1.Rows.Count;i++)

{

string st=dataGridView1.Rows[i].Cells[6].Value.ToString();

double ssto=Convert.ToDouble(st);

sto=sto+ssto;

}

string stoim=Convert.ToString(sto);

ReplaceText("<ps>",stoim);

Object start = 0;

Word.Range rng = wordDoc.Range(ref start, ref end);

rng.TextRetrievalMode.IncludeHiddenText = false;

rng.TextRetrievalMode.IncludeFieldCodes = false;

string metka = "<Table>";

int beginphrase = rng.Text.IndexOf(metka);

start = beginphrase;

end = beginphrase + metka.Length;

if (beginphrase != -1)

{

rng = wordDoc.Range(ref start, ref end);

rng.Text = "";

Object defaultTableBehavior = Type.Missing;

Object autoFitBehavior = Type.Missing;

Word.Table tbl = rng.Tables.Add(rng,

1, 5, ref defaultTableBehavior, ref autoFitBehavior);

tbl.Range.Font.Size = 14;

Object style = "Сетка таблицы";

tbl.set_Style(ref style);

tbl.Cell(1, 1).Range.Text = "ФИО";

tbl.Cell(1, 2).Range.Text = "Адрес";

tbl.Cell(1, 3).Range.Text = "Дата пос";

tbl.Cell(1, 4).Range.Text = "Дата зав";

tbl.Cell(1, 5).Range.Text = "Результат";

int i = 1;

foreach (DataRow row in blDataSet.Bl)

{

Object beforeRow = Type.Missing;

tbl.Rows.Add(ref beforeRow);

tbl.Cell(i + 1, 1).Range.Text = row["Культура"].ToString();

tbl.Cell(i + 1, 2).Range.Text = row["Объём"].ToString();

tbl.Cell(i + 1, 3).Range.Text = row["Стоимость_за_единицу"].ToString();

tbl.Cell(i + 1, 4).Range.Text = row["Поставщик"].ToString();

tbl.Cell(i + 1, 5).Range.Text = row["Стоимость"].ToString();

i++;

}

tbl.Rows[1].Range.Font.Italic = 1;

tbl.Rows[1].Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter;

}

else

{

ReplaceText("Table", "");

}

22