end; // if

DataChange: =false; // все изменения сохранены

end; // procedure

procedure TfmMain. bbtAddClick (Sender: TObject);

// Добавление новой записи

begin

with fmEdit do begin

Caption: ='Добавление новой записи;

bbtEditOK. Caption: ='Добавить';

bbtEditOK. Hint: ='Добавить новую запись;

edNameOfBook. Text: ='';

edAuthor. Text: ='';

edIssue. Text: ='';

edYear. Text: ='';

ShowModal;

if Result then begin // если нажата кнопка Добавить

Num: =Num+1; // число записей возрастает

// добавление в массив записей нового элемента

Book [Num-1]. Code: =Num;

Book [Num-1]. Name: =edNameOfBook. Text;

Book [Num-1]. Author: =edAuthor. Text;

Book [Num-1]. Issue: =edIssue. Text;

Book [Num-1]. Year: =StrToInt (edYear. Text);

Book [Num-1]. Remote: =false;

Book [Num-1]. Visible: =true;

// количество книг увеличивается

lbNum. Caption: ='Количество книг: '+IntToStr (Num);

Output; // вывод элементов массива записей в таблицу

DataChange: =true; // произошло изменение

end; // if

end; // with

end; // procedure

procedure TfmMain. bbtChangeClick (Sender: TObject);

// Изменение существующей записи

var

Number: Integer;

begin

with fmEdit do begin

Caption: ='Изменение существующей записи;

bbtEditOK. Caption: ='Изменить';

bbtEditOK. Hint: ='Изменить существующую запись;

Number: =CodeOfBook (StrToInt (sgBooks. Cells [5,sgBooks. Row]));

with Book [Number] do begin

edNameOfBook. Text: =Name;

edAuthor. Text: =Author;

edIssue. Text: =Issue;

edYear. Text: =IntToStr (Year);

end; // with

ShowModal; // форма становится модальной

if Result then begin // если нажата кнопка Изменить

// изменяем запись в массиве записей

Book [Number]. Name: =edNameOfBook. Text;

Book [Number]. Author: =edAuthor. Text;

Book [Number]. Issue: =edIssue. Text;

Book [Number]. Year: =StrToInt (edYear. Text);

Book [Number]. Remote: =false;

Book [Number]. Visible: =true;

Output; // вывод элементов массива записей в таблицу

DataChange: =true; // произошло изменение

end; // if

end; // with

end; // procedure

procedure TfmMain. bbtDelClick (Sender: TObject);

// Удаление выбранной записи

var

Number: Integer;

begin

if MessageDlg ('Удалить данную запись? ',mtWarning, mbYesNoCancel,0) =mrYes

then begin

Number: =CodeOfBook (StrToInt (sgBooks. Cells [5,sgBooks. Row]));

Book [Number]. Remote: =true;

Book [Number]. Visible: =true;

Output;

DataChange: =true; // произошло изменение

end;

end; // procedure

procedure TFmMain. Output;

// вывод элементов из массива записей в таблицу sgBooks

var

Number, i: Integer; // номер записи в таблице

begin

for i: =0 to 5 do

sgBooks. Cols [i]. Clear; // очистка столбцов таблицы

Number: =0;

sgBooks. RowCount: =2; // число строк таблицы равно 2

for i: =0 to Num-1 do begin

// если данная запись не удалена и видима

if not Book [i]. Remote and Book [i]. Visible then begin

Number: =Number+1; // номер увеличивается

if Number>1 then // если в таблице больше одной записи

// увеличиваем число строк

sgBooks. RowCount: =sgBooks. RowCount+1;

// заполняем добавленную строку данными о книге из массива записей

with sgBooks do begin

Cells [0,Number]: =IntToStr (Number);

Cells [1,Number]: =Book [i]. Name;

Cells [2,Number]: =Book [i]. Author;

Cells [3,Number]: =Book [i]. Issue;

Cells [4,Number]: =IntToStr (Book [i]. Year);

Cells [5,Number]: =IntTostr (Book [i]. Code);

end; // with sgBooks

end; // if

end; // for

// заполняем нулевую строку таблицы

with sgBooks do begin

cells [0,0]: ='Номер';

cells [1,0]: =' Наименование';

cells [2,0]: =' Автор';

cells [3,0]: =' Издание';

cells [4,0]: ='Год издания';

end; // with

