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

🛑 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

Информационное обеспечение, программирование

Вы можете узнать стоимость помощи в написании студенческой работы.


Помощь в написании работы, которую точно примут!

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

Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе

Нужна качественная работа без плагиата?

Не нашел материал для своей работы?


Поможем написать качественную работу Без плагиата!

ГЛАВА 1.ТЕОРИТИЧЕСКАЯ ЧАСТЬ.СРЕДА РАЗРАБОТКИ И ИСТОРИЯ ЯЗЫКА DELPHI.


.3 Обзор современной АИС «Книжный склад»


ГЛАВА 2.ПРАКТИЧЕСКАЯ ЧАСТЬ.ПРОЕКТИРОВАНИЕ АИС КНИЖНЫЙ СКЛАД


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


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


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


Проектирование программы «Книжный склад» ведется для упрощения работы
библиотекаря со всем ассортиментом предложенных книг и учебных пособий, а также
для учёта взятых и оставшихся в наличии книг.


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


приложение «Книжный склад» представляет собой программу для управления
базой данных;


программа полностью автоматизирует труд оператора ПЭВМ: автоматически
заносит вводимые пользователем данные в таблицы базы данных, изменяет структуру
таблиц (добавление/удаление записей).


­        при использовании программы значительно снижается трудоёмкость
ведения базы данных взятых и оставшихся книг.







ГЛАВА 1.ТЕОРИТИЧЕСКАЯ ЧАСТЬ. СРЕДА РАЗРАБОТКИ И ИСТОРИЯ ЯЗЫКА DELPHI




- интегрированная среда разработки программного обеспечения корпорации
Borland. Delphi является средой RAD (от англ. rapidapplicationdevelopment -
быстрая разработка приложений). По сути является наследником языка Pascal с
объектно-ориентированными расширениями. Изначально язык был предназначен
исключительно для разработки приложений MicrosoftWindows, затем был реализован
также для платформ Linux (как Kylix), однако после выпуска в 2002 году Kylix 3
его разработка была прекращена, и, вскоре после этого, было объявлено о
поддержке Microsoft .NET. Реализация языка Delphi проектом FreePascal позволяет
использовать его для создания приложений для таких платформ, как Mac OS,
Windows[1].




- результат развития языка Турбо Паскаль, который, в свою очередь,
развился из языка Паскаль. Паскаль был полностью процедурным языком, Турбо
Паскаль начиная с версии 5.5 добавил в Паскаль объектно-ориентированные
свойства, а Delphi - объектно-ориентированный язык программирования с
возможностью доступа к метаданным классов (то есть к описанию классов и их
членов) в компилируемом коде, также называемом интроспекцией. Так как все
классы наследуют функции базового класса TObject, то любой указатель на объект
можно преобразовать к нему, и воспользоваться методом ClassType и функцией
TypeInfo, которые и обеспечат интроспекцию. Также отличительным свойством
Дельфи от С++ является отсутствие возможности располагать объекты в стеке
(объекты, унаследованные из Турбо Паскаля, располагаться в стеке могут) - все
объекты попадают в динамически выделяемую область (кучу). Де-факто
ObjectPascal, а затем и язык Delphi являются функциональными наращиваниями
TurboPascal. Об этом говорят обозначения версий компилятора. Так, в Delphi 7
компилятор имеет номер версии 15.0 (Последняя версия BorlandPascal /
TurboPascal обозначалась 7.0, в Delphi 1 компилятор имеет версию 8.0, в Delphi
2 - 9.0, и т. д. Номер версии 11.0 носит компилятор Pascal, входивший в состав
среды C++Builder). Delphi оказал огромное влияние на создание концепции языка
C# для платформы .NET. Многие его элементы и концептуальные решения вошли в
состав С#. Одной из причин называют переход Андерса Хейлсберга, одного из
ведущих разработчиков Дельфи, из компании BorlandLtd. в MicrosoftCorp[2].


Версия 1 была предназначена для разработки под 16-ти разрядную платформу
Win16;


Версии со второй компилируют программы под 32-х разрядную платформу
Win32;


