Содержание:

 

Задание №1. - 3 -

Описание  работы программы. - 3 -

Листинг программы. - 6 -

Пример  выполнения программы. - 11 -

Задание №2 - 12 -

Описание  работы программы. - 12 -

Листинг программы. - 14 -

Пример  выполнения программы. - 16 -

Задание №3 - 18 -

Достоинства БД MS Access. - 19 -

Описание  среды разработки. - 19 -

Описание  структуры БД. - 20 -

Описание  структуры программы. - 21 -

Программная реализация. - 21 -

Использованные  SQL запросы. - 25 -

Полный  листинг программы. - 25 -

 

 

 

 

 

 

 

 

 

 

 

Задание №1.

 

26. Сформировать файл, имеющий следующую структуру:

Type книга = record

автор: string;

название: string;

год издания: integer;

издательство: string;

количество страниц: integer;

end;

и определить:

- есть ли в библиотеке  книги данного автора;

- найти книгу с наибольшим  количеством страниц;

- найти названия книг  данного автора, изданных с указанного  года, в данном издательстве.

 

Решение:

 

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

Описание  работы программы.

 

Разработанная программа  имеет две закладки: «Создание файла» и «Поиск информации».

На первой закладке имеется  возможность создания нового файла  с данными или открыть уже  созданный ранее файл для добавления новой информации. При нажатии  на кнопку «Создать новый файл данных». Открывается диалоговое позволяющее задать название файла и путь к файлу где он будет храниться:

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

После того как мы создадим новый файл или откроем существующий в окне закладки «Создание файла» появляется группа «Добавление книг в файл данных» в которой мы заполняем соответствующие поля  о книге, после чего нажимаем на кнопку «=Добавить=».

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

Если ответить «Yes», то поля ввода очищаются, и мы можем ввести данные еще об одной книге, если ответить «Nо», то группа «Добавление книг в файл данных» станет неактивной. Соответственно добавить данные в файл будет нельзя, файл программно закрывается для записи.

Работа с текущей закладкой  закончена, рассмотрим, как работает закладка «Поиск информации».

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

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

 

 

 

1. 

2.

3.

 

При нажатии на кнопку «=Сформировать=» найденная информация будет выведено в поле «Результат».

Листинг программы.

 

unit Unit1;

 

interface

 

uses

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

  Dialogs, StdCtrls, XPMan, ComCtrls;

 

type

  TForm1 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    Edit1: TEdit;

    Label1: TLabel;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    XPManifest1: TXPManifest;

    Button1: TButton;

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    Button3: TButton;

    Button4: TButton;

    SaveDialog1: TSaveDialog;

    OpenDialog1: TOpenDialog;

    Edit5: TEdit;

    Label5: TLabel;

    GroupBox3: TGroupBox;

    Button5: TButton;

    GroupBox4: TGroupBox;

    GroupBox5: TGroupBox;

    Memo1: TMemo;

    GroupBox6: TGroupBox;

    RadioButton1: TRadioButton;