// строка с информацией о количестве записей в таблице

lbNum. Caption: ='Количество книг: '+IntToStr (Number);

// если количество записей не равно нулю то открываем доступ к кнопкам

// Изменить, Удалить, Сохранить, Выбрать, Сортировать

if Number>0

then begin

bbtChange. Enabled: =True; miChange. Enabled: =True;

bbtDel. Enabled: =True; miDel. Enabled: =True;

bbtSave. Enabled: =True; miSave. Enabled: =True;

bbtChoice. Enabled: =True; miChoice. Enabled: =True;

bbtSaveReport. Enabled: =true; miSaveReport. Enabled: =True;

end // if

else begin // иначе - закрыть доступ

bbtChange. Enabled: =False; miChange. Enabled: =False;

bbtDel. Enabled: =False; miDel. Enabled: =False;

bbtSave. Enabled: =False; miSave. Enabled: =False;

bbtChoice. Enabled: =False; miChoice. Enabled: =False;

bbtSorting. Enabled: =False; miSorting. Enabled: =False;

bbtSaveReport. Enabled: =false; miSaveReport. Enabled: =false;

end; // else begin

if Number>1 // если в таблице больше одной записи

then begin

bbtSorting. Enabled: =True; // открываем доступ к кнопке Сортировать

miSorting. Enabled: =True;

end

else begin // иначе - закрываем

bbtSorting. Enabled: =False;

miSorting. Enabled: =False;

end;

end; // procedure

function TFmMain. CodeOfBook (Code: Integer): Integer;

// определение индекса в массиве записей по его полю записи-"код"

var

i: Integer; // индекс книги в массиве записей

begin

Result: =-1;

for i: =0 to Num-1 do

// если поле "код" данного элемента совпадает с искомым, то

if Book [i]. Code=Code then

Result: =i; // индекс этого элемента в массиве равен i

end; // function TFmMain. CodeOfBook

procedure TFmMain. Choice (Y: tYear; var Exist: Boolean);

// выбор книг, изданных после введенного года

var

i: Integer; // номер записи в массив записей

begin

Exist: =false;

for i: =0 to Num-1 do begin

if Book [i]. Year>Y // если книга издана после введённого года

then begin

Book [i]. Visible: =true; // запись о книге становится видимой

Exist: =true; // существует хотя бы одна книга, подходящая по параметру

DataChange: =true; // произошло изменение

end // then

else begin

Book [i]. Visible: =false; // запись о книге невидима

DataChange: =true; // произошло изменение

end; // else

end; // for i

end; // procedure TFmMain. Choice

procedure TFmMain. SortingOfName;

// сортировка по алфавиту

var

i,j: Integer; // переменные для реализации циклов

buf: tBook; // буфер обмена

begin

repeat

j: =0;

for i: =0 to Num-2 do

if Book [i]. Name>Book [i+1]. Name

then begin

buf: =Book [i];

Book [i]: =Book [i+1];

Book [i+1]: =buf;

j: =j+1;

end; // if

until j=0;

end; // procedure

procedure TFmMain. SortingOfAuthor;

// сортировка по имени автора

var

i,j: Integer;

buf: tBook;

begin

repeat

j: =0;

for i: =0 to Num-2 do

if Book [i]. Author>Book [i+1]. Author

then begin

buf: =Book [i];

Book [i]: =Book [i+1];

Book [i+1]: =buf;

j: =j+1;

end; // if

until j=0;

end; // procedure

procedure TFmMain. SortingOfYear;

// сортировка по году издания

var

i,j: Integer; // перемнные для реализации цикла

buf: tBook; // буфер обмена

begin

repeat

j: =0;

for i: =0 to Num-2 do

if Book [i]. Year>Book [i+1]. Year

then begin

buf: =Book [i];

Book [i]: =Book [i+1];

Book [i+1]: =buf;

j: =j+1;

end; // if

until j=0;

end; // procedure

procedure TfmMain. bbtSortingClick (Sender: TObject);

// Сортировка по выбранному параметру

begin

// если нажата кнопка OK

if fmSorting. ShowModal=mrOK then begin

// если выбрана кнопка Сортировать по названию книги

if fmSorting. rbNameOfBook. Checked

then SortingOfName;

// если выбрана кнопка Сортировать по названию автора

if fmSorting. rbAuthor. Checked

then SortingOfAuthor;

