Программное обеспечение "Книжный магазин"

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

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

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

ПРЕДВАРИТЕЛЬНЫЙ АНАЛИЗ

Анализ предметной области

Анализ программного обеспечения

Анализ аппаратного обеспечения и схема компьютера

.ОСНОВНЫЕ ПРОЕКТНЫЕ РЕШЕНИЯ

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

Описание входных и выходных данных

Обоснование выбора среды разработки

Проектирование

Тестирование

ЭКОНОМИЧЕСКОЕ ОБОСНОВАНИЕ

Выбор и описание методики расчета экономической эффективности

Расчет затрат на проектирование и разработку автоматизированной информационной системы

ОРГАНИЗАЦИОННЫЙ РАЗДЕЛ

Правила работ ыза компьютером

Техника безопасности при работе за компьютером

Пожарная безопасность при работе за компьютером

Обязанности оператора компьютера

ЗАКЛЮЧЕНИЕ

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

ПРИЛОЖЕНИЕ А - Исходный код программного продукта



ВВЕДЕНИЕ

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

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



ПРЕДВАРИТЕЛЬНЫЙ АНАЛИЗ

Анализ предметной области

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

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

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

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

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

Анализ программного обеспечения

Информационная система в данном проекте созданная при помощи интегрированный среды разработки. Для формирования было удобно использовать Microsoft Access.

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

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

Как правило для ведения учета книг используют программу Excel, а так же информационную систему 1С торговля и склад.

Анализ аппаратного обеспечения и схема компьютера

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

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

Требования	Минимальные	Рекомендуемые
Компьютер и процессор	86- или 64-разрядный процессор с тактовой частотой 1 ГГЦ или большей и SSE2.	86- или 64-разрядный процессор с тактовой частотой 1,5 ГГЦ или большей и SSE2.
Память	512 мб оперативной памяти (для 32-разрядной версии);	1 гб оперативной памяти (для 32-разрядной версии);
Жесткий диск	128 мб свободной памяти	256 мб свободной памяти
Дисплей	разрешение экрана 1024 x 768	Разрешение экрана 1280 х 800

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

ОСНОВНЫЕ ПРОЕКТНЫЕ РЕШЕНИЯ

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

Целью дипломного проекта электронного справочника для сотрудников книжного магазина.

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

- осуществить сбор данных для создания базы

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

- при помощи интегрированной среды разработки Deiphi7 осуществить создание пользовательского графического WinAPIинтерфейса информационной системы.

- установить программное соединение оболочки Delphi 7 c ядром Access при помощи механизма доступа ActiveXDataObject (ADO)

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

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

Описание входных и выходных данных

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

К входным данным относится:

Жанры (Фантастика, Детективы, Приключения, Информатика)

Автор, название, год издания, цена, а также добавление фото.

Наличие;

Данные о клиентах.

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

Обоснование выбора среды разработки

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

Для программного обеспечения была выбрана система программирования Delphi версии 7 фирмы Borland, так как она предоставляет наиболее широкие возможности для программирования приложений ОС Windows.- это продукт BorlandInternational для быстрого создания приложений.

DelphiXE7 - самый быстрый путь создания высокопроизводительных взаимодействующих приложений для Windows.

TurboPascal 7.0.Для языка Паскаль наиболее распространенными являются две среды программирования: TurboPascal 7.0 и Borland Pascal для MS-DOS и Windows. Они предназначены для подготовки текстов программ и их выполнения.



Проектирование

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

«Книжный магазин»;

На начальном этапе проектирования необходимо рассмотреть структуру двух баз данных MSAccess: «конфигурация» и «personaldata».

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

Рисунок 1 - Схема данных информационной системы «Книжный магазин»

Для реализации окна авторизации была создана новая форма, на которой размещены 5 объектов: кнопка Вход (элемент Button), поле Edit1 для ввода логина, поле Edit2 для ввода пароля, Label1, Label2 для вывода текстовых надписей текста (Рис. 1). Кнопка Button1 активна для действия только при наличии введенных данных.(Рис. 2)

Рисунок 2 - окно авторизации

После успешной авторизации переходим в главное меню с основными компонентами.(рис.3).

Рисунок 3- Главная форма программы



