Физическая реализация базы данных «Фонотека»

end;

 

procedure TForm2.Edit2Change(Sender: TObject);

begin

if length(edit2.text)>0 then ADOTable1.Filtered:=true else

ADOTable1.Filtered:=false;

ADOTable1.Filter:='Автор='''+edit2.Text+'''';

end;

 

procedure TForm2.Edit3Change(Sender: TObject);

begin

   if length(edit3.text)>0 then ADOTable1.Filtered:=true else

ADOTable1.Filtered:=false;

ADOTable1.Filter:='Жанр='''+edit3.Text+'''';

end;

Unit 3

 

 

unit Unit3;

 

interface

 

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls;

 

type

  TForm3 = class(TForm)

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    procedure Image1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

 

{$R *.dfm}

Unit 21

 

 

unit Unit21;

 

interface

 

uses

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

  Dialogs, Menus, jpeg, ExtCtrls;

 

type

  TForm21 = class(TForm)

    MainMenu1: TMainMenu;

    Image1: TImage;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    procedure N1Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure Image1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form21: TForm21;

 

implementation

 

uses Unit22, Unit1, Unit2, Unit3;

 

{$R *.dfm}

 

procedure TForm21.N1Click(Sender: TObject);

begin

form22.show;

end;

 

procedure TForm21.N2Click(Sender: TObject);

begin

form1.show;

end;

 

procedure TForm21.N3Click(Sender: TObject);

begin

form2. show;

end;

 

procedure TForm21.N4Click(Sender: TObject);

begin

form3.show

end;

Unit 22

 

 

unit Unit22;

 

interface

 

uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

 

type

  TForm22 = class(TForm)

    DBGrid1: TDBGrid;

    RadioGroup1: TRadioGroup;

    RadioButton1: TRadioButton;

    RadioButton3: TRadioButton;

    RadioButton2: TRadioButton;

    Label1: TLabel;

    Edit1: TEdit;

    procedure RadioButton1Click(Sender: TObject);

  

    procedure RadioButton3Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure FormCreate(Sender: TObject);

 

  

   

 

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form22: TForm22;

 

implementation

 

uses Unit23;

 

{$R *.dfm}

 

 

procedure TForm22.RadioButton1Click(Sender: TObject);

begin

DataModule23.ADOTable1.IndexFieldNames:='Автор';

end;

 

 

procedure TForm22.RadioButton3Click(Sender: TObject);

begin

DataModule23.ADOTable1.IndexFieldNames:='Жанр';

end;

 

procedure TForm22.RadioButton2Click(Sender: TObject);

begin

DataModule23.ADOTable1.IndexFieldNames:='Код_книги';

end;

procedure TForm22.Edit1Change(Sender: TObject);

begin

if length(edit1.text)>0 then datamodule23.ADOTable1.Filtered:=true else

datamodule23.ADOTable1.Filtered:=false;

datamodule23.ADOTable1.Filter:='Наименование='''+edit1.Text+'''';

 

Заключение

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

1) просмотр и редактирование  данных;

2) поиск по коду;

3) группировка данных;

4) поиск по автору;

5) сортировка данных;

 

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

 

 

Список литературы

 

1. Марков А.С.  Базы данных. Введение в теорию и методологию /

Лисовский К. Ю., Москва, 2004

2. Когаловский М.Р. Технология баз данных на персональных ЭВМ. / М.: Финансы и статистика, 1992

3. Ревунков Г.И., Самохвалов Э.Н., Чистов В.В. Базы и банки данных и знаний: Учеб. для вузов / Под ред. Четверикова В.Н. - М.: Высш. шк., 1992.

4. Тиори Т., Фрай Дж. Проектирование структур баз данных : В 2-х кн. Пер. с англ. / М.: Мир, 1985

5. Голицина О. Л.  Базы данных / Голицина О. Л., Максимов Н. В., Попов И. И. – М.: Форум, 2003

6. Карпова Т.С. Базы данных: модели, разработка, реализация / Питер, 2002

7. Бемер С., Фратер Г. Microsoft Access для пользователя / Микап, Москва 1994

8. Коннолли Т., Бегг  К.  Базы данных. Проектирование, реализация и сопровождение / Москва, Питер, Киев, 2003

9. Мейер, М. Теория реляционных баз данных / М. Мейер – М.: Мир, 2008

10. Хаббард, Дж. Автоматизированное проектирование баз данных / Хаббард Дж. – М.: Мир, 2005

11. Гофман В., Хомоненко А.: Delphi 6 в подлиннике. СПб,2001.

12. Пестрнков В. М., Маслобоев А. Н.: Delphi на примерах.,2005.