// если выбрана кнопка Сортировать по году издания

if fmSorting. rbYear. Checked

then SortingOfYear;

Output; // вывод результатов в таблицу

DataChange: =true; // произошло изменение

end; // if

end; // procedure

procedure TfmMain. bbtChoiceClick (Sender: TObject);

// выборка данных

var

Exist: Boolean;

begin

with fmChoice do begin

edChoice. Text: ='1900';

ShowModal; // форма становится модальной

// если нажата кнопка OK

if ChoiceResult=true then begin

// обращаемся к процедуре Choice

Choice (StrToInt (edChoice. Text),Exist);

// если книг с данным параметром нет

if Exist=false

then begin

ShowMessage ('Таких книг нет! ');

Choice (1900,Exist); // выбираем все книги

end // then

else begin

lbSorting. Visible: =True;

// метка lbSorting видима

lbSorting. Caption: ='Книги, изданные после '+ fmChoice. edChoice. Text+ ' года';

end; // else

end; // with

Output;

end; // if

end; // procedure

procedure TfmMain. bbtCloseClick (Sender: TObject);

// Закрыти формы

begin

Close;

end;

procedure TfmMain. bbtSaveReportClick (Sender: TObject);

// Сохранение отчёта

var

i,j,Number: Integer;

s: String; // строка для выдачи отчёта

begin

with fmReporting do begin

mmReporting. Clear; // очистка поля mmReporting

// добавляем новую строку с заголовком

mmReporting. Lines. Add (' Библиотека');

if lbSorting. Visible=true then mmReporting. Lines. Add (lbSorting. Caption);

// выводим в поле многострочного редактора mmReporting заголовки таблицы

mmReporting. Lines. Add (Lin1);

mmReporting. Lines. Add (Lin2);

mmReporting. Lines. Add (Lin3);

// для всех элементов массива

Number: =0;

s: ='';

for i: =0 to Num-1 do begin

// если запись не удалена и видима

if (Book [i]. Remote=false) and (Book [i]. Visible=true) then begin

Number: =Number+1;

// формируем таблицу

s: ='|'+IntToStr (Number);

for j: =1 to w1-Length (IntToStr (Number)) do s: =s+' ';

s: =s+'|';

with Book [i] do begin

s: =s+Name;

for j: =1 to w2-Length (Name) do s: =s+' ';

s: =s+'|'+Author;

for j: =1 to w3-Length (Author) do s: =s+' ';

s: =s+'|'+Issue;

for j: =1 to w4-Length (Issue) do s: =s+' ';

s: =s+'|'+IntToStr (Year);

for j: =1 to w5-Length (IntToStr (Year)) do s: =s+' ';

s: =s+'|';

end; // with Book

mmReporting. Lines. Add (s);

end; // if

end; // for

mmReporting. Lines. Add (Lin3);

// выводим строку с числом книг

mmReporting. Lines. Add (' '+lbNum. Caption);

ShowModal;

if ModalResult=mrOK then begin

SaveDialog. Filter: ='Все файлы (*. *) |*. * |Текстовые файлы (*. txt) |*. txt';

SaveDialog. Title: ='Сохранение файла'; // заголовок окна SaveDialog

SaveDialog. FilterIndex: =2;

If SaveDialog. Execute then begin // если нажата кнопка OK

i: =Pos ('. txt',SaveDialog. FileName); // проверяем, есть ли в имени файла '. txt'

if i>0 then mmReporting. Lines. SaveToFile (SaveDialog. FileName)

// иначе - связываем файловую переменную с файлом + расширение

else mmReporting. Lines. SaveToFile (SaveDialog. FileName+'. txt');

ShowMessage ('Отчёт сохранён! ');

end; // if

end; // if ShowModal=mrOK

end; // with

end; // procedure TfmMain. bbtSaveReportClick

procedure TfmMain.miloadClick (Sender: TObject);

// кнопка загрузки файла

begin

bbtLoadClick (Sender);

end;

procedure TfmMain. miSaveClick (Sender: TObject);

// кнопка сохранения файла

begin

bbtSaveClick (Sender);

end;

procedure TfmMain. miAddClick (Sender: TObject);

// кнопка добавления записи

begin

bbtAddClick (Sender);

end;

procedure TfmMain. miChangeClick (Sender: TObject);

// кнопка изменения записи

begin

bbtChangeClick (Sender);

end;