В разделе «Жанры» находится 4 жанра, в которых реализован «поиск по авторам и названию» (Рис.4).

Рисунок 4 - Раздел «Жанры»

В жанре «Детективы» Реализовано добавление фотографий к каждой

записи из таблицы (Рис.5)

Рисунок 5 - Жанр «Детективы»

По остальным жанрам таблицы выглядят аналогично

В разделе Данные о клиентах расположена вся необходимая информация о клиентах.(Рис.9).

Рисунок 9 - Данные о клиентах

В разделе «Наличие» Показывает наличие книг по «Код_книги»(Рис.10).

Рисунок 10 - Наличие

Тестирование

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



ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА

Выбор и описание методики расчета экономической эффективности

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

Инвестиции в информационных технологиях являются основным инструментом для поддержания конкурентоспособности книжного магазина.

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

- чистую приведенную стоимость (NPV);

- накопленную величину дисконтированных доходов (PV);

- индекс рентабельности инвестиций (PI);

- срок окупаемости инвестиций (PP);

- дисконтированный срок окупаемости инвестиций (DPP).

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



Расчет затрат на проектирование и разработку автоматизированной информационной системы

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

Расчет трудоемкости (таблица 2) осуществляется на основании «Типовых положений по методике определения трудоёмкости проектных работ». Исходные данные берутся на базовом предприятии Книжный магазин.

Исходные данные:

- количество разновидностей форм входной информации: 3;

а) переменной информации: 2;

б) справочной условно-постоянной: 1;

- количество разновидностей форм выходной информации: 2;

а) печатных документов: 1;

б) информация, наносимая на машинные носители: 1;

- степень новизны комплекса задач: Г;

- сложность алгоритма: 4;

- виды используемой информации:

а) количество разновидностей форм переменной информации: 4;

б) количество разновидностей форм НСИ: 2;

- объем входной информации: 1 тыс. документо-строк;

- сложность:

а) организации контроля входной и выходной информации: 12;

б) печати документов: 22;

- использование трудоемкости проектных работ стандартных модулей: 60%.



Таблица 1 - Расчет трудоёмкости

Стадия разработки проекта	Затраты времени, чел.- дней	Поправочный коэффициент	Затраты времени с учетом поправочного коэффициента
		значение	основание
1Разработкатехническогозадания	28
1.1Затратывремениразработчика постановки задачи		0,65		18
1.2Затраты времени разработчика програмного обеспечения		0,35		9
2Разработка Технорабочего проекта 2.1Разработкатехнорабочегопроекта Затраты времени разработчика на постановку задач	58			23
Затраты времени разработчика програмного обеспечения	24			10
Стадия разработки проекта	Затраты времени, чел.- дней	Поправочный коэффициент	Затраты времени с учетом поправочного коэффициента
		значение	основание
2.2 Разработка рабочего проекта затраты времени разработчика на постановку задач	30			4
затраты времениразработчика программного обеспечения	120			19
3 Внедрение 3.1 Затраты времени разработчика на постановку задач	28			14
3.2 Затраты времени разработчика программного обеспечения	20			1
Всего на комплекс задач (Тобщ)	98

Рассчитаем амортизационные отчисления (таблица 2).

автоматизированный магазин данные

Таблица 2- Расчёт амортизационных отчислений

Вид оборудования	Стоимость, руб	Норма амортизации, %	Сумма, руб.
Центральный процессор	2710	20	542
Оперативное запоминающее устройство	3480	20	696
Дисковое пространство	1500	20	300
Операционная система	10750	20	2150
Монитор	5460	20	1092
Итого:	4780



Таблица 3- Расчёт затрат на оплату труда

Показатель	Единицаизмерения	Сумма
Численность разработчиков	Чел.	1
Трудоёмкость	Чел.-час.	98
Часовая тарифная ставка	Руб.	380
Фонд оплаты труда	Руб.	37240
Отчислениявовнебюджетныефонды	30 % от ФОТ	11172

Составим смету затрат на разработку, внедрение и обслуживание программного проекта.

Рассчитаем накладные расходы, которые составляют 60% от фонда оплаты труда.

Зн=ФОТ*0,6=37240*0,6=22344 руб.

