на тему рефераты Информационно-образоательный портал
Рефераты, курсовые, дипломы, научные работы,
на тему рефераты
на тему рефераты
МЕНЮ|
на тему рефераты
поиск
Создание базы данных о студентах ВУЗа
.2.2 Краткое описание алгоритма работы с программой

Исполняемый файл - Database.exe

Для открытия файла выберите пункт меню Файл -> Открыть.

Для создания резервной копии - пункт меню Файл -> Сохранить как

Для добавления записи - меню Редактировать -> Добавить

Для удаления записи ее необходимо выделить и выбрать меню Редактировать-> Удалить или нажать кнопку Delete на клавиатуре. Удаление нужно подтвердить нажатием кнопки «Да» в окне сообщения.

Для выполнения запросов предназначено меню «Запросы». Выберите «Поиск-> По запросу -> <Нужный запрос>», и программа осуществит поиск по выбранному условию и выведет результаты на форму поиска.

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

Для поиска данных по первой букве выберите меню «Поиск -> По первой букве». Введите букву в появившееся окно и нажмите «Ok». Найденная информация будет отображена на форме поиска.

Для получения справки и информации о программе выберите меню «Справка».

Многие пункты меню дублируются на панели инструментов. Далее каждое действие будут описано более подробно.

3.2.3 Создание базы данных

Если вам требуется создать новую базу данных, нет необходимости удалять записи одну за одной, а можно просто нажать на кнопку "Создать базу" на панели инструментов, перейти по меню "Файл -> Создать" (Рис.1)

Рис.1

И или нажать горячую комбинацию клавиш Ctrl+N. Если файл был сохранен до этого, то программа просто очистит таблицу, и ваши данные останутся в неизменном виде. Если же файл сохранен не был, то данные в предыдущей таблице вернутся в состояние предыдущего сохранения файла или будут удалены, если этот файл не существует. В любом случае, вы получите сообщение о том, что необходимо подтвердить действие (Рис.2), и, в случае отрицательного ответа, операция будет отменена.

Рис.2

3.2.4 Открытие базы данных

Открыть уже сохраненный файл можно, используя кнопку на панели задач или меню "Файл -> Открыть". (Рис.3)

Рис.3

Ответьте положительно на следующее сообщение (Рис.4), если файл уже сохранен.

Рис.4

При нажатии на кнопку на экране появится диалоговое окно для

выбора файла.

Рис.5

Выберите нужный файл, нажмите кнопку "Открыть", и его содержимое появится в таблице на главной форме.

3.2.5 Сохранение базы данных

Сохранить данные в MyDataBase можно путем нажатия на кнопку с изображением дискеты на панели инструментов или перейдя в меню "Файл -> Сохранить" или "Файл -> Сохранить как". (Рис.6)

Рис.6

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

3.2.6 Удаление записи

Выделите запись, щелкнув на ней левой кнопкой мыши, и нажмите клавишу delete. Ответив "Да" на сообщение о подтверждении (Рис.7), вы удалите выбранную запись из базы.

Рис.7

Также можно удалить запись через контекстное меню, кнопку на панели инструментов или меню "Редактировать -> Удалить запись".

3.2.7 Редактирование записи

Меню "Редактировать -> Изменить запись" (Рис.8)

Рис.8

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

3.2.8 Добавление записи

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

3.2.9 Поиск записей

Вы можете быстро найти интересующие вас данные по заданным критериям поиска. Выделите любое поле, щелкнув по его заголовку левой кнопкой мыши, а затем нажмите на кнопку с изображением лупы или перейдите в меню "Поиск -> По первой букве", (структура меню поиска показана на рисунке 9)

Рис.9

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

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

3.2.10 Построение диаграмм

Диаграммы необходимы для наглядного представления данных, содержащихся в таблице. В данной программе доступны 3 вида диаграмм: столбчатые, круговые и графики. Чтобы увидеть диаграмму, необходимо щелкнуть на соответствующей кнопке на панели инструментов. Откроется форма диаграмм. (Приложение 2. с.63). Далее нажмите кнопку с изображением того типа диаграмм, который хотите увидеть. Сформируйте запрос путем выбора из предложенных слева списков определенных значений, например, название группы или оценку. Вы получите диаграмму по выбранному запросу.

3.2.11 Сортировка

