Программа выполнена в среде Borland C++Builder 6 на языке программирования C++ с использованием визуальных средств. Программа имитирует Справочник филателиста.

Необходимо разработать программу для учета марок и коллекционеров.

Данная программа состоит из базы данных включающей в себя одну таблицу:

Книги:

Ш номер УДК

Ш фамилию и инициалы автора

Ш название

Ш год издания

Ш количество экземпляров данной книги в библиотеке

Данная программа предназначена для:

Всех категорий пользователей, которые хотят ознакомиться со справочником филателиста.

Во время работы с программой пользователь должен иметь возможность решать следующие задачи:

1. При необходимости просматривать базу данных.

2. Редактировать ранее внесенные данные базы данных.

3. Удалять и добавлять записи, в зависимости от цели пользования данной программой.

4. Осуществлять поиск как по одному из параметров так и по всем параметрам одновременно.

3.2 Структура хранимой информации

Рисунок 1 - Окно программы

Основные меню программы:

Меню "Выход"

Рисунок 2 - Выход

Меню "Правка"

Рисунок 3 - Правка

Меню "Справка"

Рисунок 4 - Справка

О программе - содержит информацию о программе, а именно: название продукта, описание, авторские права и название организации.

Рисунок 5 - О программе

Работа с данными:

Доступ к данным осуществляется непосредственно при запуске программы.

Программа производит начальное формирование данных о всех книгах в библиотеке в виде списка.

Для добавления данных необходимо открыть форму добавления данных.

Это можно сделать выбрав в меню "Правка" пункт "Добавить книгу" или выбрать этот же пункт из контекстного меню таблицы.

Для успешного добавления новой записи необходимо заполнить все поля формы.

В поля "год издания" и "количество в библиотеке" допускается вводить только числа.

Рисунок 6 - Добавление книги

Для изменения данным необходимо в меню Правка выбрать пункт "Редактировать книгу". После чего откроется аналогичное окно.

Рисунок 7 - Редактирование книги

Для удаления данных необходимо из меню Правка выбрать пункт "Удалить выделенную книгу".

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

Для осуществления поиска выберите пункт "Поиск." в меню Правка или из контекстного меню таблицы.

Поиск может осуществляться как по любому из параметров так и по всем параметрам одновременно.

В поля "Год издания" и "Количество в библиотеке" допускается вводить только целые числа.

Рисунок 8 - Поиск

5. Вывод

frmMain (Unit1. cpp)

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

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h" // frmMain

#include "Unit2. h" // frmSearch

#include "Unit3. h" // frmEdit

#include "Unit4. h" // frmAbout

#include "UserFunctions_unit. h"

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TfrmMain *frmMain;

int frmEditState; // Объявление переменной, указывающей на тип формы frmEdit (добавление данных или редактирование)

bool sortedbooks = false; // переменная, указывающая были ли отсортированы книги

MyFunctions func; // объявление объекта типа MyFunctions

//

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

__fastcall TfrmMain:: TfrmMain (TComponent* Owner)

: TForm (Owner)

{

// Задаем начальную надпись в панели статуса

StatusBar1->Panels->Items [0] - >Text = " Просмотр списка всех книг в библиотеке";

try // Перехватываем возможные ошибки во время выполнения блока программного кода

{

String TTQuery1 = "select num_udk, autor, title, year_print, count_in_library from Books"; // Строковая переменная, содержащая SQL запрос к базе данных

ADOQuery1->SQL->Clear (); // очистить SQL-запрос

ADOQuery1->SQL->Add (TTQuery1); // Устанавливаем значение SQL-запроса в объект ADOQuery1

ADOQuery1->Open (); // активировать SQL-запрос

}

catch (EDatabaseError&) // Обрабатываем возможное исключение (ошибку)

{

Application->MessageBox ("Ошибка при работе с базой данных", "Вывод записей", MB_OK + MB_ICONINFORMATION); // Выводим сообщение

}

func. ChangeCollName (DBGrid1); // Изменение названий столбцов

}

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

// Функция завершения работы приложения

void __fastcall TfrmMain:: mnuExitClick (TObject *Sender)

{

this->Close (); // Закрыть приложение

}

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

