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

Автор работы: Пользователь скрыл имя, 25 Октября 2017 в 16:44, курсовая работа

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

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

Содержание работы

Введение
4
1
Постановочная часть
5
1.1
Формулировка задачи
5
1.2
Описание входных данных
5
1.3
Требования к интерфейсу
5
2
Проектная часть
7
2.1
Описание информационной базы
7
2.2
Описание алгоритма
7
2.3
Описание интерфейса
9
3
Инструментальные средства реализации проекта
13
3.1
Краткая характеристика используемой операционной системы
13
3.2
Краткая характеристика языка программирования
13
4
Эксплуатация
14
4.1
Требования к аппаратному обеспечению
14
4.2
Инструкция пользователю
14
4.3
Инструкция программисту
14
5
Мероприятия по технике безопасности и охране труда
15

Заключение
18

Список использованных источников

Скачать архив (601.00 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Пояснительная записка на практику ЭУП.doc

— 2.35 Мб (Скачать файл)

   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 TForm4.FormResize(Sender: TObject);

begin

pnl1.Align:=alLeft;

wb1.Align:=alClient;

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;

   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 TForm4.btn3Click(Sender: TObject);

begin

Unit10.avtor:=3;

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

  form10.showmodal;

end;

 

procedure TForm4.btn2Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Видео/3 Некрасов');

end;

 

procedure TForm4.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+'\Видео\3 Некрасов\'+name01),True) then

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

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

end;

end;

 

procedure TForm4.dblkcbb1Click(Sender: TObject);

begin

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

end;

 

procedure TForm4.btn5Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Задания/3 Некрасов');

end;

 

procedure TForm4.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+'\Задания\3 Некрасов\'+name01),True) then

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

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

end;

end;

 

procedure TForm4.N1Click(Sender: TObject);

begin

Form1.close;

end;

 

procedure TForm4.pnl3Click(Sender: TObject);

begin

btn1.SetFocus;

dblkcbb1.SetFocus;

end;

 

end.

 

unit Unit5;

 

interface

 

uses

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

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

 

type

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

    tbl1: TADOTable;

    ds1: TDataSource;

    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);

    procedure pnl1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

 

implementation

 

uses Unit1, Unit10;

 

{$R *.dfm}

 

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

begin

form1.show;

end;

 

procedure TForm5.btn1Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/4 Островский/Островский.htm');

end;

 

procedure TForm5.FormActivate(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/4 Островский/ostrovsk.jpg');

Form5.WindowState := wsMaximized;

pnl2.Height:=Form5.Height div 5;

pnl3.Height:=Form5.Height div 5;

pnl4.Height:=Form5.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:=(form5.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 TForm5.FormResize(Sender: TObject);

begin

pnl1.Align:=alLeft;

wb1.Align:=alClient;

pnl2.Height:=Form5.Height div 5;

pnl3.Height:=Form5.Height div 5;

pnl4.Height:=Form5.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:=(form5.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 TForm5.btn3Click(Sender: TObject);

begin

Unit10.avtor:=4;

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

  form10.showmodal;

end;

 

procedure TForm5.btn2Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Видео/4 Островский');

end;

 

procedure TForm5.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+'\Видео\4 Островский\'+name01),True) then

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

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

end;

end;

 

procedure TForm5.dblkcbb1Click(Sender: TObject);

begin

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

end;

 

procedure TForm5.btn5Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Задания/4 Островский');

end;

 

procedure TForm5.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+'\Задания\4 Островский\'+name01),True) then

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

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

end;

end;

 

procedure TForm5.N1Click(Sender: TObject);

begin

Form1.close;

end;

 

procedure TForm5.pnl3Click(Sender: TObject);

begin

btn1.SetFocus;

dblkcbb1.SetFocus;

end;

 

procedure TForm5.pnl1Click(Sender: TObject);

begin

btn1.SetFocus;

end;

 

end.

 

unit Unit6;

 

interface

 

uses

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

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

 

type

  TForm6 = 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

  Form6: TForm6;

 

implementation

 

uses Unit1, Unit10;

 

{$R *.dfm}

 

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

begin

form1.show;

end;

 

procedure TForm6.FormActivate(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/5 Достоевский/dost.jpg');

Form6.WindowState := wsMaximized;

pnl2.Height:=Form6.Height div 5;

pnl3.Height:=Form6.Height div 5;

pnl4.Height:=Form6.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:=(form6.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 TForm6.FormResize(Sender: TObject);

begin

pnl1.Align:=alLeft;

wb1.Align:=alClient;

pnl2.Height:=Form6.Height div 5;

pnl3.Height:=Form6.Height div 5;

pnl4.Height:=Form6.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:=(form6.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 TForm6.btn1Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/5 Достоевский/Достоевский.htm');

end;

 

procedure TForm6.btn3Click(Sender: TObject);

begin

Unit10.avtor:=5;

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

  form10.showmodal;

end;

 

procedure TForm6.btn2Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Видео/5 Достоевский');

end;

 

procedure TForm6.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+'\Видео\5 Достоевский\'+name01),True) then

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

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

end;

end;

 

procedure TForm6.dblkcbb1Click(Sender: TObject);

begin

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

end;

 

procedure TForm6.btn5Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Задания/5 Достоевский');

end;

 

procedure TForm6.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+'\Задания\5 Достоевский\'+name01),True) then

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

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

end;

end;

 

procedure TForm6.N1Click(Sender: TObject);

begin

Form1.close;

end;

 

procedure TForm6.pnl3Click(Sender: TObject);

begin

btn1.SetFocus;

dblkcbb1.SetFocus;

end;

 

end.

 

unit Unit7;

 

interface

 

uses

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

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

 

type

  TForm7 = 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

  Form7: TForm7;

 

implementation

 

uses Unit1, Unit10;

 

{$R *.dfm}

 

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

begin

form1.show;

end;

 

procedure TForm7.FormActivate(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/6 Салтыков-щедрин/saltykov1.jpg');

Form7.WindowState := wsMaximized;

pnl2.Height:=Form7.Height div 5;

pnl3.Height:=Form7.Height div 5;

pnl4.Height:=Form7.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:=(form7.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 TForm7.FormResize(Sender: TObject);

begin

pnl1.Align:=alLeft;

wb1.Align:=alClient;

pnl2.Height:=Form7.Height div 5;

pnl3.Height:=Form7.Height div 5;

pnl4.Height:=Form7.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:=(form7.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 TForm7.btn1Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'авторы/6 Салтыков-щедрин/Салтыков-Щедрин.htm');

end;

 

procedure TForm7.btn3Click(Sender: TObject);

begin

Unit10.avtor:=6;

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

  form10.showmodal;

end;

 

procedure TForm7.btn2Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Видео/6 Салтыков-щедрин');

end;

 

procedure TForm7.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+'\Видео\6 Салтыков-щедрин\'+name01),True) then

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

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

 end;

end;

 

procedure TForm7.dblkcbb1Click(Sender: TObject);

begin

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

end;

 

procedure TForm7.btn5Click(Sender: TObject);

begin

wb1.Navigate(ExtractFilePath(Application.ExeName)+'Задания/6 Салтыков-щедрин');

end;

 

procedure TForm7.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+'\Задания\6 Салтыков-щедрин\'+name01),True) then

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

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

end;

end;

 

procedure TForm7.N1Click(Sender: TObject);

begin

Form1.close;

end;

 

procedure TForm7.pnl3Click(Sender: TObject);

begin

btn1.SetFocus;

dblkcbb1.SetFocus;

end;

 

end.

 

unit Unit8;

 

interface

 

uses

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

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

 

type

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

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