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

БД СУБСИДИИ

Содержание

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

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

Слайд 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

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

Алмазная красота Алмазная красота 165
Проект «Я и моё здоровье» Проект «Я и моё здоровье» 612
Профессиональное общение медика. Конфликты в медицине Профессиональное общение медика. Конфликты в медицине 703
80. СОВЕТСКИЙ ТЫЛ В ГОДЫ ВОЙНЫ 80. СОВЕТСКИЙ ТЫЛ В ГОДЫ ВОЙНЫ 306
ОСНОВИ ВВОДУ / ВИВОДУ ОСНОВИ ВВОДУ / ВИВОДУ 411
РИСУНОК экзамен за 2 семестр 1 курса РИСУНОК экзамен за 2 семестр 1 курса 191
Режим дня Режим дня 236
English Presentation “ Ukraine ” Dolynska himnasium From - 8 B Daria English Presentation “ Ukraine ” Dolynska himnasium From - 8 B Daria 198
35.03.07 Технология производства и переработки сельскохозяйственной продукции 35.03.07 Технология производства и переработки сельскохозяйственной продукции 329
1 УФНС России по Кировской области Отмена ЕНВД с 2021 года. Альтернативные 1 УФНС России по Кировской области Отмена ЕНВД с 2021 года. Альтернативные 172
Детали механизмов и машин Лекция № 2 Доцент кафедры основ конструирования Детали механизмов и машин Лекция № 2 Доцент кафедры основ конструирования 193
Марат Оспанов атындағы Батыс Қазақстан мемлекеттік медицина университеті Марат Оспанов атындағы Батыс Қазақстан мемлекеттік медицина университеті 234
Суармалы картоп шаруашылығындағы ылғал ресурус үнемдегіш технология c ы Суармалы картоп шаруашылығындағы ылғал ресурус үнемдегіш технология c ы 360
Социализация детей с ОВЗ Социализация детей с ОВЗ 265
Вариант 2 Вариант 2 180
Хакасский государственный университет им.Н.Ф.Катанова Кафедра хирургии с курсом Хакасский государственный университет им.Н.Ф.Катанова Кафедра хирургии с курсом 264
Самостоятельная работа Самостоятельная работа 165
КОВРИК ИЗ ПОМПОНОВ Выполнила: Глинина Дарья, учащаяся МБОУ Гайнская КОВРИК ИЗ ПОМПОНОВ Выполнила: Глинина Дарья, учащаяся МБОУ Гайнская 191
Основы менеджментаПроф. кафедры экономики и управления Мотышина М.С. Основы менеджментаПроф. кафедры экономики и управления Мотышина М.С. 211
Радиоприем на сверхвысоких частотах Радиоприем на сверхвысоких частотах 815

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

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

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

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

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

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

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