Размещено на http://www.allbest.ru/

Колледж информационных технологий и экономики

Кабардино-Балкарского Государственного Университета

Пояснительная записка

К КУРСОВОМУ ПРОЕКТУ

Прикладное программирование

на тему: Информационная система учета распределения средств ВТ на предприятии

Нальчик - 2015



Аннотация

Мной был разработан курсовой проект на тему: Информационная система учета распределения средств ВТ на предприятии. Курсовая состоит из двух частей. 1 часть это программа, Которая была создана на Delphi7 с использованием СУБД MSAccess. 2 часть это пояснительная записка, содержащая в себе 3 пункта.

1. Анализ и обоснование тематики курсовой работы

2. Проектирование структуры и описание компонентов программного продукта.

3. Разработка инструкции пользователя.



Введение

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

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

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

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

Таким образом, хозяйственный учет - это количественное отражение и качественная характеристика хозяйственных явлений в целях контроля и активного на них влияния.

Хозяйственный учет должен:

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

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

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

Хозяйственный учет не просто регистрирует факты хозяйственной деятельности предприятия, но непосредственно влияет на результаты производственной деятельности, а именно:

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

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



1. Анализ и обоснование тематики курсовой работы

1.1 Описание предметной области задачи

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

1.2 Выбор и обоснование языка и среды разработки

Delphi - это продукт Borland International для быстрого создания приложений. Высокопроизводительный инструмент визуального построения приложений включает в себя настоящий компилятор кода и предоставляет средства визуального программирования, несколько похожие на те, что можно обнаружить в Microsoft Visual Basic или в других инструментах визуального проектирования. В основе Delphi лежит язык Object Pascal, который является расширением объектно-ориентированного языка Pascal.

Delphi производит небольшие по размерам (до 15-30 Кбайт) высокоэффективные исполняемые модули. С другой стороны небольшие по размерам и быстро исполняемые модули означают, что требования к клиентским рабочим местам существенно снижаются - это имеет немаловажное значение и для конечных пользователей.

Преимущества Delphi по сравнению с аналогичными программными продуктами.

- быстрота разработки приложения;

- высокая производительность разработанного приложения;

- низкие требования разработанного приложения к ресурсам компьютера;

- наращиваемость за счет встраивания новых компонентов и инструментов в среду Delphi;

- возможность разработки новых компонентов и инструментов собственными средствами Delphi (существующие компоненты и инструменты доступны в исходных кодах);

- удачная проработка иерархии объектов.

Система программирования Delphi рассчитана на программирование различных приложений и предоставляет большое количество компонентов для этого. Для разработки базы данных мной использована среда программирования Borland Delphi7.

Высокопроизводительный инструмент визуального построения приложений включает в себя настоящий компилятор кода и предоставляет средства визуального программирования, несколько похожие на те, что можно обнаружить в Microsoft Visual Basic или в других инструментах визуального проектирования. В основе Delphi лежит язык Object Pascal, который является расширением объектно-ориентированного языка Pascal. В Delphi также входят локальный SQL-сервер, генераторы отчетов, библиотеки визуальных компонентов, и прочее, необходимое для того, чтобы чувствовать себя совершенно уверенным при профессиональной разработке информационных систем или просто программ для Windows-среды.

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



1.3 Разработка алгоритма реализации задачи или информационной модели предметной области

Перед тем как составлять информационную модель необходимо найти сущности и атрибуты. Информационная система учета распределения средств ВТ на предприятии, поэтому получаются 3 сущности. 1 сущность это таблица распределенными ВТ на предприятии. 2 сущность - это таблица с отделами на предприятии. 3 сущность - это таблица с совершенными заказами ан предприятии.



2. Проектирование структуры и описание компонентов программного продукта

программирование интерфейс инструкция delphi

2.1 Разработка интерфейса пользователя

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

2.2 Описание компонентов, использованных при разработке программного продукта

Для разработки программного продукта использовались следующие компоненты и их свойства:

Button - кнопка, предназначенная для выполнения определённого действия при нажатии. Свойства:

1) Caption - отображает заданное название на кнопке.

2) Font - параметры шрифта текста, расположенного на кнопке.

3) Left - расположение кнопки, расстояние от левого края формы.

4) Height - высота кнопки.

5) Width - ширина кнопки.

6) Top - расположение кнопки от верхнего края формы.

Form - форма, область на которой располагаются компоненты программы. Свойства:

1) Caption - задаёт заголовок формы.

2) Font - определяет параметры шрифта заголовка форы.

3) Left - расположение формы от левого края.

4) Height - высота формы.

5) Width - ширина формы.

6) Top - расположение формы от верхнего края.

Label - компонент, служащий для вывода текста в программе. Свойства:

1) Caption - задаёт выводимый текст.

2) Font - определяет параметры шрифта.

