close

Вход

Забыли?

вход по аккаунту

?

Otschet 1.4

код для вставкиСкачать
Министерство образования Республики Беларусь
Учреждение образования
"Брестский государственный технический университет"
Кафедра ЭВМиС
Лабораторная работа №4
по базам данных, знаний и экспертных систем
"Использование SQL- запросов в среде C++ Builder"
Выполнил:
студент 3 курса,
факультета ЭИС,
группы Э-47
Балиевич А.С.
Проверила:
Грисевич Л.Н.
Брест 2013г.
Цель работы: получить навыки организации SQL-запросов.
Задание:
* Спроектировать функции приложения своей предметной области, для реализации которых следует использовать запросы.
* Реализовать запросы в среде C++ Builder
1. Запрос на выборку данных с несколькими условиями, реализованный через свойство SQL;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("SELECT *");
Query1->SQL->Add("FROM NF.db");
Query1->SQL->Add("WHERE DateOfDecision>\"01.01.2001\" AND Convicted=True");
Label9->Caption=Query1->SQL->GetText();
Query1->Open();
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("SELECT *");
Query1->SQL->Add("FROM NF.db");
Label9->Caption=Query1->SQL->GetText();
Query1->Open();
}
2.Запрос на выборку данных из двух объединенных таблиц, реализованный с помощью SQL Builder;
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("SELECT Db2.NumberPrisoner,Db2.FIO,Db2.DateOfBirth,Db2.Passport,Db1.ArticleViolations");
Query1->SQL->Add("FROM \"NF.db\" Db1");
Query1->SQL->Add("INNER JOIN \"NZ.db\" Db2");
Query1->SQL->Add("ON (Db2.NumberPrisoner=Db1.NumberPrisoner)");
Query1->SQL->Add("WHERE Db1.NumberPrisoner=Db1.NumberPrisoner");
Label9->Caption=Query1->SQL->GetText();
Query1->Open();
}
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Query2->Close();
Query2->SQL->Clear();
Query2->SQL->Add("SELECT *");
Query2->SQL->Add("FROM NZ.db");
Query2->Open();
}
2. Динамический запрос с вводом условия отбора с клавиатуры;
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if(Edit1->Text.Length()==10)
{
Query2->Active=false;
Query2->SQL->Clear();
Query2->SQL->Add("SELECT *");
Query2->SQL->Add("FROM NZ.db");
Query2->SQL->Add("WHERE DateOfBirth > :cout");
Query2->Params->Items[0]->AsDate=StrToDate(Edit1->Text);
Query2->Active=true;
}
else
{
Query2->Active=false;
Query2->SQL->Clear();
Query2->SQL->Add("SELECT *");
Query2->SQL->Add("FROM NZ.db");
Query2->Active=true;
}
}
4.Формируемый запрос: реализовать 1 и 2 запросы с использованием одного компонента TQuery;
5.Три активных запроса: на добавление, удаление и обновление данных в таблице.
void __fastcall TForm1::Button5Click(TObject *Sender)
{
if(Edit2->Text=="" || Edit3->Text=="" || Edit4->Text=="" || Edit5->Text=="")
ShowMessage("Заполните поля!");
else
{
Form1->Query2->Close();
Form1->Query2->SQL->Clear();
Form1->Query2->SQL->Add("Insert into NZ.db");
Form1->Query2->SQL->Add("(NumberPrisoner,FIO,DateOfBirth,Passport)");
Form1->Query2->SQL->Add("Values(\""+Edit2->Text+"\",\""+Edit3->Text+"\",\""+Edit4->Text+"\",\""+Edit5->Text+"\")");
Label10->Caption=Query2->SQL->GetText();
Form1->Query2->ExecSQL();
Form1->Query2->SQL->Clear();
Form1->Query2->SQL->Add("SELECT *");
Form1->Query2->SQL->Add("FROM NZ.db");
Form1->Query2->Open();
}
}
void __fastcall TForm1::Button6Click(TObject *Sender)
{
if(Edit7->Text=="")
ShowMessage("Заполните поля!");
else
{
Query2->Close();
Query2->SQL->Clear();
Query2->SQL->Add("UPDATE NZ.db");
Query2->SQL->Add("SET ");
if(Edit8->Text!="")
{
Query2->SQL->Add("FIO=\"");
Query2->SQL->Add(Edit8->Text+"\",");
}
if(Edit9->Text!="")
{
Query2->SQL->Add("DateOfBirth=\"");
Query2->SQL->Add(Edit9->Text+"\",");
}
if(Edit10->Text!="")
{
Query2->SQL->Add("Passport=\"");
Query2->SQL->Add(Edit10->Text+"\"");
}
Query2->SQL->Add("WHERE NumberPrisoner=");
Query2->SQL->Add(Edit7->Text);
Label10->Caption=Query2->SQL->GetText();
Query2->ExecSQL();
Query2->SQL->Clear();
Query2->SQL->Add("SELECT *");
Query2->SQL->Add("FROM NZ.db");
Query2->Open();
}
}
void __fastcall TForm1::Button7Click(TObject *Sender)
{
if(Edit6->Text!="")
{
Query2->Close();
Query2->SQL->Clear();
Query2->SQL->Add("DELETE FROM NF.db");
Query2->SQL->Add("WHERE NumberPrisoner=");
Query2->SQL->Add(Edit6->Text);
Query2->ExecSQL();
Query2->SQL->Clear();
Query2->SQL->Add("DELETE FROM NZ.db");
Query2->SQL->Add("WHERE NumberPrisoner=");
Query2->SQL->Add(Edit6->Text);
Label10->Caption=Query2->SQL->GetText();
Query2->ExecSQL();
Query2->SQL->Clear();
Query2->SQL->Add("SELECT *");
Query2->SQL->Add("FROM NZ.db");
Query2->Open();
Query1->SQL->Clear();
Query1->SQL->Add("SELECT *");
Query1->SQL->Add("FROM NF.db");
Query1->Open();
}
else ShowMessage("Введите номер заключенного!");
}
Вывод: получил навыки организации SQL-запросов.
1
Документ
Категория
Рефераты
Просмотров
7
Размер файла
141 Кб
Теги
otschet
1/--страниц
Пожаловаться на содержимое документа