Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Мое (Восстановлен) - копия.doc
Скачиваний:
3
Добавлен:
20.09.2019
Размер:
532.99 Кб
Скачать

37

СОДЕРЖАНИЕ

ВВЕДЕНИЕ………………………………………………………………………………………….5

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 25

ПРИЛОЖЕНИЕ А 26

Введение

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

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

Курсовой проект посвящен созданию программного продукта «Информационная система расчетов по договорам». В этом курсовом проекте студент должен реализовать работу с небольшой базой данных (3 таблицы) не используя специально разработанные компоненты для работы с базами данных. Это позволит студенту самостоятельно научиться реализовывать работу баз данных, такую как, создание базы данных, просмотр, корректировку записей баз данных, сортировку информации в базе, обработка запросов.

1.Способ декомпозиции задачи.

1.1 Список модулей входящих в программных комплексов.

unit Main;

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

unit Perem;

Модуль содержит описания всех новых введенных типов данных в приложения. unit FileUnit;

Модуль содержит в себе процедуры записи в файл, поиск, добавление, удаление записи из структуры.

unit Struct;

Этот модуль содержит в себе описание всех процедур для обработки двухуровневой иерархической структуры(формирование, просмотр, удаление, добавление, поиск, задание Ф9).

unit Prosmotr;

Модуль содержит процедуру отвечающую за вывод теоретических данных.

1.2 Основные процедуры, входящие в состав программных комплексов.

unit Main;

procedure InputXD;

Процедура вызывается при выборе пункта «Ввод данных в файл» => «Хоздоговора»(Создать(Файл хоздоговоров)).Создает шапку для ввода записей в файл хоздоговора.

procedure InputWTK;

Процедура вызывается при выборе пункта «Ввод данных в файл» => «Атрибуты исполнителей»(Создать(Файл исполнителей)).Создает шапку для ввода записей в файл исполнителей.

procedure InputBANK;

Процедура вызывается при выборе пункта «Ввод данных в файл» => «Отделение сбербанка» (Создать(Файл отделения сбербанка)). Создает шапку для ввода записей в файл сбербанка.

procedure OutputXD;

Процедура вызывается при выборе пункта «Просмотр данных из файл» => «Хоздоговора»(Открыть(Файл хоздоговоров)).Создает шапку для вывода записей из файл хоздоговора.

procedure OutputWTK;

Процедура вызывается при выборе пункта «Просмотр данных из файл» => «Атрибуты исполнителей»(Открыть(Файл исполнителей)).Создает шапку для вывода записей из файл исполнителей.

procedure OutputBANK;

Процедура вызывается при выборе пункта «Просмотр данных из файл» => «Отделение сбербанка»(Открыть(Файл сбербанка)).Создает шапку для вывода записей из файл сбербанка.

procedure InputSt;

Процедура вызывается после формирования структуры, при выполнения Задания Ф9 Пункт «Добавление».Создает шапку для добавления записи в структуру.

procedure InputFind;

Процедура вызывается после формирования структуры, при выполнения Задания Ф9 Пункт «Поиск».Создает шапку для поиска записи в структуре.

procedure BitBtn1Click(Sender: TObject);

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

procedure BitBtn3Click(Sender: TObject);

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

procedure BitBtn4Click(Sender: TObject);

Процедура вызывается при нажатии на кнопку Close.Отвечает за выход на главную форму.

procedure BitBtn6Click(Sender: TObject);

Процедура вызывается при нажатии на кнопку Close.Отвечает за выход на главную форму.

procedure BitBtn5Click(Sender: TObject);

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

unit FileUnit;

procedure BitBtn1Click(Sender: TObject);

Процедура вызывается при нажатии на кнопку Следующая запись. Отвечает за ввод записей в файл.

procedure BitBtn2Click(Sender: TObject);

Процедура вызывается при нажатии на кнопку Прекратить ввод. Отвечает за сохранение и выход из этой формы.

procedure BitBtn3Click(Sender: TObject);

Процедура вызывается при нажатии на кнопку Close.Отвечает за выход на главную форму.

unit Struct;

procedure ShapingFirst(sWTK : String);

Процедура выполняет формирование первого уровня

procedure ShapingSecond(sWTK,sXD,sBANK : String);

Процедура выполняет формирование второго уровня.

procedure Sort(TypeSort : Byte);

Процедура осуществляет сортировку записей по 1-возрастанию и по 0-убыванию.

procedure Viewing;

Процедура осуществляет просмотр записей структуры.

procedure Insert;

Процедура осуществляет добавление записи в список.

procedure Find;

Процедура осуществляет поиск записей.

procedure Delete;

Процедура позволяет удалять записи из списка.

unit Prosmotr;

procedure BitBtn1Click(Sender: TObject);

Процедура выполняется при выборе пункта «Теоретические сведения».

1.3 Иерархическая структура состава программных компонентов.

Ниже указано в каком файле размещается каждый модуль программного комплекса, а так же указано место расположение форм приложения. Выше был приведен список процедур каждого модуля программного продукта.

program Project1;

uses

Forms,

Main in 'Main.pas' {MainForm},

Perem in 'Perem.pas',

FileUnit in 'FileUnit.pas' {FileForm},

Struct in 'Struct.pas',

Prosmotr in 'Prosmotr.pas' {Teor};

{$R *.RES}

begin

Application.Initialize;

Application.CreateForm(TMainForm, MainForm);

Application.CreateForm(TFileForm, FileForm);

Application.CreateForm(TTeor, Teor);

Application.Run;

end.