Разработка системы информационной поддержки заочного образования (на примере открытого факультета СПБ ГЭТУ)

k =1.4

k = 19.7*1.4−1.6*1.96 =24.444 (балл*10)

Зная величину k, из таблицы находим категорию тяжести труда.

Следовательно, на рабочем месте на человека воздействуют факторы, категория тяжести труда которых равна 2.

Для этой категории тяжести труда характерны: допустимые условия труда, высокая работоспособность, отсутствуют функциональные сдвиги по медицинским показателям.

4.

3. Анализ освещения на рабочем месте программиста

Усталость программиста напрямую зависит от степени напряженности процессов сопровождающих зрительное восприятие. Это такие процессы как адаптация, аккомодация и конвергенция.

Адаптация — приспособление глаза к изменению освещения.

Аккомодация — приспособляемость глаза к изменению расстояния.

Конвергенция — свойство глаз сосредотачивать зрение на предмете.

Всю энергию, излучаемую источниками света, можно разделить на ультрафиолет, видимый свет и инфракрасное излучение. Часть энергии, воспринимаемая глазом как свет, называется световым потоком F [люмен]. Сила света (I)-определяется как пространственная плотность светового потока, т. е. отношение светового потока к телесному углу, в котором равномерно распространяется этот световой поток. Измеряется сила света в канделлах ([Кд]=[лм] /[срад]). Освещенность (E) — поверхностная плотность светового потока, люкс [лк]:

F

E = ---, (31)

S

где S — площадь [м ] .

Коэффициент пульсации освещенности (Кп) — имеет значение при питании ламп переменным током.

Eмах — Емin

Кп = ----------- 100% (32)

2 Еср

Искусственное освещение производственных помещений бывает:

общее;

комбинированное;

аварийное.

Помимо искусственного в помещении имеется также естественное освещение из окон. Таким образом, освещение смешанное.

Рассмотрим все перечисленные типы искусственного освещения помещений. Система общего освещения предназначена не только для освещения рабочих поверхностей, но и для всего помещения в целом. Система комбинированного освещения состоит из общего и местного освещения: светильники местного освещения создают большую освещенность на рабочей поверхности, а общего выравнивают яркость в поле зрения. Использование одного местного освещения не допускается из-за резкого контраста в яркостях. Система аварийного освещения предусматривается в случаях, когда недопустимы перерывы в рабочем цикле. Для расчета освещения рабочей поверхности будем пользоваться методом коэффициента использования светового потока.

Коэффициент использования светового потока зависит от типа светильника, расчетной высоты подвеса светильника над рабочей поверхностью, от размера помещения, коэффициентов отражения потолка и стен. Определим потребное количество светильников для рассматриваемого помещения.

Краткая характеристика помещения:

высота потолка h = 2,5 м.

коэффициент отражения потолка Rп = 70%

коэффициент отражения стен Rс = 50%

высота рабочей поверхности h = 0,9 м.

помещение прямоугольной формы, имеющее следующие размеры:

ширина помещения, А = 3 м.

длина помещения B = 5 м.

Необходимое количество светильников будем располагать рядами с соответствием с наиболее выгодным соотношением:

L

Л = ------- = 1,7 (33)

(H-h)

где L — расстояние между рядами светильников, [ м ]

H-h — высота подвеса, [ м ]

Для большинства применяемых типов светильников Л=1,5…2,0

==> L = Л * (H-h) = 1,7 * (3,9 — 0,9) = 5,1 м.

Расстояние от стен до крайнего ряда светильников :

l = 1/3 * L = 1/3 * 5,1 = 1,7 ;

Будем располагать светильники параллельно ширине помещения. При длине помещения B = 7 м. число рядов светильников n рассчитывается по формуле :

B — 2 * l 8 — 2 * 1,7

n = 1 + --------- = 1 + ------------ = 2; (34)

L 5,1

Нормировочная освещенность для данного вида работ

E = 400 лк Для определения величины коэффициента используемого светового потока подсчитывается индекс помещения:

A * B

i = -------------- (35)

(H — h) * (A + B)

где i — индекс помещения;

A и B — длина и ширина помещения, м;

(H — h) — расчетная высота подвеса светильников над

рабочей поверхностью, м.

Для нашего помещения, А = 7 м, В = 8 м, Н = 2,5 м.

7 * 8

i = ------------------ = 1,24 ;

(3,9 — 0,9) * (7 + 8)

Коэффициент использования светового потока зависит кроме индекса помещения еще и от коэффициентов отражения:

Rп — коэффициент отражения потолка (0,7);

Rс — коэффициент отражения стен (0,5);

По таблице определяем коэффициент использования светового потока :

Ku = 0.4 ;

Номинальный световой поток лампы ЛБ-40 составляет Фл = 3120 лк .

Номинальный световой поток светильника, включающего 4 лампы, составляет Фсв = 4 * Фл = 4 * 3120 = 12 480 ;

Необходимое количество светильников подсчитывается по следующей формуле:

E * Kз * S * z

N = -----------------, (36)

n * Фсв * Ku * Kзт где E — нормировочная освещенность, лк;

Кз — коэффициент запаса ;

S — площадь помещения ;

