Литература

1 Андреенко А.Я. Организация и планирование радиотехнического производства: Учеб. Пособие для вузов.- М.: Радио и связь, 1984

2 Багласова Т.Г. Методические указания по выполнению дипломного проекта для учащихся по специальности 2-40 01 01 «Программное обеспечение технологий». - Мн.: ТБП, 2003

3 Багласова Т.Г. Методические указания по оформлению курсовых и дипломных проектов.- Мн.: ТБП, 2006

4 Беклешова В.К. Технико-экономическое обоснование в дипломных проектах: Учеб. пособие / Под ред..- М.: Высш. шк., 1991

5 Гилицкий Ф.И., Слонимский А.А., Томилин В.Ф. Методические рекомендации по

обоснованию договорных цен на научно-техническую продукцию.- Мн.: МРТИ 1991

6 Гради Буч. Объектно-ориентированный анализ и проектирование. – М.: Бином, 1998

7 Елецкий Т.В Экономика предприятия: учебное пособие / Под ред. Э.В. Крум,.- Мн.: Выш.шк., 2005.

8 Иодко Е.К. PHP - Верстка для профессионалов - СПб.: БХВ – Петербург, 2009

9 Кунец И.Е. Объектно – ориентированный анализ и проектирование. Работа в среде Rational Rose. Методическое пособие для учащихся ССУЗ по специальности 2-40 01 01 «Программное обеспечение информационных технологий».- Мн.: ТБП, 2006

10 Лапшина Г.М Охрана труда - М.: Инфа – М,2006

11 Ласканев В.П., Король В.В. и др. Охрана труда на предприятиях: Практическое пособие. – Мн. 2002.

12 Леоненков А.М. Самоучитель UML. - СПб.: БХВ – Петербург, 2004

13 Лобан Л.Д., Пыко В.Т. Экономика предприятия: учебный комплекс.- Мн.:Мисанта 2006.

14 Скляренко В.К., Прудников В.М. Экономика предприятия; Учебник.- М.: Инфа – М,2006

15 Хернандес Дж., Л.Вьескас. MySQL-запросы. Практическое руководство по манипулированию данными в MySQL. – СПб.: БХВ, 2004

16 Черникова П.Д. Технико-экономические расчеты и обоснования в дипломных проектах (при разработке, производстве и эксплуатации новых радиоэлектронных приборов и устройств).- Мн.: Высш. шк. 1973

17 Сайт http://ru.wikipedia.org/wiki/Windows_7 – информация об операционной системе Windows 7.

18 Сайт http://ru.wikipedia.org/wiki/Visual_Basic – информация о языке программирования Visual Basic.

19 Сайт http://ru.wikipedia.org/wiki/Visual_Studio - информация о среде разработки

20 ГОСТ 19.301-2000 ЕСПД. Программа и методика испытаний

21 ГОСТ 19.401-2000. ЕСПД. Текст программы

22 ГОСТ 19.402-2000 ЕСПД. Описание программы

23 ГОСТ 2.105-95. ЕСКД. Общие требования к текстовым документам

Приложение А

(обязательное)

Текст программы

Public Class fMain

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

fill()

End Sub

Sub fill()

'TODO: данная строка кода позволяет загрузить данные в таблицу "TimetableDBDataSet.Аудитория". При необходимости она может быть перемещена или удалена.

Me.АудиторияTableAdapter.Fill(Me.TimetableDBDataSet.Аудитория)

'TODO: данная строка кода позволяет загрузить данные в таблицу "TimetableDBDataSet.Преподаватель". При необходимости она может быть перемещена или удалена.

Me.ПреподавательTableAdapter.Fill(Me.TimetableDBDataSet.Преподаватель)

'TODO: данная строка кода позволяет загрузить данные в таблицу "TimetableDBDataSet.Предмет". При необходимости она может быть перемещена или удалена.

Me.ПредметTableAdapter.Fill(Me.TimetableDBDataSet.Предмет)

'TODO: данная строка кода позволяет загрузить данные в таблицу "TimetableDBDataSet.Группа". При необходимости она может быть перемещена или удалена.

Me.ГруппаTableAdapter.Fill(Me.TimetableDBDataSet.Группа)

'TODO: This line of code loads data into the 'TimetableDBDataSet.selectTime' table. You can move, or remove it, as needed.

Me.SelectTimeTableAdapter.Fill(Me.TimetableDBDataSet.selectTime)

'TODO: This line of code loads data into the 'TimetableDBDataSet.ВывестиРасписание' table. You can move, or remove it, as needed.

Me.ВывестиРасписаниеTableAdapter.Fill(Me.TimetableDBDataSet.ВывестиРасписание)

ВывестиРасписаниеBindingSource.Filter = String.Format(cFilter, DateTimePicker2.Value, DateTimePicker3.Value)

End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

Dim count As Integer = 0

For i As Int32 = 0 To ВывестиРасписаниеDataGridView.ColumnCount - 1

For j As Int32 = 0 To ВывестиРасписаниеDataGridView.RowCount - 1

Try

If InStr(ВывестиРасписаниеDataGridView.Item(i, j).Value, TextBox2.Text) And TextBox2.Text <> "" Then

ВывестиРасписаниеDataGridView.Item(i, j).Style.Font = New Font(ВывестиРасписаниеDataGridView.DefaultCellStyle.Font, FontStyle.Bold)

ВывестиРасписаниеDataGridView.Item(i, j).Style.BackColor = Color.Azure

count += 1

Else

ВывестиРасписаниеDataGridView.Item(i, j).Style.Font = DefaultFont

ВывестиРасписаниеDataGridView.Item(i, j).Style.BackColor = Color.White

End If

Catch

ВывестиРасписаниеDataGridView.Item(i, j).Style.Font = DefaultFont

End Try

Next

Next

TextBox3.Text = count

End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

TextBox2.Text = ""

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Try

Dim qta As TimetableDBDataSetTableAdapters.QueriesTableAdapter = New TimetableDBDataSetTableAdapters.QueriesTableAdapter()

qta.ДобавитьВРасписание(DateTimePicker1.Value, _

CType(CType(SelectTimeBindingSource.Current, DataRowView)("Номер пары"), Integer), _

CType(CType(ГруппаBindingSource.Current, DataRowView)("Код"), Integer), _

CType(CType(АудиторияBindingSource.Current, DataRowView)("Код"), Integer), _

CType(CType(ПредметBindingSource.Current, DataRowView)("Код"), Integer), _

CType(CType(ПреподавательBindingSource.Current, DataRowView)("Код"), Integer))

ВывестиРасписаниеTableAdapter.Fill(TimetableDBDataSet.ВывестиРасписание)

Catch

MessageBox.Show("Что-то пошло нетак")

End Try

End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click