Заключение

Разработанный фрагмент базы данных пенитенциарного учреждения был протестирован при следующих условиях: количество заключенных, фамилии, содержание статей по которым отбывают заключение, нумерация, амнистия заключенных. Выполнены функции:

-учет заключенных;

-учет статей.

По выполненным функциям составлены отчеты. Работа выполнена на Delphi с базой данных MS Access. Данная программа может использоваться для отслеживания исполнения наказаний в тюрьме. Программа позволяет любому пользователю с легкостью создавать большие объемы информации, добавлять, удалять данные, находить нужную информацию.

Приложение а

Процедуры поиска данных

Procedure TForm1.Button4Click (Sender : TObject); // поиск по сроку

if dm.ADOTSpisok.Locate('Crok ', Edit4.Text,[loCaseInsensitive, loPartialKey]) then

DBGrid1.SetFocus

else

begin

MessageDlg('Срок задан не верно или такой не существует', mtInformation, [mbOK],0);

Edit4.SetFocus;

Edit4.Text:='';

end;

Procedure TForm1.Button3Click (Sender : TObject); // поиск по году рождения

if dm.ADOTSpisok.Locate('GodRogh ', Edit3.Text,[loCaseInsensitive, loPartialKey]) then

DBGrid1.SetFocus

else

begin

MessageDlg('Год рождения задан не верно или такой не существует', mtInformation, [mbOK],0);

Edit3.SetFocus;

Edit3.Text:=''; end;

Procedure TForm1.Button1Click (Sender : TObject); // поиск по фамилии

if dm.ADOTSpisok.Locate('Fam ', Edit1.Text,[loCaseInsensitive, loPartialKey]) then

DBGrid1.SetFocus

else

begin

MessageDlg('Фамилия задана не верно или такой не существует', mtInformation, [mbOK],0);

Edit1.SetFocus;

Edit1.Text:='';

end;

Procedure TForm1.Button2Click (Sender : TObject); // поиск по статье

if dm.ADOTSpisok.Locate('statya', Edit2.Text,[loCaseInsensitive, loPartialKey]) then

DBGrid1.SetFocus

else

begin

MessageDlg('Статья задана не верно или такой не существует', mtInformation, [mbOK],0);

Edit2.SetFocus;

Edit2 .Text:='';

end;