Dim a As Integer
a=recquant-1
If a<=0 Then
MsgBox "вы просмотрели базу до начала", 48, "СТОП"
Exit Sub
End If
recquant=recquant-1
izmen.fam.Text=basa.basa(recquant).famnum
izmen.dol.Text=basa.basa(recquant).dolnum
izmen.okl.Text=basa.basa(recquant).oklnum
izmen.nomer.Caption=recquant
End Sub
Private Sub sled_Click()
Dim a As Integer
a=recquant+1
If a>=11 Then
MsgBox "вы просмотрели базу до конца", 48, "СТОП"
Exit Sub
End If
recquant=recquant+1
izmen.fam.Text=basa.basa(recquant).famnum
izmen.dol.Text=basa.basa(recquant).dolnum
izmen.okl.Text=basa.basa(recquant).oklnum
izmen.nomer.Caption=recquant
End Sub
Private Sub zakr_Click()
Unload izmen
glav.Enabled=True
Glav.SetFocus
End Sub
12. Поскольку действия, выполняемые кнопкой ОК практически аналогичны действиям, выполняемым кнопкой записать в окне запись, то добавим в модуль проекта еще одну процедуру izmrecinput:
Public Sub izmrecinput ()
Dim strvar As String
recquant=izmen.nomer.Caption
Glav.spisok.RemoveItem recquant-1
basa(recquant).famnum=izmen.fam.Text
strvar=basa(recquant).famnum & ""
basa(recquant).dolnum=izmen.dol.Text
strvar=strvar+basa(recquant).dolnum & ""
basa(recquant).oklnum=izmen.okl.Text
strvar=strvar+basa(recquant).oklnum
Glav.spisok.AddItem strvar, recquant-1
End Sub
В событийную процедуру для кнопки ОК запишем строку вызова процедуры izmrecinput:
|
|
Private Sub okbut_Click()
Call izmrecinput