z — коэффициент неравномерности освещения ;

n — число рядов светильников ;

Фсв — номинальный световой поток светильника ;

Ku — коэффициент использования светового потока ;

Kзт — коэффициент затенения ;

По справочнику значение коэффициентов принимаем равными соответственно :

Кз = 1,5 ;

z = 1,15 ;

Кзт = 0,85 .

Площадь помещения S = A * B = 7 * 8 = 37 м. ;

400 * 1,5 * 56 * 1,15

N = -------------------- = 4 ;

2 * 12 480 * 0,4 * 0,85

Определим длину разрывов между светильниками R :

A — N * lсв

R = -------------, (37)

N — 1

где lсв — длина одного светильника ;

lсв = 1,33 м.

6 — 4 * 1,33

R = ------------- = 0,23 м.

4 — 1

4.

4. Вывод

В данном разделе дипломного проекта проведен анализ категории тяжести труда программиста; рассмотрены оптимальные условия труда инженера, факторы, действующие на него в процессе работы. Рассмотрены параметры освещенности рабочего места. Таким образом, для организации рабочего места инженера-программиста с категорией тяжести труда 2 необходим отдых в перерывы и после работы, рационализация режима труда и отдыха.

Заключение

В данном проекте была разработана программа для работы с базой данных.

Программа была разработана в среде Visual Basic с использованием СУБД MS SQL Server.

Программа представляет собой Windows-приложение.

Программа обеспечивает просмотр и редактирование данных, хранящихся в базе данных.

Список литературы

Атли К. «Visual Basic .Net для программистов», М., «ДМК пресс», 2002 г.

Барсегян А. А «Методы и модели анализа данных», С-Пб, «БХВ-Петербург», 2004 г.

Бэйн Т., Госнелл Д. «Visial Basic .Net и SQL Server 2000», М., «Бином», 2004 г.

Валнум К. «Visual Basic .Net», М., «Аст», 2002 г.

Горев А., Макашарипов С., «Эффективная работа с СУБД» СПб, «Питер», 1997 г.

Кириллов В.В. «Основы проектирования реляционных баз данных.» Учебное пособие. — СПб.: ИТМО, 1994 г.

Курилович В. «Visual Basic», М., «Солон-Пресс», 2006 г.

Мамаев Е. «Администрирование SQL Server», СПб, «BHV-Петербург», 2000 г.

Пирогов В. «MS SQL Server 2000: управление и программирование» СПб, «BHV-Петербург», 2005 г.

Материалы сайтов:

http://www.microsoft.com

http://ru.wikipedia.org

Приложение 1. Схемы Структура учебного заведения Архитектура клиент-сервер применительно к автоматизированной системе обучения Сравнительные характеристики СУБД MS SQL Server и Oracle

Сравнительные характеристики Microsoft SQL Server Oracle Административное управление Хорошо Отлично Графические инструменты Отлично Хорошо Простота обслуживания Отлично Отлично Механизм данных Хорошо Отлично Работа с несколькими ЦП Приемлемо Отлично Функция соединения и выбор индексов Отлично Отлично Одновременный доступ нескольких пользователей Хорошо Отлично Обработка мультимедиа-даных Плохо Отлично Подключение к Web Приемлемо Отлично Обработка аудио, видео, изображений Плохо Отлично Поиск по всему тексту Хорошо Отлично Функциональная совместимость Хорошо Хорошо Сопряжение с другими БД Хорошо Хорошо Единая регистрация Хорошо Хорошо Работа под управлением различных ОС Приемлемо Хорошо Возможности программирования Приемлемо Отлично Хранимые процедуры и триггеры Хорошо Отлично Внутренний язык программирования Приемлемо Отлично Построение баз данных Хорошо Отлично Язык SQL Отлично Отлично Объектно-ориентированные системы Приемлемо Отлично Работа с филиалами Отлично Отлично Тиражирование Отлично Отлично Распределенная обработка транзакций Отлично Отлично Дистанционное администрирование Хорошо Отлично Организация хранилищ данных и подготовка отчетов Отлично Отлично Средства загрузки Отлично Отлично Средства анализа Отлично Отлично

Схема данных Результаты исследований опроса пользователей до и после работы на компьютере

№ Сочетание цветов экрана и знаков Оценка, % Состояние зрительного анализатора Общее самочувствие Глаза не устали Глаза устали Немного устали Не устали средне немного Темно-зеленый фон и белые знаки 100 — - - 100 Темно-зеленый фон и светло-зеленые знаки 40 — 60 — 100 Черный фон и белые знаки 57 14 29 — 100 Черный фон и зеленые знаки 50 — 50 — 100 Синий фон и белые знаки 32 25 43 13 87 Белый фон и черные знаки 14 43 43 — 100

Приложение 2. Пример кода программы

Пример кода формы обработки списка студентов

Imports System.Data.SqlClient

Public Class DataForm_student

Inherits System.Windows.Forms.Form

#Region «Windows Form Designer generated code «

Public Sub New ()

MyBase.New ()

'This call is required by the Windows Form Designer.

InitializeComponent ()

'Add any initialization after the InitializeComponent () call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose (ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose ()

End If

End If

MyBase.Dispose (disposing)

End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.

