рефераты конспекты курсовые дипломные лекции шпоры

Реферат Курсовая Конспект

Решение задачи

Решение задачи - Лабораторная Работа, раздел Изобретательство, Разработка проекта базы данных ms access   3.1 Организация Удаления Данных Из Бд. Если Вы Прави...

 

3.1 Организация удаления данных из БД.

Если вы правильно определили все связи в БД и включили режим поддержания целостности данных, то Access гарантирует, что для несуществующего студента Вы не введете ни одной оценки. Access поддерживает целостность данных, удаляя записи из таблиц "Результаты" после удаления записи из "Студенты". Это происходит потому, что при определении параметров связи между таблицами был установлен режим каскадного удаления записей.

Тем не менее существует вероятность того, что может понадобиться запись о студенте, который уже не числится в институте. Для этого необходимо перехватывать запросы на удаление сведений о студенте с целью предоставить возможность сохранить данные о нем и его оценках в архиве института.

Чтобы создать такую программу, откройте форму "Задолженность" в режиме конструктора, выведите на экран бланк свойств и щелкните по ячейке свойства On Delete. Щелкните по кнопке построителя справа от ячейки и выберите построитель программ. При этом откроется модуль с шаблоном процедуры-подпрогаммы Form_Delete.

Текст процедуры должен иметь следующий вид (каждая инструкция должна располагаться на одной строке ─ в данном тексте это не выдержано ):

Sub Form_Delete (Cancel As Integer)

 

'данная процедура вызывается при попытке удаления данных из' "Задолженность" и дает возможность отменить удаление.

Если удаление не отменено, то проверяется наличие оценок для' данного студента и предлагается удалить их с возможностью сохранения ‘в архиве Dim strNewLine As String

Dim intMsgRtn As Integer, varReturnVal As Variant

Dim dbMyBase As Database, tblArchive As TableDef

Dim fldMyField As Field

Dim rcdArchive As Recordset, rcdWays As Recordset

If DCount("Номер_С", "[Задолженность]",

"[Номер_С]" = Me![Номер_С]) = 0 Then

используем функцию MsgBox для того, чтобы узнать, действительно ли хотят удалить информацию. Второй аргумент ─ 33 ─ указывает на то, что окно сообщения будет содержать 2 кнопки OK и Cancel и ‘предупреждающий значок. При нажатии OK функция возвращает ─ 1, Cancel ─ приводит к отмене события, вызвавшего процедуру.

Для более полной информации воспользуйтесь справкой

If MsgBox ("Вы действительно хотите удалить информацию ?", 33, "Удаление информации") <> 1 Then Cancel = True Exit Sub End If End If

если оценки есть strNewLine = Chr(13) & Chr$(10)

проверяем, нужно ли сохранять записи о оценках в архиве

intMsgRtn = MsgBox ("Существуют оценки для студента ")

& Me![Номер_С] & strNewLine

& "Вы хотите сохранить их в архиве ?", 33, "Удаление информации об оценках")

переменная dbMyBase ссылается на текущую базу данных

Set dbMyBase = DBEngine.Workspaces(0).Databases(0)

а rcdWays - на набор записей таблицы "Результаты"

Set rcdWays = dbMyBase.OpenRecordset("Результаты")

If intMsgRtn = 1 Then если выбрано сохранение в архиве переход к

следующей инструкции в случае возникновения ошибки

On Error Resume Next

rcdArchive - указатель на набор записей таблицы "Архив",

если она существует

Set rcdArchive = dbMyBase.OpenRecordset("Архив")

проверка ошибки

Select Case ErrCase 0

ошибки нет - таблица должна существовать

On Error GoTo 0 'отключение перехвата ошибки проверяем, есть ли необходимость очистить архив или просто дописать записи в конец

intMsgRtn = MsgBox("Архив уже существует." & strNewLine

& "Хотите ли Вы его очистить ?", 52) If intMsgRtn = 6 Then

' если ответ был ─ Да

DoCmd SetWarnings False 'отключаем предупреждение 'Запуск макрокоманды для удаления строк

DoCmd RunSQL "Delete * From Архив;"

DoCmd SetWarnings True 'включаем предупреждения

End If Case 3011 'таблица не найдена

On Error GoTo 0 'отключаем режим перехвата ошибок' создаем таблицу

Set tblArchive = dbMyBase.CreateTableDef("Архив") 'создаем поле

Set fldMyField = tblArchive.CreateField("Отправка", DB_TEXT)

fldMyField.Size = 20

'присоединяем поле к семейству полей новой таблицы tblArchive.Fields.Append fldMyField

'создаем поле Set fldMyField = tblArchive.CreateField ("Дата_отпр", DB_DATE)

