Функциональная схема курсового проекта
Вид формы № 1
Программа считывания базы данных в массив, вывода массива на форму, добавления и удаления записей
Private Sub Command1_Click () 'программа добавления записей.
Data1.Recordset.AddNew 'добавление записи в базу данных через Text1.
End Sub.
Private Sub Command2_Click ().
'программа удаления записей, предварительно введенной в Text1 с помощью.
'элемента управления Data1.
If MsgBox («Действительно удалить запись для «+ Data1.Recordset.Fields («FAM») + «?», vbYesNo) = vbYes Then.
Data1.Recordset.Delete 'удаление записи.
N = N — 1 'кол-во записей.
Data1.Recordset.MoveNext 'переход на следующую запись.
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast 'переход на последнюю запись.
End If.
End Sub.
Private Sub Command3_Click () 'удаление записи по заданному номеру.
Dim K As String 'номер удаляемой записи.
K = InputBox («Введите номер строки удаляемой записи»).
Data1.Recordset.MoveFirst 'переход на первую строку записи в базе данных.
Do While Text1 «» 'делать пока шифр не равен пустому.
If Text1 = K Then Data1.Recordset.Delete: GoTo 10 'если номер записи совпадает с К.
Data1.Recordset.MoveNext 'переход на последующие строки базы данных.
Loop.
10 Data1. Refresh 'Обновление базы данных.
End Sub.
Private Sub Command4_Click () 'считывание информации из базы данных.
N = 0 'кол-во записей в базе данных.
Data1.Recordset.MoveFirst 'переход на первую строку записи в базе данных.
Do While Text1 «» 'определение кол-ва строк в базе данных.
N = N + 1.
Data1.Recordset.MoveNext 'переход на последующие строки базы данных.
Loop.
ReDim MS (1 To N) As ZAP 'переобъявление массива записей.
Data1.Recordset.MoveFirst 'переход на первую строку записи в базе данных.
For I = 1 To N 'формирование массива записей.
With MS (I) 'подключение оператора присоединения.
.NP = Text1.
.TN = Text2.
.FAM = Text3.
.PROF = Text4.
.RAZR = Text5.
.CEH = Text6.
.VRB = Text7.
End With.
Data1.Recordset.MoveNext 'переход на последующие строки базы данных.
Next I.
For I = 1 To 7 'очистка экрана.
List1.Clear.
Next I.
For I = 1 To N 'вывод массива на форму.
With MS (I) 'подключение оператора присоединения.
List1.List (I — 1) = .NP.
List2.List (I — 1) = .TN.
List3.List (I — 1) = .FAM.
List4.List (I — 1) = .PROF.
List5.List (I — 1) = .RAZR.
List6.List (I — 1) = .CEH.
List7.List (I — 1) = .VRB.
End With.
Next I.
End Sub.
Private Sub Command5_Click () 'переход на форму 2.
Form1.Hide 'убрать форму с экрана.
Form2.Show 'отобразить форму на экране.
End Sub.
Private Sub Command6_Click () 'переход на форму 3.
Form1.Hide 'убрать форму с экрана.
Form3.Show 'отобразить форму на экране.
End Sub.
Private Sub Command7_Click () 'переход на форму 4.
Form1.Hide 'убрать форму с экрана.
Form4.Show 'отобразить форму на экране.
End Sub.
Private Sub Command8_Click () 'выход из проекта.
End.
End Sub.