Friend WithEvents Text_kafid As System.Windows.Forms.TextBox

Friend WithEvents Label18 As System.Windows.Forms.Label

Friend WithEvents Text_kaf As System.Windows.Forms.TextBox

Friend WithEvents But_add As System.Windows.Forms.Button

Friend WithEvents But_del As System.Windows.Forms.Button

Friend WithEvents But_save As System.Windows.Forms.Button

Friend WithEvents Label17 As System.Windows.Forms.Label

Friend WithEvents Text_id As System.Windows.Forms.TextBox

Friend WithEvents Label16 As System.Windows.Forms.Label

Friend WithEvents But_close As System.Windows.Forms.Button

Friend WithEvents Label13 As System.Windows.Forms.Label

Friend WithEvents Label14 As System.Windows.Forms.Label

Friend WithEvents Label15 As System.Windows.Forms.Label

Friend WithEvents Text_email As System.Windows.Forms.TextBox

Friend WithEvents Text_phone2 As System.Windows.Forms.TextBox

Friend WithEvents Text_phone1 As System.Windows.Forms.TextBox

Friend WithEvents Label10 As System.Windows.Forms.Label

Friend WithEvents Label7 As System.Windows.Forms.Label

Friend WithEvents Label8 As System.Windows.Forms.Label

Friend WithEvents Label9 As System.Windows.Forms.Label

Friend WithEvents Text_birth As System.Windows.Forms.TextBox

Friend WithEvents Label6 As System.Windows.Forms.Label

Friend WithEvents Label5 As System.Windows.Forms.Label

Friend WithEvents Label4 As System.Windows.Forms.Label

Friend WithEvents Label2 As System.Windows.Forms.Label

Friend WithEvents Text_sex As System.Windows.Forms.TextBox

Friend WithEvents Text_second_name As System.Windows.Forms.TextBox

Friend WithEvents Text_first_name As System.Windows.Forms.TextBox

Friend WithEvents But_next As System.Windows.Forms.Button

Friend WithEvents But_prev As System.Windows.Forms.Button

Friend WithEvents Label_cnt As System.Windows.Forms.Label

Friend WithEvents Label3 As System.Windows.Forms.Label

Friend WithEvents Label_num As System.Windows.Forms.Label

Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox

Friend WithEvents Text_last_name As System.Windows.Forms.TextBox

Friend WithEvents Label11 As System.Windows.Forms.Label

Friend WithEvents Text_groupid As System.Windows.Forms.TextBox

Friend WithEvents Text_groupnum As System.Windows.Forms.TextBox

Friend WithEvents Text_postupl As System.Windows.Forms.TextBox

Friend WithEvents Text_zachetnum As System.Windows.Forms.TextBox

Friend WithEvents Text_addr As System.Windows.Forms.TextBox

Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox

Private Sub InitializeComponent ()

Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager (GetType (DataForm_student))

Me.Text_kafid = New System.Windows.Forms.TextBox ()

Me.Label18 = New System.Windows.Forms.Label ()

Me.Text_kaf = New System.Windows.Forms.TextBox ()

Me.Text_groupid = New System.Windows.Forms.TextBox ()

Me.But_add = New System.Windows.Forms.Button ()

Me.But_del = New System.Windows.Forms.Button ()

Me.But_save = New System.Windows.Forms.Button ()

Me.Label17 = New System.Windows.Forms.Label ()

Me.Text_id = New System.Windows.Forms.TextBox ()

Me.Label16 = New System.Windows.Forms.Label ()

Me.But_close = New System.Windows.Forms.Button ()

Me.Label13 = New System.Windows.Forms.Label ()

Me.Label14 = New System.Windows.Forms.Label ()

Me.Label15 = New System.Windows.Forms.Label ()

Me.Text_email = New System.Windows.Forms.TextBox ()

Me.Text_phone2 = New System.Windows.Forms.TextBox ()

Me.Text_phone1 = New System.Windows.Forms.TextBox ()

Me.Label10 = New System.Windows.Forms.Label ()

Me.Text_groupnum = New System.Windows.Forms.TextBox ()

Me.Label7 = New System.Windows.Forms.Label ()

Me.Label8 = New System.Windows.Forms.Label ()

Me.Label9 = New System.Windows.Forms.Label ()

Me.Text_postupl = New System.Windows.Forms.TextBox ()

Me.Text_addr = New System.Windows.Forms.TextBox ()

Me.Text_birth = New System.Windows.Forms.TextBox ()

Me.Label6 = New System.Windows.Forms.Label ()

Me.Label5 = New System.Windows.Forms.Label ()

Me.Label4 = New System.Windows.Forms.Label ()

Me.Label2 = New System.Windows.Forms.Label ()

Me.Text_sex = New System.Windows.Forms.TextBox ()

Me.Text_second_name = New System.Windows.Forms.TextBox ()

Me.Text_first_name = New System.Windows.Forms.TextBox ()

Me.But_next = New System.Windows.Forms.Button ()

Me.But_prev = New System.Windows.Forms.Button ()

Me.Label_cnt = New System.Windows.Forms.Label ()

Me.Label3 = New System.Windows.Forms.Label ()

Me.Label_num = New System.Windows.Forms.Label ()

Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog ()