'присоединяем поле к семейству полей новой таблицы tblArchive.Fields.Append fldMyField

'создаем поле

Set fldMyField = tblArchive.CreateField ("Фамилия", DB_TEXT, 20) 'присоединяем поле к семейству полей новой таблицы tblArchive.Fields.Append

fldMyField' создаем поле

Set fldMyField = tblArchive.CreateField("Дата_приб", DB_DATE)

'присоединяем поле к семейству полей новой таблицы tblArchive.Fields.Append fldMyField

'создаем поле

Set fldMyField = tblArchive.CreateField("Средний балл", DB_INTEGER)

'присоединяем поле к семейству полей новой таблицы

tblArchive.Fields.Append fldMyField

'создаем поле

Set fldMyField = tblArchive.CreateField ("Оцека_П", DB_BYTE) 'присоединяем поле к семейству полей новой таблицы tblArchive.Fields.Append fldMyField

'создаем поле

Set fldMyField = tblArchive.CreateField("Вес", DB_BYTE) 'присоединяем поле к семейству полей новой таблицы tblArchive.Fields.Append fldMyField

'создаем поле

Set fldMyField = tblArchive.CreateField("Оценка_Л", DB_BYTE)

'присоединяем поле к семейству полей новой таблицы tblArchive.Fields.Append fldMyField

'создаем поле

Set fldMyField = tblArchive.CreateField ("Оценка_Т", DB_TEXT, 10)

'присоединяем поле к семейству полей новой таблицы tblArchive.Fields.Append fldMyField

'добавление новой таблицы к семействуTableDefs текущей БД dbMyBase.TableDefs.Append tblArchive

'определение набора записей для таблицы архива

Set rcdArchive = dbMyBase.OpenRecordset("Архив")

Case Else 'если не удается идентифицировать ошибку 'выдаем сообщение и завершаем работу процедуры

MsgBox ("=хшчтхёЄэр ю°шсър" & Err & Error$(Err))

Exit Sub

End Select

'инициализация индикатора выполнения программы в строке состояния varReturnVal = SysCmd(SYSCMD_SETSTATUS, "Работа с архивом") DoCmd Hourglass True 'включение песочных часов

rcdWays.MoveFirst 'перемещение на первую запись набора номера студента

'организовываем цикл просмотра записей оценок'для нахождения нужной

While Not rcdWays.EOF

'если номер записи совпадает с его значением в форме

If Me![Номе6р_С] = rcdWays("Номер_С") Then

'переписываем данные в архив ─ rcdArchive.AddNew

rcdArchive("Фамилия") = rcdWays("Средний балл") rcdArchive("Оцека_П") = rcdWays("Оценка_П") rcdArchive("Оценка_Л") = rcdWays("Оценка_Л") rcdArchive ("Оценка_Т") = rcdWays ("Оценка_Т") rcdArchive ("Домашний адрес") = rcdWays ("Домашний адрес")

rcdArchive.Update

'сохраняем сделанные изменения в архиве rcdWays.Delete 'удаляем соответствущую запись из "Задолженность"

End If

rcdWays.MoveNext 'перемещаемся на следующую запись

Wend

rcdArchive.Close 'закрываем набор записей архива MsgBox ("Удаление с записью в архив произведено 'если нужно просто удалить записи данные, это 'выполнит Access rcdWays.Close 'заркываем набор записей студентов End If

DoCmd Hourglass False 'выключение песочных часов 'переустановим строку статуса

varReturnVal = SysCmd(SYSCMD_SETSTATUS, " ")

Cancel = False

End Sub

Работу по удалению остальных данных выполнит Access. Чтобы при работе снова не было диалога на предмет отмены удаления, так как проверка уже произведена нами, то для этого в бланке свойств формы "Задолженность"

аналогичным образом создадим процедуру для свойства Before Del Confirm. Sub Form_BeforeDelConfirm (Cancel As Integer, Response As Integer) 'Access может продолжать работу по удалению без выдачи сообщения Response = DATA_ERRCONTINUE

End Sub

 

3.2 Добавим еще одну процедуру обработки событий этой формы, которая

выполняется в ответ на событие On Current (От записи к записи). Оно происходит каждый раз, когда Вы перемещаетесь к другой строке, включая перемещение на новую запись. Так как при переходе на новую запись через кнопки навигации не устанавливается соответствующее значение в поле с выпадающим списком и открытая форма "Средний балл" не изменяет текущую запись на соответствующую текущей записи "Задолженность", то определим следующий текст процедуры:

Sub Form_Current ()

'при переходе на новую запись поле "Номер Студента"'должно содержать то же значение, что и "Номер_С"

Me![Номер студента] = Me![Номер_С]

'если перешли на новую строку,

'то устанавливаем переменную intNewRow