// Функция вызова формы поиска

void __fastcall TfrmMain:: mnuSearchClick (TObject *Sender)

{

frmSearch->Show (); // Открытие формы поиска

}

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

// Функция вызова формы поиска

void __fastcall TfrmMain:: popmnuSearchClick (TObject *Sender)

{

frmSearch->Show (); // Открытие формы поиска

}

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

// Функция вызова формы добавления книги

void __fastcall TfrmMain:: mnuAddClick (TObject *Sender)

{

if (! frmEdit->Showing) // если форма еще не открыта

{

frmEditState = 0; // устанавливаем состояние формы, указывающее на функции добавления книги

frmEdit->Show (); // Открытие формы добавления книги

}

}

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

// Функция вызова формы редактирования книги

void __fastcall TfrmMain:: mnuEditBookClick (TObject *Sender)

{

if (! frmEdit->Showing) // если форма еще не открыта

{

frmEditState = 1; // устанавливаем состояние формы, указывающее на функции редактирования книги

frmEdit->Show (); // Открытие формы добавления книги

}

}

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

// Функция вызова формы добавления книги

void __fastcall TfrmMain:: popmnuAddClick (TObject *Sender)

{

if (! frmEdit->Showing) // если форма еще не открыта

{

frmEditState = 0; // устанавливаем состояние формы, указывающее на функции добавления книги

frmEdit->Show (); // Открытие формы добавления книги

}

}

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

// Функция вызова формы редактирования книги

void __fastcall TfrmMain:: popmnuEditBookClick (TObject *Sender)

{

if (! frmEdit->Showing) // если форма еще не открыта

{

frmEditState = 1; // устанавливаем состояние формы, указывающее на функции редактирования книги

frmEdit->Show (); // Открытие формы добавления книги

}

}

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

// Функция вызова метода удаления книги

void __fastcall TfrmMain:: mnuDeleteClick (TObject *Sender)

{

frmMain->DeleteBook (); // вызов функции удаления книги

}

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

// Функция удаления книги

void __fastcall TfrmMain:: DeleteBook ()

{

if (Application->MessageBox ("Вы действительно жедаете удалить книгу?", "Удаление записи о книге", MB_OKCANCEL + MB_ICONWARNING) == IDOK) // Вызываем MessageBox. Если пользователь нажмет на кнопку OK

{

// формирование SQL запроса // то продолжаем выполнять действия

String QueryDelete = "DELETE FROM Books" \

" WHERE num_udk='"+DBGrid1->Fields [0] - >AsString+"' and autor='"+DBGrid1->Fields [1] - >AsString+"'and title='"+DBGrid1->Fields [2] - >AsString+"'and year_print="+DBGrid1->Fields [3] - >AsString+" and count_in_library="+DBGrid1->Fields [4] - >AsString; // Строковая переменная, содержащая SQL запрос к базе данных

try // Перехватываем возможные ошибки во время выполнения блока программного кода

{

ADOCommand1->CommandText = QueryDelete; // Устанавливаем значение SQL-запроса в объект ADOCommand1

ADOCommand1->Execute (); // выполнение SQL-запрос

// Обновление списка книг в таюлице DBGrid1

String TTQuery1 = "select num_udk, autor, title, year_print, count_in_library from Books"; // Строковая переменная, содержащая SQL запрос к базе данных

ADOQuery1->SQL->Clear (); // очистить SQL-запрос

ADOQuery1->SQL->Add (TTQuery1); // Устанавливаем значение SQL-запроса в объект ADOQuery1

ADOQuery1->Open (); // активировать SQL-запрос

func. ChangeCollName (DBGrid1); // Изменение названий столбцов

}

catch (EDatabaseError&) // Обрабатываем возможное исключение (ошибку)

{

Application->MessageBox ("Ошибка при работе с базой данных", "Вывод записей", MB_OK + MB_ICONINFORMATION); // Выводим сообщение

}

}

}

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

// Функция вызова метода удаления книги

void __fastcall TfrmMain:: popmnuDeleteClick (TObject *Sender)

{

frmMain->DeleteBook (); // вызов функции удаления книги

}

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

// Функция вызова формы frmAbout

