Электронный учебник по русской литературе 60-90х годов XIX в

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

Программа написана на современном объектно-ориентированном  языке программирования Delphi, и связана с базой данных Access, где хранится информация о произведениях.

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

Таким образом, проект в целом удовлетворяет требованиям, предъявляемым к программному обеспечению, что делает его привлекательным для конечного пользователя.

 

Список использованной литературы

 

1. Дейтел Г. Введение в операционные  системы. /Т1. Т2. /Пер. с англ. - М.: Мир, 1987.

2. Мартин Дм. Организация баз  данных в вычислительных системах. - Пер. с англ. - М.: Мир,1980.

3. Флорес И. Структуры и управление  данными. /Пер. с англ. - М.: Финансы  и статистика, 1982.

4. Хоренко В.Н. Информационные системы. - Ленинград: Машиностроение,1988.

5. Артре Ш. Структурный подход  к организации баз данных. /Пер. с англ. - М.: Финансы и статистика, 1983.

6. Дейт К. Введение в системы  баз данных. М.: Наука, 1980.

7. Емельянов Н.Е., Жариков А.Н., Солдатов  В.А. Лабораторный практикум по курсу "Банки данных". Учебное пособие для ВУЗов. - М.: МИСиС, 1988.

20. Культин Н. Самоучитель Delphi 7.  Программирование на Object Pascal. – СПб.: БХВ - Санкт-Петербург, 1999. –480 с., ил.

21. Фаронов В.В., Шумаков П.В. Delphi 4. Руководство разработчика баз данных. - М. “Нолидж”, 1999. –560 с., ил.

22. Шумаков П.В. Delphi 7 и разработка приложений баз данных. –   М.: “НОЛИДЖ”, 1998. –704 с., ил.

23. Дарахвелидзе П.Г., Марков Е.П. Delphi 7  Среда визуального программирования: - СПб.: BHV –Санкт-Петербург, 1999. –352 с., ил.

24. Епанешников А.М., Епанешников  В.А. Delphi 4. Среда разработки. Учебное  пособие. - М.: “Диалог МИФИ”, 1999. –304 с., ил.

25. Фаронов В.В. Delphi 7. Учебный курс. - М: ”НОЛИДЖ”, 1998.–400 с., ил.

26. Энго Франк. Как программировать на Delphi 7. Пер. с англ. - К:

“Диа Софт”, 1997. –320 с., ил.

 

Приложение А

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

 

unit Unit1;

 

interface

 

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls, Menus, Buttons, ShellApi;

 