Me.Label1 = New System.Windows.Forms.Label ()

Me.PictureBox1 = New System.Windows.Forms.PictureBox ()

Me.Text_last_name = New System.Windows.Forms.TextBox ()

Me.Label11 = New System.Windows.Forms.Label ()

Me.Text_zachetnum = New System.Windows.Forms.TextBox ()

Me.PictureBox2 = New System.Windows.Forms.PictureBox ()

Me.SuspendLayout ()

'

'Text_kafid

'

Me.Text_kafid.Location = New System.Drawing.Point (80, 400)

Me.Text_kafid.Name = «Text_kafid»

Me.Text_kafid.Size = New System.Drawing.Size (40, 20)

Me.Text_kafid.TabIndex = 87

Me.Text_kafid.Text = «»

'

'Label18

'

Me.Label18.BackColor = System.Drawing.Color.SkyBlue

Me.Label18.Location = New System.Drawing.Point (8, 400)

Me.Label18.Name = «Label18»

Me.Label18.Size = New System.Drawing.Size (64, 23)

Me.Label18.TabIndex = 86

Me.Label18.Text = «Кафедра»

'

'Text_kaf

'

Me.Text_kaf.BackColor = System.Drawing.SystemColors.Window

Me.Text_kaf.Location = New System.Drawing.Point (128, 400)

Me.Text_kaf.Name = «Text_kaf»

Me.Text_kaf.ReadOnly = True

Me.Text_kaf.Size = New System.Drawing.Size (136, 20)

Me.Text_kaf.TabIndex = 85

Me.Text_kaf.Text = «»

'

'Text_groupid

'

Me.Text_groupid.Location = New System.Drawing.Point (80, 368)

Me.Text_groupid.Name = «Text_groupid»

Me.Text_groupid.Size = New System.Drawing.Size (40, 20)

Me.Text_groupid.TabIndex = 84

Me.Text_groupid.Text = «»

'

'But_add

'

Me.But_add.Location = New System.Drawing.Point (320, 56)

Me.But_add.Name = «But_add»

Me.But_add.Size = New System.Drawing.Size (160, 23)

Me.But_add.TabIndex = 83

Me.But_add.Text = «Добавить запись»

'

'But_del

'

Me.But_del.Location = New System.Drawing.Point (320, 96)

Me.But_del.Name = «But_del»

Me.But_del.Size = New System.Drawing.Size (160, 23)

Me.But_del.TabIndex = 82

Me.But_del.Text = «Удалить запись»

'

'But_save

'

Me.But_save.Location = New System.Drawing.Point (320, 16)

Me.But_save.Name = «But_save»

Me.But_save.Size = New System.Drawing.Size (160, 23)

Me.But_save.TabIndex = 81

Me.But_save.Text = «Сохранить изменения»

'

'Label17

'

Me.Label17.BackColor = System.Drawing.Color.SkyBlue

Me.Label17.Location = New System.Drawing.Point (32, 104)

Me.Label17.Name = «Label17»

Me.Label17.Size = New System.Drawing.Size (16, 23)

Me.Label17.TabIndex = 80

Me.Label17.Text = «№»

'

'Text_id

'

Me.Text_id.Location = New System.Drawing.Point (80, 104)

Me.Text_id.Name = «Text_id»

Me.Text_id.ReadOnly = True

Me.Text_id.Size = New System.Drawing.Size (64, 20)

Me.Text_id.TabIndex = 79

Me.Text_id.Text = «»

'

'Label16

'

Me.Label16.BackColor = System.Drawing.Color.SkyBlue

Me.Label16.Location = New System.Drawing.Point (376, 136)

Me.Label16.Name = «Label16»

Me.Label16.Size = New System.Drawing.Size (48, 23)

Me.Label16.TabIndex = 78

Me.Label16.Text = «Фото»

'

'But_close

'

Me.But_close.Location = New System.Drawing.Point (416, 456)

Me.But_close.Name = «But_close»

Me.But_close.TabIndex = 77

Me.But_close.Text = «Закрыть»

'

'Label13

'

Me.Label13.BackColor = System.Drawing.Color.SkyBlue

Me.Label13.Location = New System.Drawing.Point (304, 424)

Me.Label13.Name = «Label13»

Me.Label13.Size = New System.Drawing.Size (40, 23)

Me.Label13.TabIndex = 76

Me.Label13.Text = «Email»

'

'Label14

'

Me.Label14.BackColor = System.Drawing.Color.SkyBlue

Me.Label14.Location = New System.Drawing.Point (304, 392)

Me.Label14.Name = «Label14»

Me.Label14.Size = New System.Drawing.Size (40, 23)

Me.Label14.TabIndex = 75

Me.Label14.Text = «Тел. 2»

'

'Label15

'

Me.Label15.BackColor = System.Drawing.Color.SkyBlue

Me.Label15.Location = New System.Drawing.Point (304, 360)

Me.Label15.Name = «Label15»

Me.Label15.Size = New System.Drawing.Size (40, 23)

Me.Label15.TabIndex = 74

Me.Label15.Text = «Тел. 1»

'

'Text_email

'

Me.Text_email.Location = New System.Drawing.Point (360, 424)

