Для того, чтобы открыть или сохранить информацию нужно в разделе меню нажать на созданные кнопки «Открыть», «Сохранить» соответственно.

               Делаем активным поле ввода в таблице.

               Если необходимо в создаваемом  файле открыть и/или сохранить  изображение, то создадим поле для помещения на  него этого изображения. Те или иные изображения будут открываться с помощью созданных кнопок в разделе меню «Открыть изображение», «Сохранить изображение» соответственно.

               Чтобы изменить шрифт текста, вводимого в таблицу, создадим  в разделе меню «Шрифт» подраздел «Таблицы», после нажатия которого выпадет окно с предложенными стилями, размерами и цветом текста.

                  Для изменения цвета формы  создаём в разделе «Заливка»  подраздел «Заливка формы», после  нажатия которого появится окно с предложенными цветами.

          Для изменения цвета  таблицы создаём в разделе  «Заливка» подраздел «Заливка таблицы», после нажатия которого появится окно с предложенными цветами.

    Для изменения цвета окна изображения  создаём в разделе «Заливка»  подраздел «Заливка окна изображения», после нажатия которого появится окно с предложенными цветами.

    Для удобного использования программы  мы создадим в меню раздел «Справка». В этом разделе создаем подразделы «О программе…», «Помощь», «Справка». При возникновении трудностей пользователь может выбрать нужный пункт и  найти ответы на вопросы, если таковые  имеются.

    И последнее, что мы создаём - это раздел «Выход» (также в разделе «Файл» имеется подраздел с таким  же названием). При выборе этого раздела (или аналогично подраздела) мы можем  полностью выйти из программы. 

3. Описание  применения

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

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

    Разработанное приложение имеет понятный интерфейс, довольно просто в применении.

Для того чтобы  воспользоваться программой, для  решения задачи надо:

-открыть  программу;

-заполнить таблицу. Если не хватает строк, то воспользовавшись кнопкой «Добавить» добавляем строки;

-если данные  вводятся из файла, в появившемся  окне, предварительно выбрав в пункте меню подраздел «Открыть», выбрать нужный файл и нажать ОК;

-если данные  вводятся с клавиатуры, последовательно  заполнить ячейки таблицы;

-для сохранения  введенных данных в файл достаточно выбрать в меню «Сохранить» и ввести имя создаваемого файла;

-чтобы импортировать  изображение из файла, в появившемся окне, предварительно выбрав в пункте меню подраздел «Открыть», выбрать нужный файл и нажать ОК;

- для сохранения изображения достаточно выбрать в меню «Сохранить» и ввести имя создаваемого файла;

-для изменения  шрифта в появившемся окне, предварительно выбрав в пункте меню подраздел «Таблицы», выбрать нужный стиль и цвет текста и нажать ОК;

--для изменения  цвета:

 а) формы, в появившемся окне, предварительно выбрав в пункте меню подраздел «Заливка формы», выбрать нужный цвет и нажать ОК;

б) таблицы, в появившемся окне, предварительно выбрав в пункте меню подраздел «Заливка таблицы», выбрать нужный цвет и нажать ОК;

в) окна изображения, в появившемся окне, предварительно выбрав в пункте меню подраздел «Заливка окна изображения», выбрать нужный цвет и нажать ОК;

-для того, чтобы воспользоваться информацией о программе необходимо выбрать в пункте меню подраздел «О программе…»;

- для того, чтобы узнать ответы на возникшие вопросы необходимо выбрать в пункте меню подраздел «Справка»;

-завершение  работы с программой осуществляется  нажатием кнопки «Выход». 

Заключение

    В ходе выполнения курсовой работы получены как теоретические, так и практические навыки работы в среде разработки программ Delphi на алгоритмическом языке Object Pascal. Также были углублены и закреплены знания по алгоритмизации, программированию и решению в интегрированной визуальной среде программирования Delphi задач по специальности.

    Программа выполняет все поставленные перед ней задачи:

• разработана входная форма
• режим, где при необходимости можно изменять данные

                  -    данные сохраняются в виде файлов

    В качестве улучшения можно предложить добавление нескольких режимов работы, например Обучающий и Контролирующий режимы.

    Также весьма полезной представляется возможность формирования отчета решения задачи, содержащего входные данные в виде таблиц и таблицу результатов, создаваемого в виде документа MS Word, и предоставление возможности пользователю напечатать этот отчет на подключенном принтере простым нажатием кнопки «Напечатать отчет».

    Цель  курсовой работы достигнута, задачи решены в полном требуемом объёме.

 

    

Список  используемых источников

 