Рассчитаем прибыль (П), которая составляет 20% от общей суммы затрат.

П=(37240+11172+4780+22340)*0,2=15106 руб.

Налог на прибыль, в соответствии с налоговым кодексом РФ, составляет 20% от суммы прибыли.

Нп=15106*0,2=3021 руб.

Выполненные расчеты представим в следующей таблице 4.

Таблица4- Смета затрат

Статьи затрат	Сумма, руб.
Фонд оплаты труда	37240
Отчисления во внебюджетные фонды	11172
Амортизация оборудования	4780
Накладные расходы	22344
Прибыль	15106
Налоги	3021
Итого по смете	93663

Следовательно, на разработку, внедрение и обслуживание проекта программирование оболочки книжный магазиннеобходимы инвестиции в размере 93663 рублей.. Инвестиции используются в течение трёх лет, годовая процентная ставка за кредит (по программе поддержки развития и внедрения инновационных технологий) составляет 10%.

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

Рассчитаем чистую приведенную стоимость (NPV):

,

NPV = - 93663 = (92181 + 83801 + 76240) - 93663 = 158559 руб.

Очевидно, что если:

NPV> 0, то проект следует принять;

NPV< 0, то проект следует отвергнуть;

NPV = 0, то проект ни прибыльный, ни убыточный.

Расчёты показывают, что чистая приведенная стоимость составляет 158559 рублей, что значительно больше нуля. Следовательно, проект следует принять.

Рассчитаем накопленную величину дисконтированных доходов (PV).

PV = = 252222 руб.

Расчёты показывают, что накопленная величина дисконтированных доходов составляет 252222 рублей.

Рассчитаем индекс рентабельности инвестиций (PI):

PI = = 1,68

Очевидно, что если:

РI> 1, то проект следует принять;

РI< 1, то проект следует отвергнуть;

РI = 1, то проект ни прибыльный, ни убыточный.

Расчёты показывают, что индекс рентабельности инвестиций больше единицы, следовательно, его следует принять.

Логика критерия PI такова: он характеризует доход на единицу затрат. В данном случае на один руль затрат приходится 1,68 рубля дохода.

Рассчитаем срок окупаемости инвестиций (PP):

Срок окупаемости (PP) рассчитывается делением единовременных затрат на величину годового дохода, обусловленного ими, т.е.

PP = IC/Р = 150120/101400 = 1,48 года

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

Рассчитаем дисконтированный срок окупаемости инвестиций (DPP):

DPP = года

Дисконтированный срок окупаемости инвестиций показывает степень рискованности того или иного инвестиционного проекта, чем меньше срок окупаемости тем меньше риск и наоборот. Следовательно, данный инвестиционный проект имеет низкую степень рискованности вложения инвестиций. Программирование оболочки «Книжный магазин» экономически целесообразно.



4. ОРГАНИЗАЦИОННЫЙ РАЗДЕЛ

Правила работы за компьютером

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

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

Выбирайте для работы за компьютером удобное кресло. Желательно, чтобы это было эргономическое (ортопедическое) кресло с подлокотником и подголовником.

Высота сиденья кресла (стула) должна быть такой, чтобы руки, положенные на клавиатуру, были расположены горизонтально.

Каждый час делайте перерывы на 15-20 минут. Перерыв, в котором Вы просто блуждаете по Интернету или играете за компьютером, не считается.

Следите за дыханием: оно должно быть ровным, без задержек.

Выполняйте как можно чаще упражнения для глаз.

Техника безопасности при работе за компьютером

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

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

Запрещается под напряжением очищать от пыли и загрязнения электрооборудование.

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

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

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

При пользовании элетроэнергией в сырых помещениях соблюдать особую осторожность.

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

Пожарная безопасность при работе за компьютером

На рабочем месте запрещается иметь огнеопасные вещества

В помещениях запрещается:

а) зажигать огонь;

б) включать электрооборудование, если в помещении пахнет газом;

в) курить;

г) сушить что-либо на отопительных приборах;

д) закрывать вентиляционные отверстия в электроаппаратуре

Источниками воспламенения являются:

а) искра при разряде статического электричества

б) искры от электрооборудования

