Разделы презентаций

БД СУБСИДИИ

Содержание

БД содержит три таблицы – РАЙОНЫ, ХОЗЯЙСТВА и СУБСИДИИ. Таблица СУБСИДИИ содержит ссылки на таблицы РАЙОНЫ и ХОЗЯЙСТВА.

Слайды и текст этой презентации

Слайд 1

Слайд 2БД содержит три таблицы – РАЙОНЫ, ХОЗЯЙСТВА и СУБСИДИИ.
Таблица

СУБСИДИИ содержит ссылки на таблицы РАЙОНЫ и ХОЗЯЙСТВА.

БД содержит три таблицы – РАЙОНЫ, ХОЗЯЙСТВА и СУБСИДИИ. Таблица СУБСИДИИ содержит ссылки на таблицы РАЙОНЫ и

Слайд 3Форма СУБСИДИИ – столбчатая, т.е. каждая
запись открывается в отдельном окне.

Две формы - ленточные

Форма СУБСИДИИ – столбчатая, т.е. каждаязапись открывается в отдельном окне. Две формы - ленточные

Слайд 4Группа 56
ПолеСоСписком29
Надпись19

Группа 56ПолеСоСписком29Надпись19

Слайд 5‘Код события ТЕКУЩАЯ ЗАПИСЬ формы СУБСИДИИ
Private Sub Form_Current()
If Me.Группа56 =

3 Then ‘значение ВСЕ
Me.ПолеСоСписком29.Visible = False
Me.Надпись19.Visible

= False
Else
Me.ПолеСоСписком29 = Me.код_субсидии
Me.ПолеСоСписком29.Requery
End If
End Sub

Объект “ActiveX объект MS Date and Time Picker Control” привязан к полю ДАТА таблицы СУБСИДИИ

‘ Код события ПРИ ОБНОВЛЕНИИ DTPicker5
Private Sub DTPicker5_Updated(Code As Integer)
Me.Дата = Me.DTPicker5
End Sub

Процедура ПРИ ОБНОВЛЕНИИ заносит выбранное в элементе DTPicker значение в поле ДАТА формы СУБСИДИИ

‘Код события ТЕКУЩАЯ ЗАПИСЬ формы СУБСИДИИPrivate Sub Form_Current()If Me.Группа56 = 3 Then ‘значение ВСЕ Me.ПолеСоСписком29.Visible =

Слайд 6Функция Choose возвращает значение из списка аргументов в зависимости от

значения 1-го аргумента.

Функция Choose возвращает значение из списка аргументов в зависимости от значения 1-го аргумента.

Слайд 7Private Sub Группа56_AfterUpdate()
Select Case Me.Группа56
Case 1
Me.ПолеСоСписком29.Visible = True

Me.Надпись19.Visible = True
‘ настройка и активизация фильтра
Me.Filter

= "[вид субсидии]='Региональная'"
Me.FilterOn = True
Me.ПолеСоСписком29.Requery
Case 2
Me.ПолеСоСписком29.Visible = True
Me.Надпись19.Visible = True
‘ настройка и активизация фильтра
Me.Filter = "[вид субсидии]='Федеральная'"
Me.FilterOn = True
Me.ПолеСоСписком29.Requery
Case 3
Me.ПолеСоСписком29.Visible = False
Me.Надпись19.Visible = False
‘ деактивизация фильтра
Me.FilterOn = False
End Select
End Sub

Код события ПОСЛЕ ОБНОВЛЕНИЯ объекта ГРУППА56

Private Sub Кнопка67_Click()
DoCmd.OpenForm "Субсидии_ленточная", , , , acFormPropertySettings
End Sub

Событие на кнопке ОТКРЫТЬ ФОРМУ ДЛЯ СОРТИРОВКИ СУБСИДИЙ

Private Sub Группа56_AfterUpdate()Select Case Me.Группа56Case 1 Me.ПолеСоСписком29.Visible = True Me.Надпись19.Visible = True‘ настройка и активизация

Слайд 8‘свойство ДАННЫЕ Поле30
=Sum([Сумма субсидии])
Поле30
‘ Свойство ИСТОЧНИК СТРОК поля ПолеСоСписком22
SELECT DISTINCT

Субсидии.код_хозяйства, хозяйства.[наименование хозяйства] FROM хозяйства INNER JOIN Субсидии ON хозяйства.код_хозяйства