void __fastcall TfrmMain:: mnuAboutClick (TObject *Sender)

{

frmAbout->Show (); // Открытие формы frmAbout

}

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

// Функция выводит список всех книг в библиотеке

void __fastcall TfrmMain:: mnuShowAllClick (TObject *Sender)

{

String TTQuery1 = "select num_udk, autor, title, year_print, count_in_library from Books"; // Строковая переменная, содержащая SQL запрос к базе данных

ADOQuery1->SQL->Clear (); // очистить SQL-запрос

ADOQuery1->SQL->Add (TTQuery1); // Устанавливаем значение SQL-запроса в объект ADOQuery1

ADOQuery1->Open (); // активировать SQL-запрос

func. ChangeCollName (DBGrid1); // Изменение названий столбцов

frmMain->mnuShowAll->Visible = false; // скрываем пункты меню

frmMain->popmnuShowAll->Visible = false; // так как при выведенном полном списке книг они не востребованы

StatusBar1->Panels->Items [0] - >Text = " Просмотр списка всех книг в библиотеке"; // Изменяем текст на панели статуса

}

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

// Функция выводит список всех книг в библиотеке

void __fastcall TfrmMain:: popmnuShowAllClick (TObject *Sender)

{

String TTQuery1 = "select num_udk, autor, title, year_print, count_in_library from Books"; // Строковая переменная, содержащая SQL запрос к базе данных

ADOQuery1->SQL->Clear (); // очистить SQL-запрос

ADOQuery1->SQL->Add (TTQuery1); // Устанавливаем значение SQL-запроса в объект ADOQuery1

ADOQuery1->Open (); // активировать SQL-запрос

func. ChangeCollName (DBGrid1); // Изменение названий столбцов

frmMain->mnuShowAll->Visible = false; // скрываем пункты меню

frmMain->popmnuShowAll->Visible = false; // так как при выведенном полном списке книг они не востребованы

StatusBar1->Panels->Items [0] - >Text = " Просмотр списка всех книг в библиотеке"; // Изменяем текст на панели статуса

}

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

// Функция открытия файла справки help. chm

void __fastcall TfrmMain:: mnuHelpContentClick (TObject *Sender)

{

AnsiString FILE_HELP_NAME_STR = "help. chm"; // Задаем имя файла справки

if (FileExists (FILE_HELP_NAME_STR)) // Если файл help. chm присутствует в каталоге программы

{

ShellExecute (Handle, "open", "help. chm", 0, 0, SW_SHOWNORMAL); // запускаем на выполнение

return;

}

else

{

ShowMessage ("Файл справки \"help. chm\" в папке с исполняемым файлом не найден. Для исправления данной ситуации можно либо переустановить программу, либо искать файл самостоятельно. ");

return;

}

}

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

// Функция вызова метода сортировки книг

void __fastcall TfrmMain:: mnuSortByYearClick (TObject *Sender)

{

SortBook (); // вызов функции сортировки книг

}

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

// Функция сортировки книг

void __fastcall TfrmMain:: SortBook ()

{

if (! sortedbooks) // Если книги не отсортированны, то проводим сортировку

{

String TTQuery1 = "select num_udk, autor, title, year_print, count_in_library from Books ORDER BY year_print DESC"; // Строковая переменная, содержащая SQL запрос к базе данных

ADOQuery1->SQL->Clear (); // очистить SQL-запрос

ADOQuery1->SQL->Add (TTQuery1); // Устанавливаем значение SQL-запроса в объект ADOQuery1

ADOQuery1->Open (); // активировать SQL-запрос

func. ChangeCollName (DBGrid1); // Изменение названий столбцов

mnuSortByYear->Caption = "Отменить сортировку по годам"; // Изменяем названия

popSortByYear->Caption = "Отменить сортировку по годам"; // пунктов меню

sortedbooks = true; // и значение переменной на обратные

}

else // Если книги отсортированны, то отменяем сортировку

{

String TTQuery1 = "select num_udk, autor, title, year_print, count_in_library from Books"; // Строковая переменная, содержащая SQL запрос к базе данных

ADOQuery1->SQL->Clear (); // очистить SQL-запрос

ADOQuery1->SQL->Add (TTQuery1); // Устанавливаем значение SQL-запроса в объект ADOQuery1

ADOQuery1->Open (); // активировать SQL-запрос

func. ChangeCollName (DBGrid1); // Изменение названий столбцов

mnuSortByYear->Caption = "Упорялочить по годам"; // Изменяем названия

popSortByYear->Caption = "Упорялочить по годам"; // пунктов меню

sortedbooks = false; // и значение переменной на обратные

}

}

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