Вместе с 6-й версией Delphi вышла совместимая с ним по языку и библиотекам
среда Kylix, предназначенная для компиляции программ под операционную систему
Linux;


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


Последующие версии (обозначаемые годами выхода, а не порядковыми
номерами, как это было ранее) могут создавать как приложения Win32, так и
байт-код для платформы .NET;.NET - среда разработки Delphi, а так же язык
Delphi (ObjectPascal), ориентированные на разработку приложений для .NET.
Первая версия полноценной среды разработки Delphi для .NET - Delphi 8. Она
позволяла писать приложения только для .NET. В настоящее время, в Delphi 2006,
можно писать приложения для .NET используя стандартную библиотеку классов .NET,
VCL для .NET. Среда также позволяет писать .NET-приложения на C# и
Win32-приложения на C++. Delphi 2006 содержит функции для написания обычных
приложений с использованием билиотек VCL и CLX. Delphi 2006 поддерживает
технологию MDA с помощью ECO (EnterpriseCoreObjects) версии 3.0. В марте 2006
года компания Borland приняла решение о прекращении дальнейшего
совершенствования интегрированных сред разработки JBuilder, Delphi и C++Builder
по причине убыточности этого направления. Планируется продажа IDE-сектора
компании. Группа сторонников свободного программного обеспечения организовала
сбор средств для покупки у Borland прав на среду разработки и компилятор[1].


Однако в ноябре того же года было принято решение отказаться от продажи
IDE бизнеса. Тем не менее, разработкой IDE продуктов теперь будет заниматься
новая компания - CodeGear, которая будет финансово полностью подконтрольна
Borland. Borland продолжил развитие IDE систем под именем Turbo: TurboDelphi,
TurboDelphifor .NET, Turbo C#, Turbo C++ А в марте 2007 года CodeGear
порадовала пользователей обновленной линейкой продуктов Delphi 2007 for Win32 и
выходом совершенно нового продукта Delphi 2007 for PHP[3].




.3 Обзор современной АИС
"Книжный склад"




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




Рис.1.1 Программа "КС:Книжный склад"




Разработан специальный справочник для учета книжной
продукции - "Картотека книг", где учтены все выходные данные книги:
издательство, тираж, стандарт, год выпуска и т. д. Для удобства работы с
большой номенклатурой печатной продукции предусмотрена возможность деления всех
книг по тематикам. Для работы с различными категориями партнеров введен
многоколоночный прайс-лист. Написан уникальный многострочный прайс-лист (есть
вариант для рассылки по факсу), прайс-лист поступивших новинок. В программу
введены такие часто используемые в работе книжных предприятий операции как,
например, книгообмен; можно сформировать и распечатать специфичный для этой
операции документ "Договор мены".




книга автоматизированный информационный
учет


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


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




В базовую поставку программы "КС:Книжный
склад" включен модуль "Управление закупками/продажами". Он дает
пользователям возможность оформлять в программе различные виды Договоров, в
т.ч. Договора купли-продажи. В любой момент времени Вам будет доступна
информация о том, какие товары/услуги, в каком количестве и на какую сумму Вам
осталось получить или поставить по каждому Договору. Полноценное ведение
Договоров позволит предприятию планировать исполнение своих обязательств таким
образом, чтобы свести к минимуму различные издержки (например, расходы по
хранению товара), составить план закупок в соответствии с заключенными
Договорами.


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


Программа позволяет сформировать бухгалтерские
проводки и построить все основные бухгалтерские отчеты. Можно перенести всю
информацию (проводки и аналитические признаки) в специализированные
бухгалтерские программы, например, "КС:Предприятие", "1С:Бухгалтерию",
"Инфо-Бухгалтер", "Турбо Бухгалтер", "Парус",
"Бэст", "Инфин" и другие.







ГЛАВА 2.ПРАКТИЧЕСКАЯ ЧАСТЬ. ПРОЕКТИРОВАНИЕ АИС КНИЖНЫЙ СКЛАД




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