Me.Text_email.Name = «Text_email»

Me.Text_email.Size = New System.Drawing.Size (136, 20)

Me.Text_email.TabIndex = 73

Me.Text_email.Text = «»

'

'Text_phone2

'

Me.Text_phone2.Location = New System.Drawing.Point (360, 392)

Me.Text_phone2.Name = «Text_phone2»

Me.Text_phone2.Size = New System.Drawing.Size (136, 20)

Me.Text_phone2.TabIndex = 72

Me.Text_phone2.Text = «»

'

'Text_phone1

'

Me.Text_phone1.Location = New System.Drawing.Point (360, 360)

Me.Text_phone1.Name = «Text_phone1»

Me.Text_phone1.Size = New System.Drawing.Size (136, 20)

Me.Text_phone1.TabIndex = 71

Me.Text_phone1.Text = «»

'

'Label10

'

Me.Label10.BackColor = System.Drawing.Color.SkyBlue

Me.Label10.Location = New System.Drawing.Point (8, 368)

Me.Label10.Name = «Label10»

Me.Label10.Size = New System.Drawing.Size (64, 23)

Me.Label10.TabIndex = 70

Me.Label10.Text = «Группа»

'

'Text_groupnum

'

Me.Text_groupnum.BackColor = System.Drawing.SystemColors.Window

Me.Text_groupnum.Location = New System.Drawing.Point (128, 368)

Me.Text_groupnum.Name = «Text_groupnum»

Me.Text_groupnum.ReadOnly = True

Me.Text_groupnum.Size = New System.Drawing.Size (136, 20)

Me.Text_groupnum.TabIndex = 67

Me.Text_groupnum.Text = «»

'

'Label7

'

Me.Label7.BackColor = System.Drawing.Color.SkyBlue

Me.Label7.Location = New System.Drawing.Point (8, 336)

Me.Label7.Name = «Label7»

Me.Label7.Size = New System.Drawing.Size (72, 32)

Me.Label7.TabIndex = 64

Me.Label7.Text = «Дата поступления»

'

'Label8

'

Me.Label8.BackColor = System.Drawing.Color.SkyBlue

Me.Label8.Location = New System.Drawing.Point (8, 304)

Me.Label8.Name = «Label8»

Me.Label8.Size = New System.Drawing.Size (64, 23)

Me.Label8.TabIndex = 63

Me.Label8.Text = «Адрес»

'

'Label9

'

Me.Label9.BackColor = System.Drawing.Color.SkyBlue

Me.Label9.Location = New System.Drawing.Point (8, 272)

Me.Label9.Name = «Label9»

Me.Label9.Size = New System.Drawing.Size (64, 23)

Me.Label9.TabIndex = 62

Me.Label9.Text = «Дата рожд.»

'

'Text_postupl

'

Me.Text_postupl.Location = New System.Drawing.Point (80, 336)

Me.Text_postupl.Name = «Text_postupl»

Me.Text_postupl.Size = New System.Drawing.Size (184, 20)

Me.Text_postupl.TabIndex = 61

Me.Text_postupl.Text = «»

'

'Text_addr

'

Me.Text_addr.Location = New System.Drawing.Point (80, 304)

Me.Text_addr.Name = «Text_addr»

Me.Text_addr.Size = New System.Drawing.Size (184, 20)

Me.Text_addr.TabIndex = 60

Me.Text_addr.Text = «»

'

'Text_birth

'

Me.Text_birth.Location = New System.Drawing.Point (80, 272)

Me.Text_birth.Name = «Text_birth»

Me.Text_birth.Size = New System.Drawing.Size (184, 20)

Me.Text_birth.TabIndex = 59

Me.Text_birth.Text = «»

'

'Label6

'

Me.Label6.BackColor = System.Drawing.Color.SkyBlue

Me.Label6.Location = New System.Drawing.Point (8, 240)

Me.Label6.Name = «Label6»

Me.Label6.Size = New System.Drawing.Size (64, 23)

Me.Label6.TabIndex = 58

Me.Label6.Text = «Пол»

'

'Label5

'

Me.Label5.BackColor = System.Drawing.Color.SkyBlue

Me.Label5.Location = New System.Drawing.Point (8, 208)

Me.Label5.Name = «Label5»

Me.Label5.Size = New System.Drawing.Size (64, 23)

Me.Label5.TabIndex = 57

Me.Label5.Text = «Отчество»

'

'Label4

'

Me.Label4.BackColor = System.Drawing.Color.SkyBlue

Me.Label4.Location = New System.Drawing.Point (8, 176)

Me.Label4.Name = «Label4»

Me.Label4.Size = New System.Drawing.Size (64, 23)

Me.Label4.TabIndex = 56

Me.Label4.Text = «Имя»

'

'Label2

'

Me.Label2.BackColor = System.Drawing.Color.SkyBlue

Me.Label2.Location = New System.Drawing.Point (8, 144)

Me.Label2.Name = «Label2»

Me.Label2.Size = New System.Drawing.Size (64, 23)

Me.Label2.TabIndex = 55

Me.Label2.Text = «Фамилия»

'

'Text_sex

'

Me.Text_sex.Location = New System.Drawing.Point (80, 240)