// Функция вызова метода сортировки книг

void __fastcall TfrmMain:: popSortByYearClick (TObject *Sender)

{

SortBook (); // вызов функции сортировки книг

}

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

frmMain (Unit1. h)

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

#ifndef Unit1H

#define Unit1H

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

#include <Classes. hpp>

#include <Controls. hpp>

#include <StdCtrls. hpp>

#include <Forms. hpp>

#include <ADODB. hpp>

#include <DB. hpp>

#include <DBGrids. hpp>

#include <Grids. hpp>

#include <ComCtrls. hpp>

#include <Menus. hpp>

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

class TfrmMain: public TForm

{

__published: // IDE-managed Components

TADOConnection *ADOConnection1;

TADOQuery *ADOQuery1;

TDBGrid *DBGrid1;

TDataSource *DataSource1;

TStatusBar *StatusBar1;

TMainMenu *MainMenu1;

TMenuItem *mnuFile;

TMenuItem *mnuExit;

TMenuItem *mnuEdit;

TMenuItem *mnuAdd;

TMenuItem *mnuDelete;

TMenuItem *mnuSearch;

TMenuItem *N3;

TMenuItem *mnuHelp;

TMenuItem *mnuHelpContent;

TMenuItem *N1;

TMenuItem *mnuAbout;

TPopupMenu *PopupMenu1;

TMenuItem *popmnuAdd;

TMenuItem *popmnuDelete;

TMenuItem *N2;

TMenuItem *popmnuSearch;

TMenuItem *popmnuEditBook;

TMenuItem *mnuEditBook;

TADOCommand *ADOCommand1;

TADODataSet *ADODataSet1;

TMenuItem *mnuShowAll;

TMenuItem *popmnuShowAll;

TMenuItem *N4;

TMenuItem *mnuSortByYear;

TMenuItem *N5;

TMenuItem *popSortByYear;

void __fastcall mnuExitClick (TObject *Sender);

void __fastcall mnuSearchClick (TObject *Sender);

void __fastcall popmnuSearchClick (TObject *Sender);

void __fastcall mnuAddClick (TObject *Sender);

void __fastcall mnuEditBookClick (TObject *Sender);

void __fastcall popmnuAddClick (TObject *Sender);

void __fastcall popmnuEditBookClick (TObject *Sender);

void __fastcall mnuDeleteClick (TObject *Sender);

void __fastcall DeleteBook ();

void __fastcall popmnuDeleteClick (TObject *Sender);

void __fastcall mnuAboutClick (TObject *Sender);

void __fastcall mnuShowAllClick (TObject *Sender);

void __fastcall popmnuShowAllClick (TObject *Sender);

void __fastcall mnuHelpContentClick (TObject *Sender);

void __fastcall mnuSortByYearClick (TObject *Sender); // Функция удаления выделенной книги

void __fastcall SortBook ();

void __fastcall popSortByYearClick (TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TfrmMain (TComponent* Owner);

};

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

extern PACKAGE TfrmMain *frmMain;

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

#endif

frmSearch (Unit2. cpp)

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

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "UserFunctions_unit. h" // подключение пользовательской функции

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TfrmSearch *frmSearch;

extern bool sortedbooks; // Объявляем общую переменную для форм frmMain, frmEdit и frmSearch

MyFunctions func2; // объявление объекта типа MyFunctions

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

__fastcall TfrmSearch:: TfrmSearch (TComponent* Owner)

: TForm (Owner)

{

}

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

// Функция обработки нажатия кнопки btnSearch

void __fastcall TfrmSearch:: btnSearchClick (TObject *Sender)

{

bool searchOK = false; // переменная, указывающая заполнено ли хоть одно поле для поиска

String QuerySearch = "SELECT num_udk, autor, title, year_print, count_in_library from Books WHERE "; // Строковая переменная, содержащая SQL запрос к базе данных

if (txtUdk->Text! = "") // Если txtUdk содержит текст

{

searchOK = true; // переменной присваиваем true

QuerySearch = QuerySearch + "num_udk = '" + txtUdk->Text + "' "; // добкавляем текст поиска к SQL запросу

}

if (txtAuthor->Text! = "") // Если txtAuthor содержит текст

{

if (searchOK) QuerySearch = QuerySearch + " and "; // если это не первое заполненное поле

QuerySearch = QuerySearch + "autor like '%" + txtAuthor->Text + "%' "; // добкавляем текст поиска к SQL запросу

searchOK = true; // переменной присваиваем true

}

if (txtTitle->Text! = "")

{

if (searchOK) QuerySearch = QuerySearch + " and ";

QuerySearch = QuerySearch + "title like '%" + txtTitle->Text + "%' ";

searchOK = true;

}

if (txtYear->Text! = "")

{

if (searchOK) QuerySearch = QuerySearch + " and ";

QuerySearch = QuerySearch + "year_print = " + txtYear->Text + " ";

searchOK = true;

}

if (txtNum_in_lib->Text! = "")

{

if (searchOK) QuerySearch = QuerySearch + " and ";

QuerySearch = QuerySearch + "count_in_library = " + txtNum_in_lib->Text + " ";

searchOK = true;

}

// Если хотябы одно текстовое поле заполнено выполняем поиск

if (txtAuthor->Text! ="" || txtNum_in_lib->Text! ="" || txtTitle->Text! ="" || txtUdk->Text! ="" || txtYear->Text! ="")

{

try // Перехватываем возможные ошибки во время выполнения блока программного кода

{

frmMain->ADOQuery1->SQL->Clear (); // очистить SQL-запрос

frmMain->ADOQuery1->SQL->Add (QuerySearch); // Устанавливаем значение SQL-запроса в объект ADOQuery1

frmMain->ADOQuery1->Open (); // активировать SQL-запрос

}

catch (EDatabaseError&) // Обрабатываем возможное исключение (ошибку)

{

Application->MessageBox ("Ошибка при выполнении поиска", "Поиск", MB_OK + MB_ICONINFORMATION); // Выводим сообщение

}

frmMain->mnuShowAll->Visible = true; // Показываем пункты меню "Отобразить все книги"

frmMain->popmnuShowAll->Visible = true; // Показываем пункты меню "Отобразить все книги"

frmSearch->Close (); // Закрываем форму поиска

frmMain->StatusBar1->Panels->Items [0] - >Text = " Результат поиска"; // Изменяем текст в панели статусак

frmMain->mnuSortByYear->Caption = "Упорялочить по годам"; // Изменяем название пункта сортировки

frmMain->popSortByYear->Caption = "Упорялочить по годам"; // Изменяем название пункта сортировки

sortedbooks = false; // значение переменной - сортировка не проводилась

func2. ChangeCollName (frmMain->DBGrid1); // Изменение названий столбцов

}

else ShowMessage ("Не заданы параметры поиска"); // Если не заполнено поле поиска выводим сообщение

}

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

void __fastcall TfrmSearch:: btnCleartextClick (TObject *Sender) // Очищаем текстовые поля

{

txtAuthor->Text = ""; // Присваиваем текстовым полям пустое значение

txtNum_in_lib->Text = "";

txtTitle->Text = "";

txtUdk->Text = "";

txtYear->Text = "";

}

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

// Функция обработки ввода текста в поле txtYear

void __fastcall TfrmSearch:: txtYearKeyPress (TObject *Sender, char &Key)

{

// разрешаем вводить только цифры

if (! ( (Key >= '0' && Key <= '9') || Key == VK_BACK)) Key = 0x00;

}

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

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

// Функция обработки ввода текста в поле txtNum

void __fastcall TfrmSearch:: txtNum_in_libKeyPress (TObject *Sender,

char &Key)

{

// разрешаем вводить только цифры

if (! ( (Key >= '0' && Key <= '9') || Key == VK_BACK)) Key = 0x00;

}

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

frmSearch (Unit2. h)

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

#ifndef Unit2H

#define Unit2H

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

#include <Classes. hpp>

#include <Controls. hpp>

#include <StdCtrls. hpp>

#include <Forms. hpp>

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

class TfrmSearch: public TForm

{

__published: // IDE-managed Components

TEdit *txtUdk;

TEdit *txtTitle;

TEdit *txtAuthor;

TEdit *txtYear;

TEdit *txtNum_in_lib;

TButton *btnSearch;

TLabel *lblUDK;

TLabel *lblTitle;

TLabel *lblAuthor;

TLabel *lblNum_in_lib;

TLabel *lblyear;

TButton *btnCleartext;

void __fastcall btnSearchClick (TObject *Sender);

void __fastcall btnCleartextClick (TObject *Sender);

void __fastcall txtYearKeyPress (TObject *Sender, char &Key);

void __fastcall txtNum_in_libKeyPress (TObject *Sender, char &Key);

private: // User declarations

public: // User declarations

__fastcall TfrmSearch (TComponent* Owner);

};

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

extern PACKAGE TfrmSearch *frmSearch;

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

#endif

frmEdit (Unit3. cpp)

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

#include <vcl. h>

#pragma hdrstop

#include "Unit3. h"

#include "Unit1. h"

#include "UserFunctions_unit. h"

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TfrmEdit *frmEdit;

extern int frmEditState; // Объявляем общую переменную для форм frmMain, frmEdit

extern bool sortedbooks; // Объявляем общую переменную для форм frmMain, frmEdit и frmSearch

MyFunctions func3; // объявление объекта типа MyFunctions

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

__fastcall TfrmEdit:: TfrmEdit (TComponent* Owner)

: TForm (Owner)

{

}

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

void __fastcall TfrmEdit:: FormShow (TObject *Sender)

{

if (frmEditState == 0) // Если frmEditState равняется 0

{

frmEdit->Caption = "Добавление книги"; // Изменяем заголовок формы

}

else

{

frmEdit->Caption = "Редактирование книги"; // Изменяем заголовок формы

btnOK->Caption = "Сохранить изменения"; // Изменяем заголовок кнопки

txtUdk->Text=frmMain->DBGrid1->Fields [0] - >AsString; // заполняем текстовые

txtAuthor->Text=frmMain->DBGrid1->Fields [1] - >AsString; // поля значениями из DBGrid1

txtTitle->Text=frmMain->DBGrid1->Fields [2] - >AsString;

txtNum_in_lib->Text=frmMain->DBGrid1->Fields [4] - >AsString;

txtYear->Text=frmMain->DBGrid1->Fields [3] - >AsString;

}

}

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

// Функция обработки нажатия кнопки

void __fastcall TfrmEdit:: btnOKClick (TObject *Sender)

{

if (frmEditState == 0) // Если frmEditState равняется 0

{ // Если заполнены все поля

if (txtAuthor->Text! ="" && txtNum_in_lib->Text! ="" && txtTitle->Text! ="" && txtUdk->Text! ="" && txtYear->Text! ="")

{ // Формируем SQL запрос на добавление записи

String QueryAdd = "INSERT INTO Books (num_udk, autor, title, year_print, count_in_library) VALUES ('" \

+txtUdk->Text+"', '"+txtAuthor->Text+"', '"+txtTitle->Text+"', "+txtYear->Text+", "+txtNum_in_lib->Text+"); "; // Строковая переменная, содержащая SQL запрос к базе данных

try // Перехватываем возможные ошибки во время выполнения блока программного кода

{

frmMain->ADOCommand1->CommandText = QueryAdd; // Устанавливаем значение SQL-запроса в объект ADOCommand1

frmMain->ADOCommand1->Execute (); // активировать SQL-запрос

// Обновляем список книг в DBGrid1

String TTQuery1 = "select num_udk, autor, title, year_print, count_in_library from Books"; // Строковая переменная, содержащая SQL запрос к базе данных

frmMain->ADOQuery1->SQL->Clear (); // очистить SQL-запрос

frmMain->ADOQuery1->SQL->Add (TTQuery1); // Устанавливаем значение SQL-запроса в объект ADOQuery1

frmMain->ADOQuery1->Open (); // активировать SQL-запрос

}

catch (EDatabaseError&) // Обрабатываем возможное исключение (ошибку)

{

Application->MessageBox ("Ошибка при работе с базой данных", "Вывод записей", MB_OK + MB_ICONINFORMATION); // Выводим сообщение

}

frmMain->mnuSortByYear->Caption = "Упорялочить по годам"; // Устанавливаем новые

frmMain->popSortByYear->Caption = "Упорялочить по годам"; // заголовки для пунктов меню

sortedbooks = false; // значение переменной - сортировка не проводилась

func3. ChangeCollName (frmMain->DBGrid1); // Изменение названий столбцов

frmEdit->Close (); // Закрываем форму

}

else ShowMessage ("Заполнены не все поля!"); // Если заполнены не все поля выводим сообщение

}

else if (frmEditState == 1) // Если frmEditState равняется 0

{ // Формируем SQL запрос на обновление записи

String QueryUpdate = "UPDATE Books SET num_udk='"+txtUdk->Text+"', autor='"+txtAuthor->Text+"', title='"+txtTitle->Text+"', year_print="+txtYear->Text+", count_in_library="+txtNum_in_lib->Text+ \

" WHERE num_udk='"+frmMain->DBGrid1->Fields [0] - >AsString+"' and autor='"+frmMain->DBGrid1->Fields [1] - >AsString+"'and title='"+frmMain->DBGrid1->Fields [2] - >AsString+"'and year_print="+frmMain->DBGrid1->Fields [3] - >AsString+" and count_in_library="+frmMain->DBGrid1->Fields [4] - >AsString; // Строковая переменная, содержащая SQL запрос к базе данных

try // Перехватываем возможные ошибки во время выполнения блока программного кода

{

frmMain->ADOCommand1->CommandText = QueryUpdate; // Устанавливаем значение SQL-запроса в объект ADOCommand1

frmMain->ADOCommand1->Execute (); // активировать SQL-запрос

// Обновляем список книг в DBGrid1

String TTQuery1 = "select num_udk, autor, title, year_print, count_in_library from Books"; // Строковая переменная, содержащая SQL запрос к базе данных

frmMain->ADOQuery1->SQL->Clear (); // очистить SQL-запрос

frmMain->ADOQuery1->SQL->Add (TTQuery1); // Устанавливаем значение SQL-запроса в объект ADOQuery1

frmMain->ADOQuery1->Open (); // активировать SQL-запрос

}

catch (EDatabaseError&) // Обрабатываем возможное исключение (ошибку)

{

Application->MessageBox ("Ошибка при работе с базой данных", "Вывод записей", MB_OK + MB_ICONINFORMATION); // Выводим сообщение

}

frmMain->mnuSortByYear->Caption = "Упорялочить по годам"; // Устанавливаем новые

frmMain->popSortByYear->Caption = "Упорялочить по годам"; // заголовки для пунктов меню

sortedbooks = false; // значение переменной - сортировка не проводилась

func3. ChangeCollName (frmMain->DBGrid1); // Изменение названий столбцов

frmEdit->Close (); // Закрываем форму

}

}

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

// Функция обработки ввода текста в поле txtYear

void __fastcall TfrmEdit:: txtYearKeyPress (TObject *Sender, char &Key)

{

// разрешаем вводить только цифры

if (! ( (Key >= '0' && Key <= '9') || Key == VK_BACK)) Key = 0x00;

}

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

// Функция обработки ввода текста в поле txtNum

void __fastcall TfrmEdit:: txtNum_in_libKeyPress (TObject *Sender, char &Key)

{

// разрешаем вводить только цифры

if (! ( (Key >= '0' && Key <= '9') || Key == VK_BACK)) Key = 0x00;

}

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

frmEdit (Unit3. h)

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

#ifndef Unit3H

#define Unit3H

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

#include <Classes. hpp>

#include <Controls. hpp>

#include <StdCtrls. hpp>

#include <Forms. hpp>

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

class TfrmEdit: public TForm

{

__published: // IDE-managed Components

TEdit *txtUdk;

TEdit *txtTitle;

TEdit *txtAuthor;

TEdit *txtYear;

TEdit *txtNum_in_lib;

TButton *btnOK;

TLabel *lblUDK;

TLabel *lblTitle;

TLabel *lblAuthor;

TLabel *lblNum_in_lib;

TLabel *lblyear;

void __fastcall FormShow (TObject *Sender);

void __fastcall btnOKClick (TObject *Sender);

void __fastcall txtYearKeyPress (TObject *Sender, char &Key);

void __fastcall txtNum_in_libKeyPress (TObject *Sender, char &Key);

private: // User declarations

public: // User declarations

__fastcall TfrmEdit (TComponent* Owner);

};

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

extern PACKAGE TfrmEdit *frmEdit;

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

#endif

frmAbout (Unit4. cpp)

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

#include <vcl. h>

#pragma hdrstop

#include "Unit4. h"

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TfrmAbout *frmAbout;

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

__fastcall TfrmAbout:: TfrmAbout (TComponent* Owner)

: TForm (Owner)

{

Label6->Caption = "Программа осуществляет отображение\nи редактирование списка литературы \nсодержащейся в библиотеке";

}

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

void __fastcall TfrmAbout:: FormCreate (TObject *Sender)

{

}

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

frmAbout (Unit4. cpp)

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

#ifndef Unit4H

#define Unit4H

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

#include <Classes. hpp>

#include <Controls. hpp>

#include <StdCtrls. hpp>

#include <Forms. hpp>

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

class TfrmAbout: public TForm

{

__published: // IDE-managed Components

TLabel *Label1;

TLabel *Label2;

TLabel *Label3;

TLabel *Label4;

TLabel *Label5;

TLabel *Label6;

TLabel *Label7;

private: // User declarations

public: // User declarations

__fastcall TfrmAbout (TComponent* Owner);

};

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

extern PACKAGE TfrmAbout *frmAbout;

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

#endif

UserFunctions_unit. cpp

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

#pragma hdrstop

#include "UserFunctions_unit. h"

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

#pragma package (smart_init)

// Функция изменения названий столбцов

void MyFunctions:: ChangeCollName (TDBGrid *DBGrid)

{

AnsiString colname; // строка имени колонки

AnsiString collable; // строка присвоения lable колонки на русском

int width = 0;

for (int i = 0; i < (DBGrid->FieldCount); i++) // Осуществляем перебор всех столбцов в DBGrid1

{

colname = DBGrid->Fields [i] - >FullName; // получаем имя колонки и присваиваем его переменной

if (colname == "num_udk") // В слечае совпадения имени колонки в DBGrid и заданной строки

{ // меняем lable колонки на русские названия

collable = "Номер УДК"; // Устанавливаем название колонки

width=90; // Устанавливаем ширину колонки

}

else if (colname == "autor") // В слечае совпадения имени колонки в DBGrid и заданной строки

{ // меняем lable колонки на русские названия

collable = "Автор";

width=220;

}

else if (colname == "title") // В слечае совпадения имени колонки в DBGrid и заданной строки

{ // меняем lable колонки на русские названия

collable = "Название";

width=270;

}

else if (colname == "year_print") // В слечае совпадения имени колонки в DBGrid и заданной строки

{ // меняем lable колонки на русские названия

collable = "Год издания";

width=90;

}

else if (colname == "count_in_library") // В слечае совпадения имени колонки в DBGrid и заданной строки

{ // меняем lable колонки на русские названия

collable = "Количество";

width=90;

}

DBGrid->Fields [i] - >DisplayLabel = collable; // Меняем название столбца в DBGrid на установленное

DBGrid->Columns->Items [i] - >Width = width; // Меняем ширину столбца в DBGrid на установленное

DBGrid->Columns->Items [i] - >Alignment = taLeftJustify; // Меняем выравнивание в столбце DBGrid на выравнивание по левому краю

}

}

UserFunctions_unit. h

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

#include <DBGrids. hpp>

#ifndef UserFunctions_unitH

#define UserFunctions_unitH

class MyFunctions

{

public: // User declarations

void ChangeCollName (TDBGrid*);

private:

};

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

#endif

Размещено на Allbest.ru