Использование функций для обработки событий
Реферат - Компьютеры, программирование
Другие рефераты по предмету Компьютеры, программирование
заказе по его номеру.
Private Sub cmdFind1_Click()_Click()
Dim db As Database
Dim StrFilter As String
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Заказы", dbOpenTable)
rs.Index = "PrimaryKey"
rs.Seek "=", Me!txtOderID
If rs.NoMatch Then
MsgBox "Нет заказа с таким номером"
Exit Sub
Else
Код обработки данных о найденном заказе
End If
rs.Close
db.Close
End Sub
Задание №4
Усовершенствуем форму РезультатыПоиска, добавив возможность быстрого поиска сотрудника в таблице “Личныеданные” по его регистрационному номеру. В подчиненной форме должна отображаться только запись с данными о найденном лице либо выдаваться сообщение об отсутствии такого номера в базе.
Изменение данных в объекте Recordset.
Изменяемым может быть только динамический набор записей и таблица.
Для объектной модели DAO при добавлении записи необходимо:
- Выполнить метод AddNew, чтобы создать новую пустую запись и сделать ее текущей.
- Присвоить значения всем обязательным полям записи.
- Выполнить метод Update, чтобы сохранить внесенные изменения. Указатель текущей записи при этом снова перемещается на ту запись, на которой был установлен до применения метода AddNew.
Private Sub New_Click()
Dim rs As DAO.Recordset, dbCur As Database
Set dbCur = CurrentDb
Set rs = dbCur.OpenRecordset("Кадры", dbOpenDynaset)
rs.AddNew
rs!ТабельныйНомер = txtNome
rs!КодПодразделения = txtNumber
rs!Пол = cmbSex.Column(0)
………………………………………….................................
rs.Update
rs.Close
dbCur.Close
End Sub
Изменение существующей записи.
Для объектной модели DAO изменения текущей записи выполняются следующим образом:
- Вызывается метод Edit, который переводит запись в состояние изменения.
- Вносятся изменения в поля записи.
- Выполнить метод Update для сохранения внесенных изменений.
Private Sub Editrec_Click()
Dim rs As DAO.Recordset, dbCur As Database
Set dbCur = CurrentDb
Set rs = dbCur.OpenRecordset("Штатное расписание")
rs.MoveFirst
Do Until rs.EOF
If rs!КодПодразделения = CInt(Me!txtNumber) Then
rs.Edit
Задание новых значений для полей редактируемой записи
………………………………………….......................
rs.Update
End If
rs.MoveNext
Loop
rs.Close
dbCur.Close
End Sub
Удаление существующей записи.
Для удаления записи в наборе нужно сделать эту запись текущей и затем вызвать метод Delete. Запись без предупреждения удаляется из таблицы, автоматического перехода к новой записи не происходит.
………………………………………….......
Do Until rs.EOF
If rs! КодПодразделения = CInt(Me!txtNumber) Then
rs.Delete
End If
rs.MoveNext
Loop
…………………………………………........
Примечание: CInt(аргумент) функция преобразования типа. Возвращаемый тип Integer.
Задание №5
Создать форму Работасзапиями.
Реализовать процедуры, выполняющие соответственно добавление нового сотрудника в таблицу “Личныеданные”, редактирование данных существующего сотрудника (он определяется по регистрационному номеру), удаление существующей записи. При удалении организовать вывод сообщения, информирующего пользователя об удалении. В случае подтверждения намерений удалить запись она удаляется, а в противном случае нет.