procedure TfmMain. miDelClick (Sender: TObject);

// кнопка удаления записи

begin

bbtDelClick (Sender);

end;

procedure TfmMain. miSaveReportClick (Sender: TObject);

// кнопка сохранения отчёта

begin

bbtSaveReportClick (Sender);

end;

procedure TfmMain. miSortingClick (Sender: TObject);

// кнопка сортировки

begin

bbtSortingClick (Sender);

end;

procedure TfmMain. miChoiceClick (Sender: TObject);

// кнопка выборки

begin

bbtChoiceClick (Sender);

end;

procedure TfmMain. miCloseClick (Sender: TObject);

// кнопка закрытия

begin

Close;

end;

procedure TfmMain. miAboutClick (Sender: TObject);

// вывод справки

begin

AboutBoxHelp. ShowModal; // форма становится модальной

end;

procedure TfmMain. MenuHint (Sender: TObject);

// Обработчик события вывода краткой справки

begin

StatusBar. Panels [0]. Text: =Application. Hint;

end; // procedure TfmMain. MenuHint

procedure TFmMain. TimerTimer (Sender: TObject);

// Обработчик события вывода даты и времени

begin

StatusBar. Panels [1]. Text: =DateToStr (Date);

StatusBar. Panels [2]. Text: =TimeToStr (Time);

end; // procedure TfmMain. TimerTimer

end. // unit

// Курсовая работа. Приложение "Библиотека"

// Модуль редактирования данных

// Выполнила Гришакина Ирина, группа 778.

unit Edit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TfmEdit = class (TForm)

lbNameOfBook: TLabel;

lbAuthor: TLabel;

lbIssue: TLabel;

edIssue: TEdit;

lbYear: TLabel;

edYear: TEdit;

bbtEditOK: TBitBtn;

bbtEditCancel: TBitBtn;

edNameOfBook: TEdit;

edAuthor: TEdit;

procedure FormShow (Sender: TObject);