3) Left - расположение от левого края.

4) Height - высота.

5) Width - ширина.

6) Top - расположение от верхнего края.

7) AutoSize - автоматическое изменение размера компонента.

AdoConnection - компонент, обеспечивающий связь с базой данных созданной в СУБД MS Acess.

1) ConnectionString - обеспечивает соединение с базой данных.

2) Connected - позволяет активировать и деактивировать соединение.

3) LoginPrompt - позволяет выбрать, нужно ли вводить пароль при установке связи с БД.

Adotable - обеспечивает использование в приложениях Delphi таблиц БД, подключенных через провайдеры OLE DB. Свойства:

1) Connection - соединение с компонентом AdoConnection.

2) Active - активация и деактивация соединения.

3) TableName - выбор таблицы по названию.

DataSource - обеспечивает механизм для связи компонентов доступа к данным (Table, Query или StoredProc) с визуальными компонентами, которые отображают данные (DBGrid, DBEdit, DBListBox и т. д.). Свойства:

1) DataSet - служит для соединения компонентов, отображающих данные, с такими компонентами как AdoTable и Table.

MainMenu - предназначен для добавления к программе главного меню. Свойства:

1) Items - позволяет создавать пункты меню, настраивать их и назначать действия.

Edit - компонент служащий для ввода текстовой и числовой информации. Свойства:

1) Font - определяет параметры шрифта.

2) Left - расположение от левого края.

3) Height - высота.

4) Width - ширина.

5) Top - расположение от верхнего края.

6) AutoSize - автоматическое изменение размера компонента.

DBEdit - компонент служащий для ввода текстовой и числовой информации и возможностью связи с полем таблицы через настройку свойств. Свойства:

1) Font - определяет параметры шрифта.

2) Left - расположение от левого края.

3) Height - высота.

4) Width - ширина.

5) Top - расположение от верхнего края.

6) AutoSize - автоматическое изменение размера компонента.

7) DataSourse - позволяет выбрать источник данных, т.е. нужную таблицу.

8) DataField - позволяет выбрать поле таблицы для связи с ним.

DBGrid - компонент, отображающий набор данных в формате электронной таблицы. Свойства:

1) DataSourse - соединяет компонент DBGrid с выбранными компонентами DataSourse для отображения таблицы.



2.3 Разработка и описание программного приложения

В данной курсовой работе мной была разработанная программа на тему распределения ВТ на предприятии. Данная программа была завершена. Работоспособность была проверена, так же программа была проверенна на наличие каких либо ошибок в коде. В ходе проверки найденные ошибки были исправлены. Теперь в данном пункте опишем саму программу. Главное окно программы выглядит вот таким образом:

Вот таким образом выглядят наша таблица с данными:

Таблица отделов на предприятии:



Таблица Совершенных заказов:

Таблица по распределению ВТ на предприятии:

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



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

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



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



3. Разработка инструкции пользователю

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

Далее нам необходимо перейти к нашей таблице для работы с данными. Осуществляется это так:

После чего появится наша таблица:



Вот таким образом осуществляется добавление данных:

После появляется форма для добавления наших записей:

После ввода наших данных для их сохранения нам необходимо нажать на кнопку на форме "Сохранить":



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

Теперь опишем, каким образом осуществляется поиск и фильтрация. Для начала объясним, как пользоваться поиском. В первую очередь в поле ввода вписываем нужные нам данные:

Фильтрация осуществляется таким же образом:



Заключение

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



Список использованной литературы и интернет ресурсов

1) М.Фленов Библия для программиста в среде DELPHI. С-П: БХВ- Петербург, 2008.

2) В.В.Фаронов DELPHI Программирование на языке высокого уровня, Москва: ПИТЕР, 2008г.

3) Д. Осипов Delphi. Профессиональное программирование. С-П: Символ-Плюс, 2006г.

4) http://www.delphimaster.ru



Приложение А

Листинг текста программного приложения

implementation

procedure TForm1.N2Click(Sender: TObject);

begin

form3.showmodal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

form4.showmodal;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form5.showmodal;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

close;

end;

procedure TForm3.N2Click(Sender: TObject);

begin

Form6.DBEdit1.Text:='';

Form6.DBEdit2.Text:='';

DataModule2.ADOTable1.Insert;

Form6.ShowModal;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

Form6.ShowModal;

end;

procedure TForm3.N4Click(Sender: TObject);

begin

DataModule2.ADOTable1.delete;

end;

procedure TForm3.N8Click(Sender: TObject);

begin

DataModule2.ADOTable1.IndexFieldNames:='[Код отдела]'

end;

procedure TForm3.N7Click(Sender: TObject);

begin

close;

end;

procedure TForm3.Edit1Change(Sender: TObject);

begin

if Length(Edit1.Text)>0 then