Модель предметной области. Модель предметной области - это наши знания о
предметной области. Знания могут быть как в виде неформальных знаний в мозгу
эксперта, так и выражены формально при помощи каких-либо средств. В качестве
таких средств могут выступать текстовые описания предметной области, наборы
должностных инструкций, правила ведения дел в компании и т.п. Опыт показывает,
что текстовый способ представления модели предметной области крайне
неэффективен. Гораздо более информативными и полезными при разработке баз
данных являются описания предметной области, выполненные при помощи
специализированных графических нотаций. Имеется большое количество методик
описания предметной области. Из наиболее известных можно назвать методику
структурного анализа SADT и основанную на нем IDEF0, диаграммы потоков данных
Гейна-Сарсона, методику объектно-ориентированного анализа UML, и др. Модель
предметной области описывает скорее процессы, происходящие в предметной области
и данные, используемые этими процессами. От того, насколько правильно
смоделирована предметная область, зависит успех дальнейшей разработки
приложений.


Предметной областью моей базы является книжный склад.


Каждая книга, хранящаяся в книжном складу имеет следующие параметры:
название, автор, издание, год издания.


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


Разработать структуру базы данных для книжного склада. Эта база данных
должна содержать следующую информацию:


·       количество экземпляров в упаковке


·       отпускная цена за экземпляр


Построить запросы, формы и отчеты, позволяющие получать следующую
информацию:


·     какие книги по конкретной тематике имеются на складе


·       подготовить бланк заказа на приобретение конкретной книги


·       сравнить отпускные цены по конкретной книге на различных
складах


·       какие книги конкретного автора имеются на складе


·       подготовить выручку от реализации за день, месяц.




Рис.2.1ER-диаграмма книжного склада







Алгоритм - заранее определенное, точное предписание, которое задает
дискретный (пошаговый) процесс, начинающийся определенным образом и приводящий
к результату за конечное число шагов. Каждый алгоритм должен обладать
следующими свойствами:


-             дискретность - каждый алгоритм должен быть разбит на конечное
число законченных действий;


-            результативность - каждый алгоритм направлен на решение
конкретной задачи, а следовательно, на получение определенного результата;


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


1.     Формальный - запись алгоритма словесно, на естественном языке.


2. Графический - изображение алгоритма в виде блок-схемы.




Главная форма программы. Содержит четыре вкладки меню: «Файл», «Таблицы»,
«Запросы», «Ввод данных».




Вкладка «Файл» содержит только функцию «Выход».




Вкладка «Таблицы» содержит пункты меню : «Склады», «Наличие», «Книги»,
«Продажи».


Меню «Склады» содержит таблицу складов организации и Содержит такие
данные как: идентификатор, название склада,адрес склада,телефон склада и
контактное лицо.




Меню «Наличие» содержит таблицу, в которой записываются идентификаторы
книг, их кол-во, наличие на складе.




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




Меню «Продажи» содержит таблицу, в которой записываются дата продажи
книги, цена, идентификатор и количество.




Вкладка «Запросы» содержит 5 подменю: « SQL», «Книги по тематике», «Отпускные цены», «Книги по
автору» и «Выручка».







Меню «Запрос» формирует отчет по книгам с параметром «Книги по тематике».
Отчет содержит данные об авторе, названии книги ,наличии на складах и
количество.




Меню «Отпускные цены» формирует отчет по ценам на книги.







Форма «Книжные склады» служит для добавления новых складов организации.




Форма «Результаты» из меню «Наличие» служит для добавления новых книг на
склады компании.







Форма «Книги» служит для добавления новых книг в каталог.




Форма «Продажи» служит для добавления проданных книг со складов
организации.







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


