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

2

Оглавление

• Введение 3
• 1. Техническое задание 5
• 1.1 Краткое описание предметной области 5
• 1.2 Требования к информационной системе 5
• 2. Технические и инструментальные средства 6
• 2.1 Обоснование выбора языка программирования 6
• 2.2 Технические требования для работоспособности программы 7
• 2.3 Требования к программе 8
• 2.4 Переносимость 8
• 2.5 Результирующие компоненты изделия 9
• 3. Рабочий проект 10
• 3.1 Моделирование бизнес-процессов 10
• 3.2 Программа и методика испытаний, отладка и тестирование 12
• Заключение 13
• Список используемой литературы 14
• Приложение 15

• Введение
• ИС - важный компонент вспомогательной деятельности, который может использоваться для того, чтобы более целесообразно и эффективно выполнять основную деятельность. Можно выделить базовые компоненты ИС: информация; информационные технологии; организационные единицы управления; функциональные компоненты. Каждый базовый компонент ИС является самостоятельной системой, имеет определенную структуру построения и цели функционирования. Содержательную основу ИС составляют ее «функциональные компоненты» -- модели, методы и алгоритмы получения управляющей информации. Функциональная структура ИС -- совокупность функциональных подсистем, комплексов задач и процедур обработки информации, реализующих функции системы управления. В хозяйственной практике производственных и коммерческих объектов типовыми видами деятельности, которые определяют функциональный признак классификации информационных систем, являются: производственная, маркетинговая, финансовая, кадровая. Тип информационной системы зависит от того, чьи интересы она обслуживает и на каком уровне управления. Внедрение ИС на предприятии может способствовать: получению более рациональных вариантов решения управленческих задач за счет внедрения математических методов и интеллектуальных систем и т.д.; освобождению работников от рутинной работы за счет ее автоматизации; обеспечению достоверности информации; замене бумажных носителей данных на магнитные диски или ленты; совершенствованию структуры потоков информации и системы документооборота в фирме; уменьшению затрат на производство продуктов и услуг; предоставлению потребителям уникальных услуг; отысканию новых рыночных ниш; привязке к фирме покупателей и поставщиков за счет предоставления им разных скидок и услуг.В данно йкурсовой работе мы спроектируем ИС «Ателье».
• Целью данной курсовой работы является создание автоматизированной информационной системы ателье в среде Borland Delphi 7.0.
• Для достижения этой цели необходимо решить следующие задачи:
• · исследовать предметную область;
• · изучить методы моделирования бизнес-процессов и построить модели предметной области;
• · исследовать специфику обработки заказов и составление сметной документации;

· спроектировать базу данных и реализовать ее в My SQL;

· разработать клиентское приложение.



1. Техническое задание

1.1 Краткое описание предметной области

В данном подразделе дается краткое описание предметной области, в которой функционирует программный продукт «АИС ателье». Описываются среда функционирования, объект и субъект, цели и задачи управления.

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

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

1.2 Требования к информационной системе

1) Приложением будут пользоваться руководитель фирмы или бухгалтер.

2) Все пользователи в любое время могут добавлять информацию в БД.

3) Своевременное формирование отчетов по клиентам и турам.

4) Оперативное получение информации пользователей об изменении данных.



2. Технические и инструментальные средства

2.1 Обоснование выбора языка программирования

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

Для реализации "АИС ателье" была выбрана система программирования Delphi версии 7 фирмы Enterprise (Borland), так как она предоставляет наиболее широкие возможности для программирования приложений ОС Windows.

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

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

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

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

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

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

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

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

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

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

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

2.2 Технические требования для работоспособности программы

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

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

Системные требования:

· Операционная система Microsoft Windows XP с пакетом обновления 2 (SP2) или более поздняя версия;

· ПК с процессором 500 МГц или более, 256 или более МБ ОЗУ;

· дисковод для DVD-дисков;

· Жесткий диск - для установки необходимо 1ГБ;

· Разрешение экрана монитора - минимум 800x600 точек (рекомендовано 1024x768) или более;

· Подключение к Интернету - для загрузки и активации продуктов понадобится широкополосное подключение к Интернету со скоростью 128 Кбит/с и выше;