= Субсидии.код_хозяйства;

ПолеСоСписком22

ПолеСоСписком29

‘свойство ДАННЫЕ Поле30=Sum([Сумма субсидии])Поле30‘ Свойство ИСТОЧНИК СТРОК поля ПолеСоСписком22SELECT DISTINCT Субсидии.код_хозяйства, хозяйства.[наименование хозяйства] FROM хозяйства INNER JOIN

Слайд 9ПолеСоСписком22
ПолеСоСписком29
‘ Событие ПОСЛЕ ОБНОВЛЕНИЯ ПолеСоСписком22
Private Sub ПолеСоСписком22_AfterUpdate()
If Not IsNull([Forms]![Субсидии_ленточная]![ПолеСоСписком22]) Then

Dim s As String
s = "[код_ района]="

& [Forms]![Субсидии_ленточная]![ПолеСоСписком22]
Me.Filter = s
Me.FilterOn = True
End If
End Sub

‘ Событие ИЗМЕНЕНИЕ ПолеСоСписком22
Private Sub ПолеСоСписком22_Change()
Me.ПолеСоСписком22.ForeColor = black
Me.ПолеСоСписком29.ForeColor = gray
End Sub

ПолеСоСписком22ПолеСоСписком29‘ Событие ПОСЛЕ ОБНОВЛЕНИЯ ПолеСоСписком22Private Sub ПолеСоСписком22_AfterUpdate()If Not IsNull([Forms]![Субсидии_ленточная]![ПолеСоСписком22]) Then Dim s As String s

Слайд 10‘ Событие на кнопке УДАЛИТЬ ФИЛЬТРЫ
Private Sub Кнопка23_Click()
Me.ПолеСоСписком29 = Null
Me.ПолеСоСписком22

= Null
Me.ПолеСоСписком29.ForeColor = black
Me.ПолеСоСписком22.ForeColor = black
Me.FilterOn = False
End Sub
‘ Событие

на кнопке ПРИМЕНИТЬ ОБА ФИЛЬТРА
Private Sub Кнопка27_Click()
s = "[код_ района]=" & Nz([Forms]![Субсидии_ленточная]![ПолеСоСписком22])
s1=“[код_хозяйства]=" & Nz([Forms]![Субсидии_ленточная]![ПолеСоСписком29])
Me.Filter = s & s1
Me.ПолеСоСписком22.ForeColor = black
Me.ПолеСоСписком29.ForeColor = black
Me.FilterOn = True
End Sub

ПолеСоСписком22

ПолеСоСписком29

‘ Событие на кнопке УДАЛИТЬ ФИЛЬТРЫPrivate Sub Кнопка23_Click()Me.ПолеСоСписком29 = NullMe.ПолеСоСписком22 = NullMe.ПолеСоСписком29.ForeColor = blackMe.ПолеСоСписком22.ForeColor = blackMe.FilterOn =

Слайд 11‘ Событие на кнопке СОРТИРОВАТЬ
Private Sub Кнопка15_Click()
Dim prev As

Control, strsql1, s As String, rst1 As Recordset
Set prev =

Screen.PreviousControl
Select Case prev.Name
Case "код_ района"
strsql1="SELECT Субсидии.код_субсидии, Субсидии.Дата, Субсидии.[№ платёжного поручения], Субсидии.[код_района], Субсидии.код_хозяйства, Субсидии.[Вид субсидии], Субсидии.[Сумма субсидии] FROM хозяйства INNER JOIN (районы INNER JOIN Субсидии ON районы.код_района=Субсидии.[код_ района]) ON хозяйства.код_хозяйства = Субсидии.код_хозяйства ORDER BY районы.[наименование района]"
Case "код_хозяйства"
strsql1 = "SELECT Субсидии.код_субсидии,Субсидии.Дата, Субсидии.[№ платёжного поручения], Субсидии.[код_ района], Субсидии.код_хозяйства, Субсидии.[Вид субсидии], Субсидии.[Сумма субсидии] FROM хозяйства INNER JOIN (районы INNER JOIN Субсидии ON районы.код_района = Субсидии.[код_ района]) ON хозяйства.код_хозяйства = Субсидии.код_хозяйства ORDER BY хозяйства.[наименование хозяйства]"
Case "дата", "№ платёжного поручения", "Вид субсидии", "сумма субсидии"
strsql1 = "SELECT Субсидии.код_субсидии,Субсидии.Дата, Субсидии.[№ платёжного поручения], Субсидии.[код_ района], Субсидии.код_хозяйства, Субсидии.[Вид субсидии], Субсидии.[Сумма субсидии] FROM Субсидии order by [" & prev.Name & "]"
End Select
Set rst1 = CurrentDb.OpenRecordset(strsql1, dbOpenDynaset)
Set Me.Recordset = rst1
prev.SetFocus
End Sub
‘ Событие на кнопке СОРТИРОВАТЬPrivate Sub Кнопка15_Click() Dim prev As Control, strsql1, s As String, rst1 As

