Создание базы данных о студентах ВУЗа
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
? те же действия, но в другую сторону :-)
2) Поменять иконки в имидж-листе на форме frmDatabase. Они распространяются сразу на всю программу
----------------------------------------
Option Explicit
Public Const strName = "MyDataBase" Название программы. Также поменять в меню: разработать - MyDataBase свойства
Public Const strDescription = "Программа MyDataBase предназначена для работы с базой данных о студентах, выполняющих лабораторные работы." + vbNewLine + "Автор программы Масляев Евгений. Студент 2-ого курса ИТД КФ МГТУ им. Н. Э. Баумана." + vbNewLine + "Дизайнер: Серегин Арсеий. Студент 2-ого курса ФКДиР МГУП. Год создания программы: 2006" Краткое описание
Public Const strDisclaimer = "Авторские права на расширения файлов защищены...производителями Microsoft Access :-)" Предупреждение
Public Const strРасширение = "mdb" Расширение файлов программы
Public Const intВсегоПолей As Integer = 6 Количество полей одной записи
Public strПоле(intВсегоПолей) As String
Public Sub init()
Названия всех полей
strПоле(0) = "Студент"
strПоле(1) = "Группа"
strПоле(2) = "Название курса"
strПоле(3) = "Название работы"
strПоле(4) = "Дата сдачи"
strПоле(5) = "Оценка"
strПоле(6) = "Дата выдачи"
------------------------------------------
For i = 0 To intВсегоПолей
frmDatabase.optPole(i).Caption = strПоле(i)
Next
frmDatabase.Caption = strName
frmDatabase.Icon = frmDatabase.imlButtons.ListImages(12).Picture
End Sub
modData
Option Explicit
Public i As Long
Public j As Long
Public lngNumberOfEdit As Long
Public strSearch As String
Public intPole As Integer
Public OpenFile As String
Public Zapis As DataBase
Public boolDop As Boolean
поменять тип в соответствии с заданием
Public Type DataBase
Студент As String * 50
Группа As String * 8
Курс As String * 50
Работа As String * 50
Дата_сдачи As String * 50
Оценка As Byte
Дата_выдачи As String * 50
End Type
Public Function Date_raz(date1 As String, date2 As String) As Long
Dim ldate1 As Long
Dim ldate2 As Long
ldate1 = CLng(Left(date1, 2)) + 30 * CLng(Mid(date1, 4, 2)) + 365 * CLng(Right(date1, 4))
ldate2 = CLng(Left(date2, 2)) + 30 * CLng(Mid(date2, 4, 2)) + 365 * CLng(Right(date2, 4))
Date_raz = ldate1 - ldate2
End Function
modInspect
Option Explicit
Public NumError As String
Public Const numNumeric As String = "Введено нечисловое значение"
Public Const numДробь As String = "Введено дробное значение"
Public Const numUpLim As String = "Введено слишком большое значение"
Public Const numDownLim As String = "Введено слишком маленькое значение"
Public Function Number(str As String, Дробь As Boolean, Limits As Boolean, DownLim As Double, UpLim As Double) As Boolean
Dim i As Byte
Dim c As String * 1
Dim boolДробь As Boolean
boolДробь = False
If Not IsNumeric(str) Then Number = False: NumError = numNumeric: Exit Function
For i = 1 To Len(str)
c = Mid$(str, i, 1)
If c = "," Or c = "." Then boolДробь = True
Next
If boolДробь = True And Дробь = False Then Number = False: NumError = numДробь: Exit Function
If Limits = True Then
If CDbl(str) > UpLim Then Number = False: NumError = numUpLim: Exit Function
If CDbl(str) < DownLim Then NumError = numDownLim: Exit Function
End If
NumError = ""
Number = True
End Function
ПРИЛОЖЕНИЕ 2
Формы программы
frmStart
rmDatabase
frmAdd
frmEdit
frmDiagramms
frmSearch
frmHelp
frmAbout