1. Багласова Т.Г. Методические указания по оформлению курсовых и дипломных работ.  - Мн.: ТБП, 2006
2. Грибанов В.П. и др. Основы алгоритмизации и программирование. – М.: Бином, 1999
3. Культин Н.Б. Программирование в Turbo Pascal и Delphi.  2-ое изд. переработанное и дополненное. – С-Пб: БХВ-Петербург, 2008
4. Леонтьев В.П. Новейшая энциклопедия персонального компьютера. – М.: ОЛМА-ПРЕСС, 2002
5. Фаронов В.В. Delphi. Программирование на языке высокого уровня. – С-Пб: Питер, 2005
6. Шейкер, Т.Д. Разработка  приложений  в  системе Delphi:  учеб.  пособие/Т.Д. Шейкер. – Владивосток: Изд-во ДВГТУ, 2006 – 172 с. ISBN 5-7596-0587-9
7. Фаронов В.В. Delphi 6. Учебный курс. Издательство Молгачев С.В., 2001. – 672с
8. Delphi 7. Учебный курс / С. И. Бобровский. — СПб.: Питер, 2004. — 736 с.
9. Информатика: Метод. указания и задания к лабораторным работам для студентов 2-го курса дневной формы обучения специальностей 1-40 01 02, 1-36 01 03, 1-36 01 01, 1-53 01 01/ Барановичсий гос. ун-т; [Сост. О.И.Наранович, С.Г.Скобля, Т.В.Шляхтич]. - Барановичи: БарГУ, 2006.
10. А.Я. Архангельский «Программирование в Delphi 6» – М.: ЗАО «Издательство БИНОМ», 2002 г. – 1120 с.
11. ГОСТ 2.106-96. ЕСКД. Текстовые документы
12. ГОСТ 19.401-2000. ЕСПД. Текст программы
13. ГОСТ 19.701-90. ЕСПД. Схемы алгоритмов, программ, данных и систем

 

Приложение 1

Листинг основных модулей  программы

    unit unit1;

    interface

    uses

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

      Dialogs, Grids, StdCtrls, ExtCtrls, Menus, ExtDlgs;

    const n=100;

    type

      zap=record

      Fam:string[50];

      Str:string[50];

      Dom:string[50];

      Kv:string[50];

      end;

      mas=array[1..n] of zap;

      TForm1 = class(TForm)

        Button1: TButton;

        StringGrid1: TStringGrid;

        OpenDialog1: TOpenDialog;

        SaveDialog1: TSaveDialog;

        OpenPictureDialog1: TOpenPictureDialog;

        SavePictureDialog1: TSavePictureDialog;

        FontDialog1: TFontDialog;

        ColorDialog1: TColorDialog;

        MainMenu1: TMainMenu;

        N1: TMenuItem;

        N2: TMenuItem;

        N3: TMenuItem;

        N4: TMenuItem;

        N5: TMenuItem;

        N8: TMenuItem;

        N9: TMenuItem;

        N11: TMenuItem;

        N12: TMenuItem;

        N13: TMenuItem;

        N15: TMenuItem;

        N16: TMenuItem;

        N17: TMenuItem;

        N18: TMenuItem;

        N19: TMenuItem;

        Image1: TImage;

        Button2: TButton; 

        procedure Button1Click(Sender: TObject);

        procedure N3Click(Sender: TObject);

        procedure N2Click(Sender: TObject);

        procedure N4Click(Sender: TObject);

        procedure N13Click(Sender: TObject);

        procedure N15Click(Sender: TObject);

        procedure N11Click(Sender: TObject);

        procedure N19Click(Sender: TObject);

        procedure N8Click(Sender: TObject);

        procedure FormCreate(Sender: TObject);

        private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form1: TForm1;

      f:file of mas;

      t:string;

      a:mas;

      i,j:integer;

      k:integer=1;

    implementation

    {$R *.dfm}

    procedure TForm1.FormCreate(Sender: TObject);

    begin

    with StringGrid1 do

    begin

    StringGrid1.Cells[0,0]:='Фамилия студента';

    StringGrid1.Cells[1,0]:='Улица';

    StringGrid1.Cells[2,0]:='Номер дома';

    StringGrid1.Cells[3,0]:='Квартира';

    end;

    end; 

    procedure TForm1.Button1Click(Sender: TObject);

    begin

    StringGrid1.RowCount:=StringGrid1.RowCount+1;

    end; 

    procedure TForm1.N3Click(Sender: TObject);

    begin

    for i:=1 to stringgrid1.rowcount-1 do

    for j:=0 to 3 do

    begin

    if j=0 then a[k].Fam:=stringgrid1.cells[j,i];

    if j=1 then a[k].Str:=stringgrid1.Cells[j,i];

    if j=2 then a[k].Dom:=stringgrid1.Cells[j,i];

    if j=3 then begin a[k].Kv:=stringgrid1.cells[j,i]; k:=k+1;

    end;

    end;

    if savedialog1.execute then

    assignfile(f,savedialog1.filename);

    rewrite(f);

    write(f,a);

    closefile(f);

    end;

    procedure TForm1.N2Click(Sender: TObject);

    var l:integer;

    begin

    if opendialog1.execute then

    assignfile(f,opendialog1.filename);

    reset(f);

    read(f,a);

    closefile(f);