Для осуществления сортировки необходимо выделить поле щелчком на его заголовке и нажать на кнопку "Сортировка" на панели инструментов или перейти в меню "Сортировка". (Рис.10)

Рис.10

Данные в таблице будут отсортированы по данному полю (по возрастанию или убыванию в зависимости от вашего выбора). Если поле содержит текст, он будет отсортирован в алфавитном порядке. Цифры - от меньшего к большему, а даты - в хронологическом порядке.

3.2.12 Выход из программы

Перейдите в меню "Файл -> Выход" (Рис.11)

Рис.11

Нажмите на кнопку "Выход" на панели инструментов или закройте главную форму программы крестиком в правом верхнем углу, как обычное окно Windows и ответьте положительно на запрос подтверждения (Рис.12) для завершения работы с программой.

Рис.12

Несохраненные данные будут потеряны. В случае отрицательного ответа выход будет отменен.

3.2.12 Информация о программе

При переходе по меню "Справка -> О программе" (Рис.13)

Рис.13

Вы получаете доступ к форме "О программе MyDataBase" (Приложение 2. с.65). На ней кратко описана цель проекта, фамилия разработчика и об авторских правах.

3.2.14 Сообщения программы

1. Не задано поле для поиска.

Это означает, что вы обратились к поиску по первой букве, но не выделили поле. Поиск по первой букве не может быть осуществлен при не выбранном поле. Выбрать его можно, щелкнув по заголовку поля. При этом заголовок поля примет вид нажатой кнопки. Чтобы снять выделение поля, щелкните мышью на свободном месте главной формы. Заголовок вернется в нормальное состояние. Искать данные по первой букве можно только тогда, когда выделено одно из полей. 2. Введено нечисловое, дробное, слишком большое или слишком маленькое значение.

При добавлении или изменении записи может возникнуть эта ошибка. Она означает, что в поле "Оценка" введено не число. Оценка - это натуральное число в диапозоне от 0 (студент не явился) до 5 (отлично). Если оценка введена больше 5, то возникнет ошибка:

Границы ввода определяются контролем ввода. Правила ввода вы можете посмотреть на примере формы добавления записи. 3. Дата выдачи больше даты сдачи.

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

ЛИТЕРАТУРА

1. С.В. Глушаков А.С. Сурядный программирование на VB6.0 «Фолио» 2002г.

2. С.И. Воронцов Microsoft Visual Basic 5.0 «Солон» 1998г.

ПРИЛОЖЕНИЕ 1

Код программы

frmStart

Dim x As Byte

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 27 Then Call Terminate

End Sub

Private Sub Form_Load()

x = 0

End Sub

Private Sub tmrAni_Timer()

If x <= 18 Then imgAnim.Picture = img(x).Picture

x = x + 1

If x = 40 Then Me.Picture = img(19).Picture: imgAnim.Visible = False

If x = 60 Then Call Terminate

End Sub

Public Sub Terminate()

tmrAni.Enabled = False

frmDatabase.Show

Unload Me

End Sub

frmDatabase

Option Explicit

Public Sub Create()

If MsgBox("Несохраненные данные будут потеряны. Создать новую базу?", vbQuestion + vbYesNo, strName) = vbNo Then Exit Sub

For i = 0 To 6

lstZapis(i).Clear

Next

OpenFile = ""

Me.Caption = strName

End Sub

Public Sub Open_File()

Dim strФильтр As String

If MsgBox("Несохраненные данные будут потеряны. Открыть файл?", vbQuestion + vbYesNo, strName) = vbNo Then Exit Sub

For i = 0 To 6

lstZapis(i).Clear

Next

OpenFile = ""

strФильтр = "Файлы " + strName + " (*." + strРасширение + ")|*." + strРасширение + "|"

cdl1.Filter = strФильтр

cdl1.Action = 1

If cdl1.FileName <> "" Then

OpenFile = cdl1.FileName

Open OpenFile For Random As 1 Len = Len(Zapis)

For i = 1 To FileLen(OpenFile) / Len(Zapis)

Get #1, i, Zapis

lstZapis(0).AddItem Trim(Zapis.Студент)

lstZapis(1).AddItem Trim(Zapis.Группа)

lstZapis(2).AddItem Trim(Zapis.Курс)

