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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
160
break;
}
}
return; }
void Порядок(void) {
radioButton1->Location = System::Drawing::Point(16, 379);
radioButton2->Location = System::Drawing::Point(16, 431);
radioButton3->Location = System::Drawing::Point(16, 483);
radioButton4->Location = System::Drawing::Point(16, 535);
radioButton5->Location = System::Drawing::Point(16, 587);
radioButton6->Location = System::Drawing::Point(16, 639);
radioButton7->Location = System::Drawing::Point(16, 691);
radioButton8->Location = System::Drawing::Point(16, 743);
КоличествоСтрок = 0;
String^ pam;
for (int j = 2; j < Таблица->Rows->Count; j++)
{
pam = String::Format("{0}", Таблица->Rows[j]-
>ItemArray[Convert::ToInt16(label4->Text)-1]);
if (pam == "")
{
break;
}
else
161
{
КоличествоСтрок = КоличествоСтрок + 1;
}
}
return;
}
};
}
Листинг 5 экранной формы:
#pragma endregion
DataSet^ НаборДанных;
OleDb::OleDbConnection^ Подключение = gcnew
OleDb::OleDbConnection(
"Data Source=\"Database2003.mdb\";User " +
"ID=Admin;Provider=\"Microsoft.Jet.OLEDB.4.0\";");
OleDb::OleDbCommand^ Команда;
OleDb::OleDbDataAdapter^ Адаптер = gcnew
OleDb::OleDbDataAdapter();
String^ НазваниеТаблиц;
int Пробел;
String^ Доступ;
String^ Имя;
public: System::Void MyForm3_Load(System::Object^ sender,
System::EventArgs^ e) {
Подключение->Open();
162
for each (DataRow ^ dataRow in Подключение->GetSchema("Tables")-
>Rows)
{
if (Convert::ToString(dataRow->ItemArray[3]) == "TABLE")
{
if (Convert::ToString(dataRow->ItemArray[2]) !=
"Пользователи")
{
НазваниеТаблиц = Convert::ToString(dataRow-
>ItemArray[2]);
Пробел = НазваниеТаблиц->IndexOf(" ");
if (Пробел == -1) {
comboBox1->Items-
>Add(Convert::ToString(dataRow->ItemArray[2]));
}
}
}
}
Подключение->Close();
}
public: System::Void button1_Click(System::Object^ sender, System::EventArgs^
e) {
Подключение->Open();
Команда = gcnew OleDb::OleDbCommand(String::Format("Select [Доступ]
From [Пользователи] WHERE [Имя пользователя] = '{0}'", label1->Text),
Подключение);
163
OleDbDataReader^ dataReader = Команда->ExecuteReader();
while (dataReader->Read())
{
Доступ = dataReader["Доступ"]->ToString();
}
Подключение->Close();
if (Доступ == "Админ" || Доступ == "Учитель")
{
Подключение->Open();
Команда->CommandText = String::Format("SELECT * From [{0}]",
Имя);
// Создаем объект класса Adapter и выполняем SQL - запрос
Адаптер = gcnew OleDb::OleDbDataAdapter(Команда);
//Создаем объект класса DataSet
auto НаборДанных = gcnew DataSet();
//Заполняем DataSet результатом SQL-запроса
Адаптер->Fill(НаборДанных, String::Format("{0}", Имя));
Подключение->Close();
dataGridView1->DataSource = НаборДанных;
dataGridView1->DataMember = String::Format("{0}", Имя);
}
else
{
Подключение->Open();
164
Команда->CommandText = String::Format("SELECT * From [{0}]
WHERE [ФИО] = '{1}'", Имя, label1->Text);
// Создаем объект класса Adapter и выполняем SQL - запрос
Адаптер = gcnew OleDb::OleDbDataAdapter(Команда);
//Создаем объект класса DataSet
auto НаборДанных = gcnew DataSet();
//Заполняем DataSet результатом SQL-запроса
Адаптер->Fill(НаборДанных, String::Format("{0}", Имя));
Подключение->Close();
dataGridView1->DataSource = НаборДанных;
dataGridView1->DataMember = String::Format("{0}", Имя);
}
}
private: System::Void comboBox1_SelectedIndexChanged(System::Object^ sender,
System::EventArgs^ e) {
Имя = comboBox1->Text;
}
};
}
Источник: https://baza.diplomsite.ru/previewfile/2096

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

Возникновение и формирование идеи образа человек без направления на страницах публицистических произведений Н.С. Лескова
Геномные исследования как проявление трансформации меры свободы в юридически значимом поведении
Знаки соответствия на товарах
Исследование особенностей профессионального выгорания в управленческой деятельности
Молекулярная эпидемиология штаммов Burkholderia cepacia complex, выделенных от пациентов с муковисцидозом, в Российской Федерации
Педагогические условия формирования мотивации учения у школьников
Расходы на образование в России и зарубежом
Статистический пакет Statistica for Windows
Уголовная ответственность за преступления, связанные с незаконным оборотом наркотических средств
Функционирование растительного кода в традиционной культуре народов Поволжья (на примере фольклора мордвы-эрзи и мокши)