Во второй главе была выбрана среда разработки, описана инструкция
пользователя и структура программы. В качестве среды разработки была выбранаDELPHI, среда очень понравилась своим
дружелюбным интерфейсом и простотой использования. Данная программа позволяет
работникам книжного склада осуществлять структурированное добавление новых
данных, также осуществлять удобный поиск по данным вести учет проданный и
купленных книг. Также во второй главе описана инструкция пользователя,
позволяющая пользователю ознакомиться с функционалом программы и рассмотрен
пример работы с программой.
Main;, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,, ExtCtrls, StdCtrls;_Main = class(TForm): TMainMenu;:
TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;:
TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;:
TMenuItem;: TMenuItem;_Close: TButton;: TBevel;: TMenuItem;: TMenuItem;:
TMenuItem;: TMenuItem;: TLabel;N2Click(Sender: TObject);N4Click(Sender:
TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender:
TObject);N9Click(Sender: TObject);N11Click(Sender: TObject);N10Click(Sender:
TObject);N12Click(Sender: TObject);SQL1Click(Sender:
TObject);_CloseClick(Sender: TObject);N14Click(Sender:
TObject);N15Click(Sender: TObject);N16Click(Sender: TObject);N17Click(Sender:
TObject);


{ Public declarations };_Main: TForm_Main;, Presences, Books,
Sales, In_Warhouse, In_Book, In_Presence,_Sale, SQL_Query, QKnowledge,
QSale_Cost, QAuthor, QGain;


{$R *.DFM}TForm_Main.N2Click(Sender:
TObject);;;TForm_Main.N4Click(Sender: TObject);_Warhouses.Show;;TForm_Main.N5Click(Sender:
TObject);_Presences.Show;;TForm_Main.N6Click(Sender:
TObject);_Books.Show;;TForm_Main.N7Click(Sender:
TObject);_Sales.Show;;TForm_Main.N9Click(Sender:
TObject);_In_Warhouse.Show;;TForm_Main.N11Click(Sender: TObject);_In_Book.Show;;TForm_Main.N10Click(Sender:
TObject);_In_Presence.Show;;TForm_Main.N12Click(Sender:
TObject);_In_Sale.Show;;TForm_Main.SQL1Click(Sender:
TObject);_SQL_Query.Show;;_Main.Button_CloseClick(Sender:
TObject);;;TForm_Main.N14Click(Sender:
TObject);_QKnowledge.Show;;TForm_Main.N15Click(Sender:
TObject);_QSale_Cost.Show;;TForm_Main.N16Click(Sender:
TObject);_QAuthor.Show;;TForm_Main.N17Click(Sender:
TObject);_QGain.Show;;.Presences;, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,, ExtCtrls, DBCtrls, Grids, DBGrids, Db,
DBTables;_Presences = class(TForm)_Presences: TTable;_Presences: TDataSource;:
TDBGrid;: TDBNavigator;_Close: TButton;_CloseClick(Sender:
TObject);_PresencesBeforeDelete(DataSet: TDataSet);


{ Public declarations };_Presences: TForm_Presences;


{$R *.DFM}_Presences.Button_CloseClick(Sender:
TObject);;;_Presences.Table_PresencesBeforeDelete(DataSet: TDataSet);


