ВВЕДЕНИЕ
Характерной чертой нашего времени являются интенсивно развивающиеся процессы информатизации практически во всех сферах человеческой деятельности. Они привели к формированию новой информационной инфраструктуры, которая связана с новым типом общественных отношений (информационные отношения), с новой реальностью (виртуальной реальностью), с новыми информационными технологиями различных видов деятельности. Сердцевиной современных информационных технологий являются автоматизированные информационные системы.

Необходимость создания и использования автоматизированных информационных систем вытекает из принципиальных недостатков традиционных методов обработки информации:

1)                   низкая оперативность и несвоевременность поступления информации. С увеличением объема информации, например, в связи с ростом объема производства, увеличением его сложности традиционные методы приводят к большим запаздываниям поступления информации по отношению к сроку принятия решения;

2)                   низкая точность и недостаточная полнота информации, несовершенство методов фиксации и передачи алгоритмов обработки информации, запаздывание поступления данных от отдельных источников, потеря информации при ее отборе, хранении и преобразовании снижают качество решений, принимаемых на ее основе;

3)                   высокая трудоемкость и стоимость преобразования информации, увеличивающиеся объемы информации, нерегулярность поступления и обработки данных требуют привлечения увеличивающегося числа работников и как следствие увеличение материальных затрат;

4)                   низкая полезность информации. Получаемая информация по содержанию и форме не соответствует решаемым задачам управления. Имеются избыточные данные и отсутствуют необходимые. Большие объемы недостаточно систематизированной информации препятствуют правильному рассмотрению и использованию данных, Также имеются трудности в изменении установившихся потоков данных, их состава и формы представлений.

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

Все известные информационные системы могут быть разделены на две категории: автоматические и автоматизированные.

Автоматические информационные системы – системы, функционирование которых осуществляется без непосредственного участия человека. Применяются при управлении процессами и объектами (станки, технологические агрегаты, технологические линии).

Автоматизированные информационные системы – системы, в функционировании которых непосредственное участие принимает человек (транспортные процессы, энергосистемы, промышленные предприятия, предприятия торговли).
1 Общая часть

1.1 Назначение проектируемой системы

В настоящее время во многих учебных заведениях используют автоматизированные информационные системы.

При разработке системы архива НПК я хотела бы притворить в жизнь такие цели как:

- обеспечить быстрый поиск требуемой информации. Система способна выдавать требуемые сведения на заданные запросы;

- освобождение работника архива от утомительной, требуемой большой затраты времени, работы;

- обеспечение более комфортных условий для работы персонала.
1.2                    Технические средства и среда программирования
Современные информационные системы строятся на базе персонального компьютера, что обеспечивает удобства использования информационной системы.

Для создания автоматизированной информационной системы архив НПК я использовала персональный компьютер на базе процессора Intel Pentium. При создании информационной системы использовалась операционная система Windows XP Professional, ServicePack 2.  Для проектирования базы данных использовался объектно-ориентированный язык программирования Delphi.

Язык Delphi — строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам Object Pascal. В настоящее время программистам стала доступна очередная версия пакета Delphi - Borland Delphi 7 Studio. Как и предыдущие версии, Borland Delphi 7 Studio позволяет создавать самые различные программы: от простейших однооконных приложений до программ управления распределенными базами. В состав пакета включены разнообразные утилиты, обеспечивающие работу с базами данных, XML-документами, создание справочной системы, решение других задач. Отличительной особенностью седьмой версии является поддержка технологии .NET.

Я выбрала Borland Delphi 7 Studio потому, что он может работать в среде операционных систем от Windows 98 до Windows XP. Особых требований, по современным меркам, к ресурсам компьютера пакет не предъявляет: процессор должен быть типа Pentium или Celeron с тактовой частотой не ниже 166 МГц (рекомендуется Pentium II 400 МГц), оперативной памяти - 128 Мбайт (рекомендуется 256 Мбайт), достаточное количество свободного дискового пространства (для полной установки версии Enterprise необходимо приблизительно 475 Мбайт).

Следовательно, те же технические требования предъявляются и к моей информационной системе.
2   ПРОЕКТНАЯ ЧАСТЬ
2.1       Постановка задачи
Новомосковский политехнический колледж является Федеральным Государственным Общеобразовательным учреждением среднего профессионального образования.

Его местонахождение (юридический адрес): 301670, Тульская область, г. Новомосковск, ул. Калинина, д. 24.

НПК располагает большим выбором профессии и выпускает квалифицированных специалистов банковского дела, компьютерной отрасли, химического производства и т.д.

