Дипломная работа: Автоматизация процесса контроля знаний учащихся ГОУ СОШ №17

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
90
Myform1->label1->Text = label1->Text;
}
else
{
MessageBox::Show("У вас нет прав доступа");
}
}
else
{
MessageBox::Show("Пройдите авторизацию пользователя");
}
}
private: System::Void button5_Click(System::Object^ sender, System::EventArgs^
e) {
if (Авторизация == true)
{
if (Доступ == "Админ" || Доступ == "Учитель")
{
MyForm2^ Myform2 = gcnew MyForm2();
Myform2->Show();
Myform2->label1->Text = label1->Text;
}
else
{
91
MessageBox::Show("У вас нет прав доступа");
}
}
else
{
MessageBox::Show("Пройдите авторизацию пользователя");
}
}
private: System::Void button6_Click(System::Object^ sender, System::EventArgs^
e) {
if (Авторизация == true)
{
MyForm3^ Myform3 = gcnew MyForm3();
Myform3->Show();
Myform3->label1->Text = label1->Text;
}
else
{
MessageBox::Show("Пройдите авторизацию пользователя");
}
}
};
};
92
Листинг 2 экранной формы:
#pragma endregion
DataSet^ НаборДанных; // Объявление объекта набор данных
OleDb::OleDbDataAdapter^ Адаптер;
OleDb::OleDbConnection^ Подключение;
OleDb::OleDbCommand^ Команда;
public: System::Void button3_Click(System::Object^ sender,
System::EventArgs^ e) {
//Добавление в таблицу
dataGridView1->ColumnCount = dataGridView1->ColumnCount + 1;
dataGridView1->RowCount = 10;
dataGridView1->ColumnHeadersVisible = true;
dataGridView1->Columns[Convert::ToInt32(label4->Text) - 1]->Name
= label4->Text;
dataGridView1[Convert::ToInt32(label4->Text) - 1, 0]->Value =
textBox2->Text;
dataGridView1[Convert::ToInt32(label4->Text) - 1, 1]->Value =
textBox3->Text;
dataGridView1[Convert::ToInt32(label4->Text) - 1, 2]->Value =
textBox4->Text;
dataGridView1[Convert::ToInt32(label4->Text) - 1, 3]->Value =
textBox5->Text;
dataGridView1[Convert::ToInt32(label4->Text) - 1, 4]->Value =
textBox6->Text;
dataGridView1[Convert::ToInt32(label4->Text) - 1, 5]->Value =
textBox7->Text;
93
dataGridView1[Convert::ToInt32(label4->Text) - 1, 6]->Value =
textBox8->Text;
dataGridView1[Convert::ToInt32(label4->Text) - 1, 7]->Value =
textBox9->Text;
dataGridView1[Convert::ToInt32(label4->Text) - 1, 8]->Value =
textBox10->Text;
dataGridView1[Convert::ToInt32(label4->Text) - 1, 9]->Value =
textBox11->Text;
//Обновление номера вопроса
label4->Text = Convert::ToString(Convert::ToInt16(label4->Text) + 1);
}
public: System::Void button5_Click(System::Object^ sender, System::EventArgs^
e) {
//Удаление последней записи
if (dataGridView1->ColumnCount != 0)
{
dataGridView1->ColumnCount = dataGridView1->ColumnCount - 1;
}
//Обновление номера вопроса
if (Convert::ToInt32(label4->Text) != 1) {
label4->Text = Convert::ToString(Convert::ToInt16(label4->Text) - 1);
}
}
94
public: System::Void button1_Click(System::Object^ sender, System::EventArgs^
e) {
//Создатель
Видимость();
textBox1->Visible = true;
label4->Text = Convert::ToString(1);
dataGridView1->ColumnCount = 0;
textBox1->Clear(); textBox2->Clear(); textBox3->Clear(); textBox4->Clear();
textBox5->Clear();
textBox6->Clear(); textBox7->Clear(); textBox8->Clear(); textBox9->Clear();
textBox10->Clear();
textBox11->Clear(); textBox12->Clear();
}
void Видимость (void)
{label2->Visible = true; label3->Visible = true; label4->Visible = true; label5-
>Visible = true;
label6->Visible = true; label7->Visible = true; label8->Visible = true; label9-
>Visible = true;
label10->Visible = true; label11->Visible = true; label12->Visible = true;
label13->Visible = true;
label14->Visible = true; label15->Visible = true;
textBox12->Visible = true; textBox2->Visible = true; textBox3->Visible =
true; textBox4->Visible = true;
textBox5->Visible = true; textBox6->Visible = true; textBox7->Visible =
true; textBox8->Visible = true;
Источник: https://baza.diplomsite.ru/previewfile/2096

Смотрите также:

144969
16.04.20 г. Определение цены и объёма сбыта
Анализ и оценка деятельности предприятия ООО КАПС дизайн
Билеты к экзамену по модулю
Ветеринарно-санитарная экспертиза меда
Возникновение и формирование идеи образа человек без направления на страницах публицистических произведений Н.С. Лескова
Геномные исследования как проявление трансформации меры свободы в юридически значимом поведении
Диагностика и тактика хирургического лечения обструктивно-гнойного калькулезного пиелонефрита у детей
Знаки соответствия на товарах
Исследование взаимосвязи литературы и культуры за рубежом