begin('Текущая запись и все связанные с ней записи будут удалены.'


+#13+'Продолжить?',,[mbOK,mbCancel],0)=mrCancel
then begin;;;.;, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,, Grids, DBGrids, Db, DBTables, DBCtrls, ComCtrls;_QGain =
class(TForm): TQuery;: TDataSource;: TDBGrid;_Close: TButton;_Execute:
TButton;_Start: TDateTimePicker;_Last: TDateTimePicker;: TLabel;:
TLabel;_CloseClick(Sender: TObject);_ExecuteClick(Sender: TObject);


{ Public declarations };_QGain: TForm_QGain;


{$R *.DFM}_QGain.Button_CloseClick(Sender:
TObject);;;_QGain.Button_ExecuteClick(Sender:
TObject);.Active:=false;.ParamByName('first_date').AsDate:=DateTimePicker_Start.Date;.ParamByName('last_date').AsDate:=DateTimePicker_Last.Date;.Active:=true;error:
EDatabaseError do begin


MessageDlg('При выполнении запроса произошла ошибка:'+#13+#13+


error.Message ,mtError,[mbOK],0);;;;.;, Messages, SysUtils,
Classes, Graphics, Controls, Forms, Dialogs,, Grids, DBGrids, Db, DBTables,
DBCtrls;_QAuthor = class(TForm): TQuery;: TDataSource;: TDBGrid;_Close:
TButton;_Execute: TButton;: TDBLookupComboBox;_Books1: TTable;_Books1:
TDataSource;: TLabel;_CloseClick(Sender: TObject);_ExecuteClick(Sender:
TObject);


{ Public declarations };_QAuthor: TForm_QAuthor;


{$R *.DFM}_QAuthor.Button_CloseClick(Sender: TObject);;;_QAuthor.Button_ExecuteClick(Sender:
TObject);.Active:=false;.ParamByName('author').AsString:=DBLookUpComboBox1.Text;.Active:=true;error:
EDatabaseError do begin


MessageDlg('При выполнении запроса произошла ошибка:'+#13+#13+


error.Message ,mtError,[mbOK],0);;;;.;, Messages, SysUtils,
Classes, Graphics, Controls, Forms, Dialogs,, Grids, DBGrids, Db, DBTables,
DBCtrls;_QKnowledge = class(TForm): TQuery;: TDataSource;: TDBGrid;_Close:
TButton;_Execute: TButton;: TDBLookupComboBox;_Books1: TTable;_Books1: TDataSource;:
TLabel;_CloseClick(Sender: TObject);_ExecuteClick(Sender: TObject);


{ Public declarations };_QKnowledge: TForm_QKnowledge;


{$R *.DFM}_QKnowledge.Button_CloseClick(Sender:
TObject);;;_QKnowledge.Button_ExecuteClick(Sender: TObject);


//устанавливаетсяпараметр "Областьзнаний".ParamByName('know').AsString:=DBLookUpComboBox1.Text;


//в случае ошибки базы данных выводится сообщение об ошибке


on error: EDatabaseError do begin('Привыполнениизапросапроизошлаошибка:'+#13+#13+.Message
,mtError,[mbOK],0);;;;_Cost;, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,, DBCtrls, DBTables, Db, Grids, DBGrids;_QSale_Cost =
class(TForm): TDBGrid;: TQuery;: TDataSource;_Books1: TTable;_Books1:
TDataSource;: TDBLookupComboBox;_Execute: TButton;_Close: TButton;:
TLabel;_CloseClick(Sender: TObject);_ExecuteClick(Sender: TObject);


{ Public declarations };_QSale_Cost: TForm_QSale_Cost;


{$R *.DFM}_QSale_Cost.Button_CloseClick(Sender:
TObject);;;_QSale_Cost.Button_ExecuteClick(Sender:
TObject);.Active:=false;.Params[0].Value:=DBLookUpComboBox1.KeyValue;.Active:=true;error:
EDatabaseError do begin


MessageDlg('При выполнении запроса произошла ошибка:'+#13+#13+


error.Message ,mtError,[mbOK],0);;;;.Sales;, Messages,
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ExtCtrls, DBCtrls,
Grids, DBGrids, Db, DBTables;_Sales = class(TForm)_Sales: TTable;_Sales:
TDataSource;: TDBGrid;: TDBNavigator;_Close: TButton;_CloseClick(Sender:
TObject);_SalesBeforeDelete(DataSet: TDataSet);


{ Public declarations };_Sales: TForm_Sales;


{$R *.DFM}_Sales.Button_CloseClick(Sender:
TObject);;;_Sales.Table_SalesBeforeDelete(DataSet: TDataSet);


begin('Текущая запись и все связанные с ней записи будут удалены.'


+#13+'Продолжить?',,[mbOK,mbCancel],0)=mrCancel
then begin;;;._Query;, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,, Grids, DBGrids, Db, DBTables;_SQL_Query = class(TForm): TQuery;:
TDataSource;_Execute: TButton;_Clear: TButton;_Close: TButton;: TGroupBox;:
TMemo;: TGroupBox;: TDBGrid;_Save: TButton;_Load: TButton;: TOpenDialog;:
TSaveDialog;_ExecuteClick(Sender: TObject);_ClearClick(Sender: TObject);_CloseClick(Sender:
TObject);_LoadClick(Sender: TObject);_SaveClick(Sender: TObject);


{ Public declarations };_SQL_Query: TForm_SQL_Query;


{$R *.DFM}_SQL_Query.Button_ExecuteClick(Sender: TObject);


//присваиваетсятекст SQL-запроса_SQL_Query.Query1.SQL:=Form_SQL_Query.Memo1.Lines;


//закрываетсязапрос_SQL_Query.Query1.Active:=false;


//открываетсязапрос_SQL_Query.Query1.Active:=true;


//в случае ошибки базы данных выводится сообщение об ошибке


on error: EDatabaseError do begin('Привыполнениизапросапроизошлаошибка:'+#13+#13+.Message
,mtError,[mbOK],0);;;;_SQL_Query.Button_ClearClick(Sender:
TObject);_SQL_Query.Memo1.Lines.Clear;;_SQL_Query.Button_CloseClick(Sender:
TObject);;;_SQL_Query.Button_LoadClick(Sender: TObject);OpenDialog1.Execute
then
begin.Lines.LoadFromFile(OpenDialog1.FileName);;;_SQL_Query.Button_SaveClick(Sender:
TObject);SaveDialog1.Execute then
begin.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName,'.sql'));;;.;,
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ExtCtrls,
DBCtrls, Grids, DBGrids, Db, DBTables;_Warhouses = class(TForm)_Warhouses:
TTable;_Warhouses: TDataSource;: TDBGrid;: TDBNavigator;_Close:
TButton;_Delete: TQuery;_CloseClick(Sender:
TObject);_WarhousesBeforeDelete(DataSet: TDataSet);