· Дополнительные компоненты - на компьютере должен быть установлен Denwer.

2.3 Требования к программе

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

2.4 Переносимость

Данный программный продукт разработан в среде программирования на языке Borland Delphi, в операционной системе WINDOWS XP, поэтому просмотр и редактирование программного продукта возможен в любой другой системе WINDOWS при наличие установленного программного обеспечения Denwer. Для того чтобы просмотреть, как работает программа (Запустить ЕХЕ-файл) нет необходимость иметь установленный компилятор. Достаточно иметь операционную систему WINDOWS. Таким образом, данный программный продукт обладает очень высокой переносимостью.

2.5 Результирующие компоненты изделия

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



3. Рабочий проект

3.1 Моделирование бизнес-процессов

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

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

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

В системе BPWin создаются модели процессов следующих стандартов: IDEF0, DFD и IDEF3.

В результате моделирования бизнес-процессов получили следующее:

IDEF0 - диаграмма бизнес-процесса «Деятельность ателье».

IDEF0 - диаграмма бизнес-процесса «Отдел непосредственной работы с клиентами».



3.2 Программа и методика испытаний, отладка и тестирование

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

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

Тестированию подвергались следующие функции системы:

- добавление и редактирование информации о клиентах, оказываемой услуге, сроки;

- осуществление поиска информации.



Заключение

В результате выполнения задания курсового проекта был разработан программный продукт «АИС ателье». Для разработки использовались программа создания баз данных Denwer и среда визуального объектно-ориентированного программирования Borland Delphi 7.

Также в ходе курсовой работы были решены следующий задачи:

· исследована предметная область;

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

· спроектирована база данных и реализована в My SQL;

· разработано клиентское приложение.



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

1. Вейцман В. М. Автоматизированная разработка корпоративных информационных систем: учеб. пособие. - Ярославль: МУБиНТ, 2003.

2. Дунаев В.В. Базы данных. Язык SQL для студента: 2-е изд. доп. и перераб. - Спб.: БХВ-Петербург, 2007.

3. Дэвид А. Марка и Клемент МакГоуэн, «Методология структурного анализа и проектирования SADT», 2005.

4. Иванова Г. С. Технология программирования: учеб. для вузов. - 2-е изд., стер. - М.: Изд-во МГТУ им. Н. Э. Баумана, 2003.



Приложение

Листинг программы.

unit UManual;

interface

uses

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

Dialogs, ADODB, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ComCtrls, DBCtrls;

type

TForm1 = class(TForm)

ADOConnection: TADOConnection;

ADOTableCL: TADOTable;

DataSourceCL: TDataSource;

ADOQuery: TADOQuery;

DataSourceOP: TDataSource;

ADOTableOP: TADOTable;

ADOTableVK: TADOTable;

DataSourceVK: TDataSource;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

DBGrid1: TDBGrid;

Panel1: TPanel;

PageControl2: TPageControl;

TabSheet6: TTabSheet;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

ComboBox1: TComboBox;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

ButtonADDCL: TButton;

Edit7: TEdit;

TabSheet7: TTabSheet;

Label9: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Button1: TButton;

TabSheet2: TTabSheet;

DBGrid2: TDBGrid;

PageControl3: TPageControl;

TabSheet9: TTabSheet;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label35: TLabel;

Label36: TLabel;

ComboBox3: TComboBox;

Edit11: TEdit;

Edit15: TEdit;

Edit16: TEdit;

Edit17: TEdit;

Edit18: TEdit;

Edit19: TEdit;

Button3: TButton;

Edit20: TEdit;

Edit27: TEdit;

ComboBox5: TComboBox;

TabSheet10: TTabSheet;

Label26: TLabel;

DBLookupComboBox3: TDBLookupComboBox;

Button4: TButton;

TabSheet11: TTabSheet;

Label27: TLabel;

DBNavigator1: TDBNavigator;

CheckBox1: TCheckBox;

Button5: TButton;

TabSheet3: TTabSheet;

DBGrid3: TDBGrid;

PageControl4: TPageControl;

TabSheet12: TTabSheet;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label42: TLabel;

