85
Приложение 1 Код программы EASTest
Листинг 1 экранной формы:
#pragma endregion
DataTable^ Таблица; // Объявление объекта таблица данных
DataSet^ НаборДанных; // Объявление объекта набор данных
bool Авторизация = /*true;*/false;
String^ Доступ;
private: System::Void EASTest_Load(System::Object^ sender,
System::EventArgs^ e) {
Таблица = gcnew DataTable();
auto Подключение = gcnew OleDb::OleDbConnection(
"Data Source=\"Database2003.mdb\";User " +
"ID=Admin;Provider=\"Microsoft.Jet.OLEDB.4.0\";");
Подключение->Open();
auto Команда = gcnew OleDb::OleDbCommand(
"Select * From [Пользователи]", Подключение);
// Создаем объект класса Adapter и выполняем SQL-запрос
auto Адаптер = gcnew OleDb::OleDbDataAdapter(Команда);
// Создаем объект класса DataSet
auto НаборДанных = gcnew DataSet();
// Заполняем DataSet результатом SQL-запроса
Адаптер->Fill(НаборДанных, "Пользователи");
// Содержимое DataSet в виде строки XML для отладки:
auto СтрокаXML = НаборДанных->GetXml();
86
//Заполняем DataTable значениями таблицы DataSet
Таблица = НаборДанных->Tables["Пользователи"];
Подключение->Close();
}
public: System::Void Button1_Click(System::Object^ sender, System::EventArgs^
e) {
String^ x1 = button1->Text;
// Извлекаем коллекцию строк (рядов) из таблицы DataTable:
EnumerableRowCollection<DataRow^>^ СтрокиПользователей =
DataTableExtensions::AsEnumerable(Таблица);
// Создаем словарь Пользователей:
Generic::Dictionary<String^, String^>^ ПользователиПароли = gcnew
Generic::Dictionary<String^, String^>();
for each (DataRow ^ Ряд in СтрокиПользователей)
{// В каждом ряду находим название пользовотеля и его пароль:
String^ Пользователь1 = DataRowExtensions::
Field<String^>(Ряд, "Имя пользователя");
String^ Пароль = DataRowExtensions::
Field<String^>(Ряд, "Пароль");
//Добовляем пользователей и пароли в библиотеку
ПользователиПароли:
ПользователиПароли->Add(Пользователь1, Пароль);
};
87
// представление в строчном виде введенных значений логина и
пароля:
String^ ключь = textBox1->Text;
String^ значение = textBox2->Text;
//Проверка на подлиность логина и пароля сверка с библиотекой
ПользователиПароли:
if (ПользователиПароли->ContainsKey(ключь))
{
String^ x = ("value = { 0 }", ПользователиПароли[ключь]);
if (значение == x)
{//Остается Имя пользователя в ментке label1 и убирает
объекты для ввода:
label1->Text = ключь;
textBox1->Visible = false; textBox2->Visible = false;
label2->Visible = false;
button1->Visible = false; button2->Visible = true;
Авторизация = true;
}
else
{
MessageBox::Show("Пароль не верный");
};
}
else
88
{
MessageBox::Show("Не верное имя пользователя");
};
auto Подключение = gcnew OleDb::OleDbConnection(
"Data Source=\"Database2003.mdb\";User " +
"ID=Admin;Provider=\"Microsoft.Jet.OLEDB.4.0\";");
Подключение->Open();
auto Команда = gcnew OleDb::OleDbCommand(String::Format("Select
[Доступ] From [Пользователи] WHERE [Имя пользователя] = '{0}'", label1-
>Text), Подключение);
OleDbDataReader^ dataReader = Команда->ExecuteReader();
while (dataReader->Read())
{
Доступ = dataReader["Доступ"]->ToString();
}
Подключение->Close();
dataReader->Close();
};
private: System::Void ВыходToolStripMenuItem_Click(System::Object^ sender,
System::EventArgs^ e) {
Application::Exit();
}
private: System::Void Button2_Click(System::Object^ sender, System::EventArgs^
e) {
textBox1->Visible = true; textBox2->Visible = true; label2->Visible = true;
89
button1->Visible = true; button2->Visible = false; label1->Text = "Введите
имя пользователя:";
Авторизация = false;
}
private: System::Void Button4_Click(System::Object^ sender, System::EventArgs^
e) {
if (Авторизация == true)
{
MyForm^ Myform = gcnew MyForm();
Myform->Show();
Myform->label1->Text = label1->Text;
}
else
{
MessageBox::Show("Пройдите авторизацию пользователя");
}
}
private: System::Void button3_Click(System::Object^ sender, System::EventArgs^
e) {
if (Авторизация == true)
{
if (Доступ == "Админ" || Доступ == "Учитель")
{
MyForm1^ Myform1 = gcnew MyForm1();
Myform1->Show();
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;