в) искры от удара и трения

г) открытое пламя

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

Обязанности оператора компьютера

Контроль работы отдела оформления документов (старший оператор ПК).

Приём заявок на поставку продукции от клиентов и менеджеров предприятия.

Своевременная выписка накладных и счетов-фактур, а также соответствующих сопроводительных документов.

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

Систематизация, архивация и хранение отгруженных, верно оформленных и исправленных накладных и счетов-фактур, согласно установленного порядка на предприятии.

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

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

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

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

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

Своевременно информировать руководство о приобретении необходимых материалов непосредственно относящихся к производственному процессу.

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

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



ЗАКЛЮЧЕНИЕ

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

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

- Проводить поиск по книгам (по названию) в программном обеспечении

- Вводить данные о книгах и клиентах, а также добавление

- Добавление фото книг

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



СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

Архангельский А. Я. Приемы программирования в Delphi на основе VCL:учебник/ А. Я. Архангельский. -М.:Санкт-Петербург, Бином-Пресс, 2009 г.- 944 с.

Гагарина Л.Г. Разработка и эксплуатация автоматизированных информационных систем:учебное пособие/ Л.Г. Гагарина, Д.В. Киселев, Е.Л. Федотова- М.: Инфра-М.2007-384с.

Дмитрий Осипов. Профессиональное программирование: учебник/Осипов Дмитрий.-М.: Москва, Символ-Плюс, 2006 г.- 1056 с.

Желонкин.А.Основы программирования в интегрированной среде DELPHI: учебник/ ЖелонкинА.-М.:Москва, Бином. Лаборатория знаний, 2004 г.- 240 с.

Климова Л. М. Delphi 7. Основы программирования. Решение типовых задач:учебник/Л. М. Климова.-М.:Санкт-Петербург, КУДИЦ-Образ, 2006 г.-480 с.

Любавин С. А. Программируем в TurboDelphi: учебник/ С. А. Любавин. -М.: Москва, НТ Пресс, 2008 г.- 320 с.

Магда Юрий. Разработка приложений MicrosoftOffice 2007 в Delphi: учебник/ Юрий Магда -М.: Москва, БХВ-Петербург, 2009 г.- 160 с.

Понамарев Вячеслав. Самоучитель Delphi 7 Studio: учебник/ Вячеслав



ПРИЛОЖЕНИЕ А

unitUnit1;

interface

uses

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

Dialogs, Menus, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,

Mask, jpeg;

type

TForm1 = class(TForm)

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

Label1: TLabel;

Label2: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Button1: TButton;

Image1: TImage;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);

begin

Form1.show;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.close;

Form4.show;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, DB, ADODB,

jpeg;

type

TForm2 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Button1: TButton;

Edit1: TEdit;

Label6: TLabel;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.close;

Form4.show;

end;

procedure TForm2.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Фамилия',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

end;

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids,

jpeg;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Button1: TButton;

Edit1: TEdit;

Label7: TLabel;

DBImage1: TDBImage;

Button2: TButton;

OpenDialog1: TOpenDialog;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit4, Unit8;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

Form3.close;

Form8.show;

end;

procedure TForm3.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Название',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