Edit21: TEdit;

Edit22: TEdit;

Edit23: TEdit;

Edit24: TEdit;

Edit25: TEdit;

Edit26: TEdit;

Button6: TButton;

Edit29: TEdit;

Edit30: TEdit;

Edit32: TEdit;

Edit33: TEdit;

Edit34: TEdit;

TabSheet13: TTabSheet;

Label40: TLabel;

DBLookupComboBox4: TDBLookupComboBox;

Button7: TButton;

TabSheet14: TTabSheet;

Label41: TLabel;

DBNavigator2: TDBNavigator;

CheckBox2: TCheckBox;

Button8: TButton;

TabSheet4: TTabSheet;

DBGrid4: TDBGrid;

PageControl5: TPageControl;

TabSheet5: TTabSheet;

Label43: TLabel;

Label44: TLabel;

Label50: TLabel;

Label53: TLabel;

Button9: TButton;

Edit40: TEdit;

Edit44: TEdit;

TabSheet15: TTabSheet;

Label54: TLabel;

DBLookupComboBox5: TDBLookupComboBox;

Button10: TButton;

TabSheet16: TTabSheet;

ADOTableLC: TADOTable;

DataSourceLC: TDataSource;

ComboBox4: TComboBox;

ComboBox6: TComboBox;

RadioGroup1: TRadioGroup;

Label45: TLabel;

Label46: TLabel;

ComboBox7: TComboBox;

Label47: TLabel;

ComboBox8: TComboBox;

RadioGroup2: TRadioGroup;

Edit36: TEdit;

Label48: TLabel;

DBLookupComboBox6: TDBLookupComboBox;

Button11: TButton;

procedure ButtonADDCLClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure DBLookupComboBox2Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

CONECT_STR:String;

implementation

{$R *.dfm}

procedure TForm1.ButtonADDCLClick(Sender: TObject);

var

str:string;

begin

ADOQuery.SQL.Clear;

str:= 'insert into [Клиенты] values('+Edit7.Text+','''+ComboBox1.Text+''','''+

Edit1.Text+''','''+Edit2.Text+''','''+Edit3.Text+''','''+Edit4.Text+''','''+

Edit5.Text+''','''+Edit6.Text+''')';

ADOQuery.SQL.Add(str);

ADOQuery.ExecSQL;

ADOTableCL.close;

ADOTableCL.open;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

str:string;

begin

ADOQuery.SQL.Clear;

str:='delete from [Клиенты] Where КлиентID='+DBLookupComboBox1.Text;

ADOQuery.SQL.Add(str);

ADOQuery.ExecSQL;

ADOTableCL.close;

ADOTableCL.open;

end;

procedure TForm1.DBLookupComboBox2Click(Sender: TObject);

begin

if ADOTableCL.FieldByName('Статус дела').AsString=''

then

if ADOTableCL.FieldByName('Статус дела').AsString=''

then

end;

procedure TForm1.Button2Click(Sender: TObject);

var

str:string;

begin

ADOQuery.SQL.Clear;

ADOQuery.SQL.Add(str);

ADOQuery.ExecSQL;

ADOTableCL.close;

ADOTableCL.open;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

str:string;

begin

ADOQuery.SQL.Clear;

str:= 'insert into [Ответственные представители] values('+Edit20.Text+','+Edit27.Text+','''+Edit11.Text+''','''+

ComboBox3.text+''','''+Edit15.Text+''','''+Edit16.Text+''','''+Edit17.Text+''','''+

Edit18.Text+''','''+Edit19.Text+''','''+ComboBox5.text+''')';

ADOQuery.SQL.Add(str);

ADOQuery.ExecSQL;

ADOTableOP.close;

ADOTableOP.open;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

str:string;

begin

ADOQuery.SQL.Clear;

str:='delete from [Ответственные представители] Where [Табельный номер]='+DBLookupComboBox3.Text;

ADOQuery.SQL.Add(str);

ADOQuery.ExecSQL;

ADOTableOP.close;

ADOTableOP.open;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

//CheckBox1.Checked:= not CheckBox1.Checked;

if CheckBox1.Checked=true then DBGrid2.ReadOnly:=false;

if CheckBox1.Checked=false then DBGrid2.ReadOnly:=true;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

ADOTableOP.close;

ADOTableOP.open;

end;

procedure TForm1.Button6Click(Sender: TObject);

var

str:string;

begin

ADOQuery.SQL.Clear;

str:= 'insert into [Внешние корреспонденты] values('+Edit29.Text+','''+Edit30.Text+''','''+Edit21.Text+''','''+Edit34.Text+''','''+

