Файл: Разработка базы данных Военная часть.docx

ВУЗ: Не указан

Категория: Курсовая работа

Дисциплина: Не указана

Добавлен: 08.11.2023

Просмотров: 273

Скачиваний: 7

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
, и применяются в различных структурах и областях, в которых требуется безопасность, изолированность и доступность тех или иных данных.

Подводя итоги, можно сказать, что в нашу эпоху базы данных является одной из важнейших компонентов организации, которая упрощает и выполняет роль архива, структуры и безопасности.

СПИСОК ЛИТЕРАТУРЫ


  1. Маркин, А. В. Построение запросов и программирование на SQL. Учебное пособие / А.В. Маркин. - М.: Диалог-Мифи, 2014. - 384 c.

  2. Браст, Э.Дж. Разработка приложений на основе Microsoft SQL Server 2008 / Э.Дж. Браст. - М.: Русская Редакция, 2010. - 651 c.

  3. Питер, Готтшлинг Современный C++. Для программистов, инженеров и ученых / Готтшлинг Питер. - М.: Диалектика / Вильямс, 2016. - 177 c.

  4. Сикорд, Роберт С. Безопасное программирование на C и C++ / Сикорд Роберт С.. - М.: Диалектика / Вильямс, 2016. - 404 c.

  5. Молинаро, Энтони SQL. Сборник рецептов / Энтони Молинаро. - М.: Символ-плюс, 2016. - 672 c.

  6. Оппель, Эндрю Дж. SQL. Полное руководство / Оппель Эндрю Дж.. - М.: Диалектика / Вильямс, 2016. - 960 c.

  7. Проектирование и реализация баз данных Microsoft SQL Server 2000. Учебный курс MCSE. - М.: Русская Редакция, 2017. - 664 c.

  8. Хабибуллин, И. Программирование на языке высокого уровня. C/C++ / И. Хабибуллин. - М.: БХВ-Петербург, 2006. - 512 c.

  9. Михеев, Ростислав 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