Реализация основной профессиональной образовательной программы по каждой специальности обеспечивается педагогическими кадрами, имеющими, как правило, высшее образование, соответствующее профилю преподаваемой дисциплины. Сведения о сотрудниках: 124 человека, студентов – около 800 человек.

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




рисунок 2.1 – Схема взаимосвязи функций по информационным потокам
Основной функцией Новомосковского политехнического колледжа является обучение студентов, т.е. подготовка таких специалистов, как банковско-бухгалтерского дела, КИП, АСУ, механиков, электриков, технологов и химиков. По окончанию семестра проходит сессия, по итогам, которой преподаватели обязаны сдавать в учебную часть экзаменационные ведомости, в свою очередь учебная часть ведет журнал успеваемости. Туда заносятся все отметки, по каждой группе и по каждому студенту, по окончанию журнала, он вместе с ведомостями сдается в архив, где срок хранения журнала равняется пяти годам, а срок хранения ведомости неограничен. Таким образом, при утере диплома, возможно его восстановление. Также преподавателем, согласно актам в архив сдаются дипломные, курсовые работы и отчеты по практике. Помимо журнала учебной успеваемости учебная часть сдает журнал выдачи зачеток, журнал ежедневных учебных часов, классные журналы.

Помимо учебной части и преподавателей, отдел кадров также сдает в архив приказы, которые сохраняются постоянно, личные дела студентов окончивших и отчисленных по какой-либо причине, личные дела выбывших сотрудников. Они хранятся в архиве практически постоянно, если точнее, то 75 лет. Также сюда сдаются все документы по военкомату.

Бухгалтерия сдает лицевые счета сотрудников и преподавателей, которые имеют постоянный срок хранения.

Благодаря созданию автоматизированной информационной системы сокращается время на выполнение запроса и поиска необходимой информации, облегчается работа сотрудников.
2.2 Схема взаимосвязи задач по информационным потокам



рисунок 2.2 – Схема взаимосвязи задач по информационным потокам
 Оператор, обращаясь к АИС, запрашивает необходимую информацию и получает быстрый ответ на свой запрос. Он может получить информацию о студентах ранее обучавшихся здесь, о сотрудниках и т.д.
2.3       Описание задач, решаемых АИС
Обеспечение пользователя необходимой информацией. Ему могут быть выданы следующие сведения:

- о периоде работы сотрудника, его должности и заработной платы;

- информацию о студентах (адрес, телефон, год рождения, период обучения, специальность, группа, тема дипломной работы);

-  информацию об успеваемости;

- информацию о выданных зачетках;

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




                                                    Запрос о                          Запрос на

                                             сотрудниках                          принятие

        Данные о                    и студентах                            докуменов

       сотрудниках                                                                                                        Поступление

       и студентах                                                                                                         документов





         Работы                                                                                                              Данные о

     студентов                       Запрос о                                                                        лицевых счетах

                                             работах                                 Запрос о

                                             студентов                             лицевых счетах

                                         





Рисунок 2.3 – Контекстная диаграмма


                                                                              должностная инструкция,

                                                                               приказы директора      

	Организация работы в «Архиве НПК» А0

                                                                                                  

Входная информация                                                                                 Выходная информация




                                                                                                  

                                                                                                  

                                                                                                  

А-0

                                                               АИС «Архив НПК»

                                                                 
Рисунок 2.4 - Детализация процесса работы архивариуса
 
     А0
Рисунок 2.5 – Детализация функции




                




  А1
Рисунок 2.6 – Декомпозиция 1 процесса А0
2.4       Перечень всех форм документов
АИС может выдавать следующие виды отчетов:

- по студентам НПК (номер зачетной книжки, ФИО, группа, период обучения, тема дипломного проекта);

- по сотрудникам (ФИО, период работы, должность);

- по успеваемости студентов (ФИО студента, ФИО классного руководителя, курс, семестр, дисциплина, оценка).
2.5       Схема базы данных информационной системы.

Таблица 2.1 – Учебная часть. (Журнал выдачи зачеток)

Код	ФИО студента	Номер специальности	Отделение	Группа	Форма обучения	Дата зачисления
72-С	Иванов А.С.	2301013	АСУ	АС041	очная	1 сентября 2004 г
73-С	Петров А.М.	2302013	АСУ	А041	очная	1 сентября 2004 г

Таблица 2.2 – Учебная часть. (Журнал учебной успеваемости)

ФИО студента	Экзаменационные предметы		Предмет1	Предмет2	Предмет3	Предмет4
	АИС	РАИС	математика	Основы технологии отрасли	Электротехника и электроника	Учебная практика по РАИС