type

  TForm1 = class(TForm)

    img1: TImage;

    lbl1: TLabel;

    mm1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    btn1: TSpeedButton;

    btn2: TSpeedButton;

    btn3: TSpeedButton;

    btn4: TSpeedButton;

    btn5: TSpeedButton;

    btn6: TSpeedButton;

    btn7: TSpeedButton;

    btn8: TSpeedButton;

    procedure FormCreate(Sender: TObject);

    procedure FormResize(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure btn1Click(Sender: TObject);

    procedure btn2Click(Sender: TObject);

    procedure btn3Click(Sender: TObject);

    procedure btn4Click(Sender: TObject);

    procedure btn5Click(Sender: TObject);

    procedure btn6Click(Sender: TObject);

    procedure btn7Click(Sender: TObject);

    procedure btn8Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

lbl1.Top:=10;

lbl1.Left:=Form1.Width div 2 - lbl1.Width div 2;

end;

 

procedure TForm1.FormResize(Sender: TObject);

begin

lbl1.Top:=10;

lbl1.Left:=Form1.Width div 2 - lbl1.Width div 2;

end;

 

procedure TForm1.N4Click(Sender: TObject);

begin

Form1.Close;

end;

 

procedure TForm1.btn1Click(Sender: TObject);

begin

form2.show;

Form1.Hide;

end;

 

procedure TForm1.btn2Click(Sender: TObject);

begin

form3.show;

Form1.Hide;

end;

 

procedure TForm1.btn3Click(Sender: TObject);

begin

form4.show;

Form1.Hide;

end;

 

procedure TForm1.btn4Click(Sender: TObject);

begin

form5.show;

Form1.Hide;

end;

 

procedure TForm1.btn5Click(Sender: TObject);

begin

form6.show;

Form1.Hide;

end;

 

procedure TForm1.btn6Click(Sender: TObject);

begin

form7.show;

Form1.Hide;

end;

 

procedure TForm1.btn7Click(Sender: TObject);

begin

form8.show;

Form1.Hide;

end;

 

procedure TForm1.btn8Click(Sender: TObject);

begin

form9.show;

Form1.Hide;

end;

 

procedure TForm1.N3Click(Sender: TObject);

begin

  Application.messagebox('Электронный учебник  по русской литературе 60 - 90х годов.'+#13+'Разработчики: Шнель Марк и Долгих Мария. Ученики группы ВТ-21'+#13+'Среда  разработки: Delphi 7','О программе');

 

end;

 

procedure TForm1.N2Click(Sender: TObject);

begin

ShellExecute(Handle,

  'open', 'help.docx', nil, nil, SW_SHOWNORMAL);

end;

 

end.

unit Unit2;

 

interface

 

uses

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

  Dialogs, OleCtrls, SHDocVw, ExtCtrls, StdCtrls, DBCtrls, DB, ADODB,

  ExtDlgs, Menus;

 

type

  TForm2 = class(TForm)

    pnl1: TPanel;

    spl1: TSplitter;

    wb1: TWebBrowser;

    lbl1: TLabel;

    btn1: TButton;

    ds1: TDataSource;

   tbl1: TADOTable;

    dlgOpen1: TOpenDialog;

    pnl2: TPanel;

    btn2: TButton;

    btn4: TButton;

    pnl3: TPanel;

    lbl2: TLabel;

    btn3: TButton;

    dblkcbb1: TDBLookupComboBox;

    pnl4: TPanel;

    btn5: TButton;

    btn6: TButton;

    mm1: TMainMenu;

    N1: TMenuItem;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure FormActivate(Sender: TObject);

    procedure FormResize(Sender: TObject);

    procedure btn1Click(Sender: TObject);

   

    procedure btn3Click(Sender: TObject);

    procedure btn2Click(Sender: TObject);

    procedure btn4Click(Sender: TObject);

    procedure dblkcbb1Click(Sender: TObject);

    procedure btn5Click(Sender: TObject);

    procedure btn6Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure pnl3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

 

uses Unit1, Unit10;

 

{$R *.dfm}

 

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.show;

end;

 

procedure TForm2.FormActivate(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/1 фет/fet.jpg');

Form2.WindowState := wsMaximized;

pnl2.Height:=Form2.Height div 5;

pnl3.Height:=Form2.Height div 5;

pnl4.Height:=Form2.Height div 5;

dblkcbb1.Top:=pnl3.Height div 4;

btn3.Top:=pnl3.Height div 2 +pnl3.Height div 4;

  dblkcbb1.Left:=pnl3.Width div 2 -dblkcbb1.Width div 2 ;

btn3.Left:=pnl3.Width div 2 -btn3.Width div 2;

btn1.Top:=(form2.Height-pnl2.Height-pnl3.Height-pnl4.Height)div 2;

btn1.Left:=pnl1.Width div 2 - btn1.Width div 2;

btn2.Top:=pnl2.Height div 4 ;

  btn4.Top:=pnl2.Height div 2 +pnl2.Height div 4;

  btn2.Left:=pnl2.Width div 2-btn2.Width div 2 ;

  btn4.left:=pnl2.Width div 2-btn4.Width div 2;

   btn5.Top:=pnl4.Height div 4 ;

  btn6.Top:=pnl4.Height div 2 +pnl4.Height div 4;

  btn5.Left:=pnl4.Width div 2-btn5.Width div 2 ;

  btn6.left:=pnl4.Width div 2-btn6.Width div 2;

end;

 

procedure TForm2.FormResize(Sender: TObject);

begin

pnl1.Align:=alLeft;

wb1.Align:=alClient;

pnl2.Height:=Form2.Height div 5;

pnl3.Height:=Form2.Height div 5;

pnl4.Height:=Form2.Height div 5;

dblkcbb1.Top:=pnl3.Height div 4;

btn3.Top:=pnl3.Height div 2 +pnl3.Height div 4;

  dblkcbb1.Left:=pnl3.Width div 2 -dblkcbb1.Width div 2 ;

btn3.Left:=pnl3.Width div 2 -btn3.Width div 2;

btn1.Top:=(form2.Height-pnl2.Height-pnl3.Height-pnl4.Height)div 2;

btn1.Left:=pnl1.Width div 2 - btn1.Width div 2;

btn2.Top:=pnl2.Height div 4 ;

  btn4.Top:=pnl2.Height div 2 +pnl2.Height div 4;

  btn2.Left:=pnl2.Width div 2-btn2.Width div 2 ;

  btn4.left:=pnl2.Width div 2-btn4.Width div 2;

   btn5.Top:=pnl4.Height div 4 ;

  btn6.Top:=pnl4.Height div 2 +pnl4.Height div 4;

  btn5.Left:=pnl4.Width div 2-btn5.Width div 2 ;

  btn6.left:=pnl4.Width div 2-btn6.Width div 2;

end;

 

procedure TForm2.btn1Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/1 фет/fet.htm');

end;

 

 

 

procedure TForm2.btn3Click(Sender: TObject);

begin

  Unit10.avtor:=1;

   Form10.lbl3.Caption:=IntToStr(avtor);

  form10.showmodal;

end;

 

procedure TForm2.btn2Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Видео/1 фет');

end;

 

procedure TForm2.btn4Click(Sender: TObject);

var

  name01,mydir:string;

begin

  MyDIR:=ExtractFileDir(Application.ExeName);

with dlgOpen1 do

if Execute then

begin;

name01:=ExtractFileName(dlgOpen1.FileName);

if CopyFile(PChar(dlgOpen1.FileName),PChar(mydir+'\Видео\1 Фет\'+name01),True) then

 ShowMessage('Файл был добавлен')

else ShowMessage('Ошибка при копировании');

 end;

end;

 

procedure TForm2.dblkcbb1Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+tbl1.fieldbyname('put').AsString);

end;

 

procedure TForm2.btn5Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Задания/1 фет');

end;

 

procedure TForm2.btn6Click(Sender: TObject);

var

  name01,mydir:string;

begin

  MyDIR:=ExtractFileDir(Application.ExeName);

with dlgOpen1 do

if Execute then

begin;

name01:=ExtractFileName(dlgOpen1.FileName);

if CopyFile(PChar(dlgOpen1.FileName),PChar(mydir+'\Задания\1 Фет\'+name01),True) then

ShowMessage('Файл был добавлен')

else ShowMessage('Ошибка при копировании');

end;

end;

 

procedure TForm2.N1Click(Sender: TObject);

begin

Form1.close;

end;

 

procedure TForm2.pnl3Click(Sender: TObject);

begin

btn1.SetFocus;

dblkcbb1.SetFocus;

end;

 

end.

 

unit Unit3;

 

interface

 

uses

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

  Dialogs, OleCtrls, SHDocVw, ExtCtrls, StdCtrls, DBCtrls, DB, ADODB,

  ExtDlgs, Menus;

 

type

  TForm3 = class(TForm)

    pnl1: TPanel;

    wb1: TWebBrowser;

    lbl1: TLabel;

    btn1: TButton;

    dlgOpen1: TOpenDialog;

    pnl2: TPanel;

    btn2: TButton;

    btn4: TButton;

    pnl3: TPanel;

    lbl2: TLabel;

    btn3: TButton;

    pnl4: TPanel;

    btn5: TButton;

    btn6: TButton;

    mm1: TMainMenu;

    N1: TMenuItem;

    dblkcbb1: TDBLookupComboBox;

    tbl1: TADOTable;

    ds1: TDataSource;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure FormActivate(Sender: TObject);

    procedure FormResize(Sender: TObject);

    procedure btn1Click(Sender: TObject);

   

    procedure btn3Click(Sender: TObject);

    procedure btn2Click(Sender: TObject);

    procedure btn4Click(Sender: TObject);

    procedure dblkcbb1Click(Sender: TObject);

    procedure btn5Click(Sender: TObject);

    procedure btn6Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure pnl3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

 

uses Unit1, Unit10;

 

{$R *.dfm}

 

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.show;

end;

 

procedure TForm3.FormActivate(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/2 Тютчев/tut4ev_1.jpg');

Form3.WindowState := wsMaximized;

pnl2.Height:=Form3.Height div 5;

pnl3.Height:=Form3.Height div 5;

pnl4.Height:=Form3.Height div 5;

dblkcbb1.Top:=pnl3.Height div 4;

btn3.Top:=pnl3.Height div 2 +pnl3.Height div 4;

  dblkcbb1.Left:=pnl3.Width div 2 -dblkcbb1.Width div 2 ;

btn3.Left:=pnl3.Width div 2 -btn3.Width div 2;

btn1.Top:=(form3.Height-pnl2.Height-pnl3.Height-pnl4.Height)div 2;

btn1.Left:=pnl1.Width div 2 - btn1.Width div 2;

btn2.Top:=pnl2.Height div 4 ;

  btn4.Top:=pnl2.Height div 2 +pnl2.Height div 4;

  btn2.Left:=pnl2.Width div 2-btn2.Width div 2 ;

  btn4.left:=pnl2.Width div 2-btn4.Width div 2;

   btn5.Top:=pnl4.Height div 4 ;

  btn6.Top:=pnl4.Height div 2 +pnl4.Height div 4;

  btn5.Left:=pnl4.Width div 2-btn5.Width div 2 ;

  btn6.left:=pnl4.Width div 2-btn6.Width div 2;

end;

 

procedure TForm3.FormResize(Sender: TObject);

begin

pnl1.Align:=alLeft;

wb1.Align:=alClient;

pnl2.Height:=Form3.Height div 5;

pnl3.Height:=Form3.Height div 5;

pnl4.Height:=Form3.Height div 5;

dblkcbb1.Top:=pnl3.Height div 4;

btn3.Top:=pnl3.Height div 2 +pnl3.Height div 4;

  dblkcbb1.Left:=pnl3.Width div 2 -dblkcbb1.Width div 2 ;

btn3.Left:=pnl3.Width div 2 -btn3.Width div 2;

btn1.Top:=(form3.Height-pnl2.Height-pnl3.Height-pnl4.Height)div 2;

btn1.Left:=pnl1.Width div 2 - btn1.Width div 2;

btn2.Top:=pnl2.Height div 4 ;

  btn4.Top:=pnl2.Height div 2 +pnl2.Height div 4;

  btn2.Left:=pnl2.Width div 2-btn2.Width div 2 ;

  btn4.left:=pnl2.Width div 2-btn4.Width div 2;

   btn5.Top:=pnl4.Height div 4 ;

  btn6.Top:=pnl4.Height div 2 +pnl4.Height div 4;

  btn5.Left:=pnl4.Width div 2-btn5.Width div 2 ;

  btn6.left:=pnl4.Width div 2-btn6.Width div 2;

end;

 

procedure TForm3.btn1Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/2 Тютчев/Тютчев биография.htm');

end;

 

 

 

procedure TForm3.btn3Click(Sender: TObject);

begin

  Unit10.avtor:=2;

   Form10.lbl3.Caption:=IntToStr(avtor);

  form10.showmodal;

end;

 

procedure TForm3.btn2Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Видео/2 Тютчев');

end;

 

procedure TForm3.btn4Click(Sender: TObject);

var

  name01,mydir:string;

begin

  MyDIR:=ExtractFileDir(Application.ExeName);

with dlgOpen1 do

if Execute then

begin;

name01:=ExtractFileName(dlgOpen1.FileName);

if CopyFile(PChar(dlgOpen1.FileName),PChar(mydir+'\Видео\2 Тютчев\'+name01),True) then

ShowMessage('Файл был добавлен')

else ShowMessage('Ошибка при копировании');

end;

end;

 

procedure TForm3.dblkcbb1Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+tbl1.fieldbyname('put').AsString);

end;

 

procedure TForm3.btn5Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Задания/2 Тютчев');

end;

 

procedure TForm3.btn6Click(Sender: TObject);

var

  name01,mydir:string;

begin

  MyDIR:=ExtractFileDir(Application.ExeName);

with dlgOpen1 do

if Execute then

begin;

name01:=ExtractFileName(dlgOpen1.FileName);

if CopyFile(PChar(dlgOpen1.FileName),PChar(mydir+'\Задания\2 Тютчев\'+name01),True) then

ShowMessage('Файл был добавлен')

else ShowMessage('Ошибка при копировании');

end;

end;

 

procedure TForm3.N1Click(Sender: TObject);

begin

Form1.close;

end;

 

procedure TForm3.pnl3Click(Sender: TObject);

begin

btn1.SetFocus;

dblkcbb1.SetFocus;

end;

 

end.

 

unit Unit4;

 

interface

 

uses

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

  Dialogs, DB, ADODB, OleCtrls, SHDocVw, DBCtrls, StdCtrls, ExtCtrls, Menus;

 

type

  TForm4 = class(TForm)

    mm1: TMainMenu;

    N1: TMenuItem;

   dlgOpen1: TOpenDialog;

    pnl1: TPanel;

    lbl1: TLabel;

    btn1: TButton;

    pnl2: TPanel;

    btn2: TButton;

    btn4: TButton;

    pnl3: TPanel;

    lbl2: TLabel;

    btn3: TButton;

    pnl4: TPanel;

    btn5: TButton;

    btn6: TButton;

    wb1: TWebBrowser;

    dblkcbb1: TDBLookupComboBox;

    ds1: TDataSource;

    tbl1: TADOTable;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure btn1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure FormResize(Sender: TObject);

    procedure btn3Click(Sender: TObject);

    procedure btn2Click(Sender: TObject);

    procedure btn4Click(Sender: TObject);

    procedure dblkcbb1Click(Sender: TObject);

    procedure btn5Click(Sender: TObject);

    procedure btn6Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure pnl3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4;

 

implementation

 

uses Unit1, Unit10;

 

{$R *.dfm}

 

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.show;

end;

 

procedure TForm4.btn1Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/3 Некрасов/некрасов биография.htm');

end;

 

procedure TForm4.FormActivate(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/3 Некрасов/Nekrasov.jpg');

Form4.WindowState := wsMaximized;

pnl2.Height:=Form4.Height div 5;

pnl3.Height:=Form4.Height div 5;

pnl4.Height:=Form4.Height div 5;

dblkcbb1.Top:=pnl3.Height div 4;

btn3.Top:=pnl3.Height div 2 +pnl3.Height div 4;

  dblkcbb1.Left:=pnl3.Width div 2 -dblkcbb1.Width div 2 ;

btn3.Left:=pnl3.Width div 2 -btn3.Width div 2;

btn1.Top:=(form4.Height-pnl2.Height-pnl3.Height-pnl4.Height)div 2;

btn1.Left:=pnl1.Width div 2 - btn1.Width div 2;

btn2.Top:=pnl2.Height div 4 ;

  btn4.Top:=pnl2.Height div 2 +pnl2.Height div 4;

  btn2.Left:=pnl2.Width div 2-btn2.Width div 2 ;

  btn4.left:=pnl2.Width div 2-btn4.Width div 2;