DataModule2.ADOTable1.Filtered:=true

else

DataModule2.ADOTable1.Filtered:=False;

DataModule2.ADOTable1.Filter:='[Наименование отдела]='''+Edit1.Text+'''';

end;

procedure TForm3.Edit2Change(Sender: TObject);

begin

if Length(Edit2.Text)>0 then

DataModule2.ADOTable1.Filtered:=true

else

DataModule2.ADOTable1.Filtered:=False;

DataModule2.ADOTable1.Filter:='[Число рабочих мест]='''+Edit2.Text+'''';

end;

procedure TForm3.N6Click(Sender: TObject);

begin

QuickReport9.Previewmodal;

end;

procedure TForm4.N2Click(Sender: TObject);

begin

Form7.DBEdit1.Text:='';

Form7.DBEdit2.Text:='';

Form7.DBEdit3.Text:='';

Form7.DBEdit4.Text:='';

Form7.DBEdit5.Text:='';

Form7.DBEdit6.Text:='';

DataModule2.ADOTable2.Insert;

Form7.ShowModal;

end;

procedure TForm4.N3Click(Sender: TObject);

begin

Form7.ShowModal;

end;

procedure TForm4.N4Click(Sender: TObject);

begin

DataModule2.ADOTable1.delete;

end;

procedure TForm4.N5Click(Sender: TObject);

begin

DataModule2.ADOTable2.IndexFieldNames:='[Дата заказа]'

end;

procedure TForm4.N8Click(Sender: TObject);

begin

DataModule2.ADOTable2.IndexFieldNames:='[Код заказа]'

end;

procedure TForm4.N7Click(Sender: TObject);

begin

close;

end;

procedure TForm4.Edit1Change(Sender: TObject);

begin

if Length(Edit1.Text)>0 then

DataModule2.ADOTable2.Filtered:=true

else

DataModule2.ADOTable2.Filtered:=False;

DataModule2.ADOTable2.Filter:='[Дата заказа]='''+Edit1.Text+'''';

end;

procedure TForm4.Edit2Change(Sender: TObject);

begin

if Length(Edit2.Text)>0 then

DataModule2.ADOTable2.Filtered:=true

else

DataModule2.ADOTable2.Filtered:=False;

DataModule2.ADOTable2.Filter:='[Тип товара]='''+Edit2.Text+'''';

end;

procedure TForm4.N6Click(Sender: TObject);

begin

QuickReport10.Previewmodal;

end;

procedure TForm4.N9Click(Sender: TObject);

begin

DataModule2.ADOTable2.IndexFieldNames:='[Дата заказа]'

end;

procedure TForm5.N2Click(Sender: TObject);

begin

Form8.DBEdit1.Text:='';

Form8.DBEdit2.Text:='';

Form8.DBEdit3.Text:='';

Form8.DBEdit4.Text:='';

DataModule2.ADOTable3.Insert;

Form8.ShowModal;

end;

procedure TForm5.N4Click(Sender: TObject);

begin

DataModule2.ADOTable3.delete;

end;

procedure TForm5.N3Click(Sender: TObject);

begin

Form8.ShowModal;

end;

procedure TForm5.N8Click(Sender: TObject);

begin

DataModule2.ADOTable3.IndexFieldNames:='[Код рабочего места]'

end;

procedure TForm5.N7Click(Sender: TObject);

begin

close;

end;

procedure TForm5.Edit1Change(Sender: TObject);

begin

if Length(Edit1.Text)>0 then

DataModule2.ADOTable3.Filtered:=true

else

DataModule2.ADOTable3.Filtered:=False;

DataModule2.ADOTable3.Filter:='[ФИО сотрудника]='''+Edit1.Text+'''';

end;

procedure TForm5.Edit2Change(Sender: TObject);

begin

if Length(Edit2.Text)>0 then

DataModule2.ADOTable3.Filtered:=true

else

DataModule2.ADOTable3.Filtered:=False;

DataModule2.ADOTable3.Filter:='[Наименование отдела]='''+Edit2.Text+'''';

end;

procedure TForm5.N6Click(Sender: TObject);

begin

QuickReport11.Previewmodal;

end;

procedure TForm5.N9Click(Sender: TObject);

begin

DataModule2.ADOTable3.IndexFieldNames:='[Код отдела]'

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

if DataModule2.ADOTable1.Modified then

DataModule2.ADOTable1.Post;

close;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm7.Button1Click(Sender: TObject);

begin

if DataModule2.ADOTable2.Modified then

DataModule2.ADOTable2.Post;

close;

end;

procedure TForm7.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm8.Button1Click(Sender: TObject);

begin

if DataModule2.ADOTable3.Modified then

DataModule2.ADOTable3.Post;

close;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

close;

end;



Приложение Б

Образцы выходных форм программного приложения

Размещено на Allbest.ru