dbgrid1.DataSource.DataSet.Locate('Автор',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

end;

procedure TForm3.Button2Click(Sender: TObject);

var

jpeg:TJPEGImage;

bmp:TBitmap;

begin

if OpenDialog1.Execute then

begin

jpeg:=TJPEGImage.Create;

bmp:=TBitmap.Create;

try

jpeg.LoadFromFile(OpenDialog1.FileName);

bmp.Assign(jpeg);

ADOTable1.Edit;

ADOTable1.FieldByName('Фото').Assign(BMP);

ADOTable1.Post;

finally

jpeg.Free;

bmp.Free;

end;

end;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type

TForm4 = class(TForm)

Button1: TButton;

Button2: TButton;

BitBtn1: TBitBtn;

Image1: TImage;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit2, Unit3, Unit8;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

Form1.visible:=true;

Form4.Visible:=false;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form2.Visible:=true;

Form4.Visible:=false;

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form4.Close;

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

Form8.Visible:=true;

Form4.Visible:=false;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids,

ExtDlgs, jpeg;

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

Edit1: TEdit;

Label5: TLabel;

DBImage1: TDBImage;

Button2: TButton;

OpenDialog1: TOpenDialog;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit4, Unit8;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

Form5.close;

Form8.show;

end;

procedure TForm5.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Автор',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

dbgrid1.DataSource.DataSet.Locate('Название',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

end;

procedure TForm5.Button2Click(Sender: TObject);

var

jpeg:TJPEGImage;

bmp:TBitmap;

begin

if OpenDialog1.Execute then

begin

jpeg:=TJPEGImage.Create;

bmp:=TBitmap.Create;

try

jpeg.LoadFromFile(OpenDialog1.FileName);

bmp.Assign(jpeg);

ADOTable1.Edit;

ADOTable1.FieldByName('Фото').Assign(BMP);

ADOTable1.Post;

finally

jpeg.Free;

bmp.Free;

end;

end;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,

ExtDlgs, Buttons,jpeg;

type

TForm6 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Label5: TLabel;

Button1: TButton;

DBImage1: TDBImage;

Button2: TButton;

OpenDialog1: TOpenDialog;

Image1: TImage;

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit8;

{$R *.dfm}

procedure TForm6.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Автор',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

dbgrid1.DataSource.DataSet.Locate('Название',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

Form6.close;

Form8.show;

end;

procedure TForm6.Button2Click(Sender: TObject);

var

jpeg:TJPEGImage;

bmp:TBitmap;

begin

if OpenDialog1.Execute then

begin

jpeg:=TJPEGImage.Create;

bmp:=TBitmap.Create;

try

jpeg.LoadFromFile(OpenDialog1.FileName);

bmp.Assign(jpeg);

ADOTable1.Edit;

ADOTable1.FieldByName('Фото').Assign(BMP);

ADOTable1.Post;

finally

jpeg.Free;

bmp.Free;

end;

end;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,

jpeg;

type

TForm7 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Label5: TLabel;

Button1: TButton;

DBImage1: TDBImage;

Button2: TButton;

OpenDialog1: TOpenDialog;

Image1: TImage;

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit8;

{$R *.dfm}

procedure TForm7.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Автор',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

dbgrid1.DataSource.DataSet.Locate('Название',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

end;

procedure TForm7.Button1Click(Sender: TObject);

begin

Form7.close;

Form8.show;

end;

procedure TForm7.Button2Click(Sender: TObject);

var

jpeg:TJPEGImage;

bmp:TBitmap;

begin

if OpenDialog1.Execute then

begin

jpeg:=TJPEGImage.Create;

bmp:=TBitmap.Create;

try

jpeg.LoadFromFile(OpenDialog1.FileName);

bmp.Assign(jpeg);

ADOTable1.Edit;

ADOTable1.FieldByName('Фото').Assign(BMP);

ADOTable1.Post;

finally

jpeg.Free;

bmp.Free;

end;

end;

end;

end.

unit Unit8

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm8 = class(TForm)

Button3: TButton;

Button1: TButton;

Button2: TButton;

Button4: TButton;

Image1: TImage;

Button5: TButton;

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit3, Unit5, Unit6, Unit7, Unit4;

{$R *.dfm}

procedure TForm8.Button3Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm8.Button1Click(Sender: TObject);

begin

Form5.show;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

Form6.show;

end;

procedure TForm8.Button4Click(Sender: TObject);

begin

Form7.show;

end;

procedure TForm8.Button5Click(Sender: TObject);

begin

Form8.close;

Form4.show;

end;

end.

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

TForm9 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

procedurechack;

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit1, Unit5, Unit4;

{$R *.dfm}

procedure TForm9.chack;

var

a:string;

b:string;

begin

a:=Form9.Edit1.Text;

b:=Form9.Edit2.Text;

if (a='Книги') and (b='123') then

begin

Form9.Visible:=false;

Form4.Visible:=true

end

else

showmessage('Неправильный логин или пароль');

end;

procedure TForm9.Button1Click(Sender: TObject);

begin

chack;

end;

procedure TForm9.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then chack;

end;

procedure TForm9.Edit1Change(Sender: TObject);

begin

end;

end.

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