If IsNull(Me![Ном_знак]) Then intNewRow = True

Else intNewRow = False

'если загружена форма "Средний балл", 'то загружаем ее с нужными данными If Not IsLoaded ("средний балл") Then Exit Sub

DoCmd RunMacro "Задолженность.Средний балл"

End Sub

 

3.3 Так как существует вероятность того, что студент какое-то время может не учиться (взять академику, повтору, декретный отпуск), то для корректного хранения информации необходимо написать обра­ботку события On Delete для формы "Средний балл":

Sub Form_Delete (Cancel As Integer)

так как у нас связь между студентом и предметом один-ко-многим

Dim intMsgRtn As Integer, strNewLine As String Dim dbMybase As Database, fldMyField As Field Dim rcdDriver As

Recordset strNewLine = Chr(13) & Chr$(10) выдача сообщения об очистке с возможностью отмены intMsgRtn = MsgBox ("При удалении оценок")

& Me![Номер_С] & strNewLine & остается без оценок. & strNewLine

& Очистить запись?, 33, Удаление оценок )

если удаление подтверждено

If intMsgRtn = 1 Then

устанавливаем переменные Set dbMybase = DBEngine. WorkSpaces(0). Databases(0)

Set rcdDriver = dbMybase.OpenRecordset(оценки,

DB_OPEN_DYNASET) перемещаемся на первую запись набора

rcdDriver.MoveFirst

организовываем цикл просмотра набора записей While Not rcdDriver.EOF

при нахождении нужной записи производим очистку If rcdDriver("Номер_С") = Me![Номер_С] Then

rcdDriver.Edit

rcdDriver(Фамилия) = rcdDriver(Имя) =

rcdDriver(Отчество) = rcdDriver(Дата рождения) = Null rcdDriver (Домашний адрес) = Null rcdDriver и производим сохранение изменений

rcdDriver.Update

End If

Перемещаемся на следующую запись набора rcdDriver.MoveNext

Wend

закрываем набор записей

rcdDriver.Close

выдаем сообшение

MsgBox (Удаление произведено)

закрываем форму

DoCmd Close A_FORM, Задолженность

End If

отменяем событие удаления для Access

Cancel = TrueEnd Sub

4. Результаты работы.

Результатом выполнения данной работы являются:

─тексты модулей на языке Access Basic, автоматизирующих Ваше

приложение.

─отчет с кратким описанием проделанной работы.


– Конец работы –

Эта тема принадлежит разделу:

Разработка проекта базы данных ms access

Введение.. лабораторная работа разработка проекта базы данных ms access лабораторная работа..

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Решение задачи

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

Постановка задачи
1. Импортировать данные для таблиц разрабатываемой БД. 2. Экспортировать информацию из БД для обработки в других приложениях. 3. Выполнить присоединение внешних таблиц к разрабаты

Предмет
Номер_С     перетащив их в бланк QBE.

Результаты работы
В результате выполнения лабораторной работы были созданы запросы, производящие выборку требуемых данных из базы STUD, на основе которых в следующих ЛР будет разрабатываться законченное приложение.

Результаты работы
  В результате выполнения лабораторной работы были созданы запросы к базе данных STUD, производящие выборку данных из таблиц в требуемом формате, а также производящие различные модифи

Краткие теоретические сведения
1.1. Формы являются основным средством организации интерфейса пользователя в приложениях Microsoft Access, так как используется для: ─ вывода и редактирования данных; ─

Сортировка и группировка
  Но имеются следующие специфичные кнопки: − Всплывающее меню «Вид» имеет кнопку "Образец", которая выводит страницу с данными, генерируемыми Access, для уско

Краткие теоретические сведения
1.1 Одним из способов автоматизации приложения является использование макросов. Макросы могут вызываться в ответ на многие виды событий: изменение данных, открытие или закрытие формы или о

Постановка задачи
  2.1 Освойтесь с основными принципами построения макросов. 2.2 На основе своего приложения создайте макросы, обрабатывающие события Ваших форм и отчетов и выполнение различн

Результаты работы
Результатом выполнения данной работы являются: ─ тексты макросов, выполняющих заданные функции; ─ отчет с кратким описанием проделанной работы. Прилож

Краткие теоретические сведения
  Хотя макросы являются мощным средством, все-таки есть задачи, которые невозможно выполнить с помощью макросов.   1.1 База данных может содержать 2 вида модуле

Хотите получать на электронную почту самые свежие новости?
Education Insider Sample
Подпишитесь на Нашу рассылку
Наша политика приватности обеспечивает 100% безопасность и анонимность Ваших E-Mail
Реклама
Соответствующий теме материал
  • Похожее
  • Популярное
  • Облако тегов
  • Здесь
  • Временно
  • Пусто
Теги