Информационное обеспечение деятельности предприятия "ЕАЕ-Консалт"
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
erprise Connector Services (DECS), которая позволяет без программирования создавать приложения, объединяющие в себе данные Domino и СУБД;
Lotus Enterprise Integrator (LEI)- отдельный сервер, позволяющий администраторам централизованно планировать и проводить массовый обмен данными в режиме периодической синхронизации или транзакций между Lotus Domino и СУБД, включая семейство IBM DB2, Oracle, Sybase, Microsoft SQL и другие совместимые с ODBC базы данных;
коннекторы Domino Connectors, позволяющие обеспечить обмен информацией между Domino-приложениями и системами управления ресурсами предприятия (ERP), мониторами транзакций и службами каталогов.
Перечисленные выше возможности по интеграции совместно с мощным механизмом репликаций (особенно на низкоскоростных сетях) дают полное основание использовать Domino в качестве первоклассного программного обеспечения промежуточного слоя (middleware) или транспортной системы.
Программное обеспечение
В ЕАЕ-Консалт используется практически все наиболее популярные программные продукты. В качестве рабочей ОС используется Windows XP Corporate Edition, Windows 7 Corporate Edition, openSUSE.
В базовый пакет устанавливаемого ПО входят:
Microsoft office 2003 (для моделей HP Compaq младше 7300).
Microsoft office 2010 (для ПК с Windows 7).
Adobe Acrobat Reader.
WinRAR.
7zip.
Radmin Server.
File Format Converter (Для сохранения совместимости между 2003, 2007, 2010 пакетами MS Office).
Internet Explorer 8.
Пакет обновлений для поправки часовых поясов.
Также может быть установлено любое дополнительное ПО.
Рабочее место
Рабочее место укомплектовано угловым столом, ящиком для документов, компьютером HP Z200, UPS APC 620, двумя мониторами HP, KVM-переключателем для удобства подключения еще одного пк, а так же разнообразными диагностическими устройствами.
Практическое задание
Перед практикой мне было выдано индивидуальное задание, которое должен был выполнить в течении практики. Задание заключалось в создании программы - теста на определение отношения студента к учебе.
Внешний вид программы:
Программа состоит из четырех форм:
Form1 (главное окно программы),
Form2 (инструкции по прохождению теста),
Form3 (диалоговое окно, с выводом результатов всех пройденных ранее тестов) .
Ниже приведен код программы на Visual Basic.
Form1Class Form1a As Integerd As Integers1 As Integers2 As Integers3 As Integers4 As Integerres As Integerres1 As Stringn1 As Stringn2 As Stringn3 As Stringn4 As Stringgen As Stringlvl As StringSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load.Enabled = False.Text = "Тест по спилбергу | Составитель: Семенов В.П"
Sub
Проверяем валидацию данныхSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click= 0TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox1.Text = "Имя" Or TextBox2.Text = "Фамилия" Or TextBox3.Text = "Возраст" Or TextBox4.Text = "Группа" Or (RadioButton5.Checked = False And RadioButton6.Checked = False) Then
MsgBox("Вы должны ввести данные о себе.", vbOKOnly, "Собщение:")
Else.Enabled = False.Enabled = False.Enabled = False.Enabled = False.Enabled = False.Enabled = False.Enabled = False.Text = "Отвечайте на вопросы".Enabled = False
Определение полаRadioButton5.Checked = True Then gen = "ж"RadioButton6.Checked = True Then gen = "м"= a + 1a = 1 Then.Text = "Я спокоен".Checked = False.Checked = False.Checked = False.Checked = FalseIfIfSub
Запрещаем начало теста, если не введены данные о себе
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChangedTextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox1.Text = "Имя" Or TextBox2.Text = "Фамилия" Or TextBox3.Text = "Возраст" Or TextBox4.Text = "Группа" Then.Enabled = False.Enabled = True
End IfSub
Аналогично для остальных кнопок
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChangedTextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox1.Text = "Имя" Or TextBox2.Text = "Фамилия" Or TextBox3.Text = "Возраст" Or TextBox4.Text = "Группа" Then.Enabled = False.Enabled = TrueIfSubSub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChangedTextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox1.Text = "Имя" Or TextBox2.Text = "Фамилия" Or TextBox3.Text = "Возраст" Or TextBox4.Text = "Группа" Then.Enabled = False.Enabled = TrueIfSubSub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChangedTextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox1.Text = "Имя" Or TextBox2.Text = "Фамилия" Or TextBox3.Text = "Возраст" Or TextBox4.Text = "Группа" Then.Enabled = False.Enabled = TrueIfSubSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Раскладываем ответы на вопросы в свои категории
If RadioButton1.Checked = True And (a = 2 Or a = 6 Or a = 10 Or a = 18 Or a = 22 Or a = 26 Or a = 34) Then
s1 = s1 + 1If
Обсчет "обратных" вопросов
If RadioButton1.Checked = True And (a = 14 Or a = 30 Or a = 38) Then= s1 + 4IfRadioButton2.Checked = True And (a = 2 Or a = 6 Or a = 10 Or a = 18 Or a = 22 Or a = 26 Or a = 34) Then= s1 + 2IfRadioButton2.Checked = True And (a = 14 Or a = 30 Or a = 38) Then= s1 + 3IfRadioButton3.Checked = True And (a = 2 Or a = 6 Or a = 10 Or a = 18 Or a = 22 Or a = 26 Or a = 34) Then= s1 + 3IfRadioButton3.Checked = True And (a = 14 Or a = 30 Or a = 38) Then= s1 + 2IfRadioButton4.Checked = True And (a = 2 Or a = 6 Or a = 10 Or a = 18 Or a = 22 Or a = 26 Or a = 34) Then= s1 + 4IfRadioButton4.Checked = True And (a = 14 Or a = 30 Or a = 38) Then= s1 + 1IfRadioButton1.Checked = True And (a = 8 Or a = 12 Or a = 16 Or a = 24 Or a = 28 Or a = 36 Or a = 40) Then= s2 + 1IfRadioButton1.Checked = True And (a = 4 Or a = 20 Or a = 32) Then= s2 + 4IfRadioButton2.Checked = True And (a = 8 Or a = 12 Or a = 16 Or a = 24 Or a = 28 Or a = 36 Or a = 40) Then= s2 + 2IfRadioButton2.Checked = True And (a = 4 Or a = 20 Or a = 32) Then= s2 + 3IfRadioButton3.Checked = True And (a = 8 Or a = 12 Or a = 16 Or a = 24 Or a = 28 Or a = 36 Or a = 40) Then= s2 + 3IfRadioButton3.Checked = True And (a = 4 Or a = 20 Or a = 32) Then= s2 + 2IfRadioButton4.Checked = True And (a = 8 Or a = 12 Or a = 16 Or a = 24 Or a = 28 Or a = 36 Or a = 40) Then= s2 + 4IfRadioButton4.Checked = True And (a = 4 Or a = 20 Or a = 32) Then= s2 + 1IfRadioButton1.Checked = True And (a = 5 Or a = 13 Or a = 17 Or a = 21 Or a = 29 Or a = 37) Then= s3 + 1IfRadioButton1.Checked = True And (a = 1 Or a = 9 Or a = 25 Or a = 33) Then= s3 + 4IfRadioButton2.Checked = True And (a = 5 Or a = 13 Or a = 17 Or a = 21 Or a = 29 Or a = 37)