Пакет прикладных программ для управления медиатекой. Тексты программ

А.В.00001-01 33 01-1-ЛУ

1. Аналогично по всем полям, организованным в форме списка:

Private Sub DateP_NotInList(NewData As String, Response As Integer) ‘ Процедура отсутствия в списке значения

MsgBox "Извините, но у нас нет произведений с такой датой создания" ‘Сообщение при вводе значения, которого нет в списке

End Sub

2. Реакция на нажатие кнопки «Поиск»:

Private Sub Кнопка17_Click()

Dim dbs As Database ’Объявление переменных

Set dbs = CurrentDb ' Определение текущей БД

 If IsNull([FIO]) Then ‘Проверка на пустоту строки ФИО

 MsgBox "Укажите свою фамилию"

 Else

   If IsNull([NameP]) And IsNull([KeyP]) And IsNull([LangP]) And IsNull([DateP]) And IsNull([CountryP]) And IsNull([TypeP]) Then ‘Проверка строк на пустоту

   MsgBox "Укажите хотя бы один критерий поиска"

   Else

     DoCmd.OpenForm "Units" ‘При правильном вводе открытие формы «Units»

     End If

     End If

  End Sub

3. Процедура кнопки «Сделать заказ»:

В этой процедуре происходит добавление носителей в заказ клиента. Здесь параметры носителя записываются в таблицу «UsingUnits» - носители на руках.

Private Sub Кнопка25_Click()

Dim dbs As Database, rst As Recordset

Dim code As Long

Set dbs = CurrentDb                              'Определение текущей БД (глобальная переменная)

‘Проверка равенства текущего кол-ва и кол-ва на складе

If Me![Current] = Me![Common] Then   MsgBox "Операция не может быть выполнена"

 Else

   Set rst = dbs.OpenRecordset("UsingUnits", dbOpenDynaset)

      With rst                                             ‘Добавляем новые значения в таблицу UsingUnits

          .AddNew                                         ‘добавление новой строки

            ![Kod_k] = Forms![Main].[kod_p]‘Добавление кода клиента

            ![Kod_u] = Me![Kod_u]            ‘Добавляем код носителя

            ![Datagive] = Date                     ‘ Выставление текущей даты

             .Update                                      ‘Обновляем форму

       End With

       rst.Close

         Set rst = dbs.OpenRecordset("Units", dbOpenTable) ‘Установка в качестве переменной окружения таблицы Units

      With rst                                                                ‘Присваиваем значения

        .Index = "Kod_u"                                               ‘Имя требуемого поля

        .Seek "=", Me![Kod_u]                                      ‘Значение требуемого поля из формы

        .Edit

‘К значению текущего количества прибавляем единицу

        ![CountCurrent] = ![CountCurrent] + 1                   

        .Update                                        ‘Обновляем

        End With

       rst.Close

  Me.Refresh 'Обновляем форму

‘Выдается сообщение об успешном добавлении

       MsgBox "этот носитель добавлен в ваш заказ"

  End If

End Sub

4. Процедура кнопки «Отказаться от заказа» имеет следующий вид:

Процедура позволяет удалить заказанные носители из таблицы «UsingUnits».

Private Sub Кнопка7_Click()

Dim dbs As Database, rst As Recordset

Dim strFilter As String

Dim code As Integer

Set dbs = CurrentDb                         'Определение текущей БД

‘Определение таблицы, с которой работает форма

Set rst = dbs.OpenRecordset("UsingUnits", dbOpenTable)    

    With rst

        .Index = "Kod_usingunit"            ‘Присваивание значения кода носителя

        .Seek "=", Me![Kod_usingunit]

        .Edit

        ![Datataken] = Date                     ‘Определение даты

        .Update                                         ‘Обновление

        End With

       rst.Close

 Set rst = dbs.OpenRecordset("Units", dbOpenTable)    ‘‘Устанавливаем переменную окружения таблицу «Units»

  With rst

        .Index = "Kod_u"                      

        .Seek "=", Me![Kod_u]              ‘Присваивание кода носителя в форму Units

        .Edit

‘От текущего значения отнимаем единицу для определения количества выданных экземпляров

        ![CountCurrent] = ![CountCurrent] – 1     

        .Update                                       ‘Обновление

        End With

       rst.Close

  Me.Refresh 'Обновляем форму

  MsgBox "Заказ отменен"       ‘Сообщение об успешном удалении

End Sub

5. Процедура кнопки «Вернуть носитель»:

Private Sub Кнопка7_Click()

Dim stDocName As String

Dim stLinkCriteria As String

Dim dbs As Database, rst As Recordset

Dim strFilter As String

Dim code As Integer

Set dbs = CurrentDb                                 'Определение текущей БД (глобальная переменная)

‘Определение таблицы для работы

Set rst = dbs.OpenRecordset("UsingUnits", dbOpenTable)   ‘Устанавливаем переменную окружения таблицу «Usingunits»

    With rst