Андреев А.С.	5	4	5	5	5	5
Иванов М.П.	4	4	3	4	4	3
Петров А.Г.	4	4	4	3	4	3
Сергеев М.Н.	3	4	3	4	4	4

Таблица 2.3 – Учебная часть

Код	Курс	Специальность	Дисциплина	Преподаватель	Учебные часы	Классное руководство
123	2	2301013	Интернет -технологии	Соляникова Л.С.	56	АС041
123	4	2301013	Программное обеспечение АИС	Соляникова Л.С.	48	АС041
125	2	2301013	Основы алгоритмизации и программирования	Андриянова Е.В.	80	АС071

Таблица 2.4 – Отдел кадров

Код	Специальность	ФИО	Год поступления	Год окончания	Обучение
12	2301013	Иванов А.С.	01.09.04	30.06.08	очное
13	2301013	Петров А.Г.	01.09.04	30.06.08	очное

Таблица 2.5 – Преподаватели

Код	ФИО	Курс	Группа	Специаль ность	Дисцип- лина	Отчеты	Курсовые	Дипломы
123	Соляникова Людмила Семеновна	4	АС041	2301013	ПО АИС

Таблица 2.6 – Бухгалтерия

Код	Подразделение	ФИО	Лицевой счет
2	Преподаватели	Григорьев В.И.	24568731923
5	Сотрудники	Сапожникова Л.А.	32546879126

Query1.SQL.Clear;

      Query1.SQL.Add('SELECT * FROM uch_chast WHERE Prepod='+#39+Edit1.Text+#39);

      Query1.Active:=True;

    end;

 

end;

end;

procedure TForm3.Button1Click(Sender: TObject);

var

i:integer;

begin

w:=CreateOleObject('Word.Application');

w.Visible:=true;

w.Documents.Add;

tab:=w.ActiveDocument.Tables.Add(Range:=w.ActiveDocument.range, NumRows:=2, NumColumns:=13);

tab.Autoformat (Format:=31);
tab.columns.item(1).width:=20;

tab.columns.item(2).width:=90;

tab.columns.item(3).width:=70;

tab.columns.item(4).width:=90;

tab.columns.item(5).width:=80;

tab.columns.item(6).width:=100;

tab.columns.item(7).width:=80;

tab.columns.item(8).width:=80;

tab.columns.item(9).width:=80;

tab.columns.item(10).width:=90;

tab.columns.item(11).width:=90;

tab.columns.item(12).width:=90;

tab.columns.item(13).width:=90;
tab.cell(1,1).range.text:='nom';
for i:=2 to 13 do

  tab.cell(1,i).range.text:=dbGrid1.Columns[i-1].Title.caption;

 i:=2;

 Query1.First;
  while not(Query1.Eof) do

   begin

  tab.rows.add;
 tab.cell(i,1).range.text:=Form3.Table1.fieldbyName('nom').AsString;

 tab.cell(i,2).range.text:=Form3.Table1.fieldbyName('fam').AsString;

 tab.cell(i,3).range.text:=Form3.Table1.fieldbyName('im').AsString;

 tab.cell(i,4).range.text:=Form3.Table1.fieldbyName('ot').AsString;

 tab.cell(i,5).range.text:=Form3.Table1.fieldbyName('dr').AsString;

 tab.cell(i,6).range.text:=Form3.Table1.fieldbyName('adr').AsString;

 tab.cell(i,7).range.text:=Form3.Table1.fieldbyName('gr').AsString;

 tab.cell(i,8).range.text:=Form3.Table1.fieldbyName('sv').AsString;

 tab.cell(i,9).range.text:=Form3.Table1.fieldbyName('nompr').AsString;

 tab.cell(i,10).range.text:=Form3.Table1.fieldbyName('ob').AsString;

 tab.cell(i,11).range.text:=Form3.Table1.fieldbyName('mat').AsString;

 tab.cell(i,12).range.text:=Form3.Table1.fieldbyName('ote').AsString;

 tab.cell(i,13).range.text:=Form3.Table1.fieldbyName('dopsv').AsString;
 form3.Query1.Next;

i:=i+1;

end;
tab.rows.item(i).delete;

end;
 

procedure TForm3.Button3Click(Sender: TObject);

begin

DataSource1.DataSet:=Query1;

Query1.Active:=False;

      Query1.SQL.Clear;

      Query1.SQL.Add('SELECT * FROM Student');

      Query1.Active:=True;

end;
end.
Программный код формы 4:
unit Unit5;
interface
uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls;
type

  TForm5 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);

begin