procedure bbtEditOKClick (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmEdit: TfmEdit;

Result: Boolean;

implementation

uses Main;

{$R *. dfm}

procedure TfmEdit. bbtEditOKClick (Sender: TObject);

// обработчик нажатия на кнопку OK

begin

try

Result: =false;

if edNameOfBook. Text=''

then raise Exception. Create ('Отсутствует наименование книги! ');

if edAuthor. Text=''

then raise Exception. Create ('Отсутствует имя автора! ');

if edIssue. Text=''

then raise Exception. Create ('Год введён с ошибкой! ');

if (StrToInt (fmEdit. edYear. Text) <1900) or (StrToInt (fmEdit. edYear. Text) >2009)

then raise Exception. Create ('Год введён с ошибкой! ');

Result: =true;

except // обработка исключительных ситуаций

on E: EConvertError do begin

ShowMessage ('Год не введён! ');

fmEdit. edYear. SetFocus;

fmEdit. Close;

end;

on E: Exception do begin ShowMessage (E. Message);

edNameOfBook. SetFocus;

end; // try

end;

end; // procedure TfmEdit. bbtEditOKClick

/Курсовая работа. Приложение "Библиотека"

// Модуль запроса пароля

// Выполнила Гришакина Ирина, группа 778.

unit Key;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TfmKey = class (TForm)

lbKey1: TLabel;

lbKey2: TLabel;

edKey: TEdit;

bbtKeyOK: TBitBtn;

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmKey: TfmKey;

implementation

{$R *. dfm}

procedure TfmKey. FormShow (Sender: TObject);

// Отображение формы

begin

edKey. Text: ='';

edKey. SetFocus;

end; // procedure TfmKey. FormShow;

end. // unit

// Курсовая работа. Приложение "Библиотека"

// Модуль выборки данных

// Выполнила Гришакина Ирина, группа 778.

unit Choice;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TfmChoice = class (TForm)

lbChoice: TLabel;

edChoice: TEdit;

bbtChoiceOK: TBitBtn;

bbtChoiceCancel: TBitBtn;

procedure bbtChoiceOKClick (Sender: TObject);

procedure bbtChoiceCancelClick (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmChoice: TfmChoice;

ChoiceResult: Boolean;

implementation

uses Edit;

{$R *. dfm}

procedure TfmChoice. bbtChoiceOKClick (Sender: TObject);

// Обработчик нажатия на кнопку OK

begin

try

ChoiceResult: =False;

if (StrToInt (fmChoice. edChoice. Text) <1900) or (StrToInt (fmChoice. edChoice. Text) >2009)

then raise Exception. Create ('Год введён с ошибкой! ');

ChoiceResult: =true;

except // обработка исключительных ситуаций

on E: EConvertError do begin

ShowMessage ('Год не введён! ');

fmChoice. edChoice. SetFocus;

fmChoice. Close;

end;

on E: Exception do begin

ShowMessage (E. Message);

fmChoice. edChoice. SetFocus;

end;

end; // try

end; // procedure

procedure TfmChoice. bbtChoiceCancelClick (Sender: TObject);

// Обработчик нажатия на кнопку Cancel

begin

ChoiceResult: =false;

fmChoice. Close;

end;

end. // unit

// Курсовая работа. Приложение "Библиотека"

// Модуль сортировки

// Выполнила Гришакина Ирина, группа 778.

unit Sorting;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Buttons;

type

TfmSorting = class (TForm)

lbSorting: TLabel;

rbNameOfBook: TRadioButton;

rbAuthor: TRadioButton;

rbYear: TRadioButton;

bvSorting: TBevel;

bbtSortingOK: TBitBtn;

bbtSortingCancel: TBitBtn;

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmSorting: TfmSorting;

implementation

{$R *. dfm}

end.

// Курсовая работа. Приложение "Библиотека"

// Модуль вывода отчёта

// Выполнила Гришакина Ирина, группа 778.

unit Reporting;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TfmReporting = class (TForm)

lbReporting: TLabel;

mmReporting: TMemo;

bbtReportingOK: TBitBtn;

bbtReportingCancel: TBitBtn;

procedure bbtReportingCancelClick (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmReporting: TfmReporting;

implementation

{$R *. dfm}

procedure TfmReporting. bbtReportingCancelClick (Sender: TObject);

begin

fmReporting. Close;

end;

end.

// Курсовая работа. Приложение "Библиотека"

// Модуль вывода информации

// Выполнила Гришакина Ирина, группа 778.

unit Helping;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBoxHelp = class (TForm)

Panel: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBoxHelp: TAboutBoxHelp;

implementation

{$R *. dfm}

end.

5. Файлы с исходными данными и файлы отчетов

Файл с исходными данными Books. txt:

Delphi

Архангельский

Бином

2003

Высшая математика

Данко Попов

ОНИКС 21 век

2003

Турбо Паскаль

Новичков Пылькин

Телеком

2005

Теория вероятностей

Захаров

Наука

1976

Побег из Шоушенка

Стивен Кинг

АСТ

2007

Белый клык

Лондон Джек

АСТ

2001

Информатика

Коляда

Сталкер

1999

Economics

Португалов

АСТ

2005

Последний фаворит

Жданов

Худ Литература

1991

Белые одежды

Дудинцев

Сов писатель

1988

Файл с исходными данными SpecialBooks. txt:

Сборник задач

Кузнецов

АСТ

1989

Мир в XX веке

Сороко-Цюпа

Дрофа

2003

Викинги

Семенова Мария

Азбука

2007

Чистовик

Лукьяненко

АСТ

2007

Английский язык

Голицынский

КАРО

2009

Артемис Фаул

Колфер

Эксмо

2007

Теория вероятностей

Захаров

Наука

1983

Файл с исходными данными ReportOfBooks. txt:

Библиографический список

1. Визуальное программирование в Delphi: Методические указания / Рязан. гос. радиотехн. ун-т.; Сост.В. И Чистякова. Рязань, 2007.80 с.

2. Обработка данных в Delphi: Методические указания.2-е изд., / Рязан. гос. радиотехн. ун-т.; Сост.В. И Чистякова. Рязань, 2006.48 с.

3. Процедурное и обьектно-ориентированное прграммирование в Delphi: Методические указания.2-е изд., / Рязан. гос. радиотехн. ун-т.; Сост.В. И Чистякова. Рязань, 2006.64 с.

4. Новичков В.С., Парфилова Н.И., Пылькин А.Н. Алгоритмизация и программирование на Турбо Паскале. Учебное пособие. - М.: Горячая линия - Телеком, 2005.438 c.

5. Архангельский А.Я. Программирование в Delphi 7. - М.: ЗАО "Издательство БИНОМ”, 2003 г.1152 с.

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