97919

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

Дипломная

Информатика, кибернетика и программирование

Формирование модели данных и их организации. Приведение таблиц базы к первой и второй нормальным формам при помощи интегрированной среды разработки Deiphi7 осуществить создание пользовательского графического WinAPIинтерфейса информационной системы, установить программное соединение оболочки Delphi 7 c ядром Access при помощи механизма доступа ActiveXDataObject (ADO).

Русский

2015-10-26

2.57 MB

0 чел.

СОДЕРЖАНИЕ

ВВЕДЕНИЕ            3

  1.  .ПРЕДВАРИТЕЛЬНЫЙ АНАЛИЗ        4
  2.  Анализ предметной области         4
  3.  Анализ программного обеспечения                 4
  4.  Анализ аппаратного обеспечения и схема компьютера    5
  5.  .ОСНОВНЫЕ ПРОЕКТНЫЕ РЕШЕНИЯ                6
  6.  Постановка задачи                   6
  7.  Описание входных и выходных данных                7
  8.  Обоснование выбора среды разработки                7
  9.  Проектирование                    8
  10.  Тестирование                   12
  11.  .ЭКОНОМИЧЕСКОЕ ОБОСНОВАНИЕ               13
  12.  Выбор и описание методики расчета экономической эффективности                                                                  13
  13.  Расчет затрат на проектирование и разработку автоматизированной информационной системы                                           14
  14.  .ОРГАНИЗАЦИОННЫЙ РАЗДЕЛ                22
  15.  Правила работыза компьютером                22
  16.  Техника безопасности при работе за компьютером             23
  17.  Пожарная безопасность при работе за компьютером             24
  18.  Обязанности оператора компьютера                                                   25       

ЗАКЛЮЧЕНИЕ                  27

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

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

Изм.

Лист

№ докум.

Подпись

Дата

Лист

2

ДП ИТ.23.00.00. ПЗ

Разраб.

Родов А.Е

Пров.

Марков А.В

Реценз.

Н. Контр.

Бархатова

Утверд.

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

Лит.

Листов

43

ВВЕДЕНИЕ

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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Требования

Минимальные

Рекомендуемые

Компьютер и процессор

86- или 64-разрядный процессор с тактовой частотой 1 ГГЦ или большей и SSE2.

86- или 64-разрядный процессор с тактовой частотой 1,5 ГГЦ или большей и SSE2.

Память

512 мб оперативной памяти (для 32-разрядной версии);

1 гб оперативной памяти (для 32-разрядной версии);

Жесткий диск

128 мб свободной памяти

256 мб свободной памяти

Дисплей

разрешение экрана 1024 x 768

Разрешение экрана 1280 х 800

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Наличие;

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

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

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

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

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

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

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

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

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

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

На начальном этапе проектирования необходимо рассмотреть структуру двух баз данных 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 – Наличие

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Расчет трудоемкости (таблица 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

Продолжение таблицы1

Стадия разработки проекта

  

Затратывремени, чел.- дней

Поправочный коэффициент

Затраты времени с учетом

поправочного

коэффициента

значение

основание

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. ОРГАНИЗАЦИОННЫЙ РАЗДЕЛ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

в) курить;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ЗАКЛЮЧЕНИЕ

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

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

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

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

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

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

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

  1.  Архангельский А. Я. Приемы программирования в Delphi на основе VCL:учебник/ А. Я. Архангельский. –М.:Санкт-Петербург, Бином-Пресс, 2009 г.- 944 с.
  2.  Гагарина Л.Г. Разработка и эксплуатация   автоматизированных информационных систем:учебное пособие/ Л.Г. Гагарина, Д.В. Киселев, Е.Л.  Федотова– М.: Инфра-М.2007-384с.
  3.  Дмитрий Осипов. Профессиональное программирование: учебник/Осипов Дмитрий.-М.: Москва, Символ-Плюс, 2006 г.- 1056 с.
  4.  Желонкин.А.Основы программирования в интегрированной среде DELPHI: учебник/ ЖелонкинА.-М.:Москва, Бином. Лаборатория знаний, 2004 г.- 240 с.
  5.  Климова Л. М. Delphi 7. Основы программирования. Решение типовых задач:учебник/Л. М. Климова.-М.:Санкт-Петербург, КУДИЦ-Образ, 2006 г.-480 с.
  6.  Любавин С. А. Программируем в TurboDelphi: учебник/ С. А. Любавин. –М.: Москва, НТ Пресс, 2008 г.- 320 с.
  7.  Магда Юрий. Разработка приложений MicrosoftOffice 2007 в Delphi: учебник/ Юрий Магда –М.: Москва, БХВ-Петербург, 2009 г.- 160 с.

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

  1.  http://www.programmersclub.ru/
  2.  http://delphiworld.narod.ru
  3.  http://delphi.support.uz
  4.  http://www.programmersforum.ru