Edit32.text+''','+Edit22.Text+','+Edit23.Text+','+Edit24.Text+','+

Edit25.text+','+Edit26.Text+','''+Edit33.Text+''')';

ADOQuery.SQL.Add(str);

ADOQuery.ExecSQL;

ADOTableVK.close;

ADOTableVK.open;

end;

procedure TForm1.Button7Click(Sender: TObject);

var

str:string;

begin

ADOQuery.SQL.Clear;

str:='delete from [Внешние корреспонденты] Where [Код]='+DBLookupComboBox4.Text;

ADOQuery.SQL.Add(str);

ADOQuery.ExecSQL;

ADOTableVK.close;

ADOTableVK.open;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

if CheckBox2.Checked=true then DBGrid3.ReadOnly:=false;

if CheckBox2.Checked=false then DBGrid3.ReadOnly:=true;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

ADOTableVK.close;

ADOTableVK.open;

end;

procedure TForm1.Button9Click(Sender: TObject);

var

str,act:string;

ect:real;

begin

ADOQuery.SQL.Clear;

If RadioGroup1.ItemIndex = 0

then

act:='открыт'

else

act:='закрыт';

ect:=StrToFloat(Edit44.Text);

if ComboBox6.ItemIndex = 1 then

ect:=ect*33;

if ComboBox6.ItemIndex = 2 then

ect:=ect*43;

str:= 'insert into [Личный счет] values('+Edit40.Text+','''+ComboBox4.Text+''','''

+ComboBox6.Text+''','+Edit44.Text+','''+act+''','+FloatToStr(ect)+')';

ADOQuery.SQL.Add(str);

ADOQuery.ExecSQL;

ADOTableLC.close;

ADOTableLC.open;

end;

procedure TForm1.Button10Click(Sender: TObject);

var

str:string;

begin

ADOQuery.SQL.Clear;

str:='delete from [Личный счет] Where [Номер счета]='+DBLookupComboBox5.Text;

ADOQuery.SQL.Add(str);

ADOQuery.ExecSQL;

ADOTableLC.close;

ADOTableLC.open;

end;

procedure TForm1.Button11Click(Sender: TObject);

var

str,act:string;

ect:real;

begin

ADOQuery.SQL.Clear;

If RadioGroup2.ItemIndex = 0

then

act:='открыт'

else

act:='закрыт';

ect:=StrToFloat(Edit36.Text);

if ComboBox8.ItemIndex = 1 then

ect:=ect*33;

if ComboBox8.ItemIndex = 2 then

ect:=ect*43;

str:= 'update [Личный счет] Set [Тип счета]='''+ComboBox7.Text+''',Валюта='''

+ComboBox8.Text+''',Сумма='+Edit36.Text+',Активность='''+act+''',[Эквивалент в рублях]='+FloatToStr(ect)+' Where [Номер счета]='+DBLookupComboBox6.Text;

ADOQuery.SQL.Add(str);

ADOQuery.ExecSQL;

ADOTableLC.close;

ADOTableLC.open;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

f:textfile;

begin

Assignfile (f, 'Config.txt');

Reset (f);

Readln (f,CONECT_STR);

closefile (f);

try

ADOConnection.ConnectionString:= CONECT_STR;

except

application.MessageBox('База не найдена', 'Ошибка',MB_OK);

end;

ADOTableCL.Active:=False;

ADOTableCL.Active:=true;

ADOTableOP.Active:=False;

ADOTableOP.Active:=true;

ADOTableVK.Active:=False;

ADOTableVK.Active:=true;

ADOTableLC.Active:=False;

ADOTableLC.Active:=true;

end;

end.

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