Курсовая работа: Создание и обработка Баз данных средствами Visual Basic 60

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

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
Государственное образовательное учреждение высшего профессионального образования «ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ УПРАВЛЕНИЯ»
«Создание и обработка Баз данных средствами Visual Basic 6.0»
«Государственное и муниципальное управление»
Вид формы и свойства элементов управления
В таблице GL данные приведены в % к общему количеству персонала.
Справка 1. Наименование предприятий, объем выпуска продукции которых превышает 20 млн. рублей. Записи упорядочить по возрастанию численности персонала.
Справка 2. Коды предприятий, в которых процент сотрудников, не имеющих жилья, превышает 15%. Записи упорядочить по убыванию процента сотрудников, не имеющих жилья.
Справка 3. Сведения о предприятиях с количеством персонала, большим 5000 чел., в которых процент сотрудников, не имеющих жилья и нуждающихся в улучшении жилищных условий, превышает 20%.
Сведения об объеме выпускаемой продукции на одного работающего на предприятиях, свыше 70% сотрудников которых имеют нормальные жилищные условия.
Продукция на одного работающего (в руб.)
Для создания Базы данных, в первую очередь, понадобится Окно формирования новой таблицы базы данных (Table Structure). Для этого в Главном Меню Главной панели проекта Visual Basic 6.0 следует выбрать опцию Add-Ins (Добавления или Модули), а в ней - команду Visual Data Manager.
При выполнении этой команды раскрывается Панель Приложения VisData- Панель Диспетчера баз данных Visual Basic 6.0.
Рисунок 2. Заголовок Панели VisData
Выбрать меню File Панели Приложения VisData и команду New. В раскрывшемся подменю следует выбрать в качестве типа создаваемой базы данных Microsoft Access, а во втором подменю- Version 7.0 MDB, или иначе, выполнить последовательность команд:
File - New - Microsoft Access - Version 7.0 MDB
В результате раскроется Окно создания Нового файла базы данных Microsoft Access - Окно Select Microsoft Access Database To Create. Для открытия уже существующего файла базы данных необходимо вместо команды New воспользоваться командой Open Database.
Рисунок 3. Окно создания Нового файла Базы данных - Окно Select Microsoft Access Database To Create
В окне Имя файла указать имя каталога, в котором будет храниться создаваемая база. При этом на Панели Приложения VisData появится Окно базы данных (Окно Database Window) и Окно операторов SQL Statements (рис. 4).
Рисунок 4 .Панель Приложения VisData после появления на ней Окна Базы данных (Database Window) и Окна SQL Statements
В любом месте Окна Database Window необходимо щелкнуть правой клавишей мыши. В появившемся меню следует выбрать команду New Table (создать таблицу). Раскроется Панель Table Structure - Структура таблицы (рис. 5). Можно приступать к проектированию структуры таблицы.
Проектирование структуры таблицы базы данных включает следующие шаги:
1. В поле Table Name (имя таблицы) ввести имя проектируемой таблицы - SM.
Рисунок 6. Панель Table Structure после внесения в окно Table Name
2. Раскрыть Диалоговое Окно Add Field (Добавить поле) на Панели Table Structure кнопкой Add Field - раскроется Диалоговое окно Add Field (Добавить поле).
Рисунок 7. Раскрытое диалоговое окно Add Field (Добавить поле)
3. С помощью Диалогового Окна Add Field осуществляется по очереди ввод характеристик всех полей создаваемой таблицы SM – вводятся имена полей, их типы и размеры полей.
Рисунок 8. Диалоговое окно Add Field для ввода сведений о полях проектируемой таблицы создаваемой базы данных
В поле Туре Окна Add Field по умолчанию указан тип вводимого данного - Text. При разработке приложения создания базы данных нам может понадобиться использование данных другого типа, что и осуществляется выбором стандартных типов с использованием клавиши окна Туре. В Visual Basic вы можете применять следующие типы данных:
- числовой (integer, Long, Single, Double, Currency);
Для хранения чисел в Visual Basic используется пять разных типов данных. Для хранения целочисленных данных будем использовать тип Integer, а для храпения десятичных чисел типы данных Single.
4. По окончании ввода всей информации поля создаваемой таблицы базы данных щелкнуть кнопку ОК диалогового окна Add Field Панели Table Structure. Поле добавляется в таблицу.
5. Добавим все необходимые поля тем же способом и нажмем кнопку Close, вернувшись в окно Table Structure.
6. Для завершения процесса проектирования таблицы создаваемой Базы Данных щелкается кнопка Build the Table (сформировать таблицу) на панели Table Structure, что приводит к закрытию окна Table Structure и возврату к Панели Приложения с окном Database Window, в котором представлена создаваемая База Данных, включающая пока только одну таблицу - таблицу PR.
Включим в нашу Базу Данных еще одну таблицу - таблицу GL. Для этого также воспользуемся окном Database Window и, выполнив те же шаги, создадим в Базе данных БД структуру второй таблицы GL.
Рисунок 9. Окно Database Window (Окно баш данных) Панели Приложения VisData со структурами таблиц PR и GL создаваемой базы данных.
Теперь таблицы нужно заполнить конкретными записями. Но если мы хотим, чтобы в дальнейшем записи таблиц БД автоматически упорядочивались по заданному полю, необходимо создать, так называемый, индекс таблицы. Для этого с помощью панели Add Index, ввести в поле окна Name имя поля, которое хотим сделать индексным, щелкнуть по нему, чтобы включить ею в список Indexed Fields.
Заполнение созданных таблиц БД исходными данными.
Щелчком правой кнопкой мыши по таблице PR или GL раскроем контекстное меню выбора опций, являющееся узловым (начальным) инструментом разработки баз данных.
Выбрав опцию Open, раскроем окно Модификаций таблиц базы данных. Оно является исходным инструментом выбора видов работ (видов модификаций) с таблицами баз данных и содержит набор 8-и опций.
Рисунок 10. Окно Модификаций таблиц базы данных
Данные отображаются в табличном формате, удобном для ввода новых записей и редактирования текущей и ранее введенных записей (линейка опций окна Модификаций таблиц базы данных содержит опцию редактирования Edit - рис. 10).
Начинаем процесс заполнения указанных полей конкретными значениями первой записи. Нажимаем Add. Для перехода к следующему полю записи можно пользоваться клавишей Enter. По окончании заполнения всех полей первой записи щелкнуть на кнопке Update (Обновить) - в результате набранная запись будет физически записана в файл создаваемой базы данных, в таблицу PR и восстановится окно модификаций. Для перехода к новой записи - щелчок левой клавишей по кнопке Add. Нажатие кнопки Close после ввода последней записи завершает ввод записей в таблицу создаваемой Базы данных.
Меню - один из способов диалога пользователя с информационной системой. Меню представляет собой список Пунктов, из которого следует выбрать необходимый.
Использование большого количества командных кнопок связано с неудобствами. Возникает неясность в последовательности их активизации. Разумная альтернатива – создание собственного меню проекта. В системе проектирования VB 6.0 создание Меню осуществляется с помощью Редактора меню Menu Editor. Окно редактора открывается на активной форме тремя способами:
- Главное Меню - Инструменты - Редактор меню (меню Editor);
- Нажатием на линейке инструментов Главной панели системы VB 6.0 кнопки;
Обычно меню состоит из нескольких уровней. Верхний - это строка меню, которую называют Головным меню. Каждый пункт Головного меню может включать подменю из одного или нескольких пунктов. Каждый следующий пункт, в свою очередь, может включать свое подменю и т.д.
Открываем окно редактора меню на Form1. Form1 используется как основная. В окне редактора и осуществим конструирование Пользовательского меню.
После вызова редактора требуется заполнить его необходимыми данными. Сначала в окно Caption (заголовок) вводится имя пункта меню, под которым оно будет выводиться в строке меню на форме. Для быстрого открытия меню в поле Заголовок можно указать т.н. горячую клавишу. Это делается записью амперсанда (&) перед соответствующей буквой.
Затем нажимаемся TAB и вводится в окно Имя уникальное имя пункта Меню в программе. Оно должно состоять из следующих частей:
- Префикса mnu, указывающего, что имя относится к меню;
Кроме свойств Заголовок, Имя элементы меню имеют еще три свойства, могущие принимать значение True/False:
Отмечено (Checked) —позволяет отметить выбранный элемент символом ,
Включено (Enabled) - позволяет включить или выключить команды меню во время выполнения программы символом .
Видимо (Visible) -позволяет отобразить или скрыть отдельные элементы меню (вместо блокировки) символом
Элементы конструирования структуры Меню позволяют:
устанавливать уровни Меню стрелками:
перемещают элементы в списке элементов одного уровня
перемещать указатель к следующему Меню («Дальше» (Next), добавлять пункт Меню («Вставить» (Insert), удалять пункт Меню («Удалить» (Delete)).
Рисунок 12. Созданное Меню в Окне Редактора
По завершении создания меню нажать ОК и созданное Меню появится на форме Form1-отображается верхний Уровень Меню - Головное Меню. Меню активное. Для раскрытия любого пункта меню достаточно мышкой щелкнуть на выбранном пункте.
При решении данной курсовой работы я решил выполнить её на одной форме, то есть все пункты меню кроме Vihod(Выход) служат для распечатки таблиц, формирования и выдачи справок, создания документа на 1 форме.
Рисунок 14 .Экранная форма Glav_Form, обеспечивающая просмотр таблиц, выдачи справок и выходного документа(с использованием Пользовательского меню)
Caption= Курсовой проект Дегтярев Денис ГиМУ 1-4 №8.
Так как почти все элементы будут использоваться в более чем одной процедуре, то их свойства будут указаны сразу для избегания лишней путаницы.
Свойства Элемента Data1 (таблица PR,справка № 1,3 и документ):
DatabaseName = D:\кп\Курсовая 2\file 1.mdb
Свойства элементов связанных с Data1(таблица PR,справка № 1,3 и документ):
Свойства элементов Label (метка) для PR.
Caption = «Наименование предприятия»
Caption = «Объем выпуска продукции (в руб)»
Свойства элемента MSFlexGrid и Label3 (таблица PR и справка № 2)
Свойства Элемента Data2 (таблица GL,справка № 2,3 и документ):
DatabaseName = D:\кп\Курсовая 2\file 1.mdb
Свойства элементов связанных с Data2(таблица GL,справка № 2,3 и документ):
Свойства элементов Label (метка) для GL.
Caption = «Нуждающиеся в улучшении»
Caption = «Живущие далеко от предприятия»
Свойства элемента MSFlexGrid и Label4 (таблица GL и справка № 1)
Свойства элемента MSFlexGrid и Label5(справка №3 и документ)
Label3.Caption = "Таблица Предприятия"
Flp.TextMatrix(I, J - 1) = Text1(J - 1)
If I = 1 Then Flp.TextMatrix(I - 1, J - 1) = Data1.Recordset.Fields(J - 1).Name
Рисунок 16. Вид формы с таблицей GL
Label4.Caption = "Таблица Обеспеченность жильём"
Flg.TextMatrix(I, J - 1) = Text2(J - 1)
If I = 1 Then Flg.TextMatrix(I - 1, J - 1) = Data2.Recordset.Fields(J - 1).Name
Dim I As Integer, T As Integer, L As Integer, J As Integer
Label4.Caption = "Справка №1(по таблице PR)"
Flg.TextMatrix(0, 0) = Data1.Recordset.Fields(1).Name
Flg.TextMatrix(0, 1) = Data1.Recordset.Fields(3).Name
For I = 1 To Data1.Recordset.RecordCount
If Data1.Recordset.Fields(3).Value > 20000000 Then
Flg.Rows = Flg.Rows + 1: Kz = Flg.Rows - 1
Flg.TextMatrix(Kz, 0) = Data1.Recordset.Fields(1).Value
Flg.TextMatrix(Kz, 1) = Data1.Recordset.Fields(3).Value
Flg.TextMatrix(Kz, 2) = Data1.Recordset.Fields(2).Value
If Val(Flg.TextMatrix(T, 2)) > Val(Flg.TextMatrix(L, 2)) Then T = L
Q = Flg.TextMatrix(I, J): Flg.TextMatrix(I, J) = Flg.TextMatrix(T, J)
If Kz = 0 Then Flg.TextMatrix(Kz, 0) = "Нет таких записей в таблице PR"
Label3.Caption = "Справка №2(по таблице GL)"
Flp.TextMatrix(0, 0) = Data2.Recordset.Fields(0).Name
For I = 1 To Data2.Recordset.RecordCount
If Data2.Recordset.Fields(3).Value > 15 Then
Flp.Rows = Flp.Rows + 1: Kz = Flp.Rows - 1
Flp.TextMatrix(Kz, 0) = Data2.Recordset.Fields(0).Value
Flp.TextMatrix(Kz, 1) = Data2.Recordset.Fields(1).Value
If Val(Flp.TextMatrix(T, 1)) < Val(Flp.TextMatrix(L, 1)) Then T = L
If Kz = 0 Then Flp.TextMatrix(Kz, 0) = "Нет таких записей в таблице GL"
Label5.Caption = "Справка №3(по таблицам GL и PR)"
Fls.TextMatrix(0, 0) = Data1.Recordset.Fields(1).Name
Fls.TextMatrix(0, 1) = Data1.Recordset.Fields(2).Name
Fls.TextMatrix(0, 2) = Data1.Recordset.Fields(3).Name
Fls.TextMatrix(0, 3) = Data2.Recordset.Fields(1).Name
Fls.TextMatrix(0, 4) = Data2.Recordset.Fields(2).Name
For I = 1 To Data1.Recordset.RecordCount
For J = 1 To Data2.Recordset.RecordCount
If Data2.Recordset.Fields(0) = Data1.Recordset.Fields(0) Then
If Data1.Recordset.Fields(2).Value > 5000 And Data2.Recordset.Fields(1).Value > 20 And Data2.Recordset.Fields(2).Value > 20 Then
Fls.Rows = Fls.Rows + 1: Kz = Fls.Rows - 1
Fls.TextMatrix(Kz, 0) = Data1.Recordset.Fields(1).Value
Fls.TextMatrix(Kz, 1) = Data1.Recordset.Fields(2).Value
Fls.TextMatrix(Kz, 2) = Data1.Recordset.Fields(3).Value
Fls.TextMatrix(Kz, 3) = Data2.Recordset.Fields(1).Value
Fls.TextMatrix(Kz, 4) = Data2.Recordset.Fields(2).Value
If Kz = 0 Then Fls.TextMatrix(Kz, 0) = "Нет записей удовлетворяющих условие"
Fls.TextMatrix(0, 0) = Data1.Recordset.Fields(1).Name
Fls.TextMatrix(0, 1) = "% сотрудников обеспеченных жильем"
Fls.TextMatrix(0, 2) = "Продукция на одного рабочего(в руб.)"
For I = 1 To Data1.Recordset.RecordCount
For J = 1 To Data2.Recordset.RecordCount
If Data2.Recordset.Fields(0) = Data1.Recordset.Fields(0) Then
If Data2.Recordset.Fields(1).Value + Data2.Recordset.Fields(2).Value + Data2.Recordset.Fields(3).Value <= 30 Then
Fls.Rows = Fls.Rows + 1: Kz = Fls.Rows - 1
Fls.TextMatrix(Kz, 0) = Data1.Recordset.Fields(1).Value
Fls.TextMatrix(Kz, 1) = 100 - (Data2.Recordset.Fields(1).Value + Data2.Recordset.Fields(2).Value + Data2.Recordset.Fields(3).Value)
Fls.TextMatrix(Kz, 2) = Data1.Recordset.Fields(3).Value / Data1.Recordset.Fields(2).Value
If Kz = 0 Then Fls.TextMatrix(Kz, 0) = "Нет записей удовлетворяющих условие"
В данной курсовой работе по созданию и обработке Баз данных средствами Visual Basic 6.0, в разрабатываемом программном проекте я предпочел использовать пользовательское меню по следующим причинам:
- Отпадает необходимость создания отдельных экранных форм для решения каждой задачи программного проекта.
- Намного упрощается работа с проектом, так как результаты отдельных задач проекта не обращаются к другим, формам.
- На экранной форме проекта отсутствую командные кнопки, роль которых на себя берут пункты меню.
- Управление проектом становиться гораздо проще, легче и даже комфортнее - устраняется неясность в последовательности активизации командных кнопок при выполнении программного проекта.
- Программный проект объединен в единое целое.

Название: Создание и обработка Баз данных средствами Visual Basic 60
Раздел: Рефераты по информатике
Тип: курсовая работа
Добавлен 06:30:16 06 декабря 2010 Похожие работы
Просмотров: 136
Комментариев: 15
Оценило: 2 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Курсовая работа: Создание и обработка Баз данных средствами Visual Basic 60
Курсовая работа по теме Оценка динамики медицинского страхования в РФ
Реферат: Исковое заявление. Скачать бесплатно и без регистрации
Реферат Резус Конфликт
Реферат по теме Панно 'Вдохновение'
Дипломная работа по теме Обґрунтування раціональної технологічної схеми гірничотехнічної рекультивації залишкових вироблених просторів кар’єру з урахуванням екологічних проблем регіону
Контрольная работа по теме Слово и текст в русской философии XVIII века
Управленческие Решения Реферат
Реферат по теме Влияние пищевых производств на экологию
Реферат На Тему Гандбол
Дипломная работа: Изготовление печатей и штампов
Курсовая работа: Розрахунок кіл трифазного струму та перехідних процесів у лінійних електричних колах
Реферат Способы Улучшения Зрения С Помощью Физкультуры
Реферат: Елизавета Йоркская
Структура Медицинских Отходов Реферат
Реферат На Тему Романо Германская Правовая Семья
Полугодовая Контрольная Работа 11 Класс
Реферат: Animal Experimentaion Essay Research Paper Animal experimentation
Реферат по теме Историко-географические предпосылки формирования облика города
Сочинение Основной Конфликт Недоросль
Контрольная работа по теме Организация работы взрослой поликлиники - роль сестринского персонала
Статья: Таинственная поэтика «Сказания о Мамаевом побоище»
Топик: Valentine's Day
Дипломная работа: Соучастие