Me.Text_sex.Name = «Text_sex»

Me.Text_sex.Size = New System.Drawing.Size (32, 20)

Me.Text_sex.TabIndex = 54

Me.Text_sex.Text = «»

'

'Text_second_name

'

Me.Text_second_name.Location = New System.Drawing.Point (80, 208)

Me.Text_second_name.Name = «Text_second_name»

Me.Text_second_name.Size = New System.Drawing.Size (184, 20)

Me.Text_second_name.TabIndex = 53

Me.Text_second_name.Text = «»

'

'Text_first_name

'

Me.Text_first_name.Location = New System.Drawing.Point (80, 176)

Me.Text_first_name.Name = «Text_first_name»

Me.Text_first_name.Size = New System.Drawing.Size (184, 20)

Me.Text_first_name.TabIndex = 52

Me.Text_first_name.Text = «»

'

'But_next

'

Me.But_next.Location = New System.Drawing.Point (136, 56)

Me.But_next.Name = «But_next»

Me.But_next.Size = New System.Drawing.Size (120, 32)

Me.But_next.TabIndex = 51

Me.But_next.Text = «Перейти к следующей записи»

'

'But_prev

'

Me.But_prev.Location = New System.Drawing.Point (8, 56)

Me.But_prev.Name = «But_prev»

Me.But_prev.Size = New System.Drawing.Size (112, 32)

Me.But_prev.TabIndex = 50

Me.But_prev.Text = «Перейти к предыдущей записи»

'

'Label_cnt

'

Me.Label_cnt.BackColor = System.Drawing.Color.SkyBlue

Me.Label_cnt.Location = New System.Drawing.Point (136, 16)

Me.Label_cnt.Name = «Label_cnt»

Me.Label_cnt.Size = New System.Drawing.Size (40, 23)

Me.Label_cnt.TabIndex = 49

'

'Label3

'

Me.Label3.BackColor = System.Drawing.Color.SkyBlue

Me.Label3.Location = New System.Drawing.Point (104, 16)

Me.Label3.Name = «Label3»

Me.Label3.Size = New System.Drawing.Size (24, 23)

Me.Label3.TabIndex = 48

Me.Label3.Text = «из»

'

'Label_num

'

Me.Label_num.BackColor = System.Drawing.Color.SkyBlue

Me.Label_num.Location = New System.Drawing.Point (72, 16)

Me.Label_num.Name = «Label_num»

Me.Label_num.Size = New System.Drawing.Size (24, 23)

Me.Label_num.TabIndex = 47

'

'Label1

'

Me.Label1.BackColor = System.Drawing.Color.SkyBlue

Me.Label1.Location = New System.Drawing.Point (16, 16)

Me.Label1.Name = «Label1»

Me.Label1.Size = New System.Drawing.Size (48, 23)

Me.Label1.TabIndex = 46

Me.Label1.Text = «Запись»

'

'PictureBox1

'

Me.PictureBox1.BackColor = System.Drawing.SystemColors.Info

Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D

Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand

Me.PictureBox1.Location = New System.Drawing.Point (312, 160)

Me.PictureBox1.Name = «PictureBox1»

Me.PictureBox1.Size = New System.Drawing.Size (184, 152)

Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

Me.PictureBox1.TabIndex = 45

Me.PictureBox1.TabStop = False

'

'Text_last_name

'

Me.Text_last_name.Location = New System.Drawing.Point (80, 144)

Me.Text_last_name.Name = «Text_last_name»

Me.Text_last_name.Size = New System.Drawing.Size (184, 20)

Me.Text_last_name.TabIndex = 44

Me.Text_last_name.Text = «»

'

'Label11

'

Me.Label11.BackColor = System.Drawing.Color.SkyBlue

Me.Label11.Location = New System.Drawing.Point (304, 328)

Me.Label11.Name = «Label11»

Me.Label11.Size = New System.Drawing.Size (48, 32)

Me.Label11.TabIndex = 89

Me.Label11.Text = «№ зачетки»

'

'Text_zachetnum

'

Me.Text_zachetnum.Location = New System.Drawing.Point (360, 328)

Me.Text_zachetnum.Name = «Text_zachetnum»

Me.Text_zachetnum.Size = New System.Drawing.Size (136, 20)

Me.Text_zachetnum.TabIndex = 88

Me.Text_zachetnum.Text = «»

'

'PictureBox2

'

Me.PictureBox2.Dock = System.Windows.Forms.DockStyle.Fill

Me.PictureBox2.Image = CType (resources.GetObject («PictureBox2.Image»), System.Drawing.Bitmap)

Me.PictureBox2.Name = «PictureBox2»

Me.PictureBox2.Size = New System.Drawing.Size (512, 493)

Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

Me.PictureBox2.TabIndex = 90

Me.PictureBox2.TabStop = False

'

'DataForm_student

'

Me.AutoScaleBaseSize = New System.Drawing.Size (5, 13)

Me.ClientSize = New System.Drawing.Size (512, 493)