lstZapis(3).AddItem Trim(Zapis.Работа)

lstZapis(4).AddItem Trim(Zapis.Дата_сдачи)

lstZapis(5).AddItem Trim(Zapis.Оценка)

lstZapis(6).AddItem Trim(Zapis.Дата_выдачи)

Next

Close #1

End If

If OpenFile <> "" Then Me.Caption = strName + " - " + OpenFile

End Sub

Public Sub Save(intSaveAs As Byte)

Dim strФильтр As String

If intSaveAs = 0 And OpenFile <> "" Then

If Dir(OpenFile) = Right$(OpenFile, Len(OpenFile) - Len(ОтрезИмя(OpenFile))) Then

Kill OpenFile

Else

OpenFile = ""

MsgBox "Сохраненный файл был удален или поврежден. Попробуйте сохранить еще раз", vbCritical + vbOKOnly, strName

Exit Sub

End If

Open OpenFile For Random As 1 Len = Len(Zapis)

For i = 0 To lstZapis(1).ListCount - 1

Zapis.Студент = lstZapis(0).List(i)

Zapis.Группа = lstZapis(1).List(i)

Zapis.Курс = lstZapis(2).List(i)

Zapis.Работа = lstZapis(3).List(i)

Zapis.Дата_сдачи = lstZapis(4).List(i)

Zapis.Оценка = lstZapis(5).List(i)

Zapis.Дата_выдачи = lstZapis(6).List(i)

Put #1, i + 1, Zapis

Next

Close #1

Else

strФильтр = "Файлы " + strName + " (*." + strРасширение + ")|*." + strРасширение + "|"

cdl1.Filter = strФильтр

cdl1.Action = 2

If cdl1.FileName <> "" Then

OpenFile = cdl1.FileName

If Dir(OpenFile) = Right$(OpenFile, Len(OpenFile) - Len(ОтрезИмя(OpenFile))) Then

If MsgBox("Файл уже существует. Перезаписать?", vbQuestion + vbYesNo, strName) = vbNo Then Exit Sub

End If

Open OpenFile For Random As 1 Len = Len(Zapis)

For i = 0 To lstZapis(1).ListCount - 1

Zapis.Студент = lstZapis(0).List(i)

Zapis.Группа = lstZapis(1).List(i)

Zapis.Курс = lstZapis(2).List(i)

Zapis.Работа = lstZapis(3).List(i)

Zapis.Дата_сдачи = lstZapis(4).List(i)

Zapis.Оценка = lstZapis(5).List(i)

Zapis.Дата_выдачи = lstZapis(6).List(i)

Put #1, i + 1, Zapis

Next

Close #1

End If

End If

If OpenFile <> "" Then Me.Caption = strName + " - " + OpenFile

End Sub

Public Sub Edit(strType As String, lngN As Long)

If strType = "Add" Then

frmAdd.Show 1

End If

If strType = "Del" Then

If MsgBox("Вы действительно хотите удалить эту запись?", vbQuestion + vbYesNo) = vbNo Then Exit Sub

For i = 0 To 6

lstZapis(i).RemoveItem (lngN)

Next

End If

If strType = "Edt" Then

lngNumberOfEdit = lngN

frmEdit.txt1.Text = lstZapis(0).List(lngN)

frmEdit.txt2.Text = lstZapis(1).List(lngN)

frmEdit.txt3.Text = lstZapis(2).List(lngN)

frmEdit.txt4.Text = lstZapis(3).List(lngN)

frmEdit.txt5.Text = lstZapis(4).List(lngN)

frmEdit.txt6.Text = lstZapis(5).List(lngN)

frmEdit.txt7.Text = lstZapis(6).List(lngN)

frmEdit.Show 1

Страницы: 1, 2, 3, 4, 5



© 2003-2013
Рефераты бесплатно, курсовые, рефераты биология, большая бибилиотека рефератов, дипломы, научные работы, рефераты право, рефераты, рефераты скачать, рефераты литература, курсовые работы, реферат, доклады, рефераты медицина, рефераты на тему, сочинения, реферат бесплатно, рефераты авиация, рефераты психология, рефераты математика, рефераты кулинария, рефераты логистика, рефераты анатомия, рефераты маркетинг, рефераты релиния, рефераты социология, рефераты менеджемент.