{ Public declarations };_Warhouses:
TForm_Warhouses;Presences, Sales;


{$R *.DFM}_Warhouses.Button_CloseClick(Sender:
TObject);;;_Warhouses.Table_WarhousesBeforeDelete(DataSet: TDataSet);


//подтверждение удаления записи('Текущая запись и все связанные с ней
записи будут удалены.'


+#13+'Продолжить?',,[mbOK,mbCancel],0)=mrCancel
then begin


//закрытие запроса на удаление_Delete.Close;


id:=Table_Warhouses.FieldByName('id').AsString;


//очищение SQL-запроса_Delete.SQL.Clear;


//добавлениетекста SQL-запроса_Delete.SQL.Add('DELETE FROM
presences');_Delete.SQL.Add('WHERE presences.id_warhouse='+id);


//выполнение запроса_Delete.ExecSQL;


Query_Delete.SQL.Clear;_Delete.SQL.Add('DELETE FROM
sales');_Delete.SQL.Add('WHERE sales.id_warhouse='+id);


//обновление данных в окнах программы


Form_Presences.Table_Presences.Close;_Presences.Table_Presences.Open;_Sales.Table_Sales.Close;_Sales.Table_Sales.Open;;.Books;,
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ExtCtrls,
DBCtrls, Grids, DBGrids, Db, DBTables;_Books = class(TForm)_Books:
TTable;_Books: TDataSource;: TDBGrid;: TDBNavigator;_Close: TButton;_Delete: TQuery;_CloseClick(Sender:
TObject);_BooksBeforeDelete(DataSet: TDataSet);(Sender: TObject);


{ Public declarations };_Books: TForm_Books;Presences, Sales;


{$R *.DFM}_Books.Button_CloseClick(Sender:
TObject);;;_Books.Table_BooksBeforeDelete(DataSet: TDataSet);


('Текущая запись и все связанные с ней записи будут удалены.'


+#13+'Продолжить?',,[mbOK,mbCancel],0)=mrCancel
then
begin;;_Delete.Close;:=Table_Books.FieldByName('id').AsString;_Delete.SQL.Clear;_Delete.SQL.Add('DELETE
FROM presences');_Delete.SQL.Add('WHERE
presences.id_book='+id);_Delete.ExecSQL;_Delete.SQL.Clear;_Delete.SQL.Add('DELETE
FROM sales');_Delete.SQL.Add('WHERE
sales.id_book='+id);_Delete.ExecSQL;_Presences.Table_Presences.Close;_Presences.Table_Presences.Open;_Sales.Table_Sales.Close;_Sales.Table_Sales.Open;;_Books.FormCreate(Sender:
TObject);;._Book;, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,, Db, DBTables, DBCtrls, ExtCtrls, ComCtrls;_In_Book = class(TForm):
TLabel;: TLabel;: TLabel;_Add: TButton;_Close: TButton;: TLabel;: TLabel;:
TBevel;_Author: TEdit;_Circuation: TEdit;_Year: TEdit;_Publisher: TEdit;_Name:
TEdit;: TLabel;: TLabel;_Knowledge: TEdit;_Cost: TEdit;_CloseClick(Sender:
TObject);_AddClick(Sender: TObject);(Sender: TObject);


{$R *.DFM}_result_data;_In_Book do
begin_Name.Text:='Name';_Author.Text:='Author';_Publisher.Text:='Publisher';_Year.Text:='1900';_Circuation.Text:='0';_Knowledge.Text:='Knowledge';_Cost.Text:='0';;;_In_Book.Button_CloseClick(Sender:
TObject);;;_In_Book.Button_AddClick(Sender:
TObject);_Books.Table_Books.Last;_Books.Table_Books.AppendRecord([_Books.Table_Books.FieldByName('id').AsInteger+1,_Name.Text,_Author.Text,_Publisher.Text,(Edit_Year.Text),(Edit_Circuation.Text),_Knowledge.Text,(Edit_Cost.Text)]);('Вполяформывведенынедопустимыеданные',,[mbOK],0);;;_result_data;;_In_Book.FormCreate(Sender:
TObject);_result_data;;


._Presence;, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,, Db, DBTables, DBCtrls, ExtCtrls, ComCtrls;_In_Presence =
class(TForm): TLabel;: TLabel;_Add: TButton;_Close: TButton;_Warhouse:
TDBLookupComboBox;: TLabel;_Warhouses1: TTable;_Warhouses1:
TDataSource;_Warhouses2: TTable;_Warhouses2: TDataSource;: TLabel;_Book:
TDBLookupComboBox;_Books1: TTable;_Books1: TDataSource;_Books2: TTable;_Books2:
TDataSource;: TBevel;_Item_Amount: TEdit;_Pack_Amount:
TEdit;_CloseClick(Sender: TObject);_AddCli
Похожие работы на - Проектирование автоматизированной информационной системы книжного склада Курсовая работа (т). Информационное обеспечение, программирование.
Курсовая работа: Ценовая политика предприятия, ее влияние на финансовый результат
Курсовая работа по теме Программная обработка на станках с ЧПУ
Дипломная работа по теме Отделочные работы в учебной мастерской лаборатории поваров
Курсовая работа по теме Методика криминалистического исследования холодного оружия
Курсовая Работа На Тему Эффективность Баннерной Рекламы В Интернете На Основе Социологического Исследования
Контрольная работа по теме Ассортимент, условия хранения и показатели качества круп, молочных продуктов
Реферат: Место, роль финансов предприятий в финансовой системе государства
Контрольная работа по теме Аудиторская проверка АО "Ретро", АО "Манеж"
Курсовая Работа На Тему Условное Осуждение
Сочинение На Тему Богатыри
Реферат: Взгляды Августина Гиппонского
Контрольная работа: Організація обліку на підприємстві
Сферы Культуры Контрольная Работа
Оценка Труда Реферат
Путешествие По Древнему Египту Сочинение
Составить Мини Сочинение На Тему Осень
Реферат по теме Политический конфликт
Построение общего решения неоднородного уравнения с постоянными коэффициентами. Метод подбора частного решения неоднородного уравнения
Адресаты Лирики А С Пушкина Сочинение
Реферат: Democracy Essay Research Paper Democracy by sheer
Похожие работы на - Методика использования цифровых образовательных ресурсов при преподавании информатики в основной школе
Похожие работы на - Философские основы трансформизма
Статья: "Окинава как фактор многообразия Японии - историко-культурные аспекты"