Me.Controls.AddRange (New System.Windows.Forms.Control () {Me.Label11, Me. Text_zachetnum, Me. Label18, Me. Text_kaf, Me. Text_groupid, Me. But_add, Me. But_del, Me. But_save, Me. Label17, Me. Text_id, Me. Label16, Me. But_close, Me. Label13, Me. Label14, Me. Label15, Me. Text_email, Me. Text_phone2, Me. Text_phone1, Me. Label10, Me. Text_groupnum, Me. Label7, Me. Label8, Me. Label9, Me. Text_postupl, Me. Text_addr, Me. Text_birth, Me. Label6, Me. Label5, Me. Label4, Me. Label2, Me. Text_sex, Me. Text_second_name, Me. Text_first_name, Me. But_next, Me. But_prev, Me. Label_cnt, Me. Label3, Me. Label_num, Me. Label1, Me. PictureBox1, Me. Text_last_name, Me. Text_kafid, Me. PictureBox2})

Me.Name = «DataForm_student»

Me.Text = «Студенты»

Me.ResumeLayout (False)

End Sub

#End Region

Dim num = 0

Private Sub But_close_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles But_close.Click

Me.Close ()

End Sub

Private Sub DataForm_student_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Load

Show_num_student ()

Show_cnt_students ()

If CType (Label_cnt.Text, Integer) > 0 Then

Show_student (num, «»)

Else

MsgBox («В таблице нет записей», MsgBoxStyle. OKOnly + MsgBoxStyle. Information, «Предупреждение»)

End If

End Sub

Public Sub Show_cnt_students ()

Dim objConnection

Dim strSQL

objConnection = New SqlConnection ()

strSQL = «SELECT count (*) AS cnt FROM f_students»

objConnection.ConnectionString = strCon

Dim command As New SqlCommand (strSQL, objConnection)

objConnection.Open ()

Dim r = command. ExecuteReader ()

r.Read ()

Label_cnt.Text = r («cnt»).ToString

objConnection.Close ()

objConnection = Nothing

End Sub

Public Sub Show_num_student ()

Label_num.Text = CType (num + 1, String)

End Sub

Public Sub Show_student (ByVal num As Integer, ByVal ord As String)

Dim objConnection

Dim strSQL

objConnection = New SqlConnection ()

If ord = «» Then ord = «last_name, first_name, second_name»

strSQL = «SELECT top 1 * FROM f_students «

strSQL = strSQL + «WHERE id_stud NOT IN «

strSQL = strSQL + «(«

strSQL = strSQL + «SELECT top «+ CType (num, String) + «id_stud «

strSQL = strSQL + «FROM f_students «

strSQL = strSQL + «ORDER BY «+ ord

strSQL = strSQL + «) «

strSQL = strSQL + «ORDER BY «+ ord

'MsgBox (strSQL)

objConnection.ConnectionString = strCon

objConnection.Open ()

Dim command As New SqlCommand (strSQL, objConnection)

Dim r = command. ExecuteReader ()

r.Read ()

'заполнение текстовых полей

Text_id.Text = r («id_stud»).ToString

Text_first_name.Text = r («first_name»).ToString

Text_last_name.Text = r («last_name»).ToString

Text_second_name.Text = r («second_name»).ToString

Text_sex.Text = r («sex»).ToString

Text_birth.Text = r («birth»).ToString

Text_addr.Text = r («address»).ToString

Text_postupl.Text = r («date_postup»).ToString

Text_zachetnum.Text = r («zachetka»).ToString

Text_phone1.Text = r («phone1»).ToString

Text_phone2.Text = r («phone2»).ToString

Text_email.Text = r («email»).ToString

Text_groupid.Text = r («id_group»).ToString

Text_kafid.Text = r («id_kaf»).ToString

objConnection.Close ()

show_photo (Text_id.Text)

Try

objConnection.Open ()

Dim sql_sub

sql_sub = «SELECT num_group FROM f_group WHERE id_group=» + Text_groupid.Text

command.CommandText = sql_sub

r = command. ExecuteReader ()

r.Read ()

Text_groupnum.Text = r («num_group»).ToString

objConnection.Close ()

Catch

'Не задана группа

Text_groupnum.Text = «»

End Try

Try

objConnection.Open ()

Dim sql_kaf

sql_kaf = «SELECT name_kaf FROM f_kaf WHERE id_kaf=» + Text_kafid.Text

command.CommandText = sql_kaf

r = command. ExecuteReader ()

r.Read ()

Text_kaf.Text = r («name_kaf»).ToString

objConnection.Close ()

Catch

'не задана кафедра

Text_kaf.Text = «»

End Try

objConnection = Nothing

End Sub

Private Sub save_photo (ByVal id As String)

'Сохранить картинку в БД

Try

Dim connection As New SqlConnection ()

connection.ConnectionString = strCon

Dim command As New SqlCommand («UPDATE f_students SET photo = @photo WHERE id_stud = «+ id, connection)

Dim photo As Image = PictureBox1. Image

Dim stream As New IO. MemoryStream ()

photo.Save (stream, Imaging.ImageFormat.Jpeg)

command.Parameters.Add («@photo», SqlDbType. VarBinary).Value = stream. GetBuffer ()

connection.Open ()

command.ExecuteNonQuery ()

connection.Close ()

Catch

'Нет картинки

End Try

End Sub

Private Sub show_photo (ByVal id As String)

