Контрольная работа по «Разработке информационных систем с помощью интегрированных сред программирования»

МИНИСТЕРСТВО НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

ФГОУ ВПО «САНКТ-ПЕТЕРБУРГСКИЙ  ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ 

СЕРВИСА И ЭКОНОМИКИ»

ИНСТИТУТ ЭКОНОМИКИ И  УПРАВЛЕНИЯ ПРЕДПРИЯТИЯМИ СЕРВИСА

 

Кафедра « Информационные технологии »

 

 

Контрольная работа по предмету:

«Разработка информационных систем с помощью интегрированных  сред программирования».

 

 

 

 

 

Проверил:

 

 

Санкт-Петербург

2013

 

 

Введение 3

1. Теоретическая часть. 4

1.1 Среда разработки Delphi 4

1.2 Информационные системы 4

2. Практическая часть 5

2.1 Постановка задачи 5

2.2 Формализация задачи 6

2.3 Алгоритмизация задачи 6

2.4 Создание базы данных 7

2.5 Программирование 7

Используемая литература 12

 

 

Введение

 

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

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

 

 

1. Теоретическая часть.

1. Среда разработки Delphi

Delphi— императивный, структурированный,  объектно-ориентированный язык программирования, диалект Object Pascal.

Object Pascal — результат развития  языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль.

Паскаль был полностью  процедурным языком, начиная с  версии 5.5, добавил в Паскаль объектно-ориентированные  свойства, а в Object Pascal — динамическую идентификацию типа данных с возможностью доступа к метаданным классов (то есть к описанию классов и их членов) в компилируемом коде, также называемом интроспекцией — данная технология получила обозначение RTTI. Так как все классы наследуют функции базового класса TObject, то любой указатель на объект можно преобразовать к нему, после чего воспользоваться методом ClassType и функцией TypeInfo, которые и обеспечат интроспекцию. Также отличительным свойством Object Pascal от С++ является то, что объекты по умолчанию располагаются в динамической памяти. Однако можно переопределить виртуальные методы NewInstance и FreeInstance класса TObject. Таким образом, абсолютно любой класс может осуществить «желание» «где хочу — там и буду лежать». Соответственно организуется и «многокучность». Начиная со среды разработки Delphi 7.0, в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal. Он начал жить своей самостоятельной жизнью и претерпевал различные изменения, связанные с современными тенденциями (например, с развитием платформы .NET) развития языков программирования: появились class helpers, перегрузки операторов и другое.

Последующие версии (обозначаемые годами выхода, а не порядковыми  номерами, как это было ранее) могут  создавать как приложения Win32, так и байт-код для платформы .NET. 25 августа 2008 года компания Embarcadero, опубликовала пресс-релиз на Delphi for Win32 2009. Версия привнесла множество нововведений в язык, как то:

• По умолчанию полная поддержка Юникода во всех частях языка, VCL и RTL; замена обращений ко всем функциям Windows API на юникодные аналоги (то есть MessageBox вызывает MessageBoxW, а не MessageBoxA).
• Обобщённые типы, они же generics.
• Анонимные методы.
• Новая директива компилятора $POINTERMATH [ON|OFF].
• Функция Exit теперь может принимать параметры в соответствии с типом функции.

Вышедшая в 2011 году версия Delphi XE2 добавила компилятор Win64 и кросс-компиляцию для операционных систем фирмы Apple.

2. Информационные  системы

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

 

Однако можно выделить ряд свойств, которые являются общими:

 

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

 

Таким образом, при разработке информационной системы приходится решать две основные задачи:

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

2. Практическая  часть

1. Постановка  задачи

Некоторое предприятие в течение  года производит и реализует несколько  различных видов продукции. При  этом производственные мощности достаточны, рынок изучен и достаточно стабилен, а организация производства характеризуется:

 

• собственными (начальными) финансовыми средствами  предприятия - С_срс ;
• кредитами, взятыми на расширение этого производства С_кр.;
• постоянными затратами, не зависящие от объёма производства продукции (арендная плата за землю, помещения и оборудование, накладные расходы, плату за телефон, расходы на охрану и т.д.) – Z;
• ставками налогов на прибыль - β и на НДС – α;
• материалоемкостью, энергоемкостью  и расходами на зарплату для производства одного изделия каждого j-го вида продукции - U¹_к ;
• его ценой - P¹_j ;
• объемом выпуска j-ой продукции в i-ый период – X_ji ;
• долей ее реализации (например, по кварталам) – A_ji.

 

Известно также, что:

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

 

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

 

2. Формализация  задачи

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

Для нахождения прибыли P_в(Х), которую предприятие получит при данном объёме производства, следует иметь в виду, что условием прибыльности предприятия является положительная разность между доходами от реализации продукции в предшествующие (отчетные) m периодов В_в(Х_j) и расходами или издержками на ее производство В_и(Х_j):

P_в(Х_j) = В_в(Х_j) – В_и(Х_j) ≥ 0 .

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

Следовательно, формула получается: P_в(Х_j) =(P¹_jX_j) - (U¹_jX_j+Z)≥ 0

3. Алгоритмизация  задачи

Исходными данными для решения  поставленной задачи являются:

• постоянные затраты – Z;
• его цена - P¹_j ;
• объем выпуска j-ой продукции в i-ый период – X_ji ;
• расходы на производства одного изделия каждого j-го вида продукции - U¹_j.

 

4. Создание  базы данных

