MS ACCESS
Мета роботи 727e48h
VisualBasic
Порядок виконання роботи 727e48h та методичні вказівки з її виконання
«Комитенты»:
Рисунок 1.1 - Вікно «Создание макроса»
Створення головної форми БД
» задайте - «Панель управления». В полі «Режим» задайте - «Форма». Збережіть макрос, надавши йому ім'я «AutoExec».
«Товары комитента»; задайте режим - «Просмотр»; у полі «Условие» введіть вираз [ФИО]=[Forms]![Комитенты]![ФИО].
Умова встановлює, що значення поля «ФИО» звіту повинно співпадати з значенням однойменного поля у формі «Комитенты». Вираз Forms визначає тип об'єкта. Наступний за іменем форми ! визначає ім'я управляючого елемента.
Рисунок 1.2 - Вікно «Создание модуля»
Option Compare Database
Option Explicit
Global Остаток As Currency, Сумма As Currency
Function Десятки(Разряд As Long) As String
Select Case Разряд
Case 2
Десятки = 'двадцать'
Case 3
Десятки = 'тридцать'
Case 4
Десятки = 'сорок'
Case 5
Десятки = 'пятьдесят'
Case 6
Десятки = 'шестьдесят'
Case 7
Десятки = 'семьдесят'
Case 8
Десятки = 'восемьдесят'
Case 9
Десятки = 'девяносто'
End Select
End Function
Function Единицы(Разряд As Long, Род As String) As String
Select Case Разряд
Case 1
If Род = 'Мужской' Then
Единицы = 'один'
Else Единицы = 'одна'
End If
Case 2
If Род = 'Мужской' Then
Единицы = 'два'
Else Единицы = 'две'
End If
Case 3
Единицы = 'три'
Case 4
Единицы = 'четыре'
Case 5
Единицы = 'пять'
Case 6
Единицы = 'шесть'
Case 7
Единицы = 'семь'
Case 8
Единицы = 'восемь'
Case 9
Единицы = 'девять'
Case 10
Единицы = 'десять'
Case 11
Единицы = 'одиннадцать'
Case 12
Единицы = 'двенадцать'
Case 13
Единицы = 'тринадцать'
Case 14
Единицы = 'четырнадцать'
Case 15
Единицы = 'пятнадцать'
Case 16
Единицы = 'шестнадцать'
Case 17
Единицы = 'семнадцать'
Case 18
Единицы = 'восемнадцать'
Case 19
Единицы = 'девятнадцать'
End Select
End Function
Function Сотни(Разряд As Long) As String
Select Case Разряд
Case 1
Сотни = 'сто'
Case 2
Сотни = 'двести'
Case 3
Сотни = 'триста'
Case 4
Сотни = 'четыреста'
Case 5
Сотни = 'пятьсот'
Case 6
Сотни = 'шестьсот'
Case 7
Сотни = 'семьсот'
Case 8
Сотни = 'восемьсот'
Case 9
Сотни = 'девятьсот'
End Select
End Function
Function Тысячи(Разряд As Long) As String
If Разряд = 1 Then
Тысячи = 'тысяча'
Else
If Разряд > 1 And Разряд < 5 Then
Тысячи = 'тысячи'
Else
Тысячи = 'тысяч'
End If
End If
End Function
Function Гривны(Разряд As Long) As String
If Разряд = 1 Then
Гривны = 'гривна'
Else
If Разряд > 1 And Разряд < 5 Then
Гривны = 'гривны'
Else Гривны = 'гривен'
End If
End If
End Function
Function СуммаПрописью(ОбщаяСумма As Long) As String
Dim Группа As Long, Разряд As Long, Длина As Integer
Dim Пропись As String
Сумма = ОбщаяСумма
Остаток = Сумма
If Группа <> 0 Then
Разряд = Группа 100
Пропись = Пропись & ' ' & Сотни(Разряд)
If Группа > 19 Then
Пропись = Пропись & ' ' & Десятки(Разряд)
End If
Пропись = Пропись & ' ' & Единицы(Разряд, 'Женский')
Пропись = Пропись & ' ' & Тысячи(Разряд)
End If
If Группа <> 0 Then
Пропись = Пропись & ' ' & Сотни(Разряд)
If Группа > 19 Then
Пропись = Пропись & ' ' & Десятки(Разряд)
End If
Разряд = Группа
Пропись = Пропись & ' ' & Единицы(Разряд, 'Женский')
Остаток = Остаток - Разряд
Пропись = Пропись & ' ' & Гривны(Разряд)
End If
End Function
.
У звіті «Лист продаж» додайте поле в область «Примечание отчета». Змініть надпис на «Сумма прописью». У полі введіть вираз, який викликає функцію модуля =СуммаПрописью(Sum([Цена])).
Для власної БД створіть відповідні макросі для відкриття форм та звітів, що були створені раніше. Створіть головну форму БД по типу „Панели управления” та організуйте дружній інтерфейс роботи 727e48h з Вашою БД. Приклад організації інтерфейсу з користувачем для БД індивідуальних телефонів міста дивись у додатку Б.
мету работи 727e48h висновки з роботи 727e48h .
MS Access
AutoExec
MS Access
|
