База данных “Экскурсия”

 

Компонент DBNavigator

Значок компонента DBNavigator находится  на вкладке Data Controls

 

 

Компонент DBNavigator

 

Кнопки компонента DBNavigator

Свойство	Определяет
DataSource	Компонент, являющийся источником данных. В качестве источника данных может выступать база данных (компонент Database), таблица (компонент Table) или результат выполнения запроса (компонент Query)
VisibleButtons	Видимые командные кнопки

 

 

Компонент Edit — поле редактирования.

 

Свойства компонента Edit (объект типа TEdit)

Свойство	Определяет (задает)
Name	Имя компонента. Используется в программе для  доступа к компоненту и его  свойствам, в том числе к тексту, который находится в поле редактирования
Text	Текст, который  находится в поле ввода/редактирования
Left	Расстояние  от левой границы компонента до левой  границы формы
Top	Расстояние  от верхней границы компонента до верхней границы формы
Height	Высоту поля
Width	Ширину поля
Font	Шрифт, используемый для отображения вводимого текста
ParentFont	Признак

 

 

Компонент Label - поле вывода текста

 

Свойства компонента Label

Свойство	Определяет (задает)
Name	Имя компонента. Используется в программе для  доступа к свойствам компонента
Caption	Отображаемый  текст
Font	Шрифт, используемый для отображения текста
ParentFont	Признак наследования шрифта родительского компонента
AutoSize	Признак того, что размер поля определяется его  содержимым
Left	Расстояние  от левой границы поля вывода до левой границы формы
Top	Расстояние  от верхней границы поля вывода до верхней границы формы
Height	Высоту поля вывода
Width	Ширину поля вывода
Wordwrap	Признак того, что слова, которые не помещаются в текущей строке, автоматически  переносятся на следующую строку (значение свойства AutoSize должно быть false)

 

Компонент  Button - командная кнопка

 

Свойства компонента Button (командная кнопка)

Свойство	Описание
Name	Имя компонента. Используется в программе для  доступа к компоненту и его  свойствам
Caption	Текст на кнопке
Enabled	Признак доступности  кнопки. Кнопка доступна, если значение свойства равно true, и недоступна, если значение свойства равно false
Left	Расстояние  от левой границы кнопки до левой  границы формы
Top	Расстояние  от верхней границы кнопки до верхней  границы формы
Height	Высота кнопки
Width	Ширина кнопки

 

Компонент СomboBox — комбинированный список выбора

Стиль изображения компонента ComboBox определяется его свойством Style, которое может принимать следующие основные значения:

csDropDown	Выпадающий список со строками одинаковой высоты и с окном редактирования, позволяющим пользователю вводить или редактировать текст
csSimple	Развернутый список со строками одинаковой высоты и с окном редактирования, позволяющим пользователю вводить  или редактировать текст. При  таком стиле надо делать во время проектирования или программно высоту списка такой, чтобы в нем могло отобразиться требуемое  число строк.
csDropDownList	Выпадающий список со строками одинаковой высоты, не содержащий окна редактирования.
csOwnerDrawFixed	Выпадающий список со строками одинаковой высоты, в которых могут отображаться изображения и текст.
csOwnerDrawVariable	Выпадающий список со строками разной высоты, в которых  могут отображаться изображения  и текст.

 

 

 

TOpenDialog и TSaveDialog

Диалоговые окошки File Open и File Save имеют несколько общих свойств. File Open в основном используется для выбора и открытия файлов, в то время как диалог File Save (так же используется как диалоговое окошко Save As) используется для получения от пользователя имени файла, чтобы сохранить файл.

Инструкция  пользователя.

Рабочее окно программы

 

Рабочее окно программы состоит  из меню, панели поиска, сортировки, рабочей  области (списка) и информационной панели.

Меню

 Пункт меню «Файл» включает  в себя следующие возможности:

 

«Создать» - дает возможность создать новую базу данных и автоматически сохраняет её.

«Открыть» - позволяет открыть сохраненную  базу данных .

«Выход» - завершение работы с программой.

Пункт меню «О программе» включает в  себя возможность узнать сведение о  программе.

Рабочая область

Рабочая область представляет собой  список из записей, панели навигации  и функций сортировки и поиска по записям.

 

