Формы в БД

@igo1ka · Регистрация: 29.10.2019

Студворк — интернет-сервис помощи студентам

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

Форма на основе SQL-запроса
1. Скопируем созданную форму под именем "Информация о тревогах SQL". Удалим из формы все поля кроме даты, времени, пультового номера.
2. В окне Свойства выберем События–Загрузка, и перейдем в среду VBA. Запишем код процедуры, вызываемой при загрузке формы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
Dim dbs As Database  'объектная переменная для БД
Dim strSQL As String  'строка для хранения запроса
Set dbs = CurrentDb 'присваиваем dbs текущую БД
'формируем строку SQL-запроса
strSQL = "SELECT Alarm.date_alarm, Alarm.time_alarm, Object.pult_number " & _
"FROM Object INNER JOIN Alarm ON Object.kod_object = Alarm.kod_object " & _
"ORDER BY Alarm.date_alarm;"
'определяем источник записей формы
Me.RecordSource = strSQL 
Me.cap_sum.Caption="Всего сработок: "& 
Me.Recordset.RecordCount
End Sub

3. В приведенном коде Ме означает текущую форму, Me.RecordSource – свойство определяющее источник записей в виде SQL–запроса.
4. Откроем форму. Если все сделано правильно, то результат аналогичен
5. Продолжим совершенствовать форму, реализовав подсчет записей. Добавим в Примечание формы Элемент управления Надпись "Всего Сработок", присвоив имя cap_sum (Свойства–Другие–Имя).
6. Также уберем кнопки перехода (Свойства – Макет – Кнопки перехода – Нет), Примечание формы оформим как Утопленное (Свойства–Макет–Оформление). Теперь форма будет иметь вид

Вложение 1

Передача значений элементов управления в SQL–запрос
1. Дополним форму возможностью выбора диапазона дат при фильтрации запроса, что равносильно заданию условия в запросе по полю date_alarm. Скопируем созданную форму под именем "Информация о тревогах SQL фильтр".
2. Добавим на форму два элемента управления типа Поле (с подписями: Начало: и Окончание: и именами fld_start, fld_finish, соответственно), и кнопку (подпись – Go). Установим для полей Макет – Формат поля в Краткий формат даты, Макет–Отображать элемент выбора даты в Никогда. Данные–Маска ввода в 00.00.0000;0;_.
3. Теперь необходимо в SQL–запросе, являющимся источником записей задать условие на диапазон дат, взяв их значения из fld_start и fld_finish. Аналогичные действия надо выполнить по нажанию на кнопку. Процедура загрузки будет содержать следующий код

Вложение 2

4. Процедура обработки нажатия кнопки отличается от загрузочной только отсутствием строк инициализации полей с датами.
5. Вид получившейся формы в режимах Конструктора и Просмотра приведен

Вложение 4

Моя База данных
Буду очень благодарен отозвавшимся помочь!

Вложение 4

бд.zip

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .