Рис.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

End If

End Sub

Public Sub Search(strType As String)

Dim strЗапрос As String

Dim m As Byte

Dim boolF As Boolean

For i = 0 To 6

frmSearch.lstZapis(i).Clear

frmSearch.lstNumbers.Clear

Next

strЗапрос = ""

intPole = -1

If strType = "Fst" Then

strSearch = InputBox("Введите первую букву записи выделенного поля (регистр не учитывается)", "Поиск по первой букве", "а")

For i = 0 To 6

If optPole(i).Value = True Then intPole = i

Next

If intPole = -1 Then MsgBox "Не задано поле для поиска", vbCritical + vbOKOnly, strName: Exit Sub

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

If UCase(Left(lstZapis(intPole).List(i), 1)) = UCase(strSearch) Then

For j = 0 To 6

frmSearch.lstZapis(j).AddItem lstZapis(j).List(i)

Next

frmSearch.lstNumbers.AddItem i

End If

Next

If strSearch <> "" Then frmSearch.Show 1

End If

End Sub

Public Sub Help()

frmHelp.Show

End Sub

Public Sub Sort(strType As String, pole As Long)

Dim lng1 As Long

Dim lng2 As Long

If strType = "Up" Then

For lng1 = 0 To lstZapis(pole).ListCount - 1

For lng2 = lng1 To lstZapis(pole).ListCount - 1

If pole <> 4 And pole <> 6 Then

If lstZapis(pole).List(lng1) > lstZapis(pole).List(lng2) Then

Call Замена(lng1, lng2)

End If

Else

If Data_Sort(lstZapis(pole).List(lng1), lstZapis(pole).List(lng2)) = 1 Then

Call Замена(lng1, lng2)

End If

End If

Next

Next

End If

If strType = "Dwn" Then

For lng1 = 0 To lstZapis(pole).ListCount - 1

For lng2 = lng1 To lstZapis(pole).ListCount - 1

If pole <> 4 And pole <> 6 Then

If lstZapis(pole).List(lng1) < lstZapis(pole).List(lng2) Then

Call Замена(lng1, lng2)

End If

Else

If Data_Sort(lstZapis(pole).List(lng1), lstZapis(pole).List(lng2)) = 2 Then

Call Замена(lng1, lng2)

End If

End If

Next

Next

End If

End Sub

Public Sub Format(strType As String)

If strType = "Font" Or strType = "Size" Then

cdl1.Flags = cdlCFScreenFonts

cdl1.Action = 4

For i = 0 To 6

If cdl1.FontSize <> 0 Then lstZapis(i).FontSize = cdl1.FontSize

If Trim(cdl1.FontName) <> "" Then lstZapis(i).FontName = cdl1.FontName

lstZapis(i).FontBold = cdl1.FontBold

lstZapis(i).FontItalic = cdl1.FontItalic

lstZapis(i).FontStrikethru = cdl1.FontStrikethru

lstZapis(i).FontUnderline = cdl1.FontUnderline

Next

End If

If strType = "Color" Then

cdl1.Action = 3

For i = 0 To 6

lstZapis(i).ForeColor = cdl1.Color

Next

End If

End Sub

Public Function Quite() As Boolean

If MsgBox("Вы уверены, что хотите выйти?" + vbNewLine + "Все несохраненные данные будут потеряны", vbQuestion + vbYesNo, strName) = vbYes Then Quite = True Else Quite = False

End Function

Private Sub chkDop_Click()

If chkDop.Value = 0 Then

boolDop = False

frmDatabase.Width = 8625

frmDatabase.Picture = imgMain1.Picture

chkDop.Width = 529

lstZapis(6).Visible = False

optPole(6).Visible = False

mnuLongest.Visible = False

mnuTwoMonth.Visible = False

StatusBar1.Panels(1).Width = 500

Else

boolDop = True

frmDatabase.Picture = imgMain0.Picture

frmDatabase.Width = 10050

chkDop.Width = 617

lstZapis(6).Visible = True

optPole(6).Visible = True

mnuLongest.Visible = True

mnuTwoMonth.Visible = True

StatusBar1.Panels(1).Width = 600

End If

End Sub

Private Sub cmdTool_Click(Index As Integer)

If Index = 0 Then Call Create

If Index = 1 Then Call Open_File

If Index = 2 Then Call Save(0)

If Index = 5 Then

If lstZapis(1).ListIndex <> -1 Then Call Edit("Del", lstZapis(1).ListIndex)

End If

If Index = 4 Then

If lstZapis(1).ListIndex <> -1 Then Call Edit("Edt", lstZapis(1).ListIndex)

End If

If Index = 3 Then Call Edit("Add", 0)

If Index = 7 Then Call Search("Fst")

If Index = 6 Then

If lstZapis(0).ListCount > 0 Then frmDiagramms.Show

End If

If Index = 8 Then Call Help

If Index = 10 Then

For i = 0 To 6

If optPole(i).Value = True Then Call Sort("Up", i)

Next