Добавлен: 08.11.2023
Просмотров: 267
Скачиваний: 7
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
, и применяются в различных структурах и областях, в которых требуется безопасность, изолированность и доступность тех или иных данных.
Подводя итоги, можно сказать, что в нашу эпоху базы данных является одной из важнейших компонентов организации, которая упрощает и выполняет роль архива, структуры и безопасности.
Исходный файл окна авторизации:
#include
#pragma hdrstop
#include "Unit1.h"
#include
#include
#include
#include
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner){}
void __fastcall TForm1::N2Click(TObject *Sender){
Application->Terminate();}
void __fastcall TForm1::Button1Click(TObject *Sender){
Form1->Hide();
Form2->Show();
Form2->AT->Active = True;
Form2->AC->Connected = True;}
void __fastcall TForm1::Button2Click(TObject *Sender){
Form1->Hide();
Form5->Show();
Form5->IT->Active = True;
Form5->IC->Connected = True;}
void __fastcall TForm1::Button3Click(TObject *Sender){
Form1->Hide();
Form8->Show();
Form8->VT->Active = True;
Form8->VC->Connected = True;}
void __fastcall TForm1::Button4Click(TObject *Sender){
Form1->Hide();
Form11->Show();
Form11->CT->Active = True;
Form11->CC->Connected = True;}
Исходный файл окна пользователя «Администратор»
#include
#pragma hdrstop
#include "Unit2.h"
#include
#include
#include
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner){}
void __fastcall TForm2::Connected(TObject *Sender){
ShowMessage("Подключен - Пользователь: Администратор");}
void __fastcall TForm2::Disconnected(TObject *Sender){
ShowMessage("Отключен - Пользователь: Администратор");}
void __fastcall TForm2::N2Click(TObject *Sender){
Form1->Show();
Form2->Hide();
Form2->AC->Connected = False;}
void __fastcall TForm2::N3Click(TObject *Sender){
Application->Terminate();}
void __fastcall TForm2::N5Click(TObject *Sender){
AT->Active = False;
AT->TableName = "Engineer.Оружие";
AT->Active = True;}
void __fastcall TForm2::N6Click(TObject *Sender){
AT->Active = False;
AT->TableName = "Engineer.Техника";
AT->Active = True;}
void __fastcall TForm2::N7Click(TObject *Sender){
AT->Active = False;
AT->TableName = "Doctor.Личный_Состав";
AT->Active = True;}
void __fastcall TForm2::N8Click(TObject *Sender){
AT->Active = False;
AT->TableName = "Commander.Объекты";
AT->Active = True;}
void __fastcall TForm2::N9Click(TObject *Sender){
AT->Active = False;
AT->TableName = "Commander.Должность";
AT->Active = True;}
void __fastcall TForm2::N11Click(TObject *Sender){
Form2->Hide();
Form3->Show();}
void __fastcall TForm2::N12Click(TObject *Sender){
Form2->Hide();
Form4->Show();}
Файл выборки с диапазоном:
#include
#pragma hdrstop
#include "Unit6.h"
#include
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner){}
void __fastcall TForm6::Button1Click(TObject *Sender){
IQ->Close();
IQ->Active = false;
IQ->SQL->Clear();
IQ->SQL->Add("SELECT *");
IQ->SQL->Add("FROM " + ETable->Text);
IQ->SQL->Add("WHERE " + EStolb->Text + " BETWEEN " + EBefore->Text + " AND " + EAfter->Text );
IQ->Active = true;
IQ->Open();}
void __fastcall TForm6::N1Click(TObject *Sender){
Form6->Hide();
Form5->Show();}
Исходный файл множественной выборки:
#include
#pragma hdrstop
#include "Unit10.h"
#include
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm10 *Form10;
__fastcall TForm10::TForm10(TComponent* Owner)
: TForm(Owner){}
void __fastcall TForm10::Button1Click(TObject *Sender){
VQ->Close();
VQ->Active = false;
VQ->SQL->Clear();
VQ->SQL->Add("SELECT Фамилия AS 'Фамилия военнослужащего'");
VQ->SQL->Add("FROM Doctor.Личный_Состав");
VQ->SQL->Add("WHERE Личный_Номер = " + LN->Text + " AND Код_Должности = " + CD ->Text + " AND Код_Взвода = " + CV->Text);
VQ->Active = true;}
Подводя итоги, можно сказать, что в нашу эпоху базы данных является одной из важнейших компонентов организации, которая упрощает и выполняет роль архива, структуры и безопасности.
СПИСОК ЛИТЕРАТУРЫ
-
Маркин, А. В. Построение запросов и программирование на SQL. Учебное пособие / А.В. Маркин. - М.: Диалог-Мифи, 2014. - 384 c. -
Браст, Э.Дж. Разработка приложений на основе Microsoft SQL Server 2008 / Э.Дж. Браст. - М.: Русская Редакция, 2010. - 651 c. -
Питер, Готтшлинг Современный C++. Для программистов, инженеров и ученых / Готтшлинг Питер. - М.: Диалектика / Вильямс, 2016. - 177 c. -
Сикорд, Роберт С. Безопасное программирование на C и C++ / Сикорд Роберт С.. - М.: Диалектика / Вильямс, 2016. - 404 c. -
Молинаро, Энтони SQL. Сборник рецептов / Энтони Молинаро. - М.: Символ-плюс, 2016. - 672 c. -
Оппель, Эндрю Дж. SQL. Полное руководство / Оппель Эндрю Дж.. - М.: Диалектика / Вильямс, 2016. - 960 c. -
Проектирование и реализация баз данных Microsoft SQL Server 2000. Учебный курс MCSE. - М.: Русская Редакция, 2017. - 664 c. -
Хабибуллин, И. Программирование на языке высокого уровня. C/C++ / И. Хабибуллин. - М.: БХВ-Петербург, 2006. - 512 c. -
Михеев, Ростислав MS SQL Server 2005 для администраторов / Ростислав Михеев. - М.: БХВ-Петербург, 2007. - 534 c.
ПРИЛОЖЕНИЕ А
Исходный файл окна авторизации:
#include
#pragma hdrstop
#include "Unit1.h"
#include
#include
#include
#include
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner){}
void __fastcall TForm1::N2Click(TObject *Sender){
Application->Terminate();}
void __fastcall TForm1::Button1Click(TObject *Sender){
Form1->Hide();
Form2->Show();
Form2->AT->Active = True;
Form2->AC->Connected = True;}
void __fastcall TForm1::Button2Click(TObject *Sender){
Form1->Hide();
Form5->Show();
Form5->IT->Active = True;
Form5->IC->Connected = True;}
void __fastcall TForm1::Button3Click(TObject *Sender){
Form1->Hide();
Form8->Show();
Form8->VT->Active = True;
Form8->VC->Connected = True;}
void __fastcall TForm1::Button4Click(TObject *Sender){
Form1->Hide();
Form11->Show();
Form11->CT->Active = True;
Form11->CC->Connected = True;}
Исходный файл окна пользователя «Администратор»
#include
#pragma hdrstop
#include "Unit2.h"
#include
#include
#include
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner){}
void __fastcall TForm2::Connected(TObject *Sender){
ShowMessage("Подключен - Пользователь: Администратор");}
void __fastcall TForm2::Disconnected(TObject *Sender){
ShowMessage("Отключен - Пользователь: Администратор");}
void __fastcall TForm2::N2Click(TObject *Sender){
Form1->Show();
Form2->Hide();
Form2->AC->Connected = False;}
void __fastcall TForm2::N3Click(TObject *Sender){
Application->Terminate();}
void __fastcall TForm2::N5Click(TObject *Sender){
AT->Active = False;
AT->TableName = "Engineer.Оружие";
AT->Active = True;}
void __fastcall TForm2::N6Click(TObject *Sender){
AT->Active = False;
AT->TableName = "Engineer.Техника";
AT->Active = True;}
void __fastcall TForm2::N7Click(TObject *Sender){
AT->Active = False;
AT->TableName = "Doctor.Личный_Состав";
AT->Active = True;}
void __fastcall TForm2::N8Click(TObject *Sender){
AT->Active = False;
AT->TableName = "Commander.Объекты";
AT->Active = True;}
void __fastcall TForm2::N9Click(TObject *Sender){
AT->Active = False;
AT->TableName = "Commander.Должность";
AT->Active = True;}
void __fastcall TForm2::N11Click(TObject *Sender){
Form2->Hide();
Form3->Show();}
void __fastcall TForm2::N12Click(TObject *Sender){
Form2->Hide();
Form4->Show();}
Файл выборки с диапазоном:
#include
#pragma hdrstop
#include "Unit6.h"
#include
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner){}
void __fastcall TForm6::Button1Click(TObject *Sender){
IQ->Close();
IQ->Active = false;
IQ->SQL->Clear();
IQ->SQL->Add("SELECT *");
IQ->SQL->Add("FROM " + ETable->Text);
IQ->SQL->Add("WHERE " + EStolb->Text + " BETWEEN " + EBefore->Text + " AND " + EAfter->Text );
IQ->Active = true;
IQ->Open();}
void __fastcall TForm6::N1Click(TObject *Sender){
Form6->Hide();
Form5->Show();}
Исходный файл множественной выборки:
#include
#pragma hdrstop
#include "Unit10.h"
#include
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm10 *Form10;
__fastcall TForm10::TForm10(TComponent* Owner)
: TForm(Owner){}
void __fastcall TForm10::Button1Click(TObject *Sender){
VQ->Close();
VQ->Active = false;
VQ->SQL->Clear();
VQ->SQL->Add("SELECT Фамилия AS 'Фамилия военнослужащего'");
VQ->SQL->Add("FROM Doctor.Личный_Состав");
VQ->SQL->Add("WHERE Личный_Номер = " + LN->Text + " AND Код_Должности = " + CD ->Text + " AND Код_Взвода = " + CV->Text);
VQ->Active = true;}
1 2 3 4 5 6 7