Создание базы данных о студентах ВУЗа
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
; Выход" (Рис.11)
Рис.11
Нажмите на кнопку "Выход" на панели инструментов или закройте главную форму программы крестиком в правом верхнем углу, как обычное окно Windows и ответьте положительно на запрос подтверждения (Рис.12) для завершения работы с программой.
Рис.12
Несохраненные данные будут потеряны. В случае отрицательного ответа выход будет отменен.
3.2.12 Информация о программе
При переходе по меню "Справка -> О программе" (Рис.13)
Рис.13
Вы получаете доступ к форме "О программе MyDataBase" (Приложение 2. с.65). На ней кратко описана цель проекта, фамилия разработчика и об авторских правах.
3.2.14 Сообщения программы
1. Не задано поле для поиска.
Это означает, что вы обратились к поиску по первой букве, но не выделили поле. Поиск по первой букве не может быть осуществлен при не выбранном поле. Выбрать его можно, щелкнув по заголовку поля. При этом заголовок поля примет вид нажатой кнопки. Чтобы снять выделение поля, щелкните мышью на свободном месте главной формы. Заголовок вернется в нормальное состояние. Искать данные по первой букве можно только тогда, когда выделено одно из полей. 2. Введено нечисловое, дробное, слишком большое или слишком маленькое значение.
При добавлении или изменении записи может возникнуть эта ошибка. Она означает, что в поле "Оценка" введено не число. Оценка - это натуральное число в диапозоне от 0 (студент не явился) до 5 (отлично). Если оценка введена больше 5, то возникнет ошибка:
Границы ввода определяются контролем ввода. Правила ввода вы можете посмотреть на примере формы добавления записи. 3. Дата выдачи больше даты сдачи.
При добавлении или редактировании записей таблицы вы не можете указать дату выдачи работы более позднюю, чем дату сдачи. Студенты редко сдают работы раньше получения заданий.
ЛИТЕРАТУРА
- С.В. Глушаков А.С. Сурядный программирование на VB6.0 Фолио 2002г.
- С.И. Воронцов 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
""Then">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
""ThenMe.Caption=strName+"-"+OpenFile">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
""Then"> 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
""ThenMe.Caption=strName+"-"+OpenFile">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 =