Как известно, при реализации перечисленных выше механизмов доступа  к БД в интегрированных средах программирования формат базы данных не имеет принципиального значения. Структура требуемой базы может быть сформирована на основании набора исходных данных, в соответствии с  уравнением баланса финансовых средств, для всех возможных видов выпускаемой продукции и учитываемых периодов производства (Рис.1).

Рис.1

Создаем псевдоним в ODBC с помощью BDE Administrator.

5. Программирование

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

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

Работу над проектом в этом случае следует начать с создания главной  формы. После того как создали  новое приложение, и автоматически была создана новая форма, сохраняем проект. Далее, изменим подпись формы, изменив свойство Caption, и имя формы. Размещаем на форме компонент MainMenu и создаем пункты главного меню проекта. Очевидно, что подобное меню может содержать такие пункты (Рис.2):

• Ввод данных – подпункт «Из базы данных»
• О программе
• Выход

 

Рис.2

 

По нажатию пункта «О программе» создаем форму с указанием  информации о программе.

procedure TForm1.N4Click(Sender: TObject);

begin

AboutBox.Visible:=true;

end;

 

Также и пункт «Выход»:

procedure TForm1.N5Click(Sender: TObject);

begin

Close

end;

 

Создаем модуль данных, на котором  можно будет сосредоточить все  невизуальные компоненты, обеспечивающие доступ к данным в базе(Рис.3).

Рис.3

Создаем новую форму и присваиваем  ей имя BDForm. Размещаем на форме два компонента GroupBox.  Свойство Caption одного из них подпишем «Сведения о предприятии», а у второго – «Сведения о продукции». В каждом из этих групповых компонентов окна редактирования и надписи для ввода необходимых исходных данных (Рис.4). Используем визуальные компоненты TDBEdit или TDBGrid, расположенные на странице DataControls, а для реализации связи с базой – пары невизуальных компонентов TTable и TDataSours (по числу таблиц, входящих в базу данных).

 

Рис.4

 

Это будет подпункт «Из базы данных»:

procedure TForm1.N2Click(Sender: TObject);

begin

BDForm.Visible:=true;

end;

 

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

procedure TBDForm.Button1Click(Sender: TObject);

begin

DataModule1.TablePred.First;

predpr.SRS:=DataModule1.TablePred.Fields[2].AsFloat;

predpr.Kredit:=DataModule1.TablePred.Fields[3].AsFloat;

predpr.PostZatr:=DataModule1.TablePred.Fields[4].AsFloat;

predpr.Nalog:=DataModule1.TablePred.Fields[5].AsFloat;

predpr.NDS:=DataModule1.TablePred.Fields[6].AsFloat; 

 

    DataModule1.TableProd.First;

    for i:=j to DataModule1.TableProd.RecordCount do

    begin

    predpr.product[j].ZatrEdProd:=DataModule1.TableProd.Fields[3].AsFloat;

    predpr.product[j].PriseEdProd:=DataModule1.TableProd.Fields[4].AsFloat;

 

    DataModule1.TablePeriod.First;

    for i:=1 to DataModule1.TablePeriod.RecordCount do

    begin

    predpr.product[j].V_Prod[i]:=DataModule1.TablePeriod.Fields[2].AsFloat;

    predpr.product[j].A_Prod[i]:=DataModule1.TablePeriod.Fields[3].AsFloat;

      DataModule1.TablePeriod.Next;

      end;

  DataModule1.TableProd.Next;

  end;

  BDForm.Close;

end;

end.

 

 

Добавляем новые функции для решения нашей задачи: predpr.Vyr(выручка) и predpr.Izd(издержки).

 

function TPredpr.Vyr(): real;

  var j,i:integer; temp:real;

  begin

  result:=0;

  for j:=1 to k do begin

  temp:=0;

  for i:=1 to m do begin

  temp:=temp+product[j].V_prod[i];

  end;

  result:=result+temp*product[j].PriseEdProd;

  end;

end;

 

function TPredpr.Izd(): real;

  var j,i:integer; temp:real;

  begin

  result:=0;

  for j:=1 to k do begin

  temp:=0;

  for i:=1 to m do begin

  temp:=temp+product[j].ZatrEdProd*product[j].V_prod[i];

  end;

  result:=result+temp+predpr.PostZatr;

  end;

end;

 

Результат решения нашей задачи получаем при нажатие на пункт  в меню Form1 «Результат» (Рис5).

Рис.5

 

procedure TForm1.N4Click(Sender: TObject);

begin

predpr.pribyl:= predpr.Vyr()-predpr.Izd();

Label1.Caption:=FloatToStr(predpr.pribyl)+' руб.';

Label2.Caption:='Прибыль, которую  получит предприятие при данном  объеме производства';

end; 

Используемая литература

 

 

1. Методические указания по выполнению курсовой работы для студентов специальности 080801.65 (351400) дневной и заочной форм обучения по дисциплине «Высокоуровневые методы информатики и программирования» Составитель: доктор военных наук, проф. Г.П. Пуха Спб.: Изд-во ИИГ «АКТиБ», 2009

 

2. Учебник по Delphi 7 для начинающих - http://udelphi7.gym5cheb.ru/p1aa1.html

 

3. Онлайн учебник по Delphi 7 - http://delphi.support.uz/

 

4. Delphi 7. Самоучитель программиста. И. Ю. Баженова. -  М.: КУДИЦ-Образ. 2003