Try

Dim objConnection As New SqlConnection ()

objConnection.ConnectionString = strCon

Dim command As New SqlCommand («SELECT photo FROM f_students WHERE id_stud = «+ id, objConnection)

objConnection.Open ()

Dim pictureData As Byte () = DirectCast (command.ExecuteScalar (), Byte ())

objConnection.Close ()

Dim picture As Image = Nothing

Dim stream As New IO. MemoryStream (pictureData)

picture = Image. FromStream (stream)

PictureBox1.Image = picture

Catch

'Нет картинки

PictureBox1.Image = Nothing

End Try

End Sub

Public strCon

Private Sub But_prev_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles But_prev.Click

Dim cnt = CType (Label_cnt.Text, Integer)

If cnt > 0 And num > 0 Then

num = num — 1

Show_num_student ()

Show_student (num, «»)

End If

End Sub

Private Sub But_next_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles But_next.Click

Dim cnt = CType (Label_cnt.Text, Integer)

If cnt > 0 And (num + 1) < cnt Then

num = num + 1

Show_num_student ()

Show_student (num, «»)

End If

End Sub

Private Sub But_save_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles But_save.Click

num = CType (Label_cnt.Text, Integer)

If num > 0 Then

Dim id_stud = Text_id.Text

Dim objConnection

Dim strSQL

Dim img As Image

objConnection = New SqlConnection ()

strSQL = «UPDATE f_students SET «

strSQL = strSQL + «first_name = '» + Text_first_name.Text + «', «

strSQL = strSQL + «last_name = '» + Text_last_name.Text + «', «

strSQL = strSQL + «second_name = '» + Text_second_name.Text + «', «

strSQL = strSQL + «sex = '» + Text_sex.Text + «', «

strSQL = strSQL + «birth = '» + Text_birth.Text + «', «

strSQL = strSQL + «date_postup = '» + Text_postupl.Text + «', «

strSQL = strSQL + «address = '» + Text_addr.Text + «', «

strSQL = strSQL + «zachetka = '» + Text_zachetnum.Text + «', «

strSQL = strSQL + «phone1 = '» + Text_phone1.Text + «', «

strSQL = strSQL + «phone2 = '» + Text_phone2.Text + «', «

strSQL = strSQL + «id_group = '» + Text_groupid.Text + «', «

strSQL = strSQL + «id_kaf = '» + Text_kafid.Text + «', «

strSQL = strSQL + «email = '» + Text_email.Text + «' «

strSQL = strSQL + «WHERE id_stud = '» + id_stud + «' «

objConnection.ConnectionString = strCon

objConnection.Open ()

Dim command As New SqlCommand (strSQL, objConnection)

command.ExecuteNonQuery ()

objConnection.Close ()

objConnection = Nothing

save_photo (Text_id.Text)

MsgBox («Данные сохранены», MsgBoxStyle. OKOnly + MsgBoxStyle. Information, «Данные сохранены»)

Else

MsgBox («Нет записи для редактирования», MsgBoxStyle. OKOnly + MsgBoxStyle. Critical, «Ошибка при сохранениии»)

End If

End Sub

Private Sub But_add_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles But_add.Click

Dim objConnection

Dim strSQL

objConnection = New SqlConnection ()

strSQL = «INSERT INTO f_students (first_name) VALUES ('')»

'MsgBox (strSQL)

objConnection.ConnectionString = strCon

objConnection.Open ()

Dim command As New SqlCommand (strSQL, objConnection)

command.ExecuteNonQuery ()

objConnection.Close ()

objConnection = Nothing

Show_cnt_students ()

num = Label_cnt.Text

Show_student (num — 1, «id_stud DESC»)

End Sub

Private Sub But_del_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles But_del.Click

If MsgBox («Удалить запись?», vbYesNo + vbQuestion, «Подтверждение удаления») = vbYes Then

Dim objConnection

Dim strSQL

objConnection = New SqlConnection ()

strSQL = «DELETE FROM f_students WHERE id_stud = «+ Text_id.Text

objConnection.ConnectionString = strCon

objConnection.Open ()

Dim command As New SqlCommand (strSQL, objConnection)

command.ExecuteNonQuery ()

objConnection.Close ()

objConnection = Nothing

Show_num_student ()

Show_cnt_students ()

num = CType (Label_cnt.Text, Integer)

If num > 0 Then

num = num — 1

Show_student (num, «»)

Else

MsgBox («В таблице нет записей», MsgBoxStyle. OKOnly + MsgBoxStyle. Information, «Предупреждение»)

End If

End If

End Sub

Private Sub PictureBox1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles PictureBox1. Click

Dim fname As String

Dim flag As Integer

Dim picture As Image = Nothing

PictureBox1.Image = picture

flag = OpenFileDialog1. ShowDialog ()

If flag = 1 Then

fname = OpenFileDialog1. FileName

picture = Image. FromFile (fname)

PictureBox1.Image = picture

End If

End Sub

End Class

Барсегян А. А «Методы и модели анализа данных», С-Пб, «БХВ-Петербург», 2004 г.

Барсегян А. А «Методы и модели анализа данных», С-Пб, «БХВ-Петербург», 2004 г.