Содержание
1.Введение
1.1 Общие сведения о проектировании информационных систем
1.2 Общие сведения об инструментах разработки
2. Исследовательская часть.
2.1 Задание на разработку информационной системы
2.2 Разработка общей модели информационной системы
2.3 Варианты разработки программной части
2.4 Итоги исследования
З. Конструкторская часть.
3.1 Разработка модели БД с помощью ERWin
3.2 Разработка приложения ввода данных в Borland Delphi 7
3.3 Разработка системы создания отчётности в MS EXCEL
4. Технологическая часть.
4.1 Инструкция пользователя
4.2 Инструкция системного программиста
5. Заключение
6.Литература
Приложения.
1.Введение
1.1 Общие сведения опроектировании информационных систем
Ни одну областьдеятельности человека, поддерживаемую информационными технологиями, невозможнопредставить себе без использования баз данных, помогающих получить быстрыйдоступ к информации, увеличивая тем самым продуктивность работы.Клиент-серверные приложения, получившие в последнее время широкоераспространение, построены на основе баз данных; приложения Internet и intranet могут получать доступ к базамданных, открывая широкие возможности для публикации информации, необходимойширокому кругу пользователей. Большинство клиент-серверных систем в данныймомент представляют собой приложения по оперативной обработке транзакций (On-Line Transaction Processing, OLTP), которые служат для быстрой обработки и сохраненияданных. Примерами таких приложений могут служить системы выписки счетов,регистрации и учета продукции и т.п. В то же время в последние годызначительное внимание уделяется построению хранилищ данных (data warehousing) — это базы данных специальногоназначения, складирующие всю информацию предприятия. Хранилища данных лежат воснове так называемых систем оперативного анализа данных (On-Line Analisys Processing, OLAP), которые позволяют принимать решения и помогаютпланировать стратегию развития предприятия. Успех любого приложения зависит оттого, насколько хорошо смоделирована и разработана база данных приложения,поэтому разработке базы данных необходимо уделить много внимания.
База данных создается внесколько этапов, на каждом из которых необходимо согласовывать структуруданных с заказчиком и, что самое важное, подвергать созданную структуру данныхэкспертизе внутри команды, которая создает систему. Поэтому представлениеданных должно быть простым и понятным всем заинтересованным лицам. Именно поэтой причине, наибольшее распространение получило представление базы данных подназванием «сущность-отношение» (entity-relationship), которое также известно как ER-диаграмма. Модели, представленные в виде ER-диаграмм, крайне просты и удобны для понимания. Фрагменттакой модели изображен на рис. 1.
/>
Рис1.
ER-диаграммы были приняты в качествеосновы для создания стандарта IDEF1X. Предварительный вариант этогостандарта был разработан в военно-воздушных силах США и предназначался дляувеличения производительности при разработке компьютерных систем. В 1981 годуэтот стандарт был формализован и опубликован организацией ICAM (Integrated Computed Aided Manufacturing), и с тех пор является наиболеераспространенным стандартом для создания моделей баз данных по всему миру.
1.2 Общие сведения обинструментах разработки
С развитием компьютерныхтехнологий и появлением CASE-моделирования(Computer Aided Software Engineering) возникла потребность винструментах, которые бы поддерживали стандарты моделирования. Современный инструментмоделирования баз данных должен удовлетворять ряду требований.
Позволять разработчикусконцентрироваться на самом моделировании, а не на проблемах с графическимотображением диаграммы. Инструмент должен автоматически размещать сущности надиаграмме, иметь развитые и простые в управлении средства визуализации исоздания представлений модели.
Инструмент долженпроверять диаграмму на согласованность, автоматически определяя и разрешаянесоответствия. Однако инструмент должен быть настраиваемым и при желаниипредоставлять разработчику некоторую свободу в действиях и право самомуразрешать несоответствия или отступления от методологии.
Современный инструментдолжен автоматически генерировать базу данных на СУБД назначения.
Все современныеинструменты моделирования в той или иной степени удовлетворяют перечисленнымвыше общим требованиям, однако в этой статье речь пойдет об инструментемоделирования баз данных ERwinверсии 3.5, продукте компании Logic Works. Выборинструмента не случаен, т.к. на нынешний момент ERwin является наиболее мощным средством для разработкиструктуры данных как на логическом, так и на физическом уровне. Следуетотметить, что существует несколько модификаций ERwin, каждая из которых, помимо моделирования,предназначена для выполнения специфических целей. Здесь мы рассмотрим ERwin3.5/ERX, который предназначен для работы именно с системамиуправления базами данных. Остальные члены семейства ERwin предназначены для использования с инструментамиразработки клиентской части приложения, такими, как Power Builder, Visual Basic и прочими.Продукт Logic Works ERwin 3.5 был выпущен в феврале этого года и сразу жеполучил признание широкого круга пользователей за многие усовершенствования посравнению с предыдущими версиями, которые в него были внесены. Этот инструментмоделирования полностью поддерживает стандарт IDEF1X иявляется лидером на рынке инструментов разработки баз данных.
2. Исследовательскаячасть
2.1 Задание на разработкуинформационной системы
Завод по производствучего надо является крупнейшим производителем чего надо в европейской частиРоссии и странах СНГ. Основная продукция завода – что надо. Как и в любомпроизводстве всегда возможен возврат бракованной продукции покупателями напредприятие. Для уменьшения вероятности брака, предотвращения его появления,необходим чёткий учёт и анализ фактов возврата. С этой целью и необходимосоздание и использование информационной системы учёта брака.
Основанием для разработкиинформационной системы является служебная записка от заместителя генеральногодиректора по качеству завода по производству чего надо адресованная в отделАСУ. Согласно этой служебной записке необходимо разработать информационнуюсистему для учёта возврата бракованных ванн от фирм-покупателей. Информационнаясистема должна включать:
1. Акты о возвратебракованных ванн от фирм-покупателей на этот завод
2. Автоматизированноерабочее место оператора, включающее:
· Персональныйкомпьютер.
· Программу дляввода данных из актов о возврате бракованных ванн в БД учёта брака.
· Непосредственносаму БД учёта брака..
· Программу длясоздания и печати отчётов, а так же для сохранения отчётов в формате MS Excel.
3. Персонал (оператора),работающий с АРМ учёта брака.
2.2 Разработка общеймодели информационной системы
Т.к. объём возврата ваннотносительно небольшой ( 200-300 шт.\мес) и не предполагается сетевой доступ кинформации БД брака, БД учёта брака можно сделать локальной, т.е. расположеннойна том же персональном компьютере, где будет установлено АРМ оператора.
Бизнес-процесс обработкиинформации по возврату бракованных ванн должен выглядеть следующим образом:
1. При возвратебракованной ванны на завод составляется акт о возврате бракованной продукции.Акты уникально нумеруются, содержат дату составления, тип возвращаемой ванны(по номенклатуре), тип брака (по перечню типов) и номер и фамилию контролёраОТК, пропустившего брак (по списку контролёров).
2. Оператор вноситданные актов в БД при помощи программы.
3. Информация из БДможет быть соответствующим образом сгруппирована и выведена в отчёты для печатии\или переноса в MS EXCEL – для последующего анализа.
2.3 Варианты разработкипрограммной части
Существует множествопутей реализации программной части данной ИС. Тут как варианты реализации самойБД (Excel, Access, Paradox, Dbase), так и варианты реализации приложений дляэтих БД (соответственно: VB for Excel, Access Application, Borland DelphiApplication, FoxPro или Clipper). Последнее можно сразу отвергнуть, в связи стем, что данные языки устарели и используют слабый DOS-интерфейс программныхприложений. Неплохим вариантом для реализации программной части ИС было бысоздание соответствующей конфигурации в системе 1С: Предприятие. Данная системапозволяет создать сразу БД (справочники), алгоритмы обработки и подготовки отчётов.Так же можно сделать обработку, позволяющую отгружать отчёты в MS Excel.
Можно так же применить«гибридную схему» — использовать БД Access, а приложение для ввода данныхсоздать при помощи среды Borland Delphi, используя технологию ADO. БиблиотекаADO (Microsoft ActiveX Data Object) служит для доступа к базам данных различныхтипов и предоставляет объектный программный интерфейс к интерфейсу OLE DB,который предлагается компанией Microsoft как альтернатива интерфейсу ODBC.Объектная модель ADO реализована на базе технологии COM (Component ObjectModel). Таким образом будет возможно реализовать собственные алгоритмы созданияотчётов и переноса их в Excel. Кроме того в приложении Borland DelphiApplication можно будет реализовать контроль ввода данных, для предотвращенияошибок, а так же при необходимости автоматизировать ввод некоторых данных. Также такая схема построения системы в отличие от варианта применения конфигурации1С: Предприятие позволит воспользоваться современным инструментом моделированиябаз данных Erwin.
2.4. Итоги исследования.
По результатамисследования окончательно принимаем следующий вариант разработки программногообеспечения для АРМ учёта брака:
1. БД проектируется спомощью среды Erwin и реализуется в СУБД Microsoft Access.
2. Программное приложениедля ввода данных разрабатывается в среде Borland Delphi 7 и реализует алгоритмыввода данных и контроля от ошибочного ввода.
3. Отдельное приложение,так же разработанное в среде Borland Delphi 7 реализует алгоритмы подготовки исоздания отчётов, переноса их в MS Excel.
З. Конструкторская часть
3.1 Разработка модели БДс помощью ERWin
Процесс построенияинформационной модели состоит из следующих шагов:
· определениесущностей;
· определениезависимостей между сущностями;
· задание первичныхи альтернативных ключей;
· определениеатрибутов сущностей;
· приведение моделик требуемому уровню нормальной формы;
· переход кфизическому описанию модели: назначение соответствий имя сущности — имя таблицы,атрибут сущности — атрибут таблицы; задание триггеров, процедур и ограничений;
· генерациябазы данных.
Теперь проведём этотпроцесс применительно к нашей БД. Сущности нашей БД будут следующие:
1. Таблица FIRMS — справочник фирм-покупателей продукции завода.
2. Таблица BRAK – справочник видов брака ванн.
3. Таблица VANNY – номенклатура ванн выпускаемых заводом
4. Таблица KONTR – список контролёров ОТК
5. Таблица TB_VALUES – таблицадля хранения данных о возврате бракованных ванн.
Таблица TB_VALUES зависима от остальных таблиц связью один-ко-многим,т.к. данные для этой таблицы берутся из справочников. Каждый справочник будетиметь поле ID – уникальный автоинкрементныйцелочисленный ключ. Это поле для каждого справочника будет являться первичнымключом, однозначно идентифицирующим запись в БД. Кроме того каждый справочникбудет содержать поле NAME –наименование фирмы, вида брака, типа ванны, ФИО контролёра соответственно длякаждого справочника.
Таблица TB_VALUES будет содержать записи, отражающие данные актоввозврата бракованной продукции. Одним из полей её будет целое число – NUM (номер акта). Далее поля связанныесо справочниками, хранящие данные фирма, вида брака, тип ванны, ФИО контролёра.Следующие поля – DATA (дата составления акта), MES (месяц) и GOD (год) составления акта (необходимы для формированиягрупповых отчётов по годам и месяцам), а так же SUM (количество ванн с данным видом брака по текущемуакту).
Кроме того справочник VANNY содержит булевое поле SILVER (признак того что ванна изготовленапо технологии Silver – эмаль с добавлением серебра). Асправочник BRAK содержит булевое поле ISTEHN – признак того, что брак являетсятехнологическим (по причине нарушения технологии).
В итоге получится модельпредставленная на рис 3.1
/>
Рис 3.1
Далее необходимоопределить связи между сущностями. Все таблицы-справочники будут связаны стаблицей TB_VALUES связью один-ко-многим, так как каждой уникальнойзаписи в справочнике соответствуют многие записи в таблице TB_VALUES. Для создания связей необходимо воспользоватьсяинструментом Relationship среды ERWin. Необходимо создать отношения каждого справочника ктаблице TB_VALUES. В настройках Relationship Properties для каждого отношения установитьсвойство отношения Cardinality в «One or More». Пример показан на рис. 3.2.
/>
Рис 3.2
В итоге модель БД будетиметь вид, представленный на рис 3.3. На этом разработку БД в Erwin можно считать завершённой.
/>
Рис 3.3
ERwin создает визуальное представление(модель данных) для решаемой задачи. Это представление может использоваться длядетального анализа, уточнения и распространения как части документации,необходимой в цикле разработки. ERwinавтоматически создает базу данных (таблицы, индексы, хранимые процедуры,триггеры для обеспечения ссылочной целостности и другие объекты, необходимыедля управления данными).
Следующим шагом будетсоздание физической модели БД. Необходимо создать новую пустую БД ACCESS, а затем средствами Erwin перенести структуру в эту БД. Врезультате будет получена БД Access – рис 3.4
/>
Рис 3.4
3.2 Разработка приложения ввода данных в Borland Delphi 7
В среде Borland Delphi 7 необходимо создать новое приложение, сохранить его в специально созданную папку. Для работы с БД будут использоваться компоненты с закладки на палитре компонентов «ADO», реализующие доступ к данным на основе технологии ADO (Microsoft ActiveX Data Object). Так же будут использованы стандартные компоненты и компоненты связи и отображения данных (TDataSet, TDBGrid, TDBLookupComboBox). Особо следует обратить внимание на использование специально разработанного для переноса данных MS EXCEL компонента TLIP_Excel. Он реализует самые необходимые свойства и методы для открытия заготовки отчёта, получения данных из ячеек и возврата данных в ячейки. Полный исходный текст компонента см. в приложении. Рабочее окно проектирования приложения показано на рис. 3.5
/>
Рис 3.5
Отдельного внимания заслуживает алгоритм соединения с БД. Он использует метод класса TADOConnection – ConnectionString. Метод открывает стандартное окно Windows связи с поставщиком данных и возвращает строку типа WideString, содержащую необходимые параметры соединения. Для использования метода необходимо подключить модуль AdoConEd (в строке uses).
Для фильтрации возвращаемого и отображаемого в DBGrid набора данных служит форма «Фильтры». Она вызывается нажатием одноимённой кнопки на главной форме. Вид формы на этапе проектирования показан на рис. 3.6
/>
Рис 3.6
В соответствии с выбранными параметрами впоследствии корректируется запрос к БД. Затем он выполняется и отфильтрованные данные отображаются в DBGrid, а так же могут быть напечатаны по нажатию кнопки «Простой отчёт».
3.3 Разработка системы создания отчётности в MS EXCEL
Параметры соединения, а так же алгоритм соединения с БД в программе Reporter целиком взяты из программы Brak. Независимо от того в какой из программ получена строка соединения с БД, впоследствии она запоминается в системном реестре операционной системы и используется при последующих вызовах обеих программ.
Программа реализует выбор файлов-заготовок при помощи TOpenFileDialog и затем по нажатию кнопки запускает цикл просмотра файла-заготовки, создания запросов на основе прочитанных строк и возврат данных из запроса в исходные ячейки.
Вид формы на этапе проектирования показан на рис. 3.7
/>
Рис. 3.7
4. Технологическая часть
4.1 Инструкция системного программиста
Требования к аппаратному и программному обеспечению:
· ПК с процессором не ниже Pentium2
· ОЗУ не менее 128 МБ
· Принтер
· ОС Windows
· Установленный пакет MS Office (как минимум MS Excel)
Установка программы:
Необходимо создать на жёстком диске компьютера отдельную папку программы, скопировать в неё файлы KZDB.mdb, Brak.exe, Reporter.exe, а так же файлы — заготовки отчётов (с расширением .xls).
Первый запуск.
При первом запуске программы Brak.exe или Reporter.exe необходимо выполнить соединение с базой данных KZDB.mdb.
/>
/>
Рис 4.1
Для этого справа от поля ввода «Строка подключения к БД» нажать кнопку смены параметра «>>». См. рис. 4.1. При этом откроется стандартное окно изменения строки подключения к БД MS ADO. См. рис. 4.2
/>
Рис 4.2
В этом окне необходимо нажать кнопку «Build», для выбора новой БД.
Далее в предложенном списке поставщиков данных выбрать Microsoft Jet 4.0 OLE Provider, а на закладке «подключение» выбрать нужную БД (файл KZDB.mdb). См. рис 4.3. Пароль для БД должен быть пустым, пользователь — Admin.
программа ввод информационный система
/>
Рис 4.3
После того как подключение создано, можно его проверить с помощью кнопки «проверить подключение» на той же вкладке, затем нажать кнопку «ОК».
В результате строка подключения АDO запоминается приложением, она будет записана в ветке реестра Windows «HKEY_CURRENT_USER\Software\Brak». Необходимо помнить, что эта настройка будет сохранена только для текущего пользователя операционной системы. При смене пользователя настройку строки подключения необходимо повторить. На этом настройки приложений заканчиваются.
Язык заготовок отчётов в MS EXCEL.
Для того чтобы получать отчёты из БД в MS EXCEL создаются заготовки отчётов. Эти заготовки в последствии открываются программой Reporter, заполняются необходимыми данными для дальнейшей печати и анализа. В заготовках, в соответствующих ячейках, в которые затем должны быть выведены данные, располагаются запросы к БД. Запросы представляют собой обычные запросы языка SQL к БД KZDB.mdb, но и к тому же дополнены служебными символами:
### — префикс запроса, далее следует запрос на SQL. Пример:
### SELECT sum(summa) as val1 from Values_all where brak_id=15 and mes=1 and god=2008. В ячейку с этим текстом будет возвращена сумма ванн за первый месяц (январь) 2008 г. С определённым типом брака.
Кроме того можно передать и другие параметры:
#DATE# — данные за дату, которая указана в календаре в программе Reporter
#DATE_NM# — дата начала месяца, указанного в календаре в программе Reporter
'#NACHMES# — дата начала месяца для текущего времени операционной системы.
#NOW#' – текущая дата из операционной системы.
С помощью этих параметров можно составлять запросы для заранее неопределённых периодов времени. Например, следующий запрос вернёт в ячейку сумму бракованных ванн за период от начала текущего месяца до текущей даты:
### SELECT sum(summa) as val1 from Values_all where Data>= '#NACHMES# and Data
Таким образом достигается гибкость создания отчётов. Заготовки можно создавать не изменяя исходный код программы.
4.2 Инструкция пользователя
Добавление данных из актов о возврате продукции.
Для добавления данных из актов о возврате продукции необходимо запустить программу Brak.exe. Откроется окно показанное на рис. 4.4.
/>
Рис. 4.4
В соответствующие поля внести данные из актов: покупатель, продукция, тип брака, дата составления акта, номер акта, количество ванн с браком данного типа по акту, ФИО контролёра ОТК. Если данных нет в выпадающем списке (например новая фирма-покупатель) их необходимо добавить нажав кнопку «>>» справа от поля ввода. При этом следует помнить, что программа не может проверить уникальность названий при неполном совпадении символов в названии. Так названия фирмы ООО«Интерскол» и ООО «Интерскол» из-за добавления пробела будут восприниматься программой как разные фирмы. За этим необходимо следить!
Когда все данные набраны можно нажать кнопку «применить» и все данные попадут в БД. Для того чтобы можно было просмотреть данные по уже введённым актам, служат фильтры. Нажав кнопку «Фильтры», можно отсортировать уже введённые данные по покупателю, типу брака и т.д… Отфильтрованные таким образом данные можно сразу перенести в Excel и распечатать с помощью кнопки «Простой отчёт». Перенесено будет именно то, что отфильтровано и отображается в поле данных.
Для построения более сложных отчётов служит приложение Reporter. Запустить его из программы Brak можно с помощью кнопки «отчёты».
Работа с программой Reporter.
Для создания отчётов из заготовок необходимо запустить программу Reporter.exe. Откроется окно показанное на рис. 4.5.
/>
Рис. 4.5.
В поле выбора даты по умолчанию открывается текущая системная дата операционной системы. В поле выбора заготовки необходимо выбрать файл заготовки отчёта. По умолчанию программа сначала открывает папку запуска программы Reporter.exe и в ней ищет файлы заготовок с расширением .xls. Но можно указать и другой путь к заготовкам.
После выбора заготовки можно сформировать отчёт нажав соответствующую кнопку. Отчёт формируется в программе MS Excel и может быть затем распечатан. Итоговый отчёт автоматически сохраняется в папке с именем «Reports_Xls», которая создаётся в папке запуска программы Reporter.exe.
5. Заключение
Моделирование играет большую роль в разработке успешных информационных систем. В данной работе было продемонстрировано использование среды разработки Logic Works ERwin. Использование этого продукта поможет правильно оценить стоящие задачи, предложить адекватное решение, и разработать центральную часть любой информационной системы — базы данных — с использованием информации, полученной во время обследования предприятия (моделирование базы данных). Эти инструменты сами по себе не являются решением проблемы, но их грамотное и своевременное использование поможет свести рутинный труд разработчика к минимуму, позволит ему сконцентрироваться на собственно разработке системы и снизит потери времени, которые обычно происходят при согласовании моделей со специалистами предметной области. Кроме того, использование этих инструментов дает возможность получить набор полностью документированных и согласованных моделей, что в значительной степени облегчит поддержку созданных систем в будущем, а также может быть повторно использовано при разработке других систем.
Таким образом, была смоделирована и реализована БД, а так же программные приложения к ней, вцелом позволившие создать информационную систему учёта возврата бракованных штук на завод по производству чего надо.
6.Литература
1. Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-МИФИ, 1999
2. Маклаков С.В. Моделирование бизнес процессов с BPwin 4.0. — М.: Диалог-МИФИ, 2002.
3. Кодд Е.Ф. Реляционная модель данных для больших совместно используемых банков данных. СУБД # 1, 1995, с. 145-160.
ПРИЛОЖЕНИЯ
Приложение1.Простой отчётс фильтром по фирме (фрагмент).Возврат ванн от потребителей за 2008 г. (Простой отчёт) № п\п Покупатель Наименование продукции Тип брака Кол-во, шт. Контролёр № Акта 1 ОДО «Унитехстрой» Минск Ванна «Ресса» 1,7 2СЕ Цек 1 Неизвестен 2 2 ОДО «Унитехстрой» Минск Ванна «Триумф» 1,7 1СЕ Трещина борта 1 Неизвестен 2 3 ОДО «Унитехстрой» Минск Ванна «Ресса» 1,5 2СЕ Трещина борта 1 Неизвестен 2 4 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ Потертость эмали 1 Неизвестен 2 5 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ Потертость эмали 1 Неизвестен 2 6 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ Потертость эмали 1 Неизвестен 2 7 ОДО «Унитехстрой» Минск Ванна «Ресса» 1,7 2СЕ Потертость эмали 1 Неизвестен 2 8 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ Потертость эмали 1 Неизвестен 2 9 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ потертость от упаковки 1 Неизвестен 2 10 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ потертость от упаковки 1 Неизвестен 2 11 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ потертость от упаковки 1 Неизвестен 2 12 ОДО «Унитехстрой» Минск Ванна «Триумф» 1,7 1СЕ Отскок 1 Неизвестен 2 13 ОДО «Унитехстрой» Минск Ванна «Люкс»1,7 2РСТ Отскок 1 Неизвестен 2 14 ОДО «Унитехстрой» Минск Ванна «Ресса» 1,7 2СЕ Отскок 1 Неизвестен 2 15 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ Отскок 1 Неизвестен 2 16 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ Отскок 1 Неизвестен 2 17 ОДО «Унитехстрой» Минск Ванна «Юмика» 1,7 BUILD Бой эмали 1 Неизвестен 2 18 ОДО «Унитехстрой» Минск Ванна «Ресса» 1,7 2СЕ Бой эмали 1 Неизвестен 2 19 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ Бой эмали 1 Неизвестен 2 20 ОДО «Унитехстрой» Минск Ванна «Ресса» 1,7 2СЕ Бой эмали 1 Неизвестен 2 21 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ Бой эмали 1 Неизвестен 2 22 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ Бой эмали 1 Неизвестен 2 23 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ Бой эмали 1 Неизвестен 2 24 ОДО «Унитехстрой» Минск Ванна «Исток»1,7 2РСТ Бой эмали 1 Неизвестен 2 25 ОДО «Унитехстрой» Минск Ванна «Ресса» 1,7 Silver 2СЕ Бой отливки 1 Неизвестен 2
Приложение2. Отчёт повозврату ванн с группировкой по типу брака
/>Возврат ванн от потребителей за 2008 г. № п/п Наименование Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь Всего за 2008 г. 2 Пузырь 1 17 18 3 Расслоение 3 3 4 Засор 5 Подъем 6 33 39 6 Отскок 5 13 51 69 7 Цек 1 12 61 74 8 Темн. точки 12 5 17 9 Ржав. точки 19 19 10 Наплыв 11 Укол 3 10 13 12 Укол п\исправл. 9 9 13 Потертость от упаковки 12 3 3 24 42 14 Без ножки 15 Трещина борта 3 5 8 16 Нарушен. услов. хранения 4 4 17 Бой отливки 12 9 13 7 41 18 Бой эмали 20 50 18 27 115 19 Потертость эмали 34 73 32 60 199 20 Соотв. сорту 5 9 14 ВСЕГО ВАНН 87 191 66 340 684 Инженер по рекламациям _____________________________ Соловьева С.В.
Приложение3. Исходный кодкомпонента, реализующего обмен с MS EXCEL для создания отчётности
unit lipExcel;
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Controls,
Dialogs, ComCtrls,ComObj;
type
TlipExcel =class(TComponent)
private
{ Privatedeclarations }
protected
{ Protecteddeclarations }
public
{ Publicdeclarations }
FunctionExcel_open(Filename:string; List:integer):integer;
procedureExcel_Prn;
procedureExcel_Set(x,y:integer;Val:variant);
procedureExcel_Out(Filename:string;Fileformat:integer);
functionExcel_Get(x,y:integer):variant;
procedureExcel_List(List:integer);
procedureExcel_Link(x,Adres:variant);
procedureExcel_Save(Filename:string;Fileformat:integer);
procedureExcel_ADD(y:integer);
procedureExcel_Color(x,y:integer;color:integer);
procedureExcel_Show(visible:boolean);
published
{ Publisheddeclarations }
end;
var
XL, WB, WS:Variant;
Was: boolean;
c: integer;
procedureRegister;
implementation
procedureRegister;
begin
RegisterComponents('Lipka13',[TlipExcel]);
end;
FunctionTlipExcel.Excel_open(Filename:string; List:integer):integer;
var
f:file;
begin
if notfileexists(Filename) then
if filename=''then filename:='Default' else exit;
try
// Excel уже запущен?
XL:=GetActiveOleObject('Excel.Application');
Was:= true;
except
// Hет, еще нет...
try
XL:=CreateOleObject('Excel.Application');
Was:= false;
except
ShowMessage('Не удалось запустить Excel');
Abort;
end;
end;
iffilename='Default' then XL.Workbooks.add else XL.Workbooks.open(Filename);
c:=XL.Workbooks.Count;
WB:=XL.Workbooks[c];
WS:=WB.Worksheets[list];
result:=WB.Worksheets.Count;
end;
procedureTlipExcel.Excel_List(List:integer);
begin
WS:=WB.Worksheets[list];
end;
procedureTlipExcel.Excel_Show(visible:boolean);
begin
XL.visible:=visible;
end ;
procedureTlipExcel.Excel_Prn;
begin
WS.printout;
end;
procedureTlipExcel.Excel_ADD(y:integer);
begin
WS.Rows[y].Copy;
WS.Rows[y].Insert(1);
//WS.Range['A'+IntToStr(y),CHR(64+ 4 )+ IntToStr(y)].Insert(1);
end;
procedureTlipExcel.Excel_Set(x,y:integer;Val:variant);
begin
WS.Cells[y,x].Value:=val;
end;
procedureTlipExcel.Excel_Color(x,y:integer;color:integer);
begin
WS.Cells[y,x].Interior.ColorIndex:=color;
end;
procedureTlipExcel.Excel_Link(x,Adres:variant);
begin
ws.Hyperlinks.Add(ws.Range[x,EmptyParam],Adres,EmptyParam)
end;
functionTlipExcel.Excel_Get(x,y:integer):variant;
begin
Result:=WS.Cells[y,x].Value;
end;
procedureTlipExcel.Excel_Out(Filename:string;Fileformat:integer);
begin
xl.DisplayAlerts:= False;
try
iffilename'' then wb.saveas(Filename,Fileformat);
wb.saveas(ExtractFilePath(Application.exename)+'reportsxls\'+savedate(form2.DateTimePicker1.Date)+'.xls',1);
finally
WB.Close;
xl.DisplayAlerts:= True;
if not Wasthen XL.Quit;
WS := null;
WB := null;
xl := null;
end;
end;
procedureTlipExcel.Excel_Save(Filename:string;Fileformat:integer);
begin
xl.DisplayAlerts:= False;
try
wb.saveas(Filename,Fileformat);
wb.saveas(ExtractFilePath(Application.exename)+'reportsxls\'+savedate(form2.DateTimePicker1.Date)+'.xls',1);
finally
xl.DisplayAlerts:= True;
end;
end;
end.