Слайд 12Private Sub №_платёжного_поручения_DblClick(Cancel As Integer)
DoCmd.OpenForm "Субсидии", , , , acFormPropertySettings
Select

Case [Forms]![Субсидии_ленточная]![Вид субсидии]
Case "Региональная"
[Forms]![Субсидии]!Группа56 = 1
[Forms]![Субсидии].Filter

= "[вид субсидии]='Региональная'"
[Forms]![Субсидии]!ПолеСоСписком29.Visible = True
[Forms]![Субсидии]!Надпись19.Visible = True
Case "Федеральная"
[Forms]![Субсидии]!Группа56 = 2
[Forms]![Субсидии].Filter = "[вид субсидии]='Федеральная'"
[Forms]![Субсидии]!ПолеСоСписком29.Visible = True
[Forms]![Субсидии]!Надпись19.Visible = True
Case Else
[Forms]![Субсидии]!Группа56 = 3
End Select
[Forms]![Субсидии].FilterOn = True
[Forms]![Субсидии]!ПолеСоСписком29 = Me.код_субсидии
[Forms]![Субсидии]!ПолеСоСписком29.Requery

Dim rs As Object
Set rs = [Forms]![Субсидии].Recordset
rs.FindFirst "[код_субсидии] = " & Nz(Me![код_субсидии]) ‘Форма субсидии_ленточная
End Sub

Событие на двойном нажатии на поле “№ платежного поручения”

Private Sub №_платёжного_поручения_DblClick(Cancel As Integer)DoCmd.OpenForm

Похожие презентации

Проблема становления древнерусского права на примере Русской Правды Проблема становления древнерусского права на примере Русской Правды 207
10 Природные ресурсы земной коры 10 Природные ресурсы земной коры 566
Осень в лесу Осень в лесу 382
Отчет СПб ГБУ Дом молодежи Рекорд за период сентябрь 2018 – май 2019 Отчет СПб ГБУ Дом молодежи Рекорд за период сентябрь 2018 – май 2019 215
health-and-illnesses teacher switcher health-and-illnesses teacher switcher 219
Бюджетное профессиональное образовательное учреждение Орловской Бюджетное профессиональное образовательное учреждение Орловской 194
Тренировочные упражнения по орфографии Тренировочные упражнения по орфографии 243
Микроскопия осадков мочи Микроскопия осадков мочи 538
Олимпийские игры в Древнем мире Олимпийские игры в Древнем мире 220
Автор: Карпушкина Алена Игоревна ученица 6 класса МБОУ Зарубинская Автор: Карпушкина Алена Игоревна ученица 6 класса МБОУ Зарубинская 187
Понятие алгоритмов, свойства алгоритма. Исполнители алгоритмов, система команд Понятие алгоритмов, свойства алгоритма. Исполнители алгоритмов, система команд 196
Дизайн-проект по преобразованию столовой школы № 1985 Дизайн-проект по преобразованию столовой школы № 1985 258
Вязание крючком. Инструменты и материалы Вязание крючком. Инструменты и материалы 168
Давайте нарисуем лебедя 3 класс Давайте нарисуем лебедя 3 класс 215
Задание 6 Задание 6 175
Социология как наука Социология как наука 193
Население России Состав населения: национальный и религиозный Навигация Население России Состав населения: национальный и религиозный Навигация 223
МОРФОЛОГИЯ МИКРООРГАНИЗМОВ МОРФОЛОГИЯ МИКРООРГАНИЗМОВ 595
Музыкальный инструмент Музыкальный инструмент 160
Основные определения, элементы и параметры электрических цепей Основные определения, элементы и параметры электрических цепей 313

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.

Для правообладателей

Яндекс.Метрика