Панель навигации:

    к первой записи

    к предыдущей записи

    к следующей записи

    к последней записи

  добавить запись

  удалить запись

 редактирование записи

 сохранить запись

 отменить

 обновить 

Сортировка

 Чтобы произвести сортировку, нужно выбрать критерий по  какому полю таблицы будет  произведена сортировка и нажать  кнопку «Сортировать».

 

Поиск

Чтобы произвести поиск, нужно выбрать критерий по какому полю таблицы будет произведен поиск и ввести нужное вам значение и нажать кнопку «Поиск».

 

 

 

 

 

 

 

 

Заключение

В результате выполнения курсовой работы были получены результаты: создан программный  продукт на интегрированной среде программирования C++ Builder 6.

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

Предоставленная программа предназначена  для работы с базой данных «Экскурсия». Свойства программы - быстрый ввод, обработка и поиск данных в данной базе. Программа включает в себя следующие процедуры: создание новой базы данных, просмотр существующей базы данных, редактирование записей, их добавление и удаление , поиск записей и сортировка записей по данному полю.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Список используемой литературы.

1. А. Я. Архангельский. « Программирование в C++ Builder 6». 2003
2. Н. Б. Культин. «Самоучитель C++ Builder». 2004
3. А. Д. Хомоненко, С. Е. Ададуров. «Работа с базами данных в C++ Builder». 2006
4. www.google.ru

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение

Unit1.cpp

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

 

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::N2Click(TObject *Sender)

{

Table1->Active = false;

if (SaveDialog1->Execute()) {

Table1->DatabaseName = ExtractFilePath(SaveDialog1->FileName);

Table1->TableType = ttParadox;

Table1->TableName = ExtractFileName(SaveDialog1->FileName);

Table1->FieldDefs->Clear();

TFieldDef *pNewDef = Table1->FieldDefs->AddFieldDef();

pNewDef->Name = "Наименование";

pNewDef->DataType = ftString;

pNewDef = Table1->FieldDefs->AddFieldDef();

pNewDef->Name = "Страна";

pNewDef->DataType = ftString;

Table1->FieldDefs->Add("Стоимость",ftCurrency,0,false);

pNewDef = Table1->FieldDefs->AddFieldDef();

pNewDef->Name = "Продолжительность";

pNewDef->DataType = ftString;

pNewDef = Table1->FieldDefs->AddFieldDef();

pNewDef->Name = "Транспорт";

pNewDef->DataType = ftString;

Table1->IndexDefs->Clear();

Table1->IndexDefs->Add("","Наименование",TIndexOptions()<<ixPrimary <<ixUnique);

Table1->IndexDefs->Add("indSt","Страна",TIndexOptions()<<ixCaseInsensitive);

Table1->IndexDefs->Add("indSum","Стоимость",TIndexOptions()<<ixDescending);

Table1->IndexDefs->Add("indPro","Продолжительность",TIndexOptions()<<ixDescending);

Table1->IndexDefs->Add("indTr","Транспорт",TIndexOptions()<<ixDescending);

Table1->CreateTable();

Table1->Active = true;

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N3Click(TObject *Sender)

{

try{

        if (OpenDialog1->Execute()) {

        Table1->Active = false;

        Table1->DatabaseName = ExtractFilePath(OpenDialog1->FileName);

        Table1->TableType = ttParadox;

        Table1->TableName =  ExtractFileName(OpenDialog1->FileName);

        Table1->Active = true;

        }

    }

    catch (EDBEngineError &e){MessageBox(0, "Неправильный формат или испорченная база данных", "Error", MB_OK);}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N7Click(TObject *Sender)

{

MessageBox(0, "Программа реализует работу с базой данных \"Экскурсия\". Выполнил студент группы ДиКТ 21-09 Сергеев Евгений", "О программе", MB_OK);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

switch (ComboBox1->ItemIndex)

  {case 0: Table1->IndexFieldNames="Наименование"; break;

  case 1: Table1->IndexName="indSt"; break;

  case 2: Table1->IndexName="indSum"; break;

  case 3: Table1->IndexName="indPro"; break;

  case 4: Table1->IndexName="indTr"; break;

  }

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

TLocateOptions SOptions;

Table1->Locate(ComboBox2->Text,Edit1->Text,SOptions<<loCaseInsensitive);       

}

//---------------------------------------------------------------------------