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

    wb1: TWebBrowser;

    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

  Form8: TForm8;

 

implementation

 

uses Unit1, Unit10;

 

{$R *.dfm}

 

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

begin

form1.show;

end;

 

procedure TForm8.FormActivate(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/7 Толстой/001.jpg');

Form8.WindowState := wsMaximized;

pnl2.Height:=Form8.Height div 5;

pnl3.Height:=Form8.Height div 5;

pnl4.Height:=Form8.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:=(form8.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 TForm8.FormResize(Sender: TObject);

begin

pnl1.Align:=alLeft;

wb1.Align:=alClient;

pnl2.Height:=Form8.Height div 5;

pnl3.Height:=Form8.Height div 5;

pnl4.Height:=Form8.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:=(form8.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 TForm8.btn1Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/7 Толстой/Толстой.htm');

end;

 

procedure TForm8.btn3Click(Sender: TObject);

begin

Unit10.avtor:=7;

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

  form10.showmodal;

end;

 

procedure TForm8.btn2Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Видео/7 Толстой');

end;

 

procedure TForm8.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+'\Видео\7 Толстой\'+name01),True) then

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

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

end;

end;

 

procedure TForm8.dblkcbb1Click(Sender: TObject);

begin

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

end;

 

procedure TForm8.btn5Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Задания/7 Толстой');

end;

 

procedure TForm8.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+'\Задания\7 Толстой\'+name01),True) then

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

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

end;

end;

 

procedure TForm8.N1Click(Sender: TObject);

begin

Form1.close;

end;

 

procedure TForm8.pnl3Click(Sender: TObject);

begin

btn1.SetFocus;

dblkcbb1.SetFocus;

end;

 

end.

unit Unit9;

 

interface

 

uses

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

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

 

type

  TForm9 = 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;

    dblkcbb1: TDBLookupComboBox;

    pnl4: TPanel;

    btn5: TButton;

    btn6: TButton;

    wb1: TWebBrowser;

    ds1: TDataSource;

    tbl1: TADOTable;

    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

  Form9: TForm9;

 

implementation

 

uses Unit1, Unit8, Unit10;

 

{$R *.dfm}

 

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

begin

form1.show;

end;

 

procedure TForm9.FormActivate(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/8 Чехов/ch.jpg');

Form9.WindowState := wsMaximized;

pnl2.Height:=Form9.Height div 5;

pnl3.Height:=Form9.Height div 5;

pnl4.Height:=Form9.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:=(form9.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 TForm9.FormResize(Sender: TObject);

begin

pnl1.Align:=alLeft;

wb1.Align:=alClient;

pnl2.Height:=Form9.Height div 5;

pnl3.Height:=Form9.Height div 5;

pnl4.Height:=Form9.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:=(form9.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 TForm9.btn1Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/8 Чехов/Чехов.htm');

end;

 

procedure TForm9.btn3Click(Sender: TObject);

begin

Unit10.avtor:=8;

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

  form10.showmodal;

end;

 

procedure TForm9.btn2Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Видео/8 Чехов');

end;

 

procedure TForm9.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+'\Видео\8 Чехов\'+name01),True) then

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

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

end;

end;

 

procedure TForm9.dblkcbb1Click(Sender: TObject);

begin

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

end;

 

procedure TForm9.btn5Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Задания/8 Чехов');

end;

 

procedure TForm9.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+'\Задания\8 Чехов\'+name01),True) then

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

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

end;

end;

 

procedure TForm9.N1Click(Sender: TObject);

begin

Form1.close;

end;

 

procedure TForm9.pnl3Click(Sender: TObject);

begin

btn1.SetFocus;

dblkcbb1.SetFocus;

end;

 

end.

 

unit Unit10;

 

interface

 

uses

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

  Dialogs, StdCtrls;

 

type

  TForm10 = class(TForm)

    lbl1: TLabel;

    edt1: TEdit;

    lbl2: TLabel;

    edt2: TEdit;

    btn1: TButton;

    btn2: TButton;

    btn3: TButton;

    dlgOpen1: TOpenDialog;

    lbl3: TLabel;

    procedure btn1Click(Sender: TObject);

    procedure btn2Click(Sender: TObject);

    procedure btn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form10: TForm10;

  avtor,i:Integer;

  r:string;

 

implementation

 

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

 

{$R *.dfm}

 

procedure TForm10.btn1Click(Sender: TObject);

begin

  with dlgOpen1 do

if Execute then

begin;

  edt2.Text:=dlgOpen1.FileName;

  r:=ExtractFileExt( dlgOpen1.FileName);

  end;

end;

 

procedure TForm10.btn2Click(Sender: TObject);

var

mydir:string;

begin

MyDIR:=ExtractFileDir(Application.ExeName);

case avtor of

1:begin

  if CopyFile(PChar(edt2.Text),PChar(mydir+'\авторы\1 Фет\proizv\'+edt1.Text+r),True) then

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

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

form2.tbl1.insert;

form2.tbl1.fieldbyname('nazv').asstring:=edt1.text;

form2.tbl1.fieldbyname('put').asstring:='авторы\1 Фет\proizv\'+edt1.Text+r;

Form2.tbl1.Post;

end;

2:begin

  if CopyFile(PChar(edt2.Text),PChar(mydir+'\авторы\2 Тютчев\'+edt1.Text+r),True) then

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

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

form3.tbl1.insert;

form3.tbl1.fieldbyname('nazv').asstring:=edt1.text;

form3.tbl1.fieldbyname('put').asstring:='авторы\2 Тютчев\'+edt1.Text+r;

Form3.tbl1.Post;

end;

3:begin

  if CopyFile(PChar(edt2.Text),PChar(mydir+'\авторы\3 Некрасов\'+edt1.Text+r),True) then

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

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

form4.tbl1.insert;

form4.tbl1.fieldbyname('nazv').asstring:=edt1.text;

form4.tbl1.fieldbyname('put').asstring:='авторы\3 Некрасов\'+edt1.Text+r;

Form4.tbl1.Post;

end;

4:begin

  if CopyFile(PChar(edt2.Text),PChar(mydir+'\авторы\4 Островский\'+edt1.Text+r),True) then

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

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

form5.tbl1.insert;

form5.tbl1.fieldbyname('nazv').asstring:=edt1.text;

form5.tbl1.fieldbyname('put').asstring:='авторы\4 Островский\'+edt1.Text+r;

 Form5.tbl1.Post;

end;

5:begin

  if CopyFile(PChar(edt2.Text),PChar(mydir+'\авторы\5 Достоевский\'+edt1.Text+r),True) then

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

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

form6.tbl1.insert;

form6.tbl1.fieldbyname('nazv').asstring:=edt1.text;

form6.tbl1.fieldbyname('put').asstring:='авторы\5 Достоевский\'+edt1.Text+r;

Form6.tbl1.Post;

end;

6:begin

  if CopyFile(PChar(edt2.Text),PChar(mydir+'\авторы\6 Салтыков-щедрин\'+edt1.Text+r),True) then

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

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

form7.tbl1.insert;

form7.tbl1.fieldbyname('nazv').asstring:=edt1.text;

form7.tbl1.fieldbyname('put').asstring:='авторы\6 Салтыков-щедрин\'+edt1.Text+r;

Form7.tbl1.Post;

end;

7:begin

  if CopyFile(PChar(edt2.Text),PChar(mydir+'\авторы\7 Толстой\'+edt1.Text+r),True) then

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

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

form8.tbl1.insert;

form8.tbl1.fieldbyname('nazv').asstring:=edt1.text;

form8.tbl1.fieldbyname('put').asstring:='авторы\7 Толстой\'+edt1.Text+r;

Form8.tbl1.Post;

end;

8:begin

  if CopyFile(PChar(edt2.Text),PChar(mydir+'\авторы\8 Чехов\'+edt1.Text+r),True) then

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

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

form9.tbl1.insert;

form9.tbl1.fieldbyname('nazv').asstring:=edt1.text;

form9.tbl1.fieldbyname('put').asstring:='авторы\8 Чехов\'+edt1.Text+r;

Form9.tbl1.Post;

end;

end;

end;

 

procedure TForm10.btn3Click(Sender: TObject);

begin

  edt1.Text:='';

  edt2.Text:='';

Form10.close;

end;

 

end.

 

 

Приложение Б

Описание содержимого диска

 

Папка «Учебник по русской литературе» - с основными программными файлами, занимает место на диске – 7,04 Gb:

1. Project.exe – запускной файл программы – 2.56 Mb;
2. Файл «Пояснительная записка.doc» –  является электронным вариантом пояснительной записки, и составлен в стандартном текстовом редакторе MS Word 2003, занимаемое место на диске – 2,34 Mb;
3. Файл «Help» - помощь пользователю – 2,33 Mb;
4. Папка с файлами «Авторы» – 14,1 Mb;
5. Папка с файлами «Видео» - 7,02 Gb;
6. Папка с файлами «Задания» - 3,19 Mb.