Close;

end;
end.
Программный код формы № 5

unit Unit6;
interface
uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls, ComObj,

  jpeg ;
type

  TForm6 = class(TForm)

    Table1: TTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator2: TDBNavigator;

    RadioGroup1: TRadioGroup;

    Edit1: TEdit;

    Button2: TButton;

    Query1: TQuery;

    Button3: TButton;

    Image1: TImage;

    Button1: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form6: TForm6;

   w,tab: variant;

implementation
{$R *.dfm}
procedure TForm6.Button2Click(Sender: TObject);

begin

DataSource1.DataSet:=Query1;

case RadioGroup1.ItemIndex of
  0:begin

      Query1.Active:=False;

      Query1.SQL.Clear;

      Query1.SQL.Add('SELECT * FROM otdel_kadr WHERE Fam='+#39+Edit1.Text+#39);

      Query1.Active:=True;

    end;

  1:begin

      Query1.Active:=False;

      Query1.SQL.Clear;

      Query1.SQL.Add('SELECT * FROM otdel_kadr WHERE Obuchen='+#39+Edit1.Text+#39);

      Query1.Active:=True;

    end;

  end;

  end;
procedure TForm6.Button1Click(Sender: TObject);

var

i:integer;

begin

w:=CreateOleObject('Word.Application');

w.Visible:=true;

w.Documents.Add;

tab:=w.ActiveDocument.Tables.Add(Range:=w.ActiveDocument.range, NumRows:=2, NumColumns:=9);

tab.Autoformat (Format:=31);
tab.columns.item(1).width:=20;

tab.columns.item(2).width:=100;

tab.columns.item(3).width:=70;

tab.columns.item(4).width:=70;

tab.columns.item(5).width:=80;

tab.columns.item(6).width:=100;

tab.columns.item(7).width:=80;

tab.columns.item(8).width:=80;

tab.columns.item(9).width:=80;
tab.cell(1,1).range.text:='№';
for i:=2 to 9 do

  tab.cell(1,i).range.text:=dbGrid1.Columns[i-1].Title.caption;

 i:=2;

 Query1.First;
  while not(Query1.Eof) do

   begin

  tab.rows.add;
 tab.cell(i,1).range.text:=Form6.Table1.fieldbyName('N').AsString;

 tab.cell(i,2).range.text:=Form6.Table1.fieldbyName('Fam').AsString;

 tab.cell(i,3).range.text:=Form6.Table1.fieldbyName('Im').AsString;

 tab.cell(i,4).range.text:=Form6.Table1.fieldbyName('Ot').AsString;

 tab.cell(i,5).range.text:=Form6.Table1.fieldbyName('Dr').AsString;

 tab.cell(i,6).range.text:=Form6.Table1.fieldbyName('Adr').AsString;

 tab.cell(i,7).range.text:=Form6.Table1.fieldbyName('Obr').AsString;

 tab.cell(i,8).range.text:=Form6.Table1.fieldbyName('Dol').AsString;

 tab.cell(i,9).range.text:=Form6.Table1.fieldbyName('Npr').AsString;
 form6.Query1.Next;

i:=i+1;

end;
tab.rows.item(i).delete;

end;
procedure TForm6.Button3Click(Sender: TObject);

begin

 DataSource1.DataSet:=Query1;

  Query1.Active:=False;

      Query1.SQL.Clear;

      Query1.SQL.Add('SELECT * FROM Laborant' );

      Query1.Active:=True;

end;
end.

end;
end.

 Программный код формы № 6

unit Unit7;
interface
uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls, jpeg,

  Buttons,  ToolWin, ComCtrls, ADODB, ComObj;
type
  TForm7 = class(TForm)

     Query1: TQuery;

    RadioGroup1: TRadioGroup;

    Edit1: TEdit;

    Button1: TButton;

    Table1: TTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;

    BitBtn1: TBitBtn;

    Button2: TButton;

    Image1: TImage;

    procedure Button2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form7: TForm7;

   dm,w,tab: variant;

implementation
//uses dmBook, editBook;
{$R *.dfm}
procedure TForm7.Button2Click(Sender: TObject);

begin

//close;

DataSource1.DataSet:=Query1;

  Query1.Active:=False;

      Query1.SQL.Clear;

      Query1.SQL.Add('SELECT * FROM Grup');

      Query1.Active:=True;

end;
procedure TForm7.BitBtn1Click(Sender: TObject);

var

i:integer;
  begin

w:=CreateOleObject('Word.Application');

w.Visible:=true;

w.Documents.Add;

tab:=w.ActiveDocument.Tables.Add(Range:=w.ActiveDocument.range, NumRows:=2, NumColumns:=6);

tab.Autoformat (Format:=31);
tab.columns.item(1).width:=25;

tab.columns.item(2).width:=50;

tab.columns.item(3).width:=100;

tab.columns.item(4).width:=110;

tab.columns.item(5).width:=120;

tab.cell(1,1).range.text:='№';
for i:=1 to 5 do

  tab.cell(1,i+1).range.text:=dbGrid1.Columns[i-1].Title.caption;

 i:=2;

 Query1.First;
  while not(Query1.Eof) do

   begin

  tab.rows.add;

 tab.cell(i,1).range.text:=i-1;

 tab.cell(i,2).range.text:=Form7.Table1.fieldbyName('NAIMGR').AsString;

 tab.cell(i,3).range.text:=Form7.Table1.fieldbyName('spez').AsString;

 tab.cell(i,4).range.text:=Form7.Table1.fieldbyName('KLRUK').AsString;

 tab.cell(i,5).range.text:=Form7.Table1.fieldbyName('OTD').AsString;

 tab.cell(i,6).range.text:=Form7.Table1.fieldbyName('Zavotd').AsString;

 form7.Query1.Next;
i:=i+1;

end;

tab.rows.item(i).delete;

end;
procedure Tform7.Button1Click(Sender: TObject);

begin

DataSource1.DataSet:=Query1;

case RadioGroup1.ItemIndex of
  0:begin

      Query1.Active:=False;

      Query1.SQL.Clear;

      Query1.SQL.Add('SELECT * FROM buchgal WHERE Podrasd='+#39+Edit1.Text+#39);

      Query1.Active:=True;

    end;

  1:begin

      Query1.Active:=False;

      Query1.SQL.Clear;

      Query1.SQL.Add('SELECT * FROM buchgal WHERE Fio='+#39+Edit1.Text+#39);

      Query1.Active:=True;

    end;

  2:begin

      Query1.Active:=False;

      Query1.SQL.Clear;

      Query1.SQL.Add('SELECT * FROM buchgal WHERE Liz_schet='+#39+Edit1.Text+#39);

      Query1.Active:=True;

    end;

  3:begin

      Query1.Active:=False;

      Query1.SQL.Clear;

      Query1.SQL.Add('SELECT * FROM buchgal WHERE ZAVOTD='+#39+Edit1.Text+#39);

      Query1.Active:=True;

    end;

    end;
 end;
end.
Программный код формы 7:

unit Unit8;
interface
uses

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

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

  TForm8 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    Image1: TImage;

    N7: TMenuItem;

    N8: TMenuItem;

    N13: TMenuItem;

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N61Click(Sender: TObject);
    procedure N5Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form8: TForm8;
implementation
uses Unit7, Unit5, Unit2, Unit3, Unit6, Unit1;
{$R *.dfm}
procedure TForm8.N2Click(Sender: TObject);

begin

form2.Visible:=true;

end;
procedure TForm8.N3Click(Sender: TObject);

begin

form3.Visible:=true;

end;
procedure TForm8.N11Click(Sender: TObject);

begin

form6.Visible:=true;

end;
procedure TForm8.N12Click(Sender: TObject);

begin

form7.Visible:=true;

end;
procedure TForm8.N4Click(Sender: TObject);

begin

form1.close;

end;
procedure TForm8.N6Click(Sender: TObject);

begin

 form5.Visible:=true;

end;
procedure TForm8.N7Click(Sender: TObject);

begin

ShellExecute (0, nil, 'D:\Proect\SP1.doc' ,nil,nil, SW_SHOWNORMAL);

end;
procedure TForm8.N8Click(Sender: TObject);

begin

ShellExecute (0, nil, 'D:\Proect\SP3.doc' ,nil,nil, SW_SHOWNORMAL);

end;
procedure TForm8.N61Click(Sender: TObject);

begin

 ShellExecute (0, nil, 'D:\Proect\SP5.doc' ,nil,nil, SW_SHOWNORMAL);

end;
procedure TForm8.N5Click(Sender: TObject);

      var

  path: PAnsiChar;
begin

//  Запуск руководства пользователя

  path := PAnsiChar(ExtractFilePath(Application.ExeName) + 'Spr.chm');

  ShellExecute(handle, 'open', path, nil, nil, SW_SHOWNORMAL);

end;
procedure TForm8.N13Click(Sender: TObject);

begin

ShellExecute (0, nil, 'D:\Proect\SP5.doc' ,nil,nil, SW_SHOWNORMAL);

end;
end.