ПРИЛОЖЕНИЕ А

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.

Изм.

Лист

№ докум.

Подпись

Дата

Лист

3

ДП ИТ.23.00.00. ПЗ


 

А также другие работы, которые могут Вас заинтересовать

37440. Обеспечение единства измерений в стране. Государственный метрологический надзор. Цели надзора, сфера распространения. Виды метрологического надзора 19.86 KB
  Проверки проводят должностные лица Госстандарта России - главные государственные инспекторы и государственные инспекторы по обеспечению единства измерений, действующие на соответствующих территориях и аттестованные в установленном порядке.
37441. Виды и средства измерений. Виды эталонов. Стандартные образцы 19.55 KB
  Прямые измерения — это непосредственное сравнение физической величины с ее единицей. Например, при определении длины предмета с помощью линейки происходит сравнение искомой величины (количественного выражения значения длины) с мерой, т. е. единицей измерения.
37442. Факторы, сохраняющие качество товаров 16.91 KB
  Режим хранения - это совокупность условий, при которых товар сохраняет свое качество. Для каждого товара необходим определенный режим хранения, зависящий от его состава и свойств. При правильном режиме не только сохраняется качество, но и снижаются потери товаров.
37443. Потребительские свойства товаров. Общие понятия и номенклатура потребительских свойств 17.07 KB
  Свойства товаров, обусловливающие их пригодность удовлетворять определенные потребности населения и проявляющиеся в процессе эксплуатации или потребления, называют потребительскими. В совокупности потребительские свойства составляют качество.
37444. Оценка качества товаров. Понятие и этапы оценки качества. Градации качества. Несоответствия и дефекты товаров 18.86 KB
  Оценка уровня качества — это совокупность операций, включающая выбор номенклатуры показателей качества оцениваемой продукции, определение значений этих показателей и сопоставление их с базовыми...
37445. Химический состав и свойства товаров 17.78 KB
  Медикобиологические требования к качеству продовольственных товаров — комплекс критериев, определяющих пищевую ценность и безопасность продовольственного сырья и продовольственных товаров.
37446. Сохраняющие факторы: упаковка товаров, транспортирование, хранение 18.84 KB
  Тара в зависимости от функционального назначения подразделяется на потребительскую и транспортную. В потребительскую тару расфасовывают продукцию (банка, бутылка, ампула, туба и др.)
37447. Средства товарной информации. Виды и формы 19.27 KB
  От того, насколько качественны эти информационные услуги, зависят скорость продвижения товаров по каналам распределения, интенсивность сбыта, стимулирование продаж, создание потребительских предпочтений и в конечном счете жизненный цикл товара
37448. Мастер общения. Советы практикующего психолога 439.5 KB
  Советы практикующего психолога ДУМАЕТЕ У ВАС НЕТ ЗАКОМПЛЕКСОВАННОСТИ В ОБЩЕНИИ Думаю что нет такс усмешкой и непоколебимой самоуверенностью обычно отвечают молодые люди. Но если ответ противоположный Как только представите себя в аудитории или на сцене так сразу все внутри заполняет липкий страх ногируки становятся деревянными во рту пересыхает перед глазами плывет Да и в обычном общении немало затруднений Вот тогда поспешите преодолеть закомплексованность в общении. В результате сформировалась новая задача вначале снять у...