А.Ю. Гончаров Access 2003 (960524), страница 40
Текст из файла (страница 40)
2))If nprom >= 10 And nprom < 20 ThenPsumpro - N10T$(nprom) + " миллиардов"ElseSelect Case Val(Right(tprom, 1})Case 0Psumpro - "миллиардов"Case 1Psumpro = "миллиард"Case 2, 3, 4Psumpro = "миллиарда"Case 5 To 9Psumpro = "миллиардов"End SelectPsumpro = N1T$(Val(Right(tprom, 1))) + " " + PsumproIf nprom >= 20 ThenPsumpro = LTrim(N20T$(Val(Mid(tprom.
2, 1))) + " " + Psumpro)End IfEnd IfIf Val(Left(tprom, 1)) > 0 ThenPsumpro = N100T$(Val(Left(tprom, 1))) + " " + LTrim(Psumpro)End Ifsurnpro = Psumpro + " " + LTrim(surnpro)End IfEnd IfEnd Ifsumpro - LTrim(sumpro)If Len(sumpro) > 2 Thensumpro = UCase(l_eft(sumpro, 1)) + Right(sumpro. Len(sumpro) - 1)End IfВывод копеекnkop = Round((Round(chislo, 2) - Fix(chislo)) * 100)If nkop - 0 Then sumpro - sumpro + " 00 коп,"If nkop > 0 And nkop < 10 Then sumpro = sumpro + " 0" + Trim(3tr(nkop)) +КОП. "If nkop > 9 And nkop < 100 Then sumpro = sumpro + Str(nkop) + " коп."СУМ_ПРО = sumproEnd FunctionFunction N1T$(n001)231232Глава 10Select Case n001Case 1N1T$ = "один"Case 2N1T$ = "два"Case 3N1T$ = "три"Case 4N1T$ = "четыре"Case 5N1T$ = "пять"Case 6N1T$ - "шесть"Case 7N1T$ = "семь"Case 8N1T$ - "восемь"Case 9N1T$ = "девять"End SelectEnd FunctionFunction М10Т$(п001)N10T$ = ""Select Case n001Case TON10T$ =Case 11"N10T$ =Case 12N107$ =Case 13N10T$ =Case 14N10T$ =Case 15N10TS =Case 16"десять""одиннадцать""двенадцать""тринадцать""четырнадцать"пятнадцать"N10T$ - "шестнадцать"Программирование233Case 17N10T$ = "семнадцать"Case 18N10T$ = "восемнадцать"Case 19N10T$ = "девятнадцать"End SelectEnd FunctionFunction N20T$(n001)N201$ = ""Select Case n001Case 2N20T$ = "двадцать"Case, 3N20T$ = "тридцать"Case 4N201$ = "сорок"Case 5N20T$ = "пятьдесят"Case 6N20T$ = "шестьдесят"Case 7N20T$ = "семьдесят"Case 8N20T$ = "восемьдесят"Case 9N20T$ = "девяносто"End SelectEnd FunctionFunction N100T$(n001)N1001$ = ""Select Case n001Case 1N1001$ = "сто"Case 2N1001$ = "двести"Case 3N1001$ = "триста"»234Глава 10Case 4N1007$ = "четыреста"Case 5N1001$ = "пятьсот"Case 6N1001$ = "шестьсот"Case 1N1001$ = "семьсот"Case 8N1001$ = "восемьсот"Case 9N1007$ = "девятьсот"End Select End FunctionПринцип работы функции довольно прост.
Числовое значение (аргумент) преобразуется в текстовую строку, а потом анализируется количество цифр (разрядов). В зависимости от числовых значений формируется строка из словс нужными падежными окончаниями. Необходимо предусмотреть все возможныеварианты, поэтому в функции много операторов If и Case. Для работы со строковыми данными используется ряд стандартных функций VB:Len{) - количество символов в строке;Str() - преобразование числа в строковую константу;Trim() - удаление ведущих и оконечных пробелов из строки;Ltrim() - удаление ведущих пробелов из строки;Left() - выбор левой части строки;Right() - выбор правой части строки;Mid{) - выбор из строки заданного числа символов, начиная с определеннойпозиции;UCase(} - преобразование строчных букв в заглавные;Пх{) - получение целой части числа;Round() - округление числа с заданной точностью;Val() - конвертация числа, записанного как строка, в числовое значение.Теперь функцию можно использовать.
Если у нас, к примеру, в форме(рис. 10.6) имеется поле Поле! со значением денежной величины, то для поля,в котором надо вывести «сумму прописью», надо задать такой источник данных:=СУМ_ПРО([Поле1])Программирование235Сумма:Сумма прописью:Запись: |ТГ| Ч |2378934^11Двадцать три миллиона семьсот восемьдесят девять тысяч триста сорок пять рублей 11 коп,Г * |TTj * * из 1Рис. 10.6. Вывод «суммы прописью» в форме10.6. Отладка программСуществует несколько способов поиска ошибок в неправильно работающей программе. В простейшем случае, если в программе встречается ошибка, ее выполнениеприостанавливается и на экран выводится окно модуля с текстом программы. Напротив строки, вызвавшей ошибку, устанавливается стрелка, а сама строка подсвечивается желтым, цветом. В некоторых случаях, когда это возможно.
Access выделяетцветом источник ошибки: например, имя неизвестной переменной. Дальнейшие действия определяются пользователем. Он может открыть окно отладки, чтобы проверить значения переменных, просмотреть стек вызова, чтобы понять, какиепроцедуры и функции активны в данный момент, попытаться продолжить выполнение программы по шагам. Разумным решением, на мой взгляд, служит попытка исправить текст программы и закрытие окна модуля. В этом случае выполнениепрерванной программы прекращается и ее можно будет запустить заново.Намного более результативным способом отладки является прерывание программы до момента возникновения ошибки, Это делается введением в текст процедуры точек останова.
На рис. 10.7 показана подпрограмма с установленнойточкой останова. Создать или удалить последнюю можно, щелкнув левее строкипрограммы. Кроме этого, для управления точками останова существует специальная кнопка. Теперь после запуска функции ее выполнение будет прервано,а на экран будет выведено окно модуля. Окно отладки в этом случае будет выглядеть примерно так же, но теперь можно будет, наводя мышь на переменны1,:, видеть их значения.Еще одним методом поиска ошибок является пошаговое выполнение программы.
Для этого надо открыть панель инструментов Debug и воспользоваться одной из кнопок, обеспечивающих выполнение кода по шагам.Глава 10236a lestl • Рогт_Максммйты1.1я Дчнна (Code)I Кнопка?i-JPrivate Sub Кнопка? C l i c k l ]1Накеим&лъная дяингэ полкOn ЕЕГОС GoTo Есг_КИапка''_С 1 ickDim Tab! Аз Recocdset ' №Й-|:9ип-эя таблицаDim Irn?a Аз StringD i m Stroka Is StringDim Dllna As Long ' к^ксинальная длинаDin 2ap As Lor.g ' sacuctj где длина строки максииа.тьнаDim TefcZap As LongIf Trita[Ke.Tablica) = •"* Than Exit SubIf T r i m t H e .
P o l e ) = "" Then Exit SubDlina * ОZap = QTekZap - 0Set TabJ. = CuEEEnCDb.OpanRecordsct (He .TablicaJUith TatolРис. 10.7. Процедура с созданной точкой остановаКнопка Step Into (Шаг с заходом) предполагает просмотр всех выполняемыхинструкций программы. Все операторы выполняются последовательно, как и приобычной работе программы. После каждого шага следует останов, о чем свидетельствует подсветка кода в окне модуля.
При вызове новой процедуры указательперемещается на ее текст, и она также выполняется по шагам.Кнопка Step Over (Шаг с обходом) позволяет выполнить всю программу быстрее,так как каждая вызываемая процедура выполняется за один шаг, то есть как одна инструкция Visual Basic. В этом режиме нельзя проследить выполнение всех вызванныхподпрограмм. Исключение составляет текущая подпрограмма: она и в этом случаебудет выполняться по шагам.Использовать кнопку Step Out (Шаг с выходом) имеет смысл, если вы находитесь в некоторой процедуре, выполняемой по шагам, но не хотите больше выполнять ее в таком режиме. Нажатие этой кнопки позволит выполнить оставшуюсячасть процедуры за один шаг.Все три кнопки используются независимо. После каждого шага вы можете решить, какую кнопку нажать следующей.
Для прекращения отладки используетсякнопка Reset (Сброс).Альтернативным и достаточно простым способом отладки можетбыть вставка в текст программы инструкций MsgBox с выводомзначений переменных. Это позволяет, например, определить, выполняется ли определенная ветвь программы.Программирование23710.7. Создание макросовДля разработки макропоследовательностей предусмотрена вкладка Макросыв окне базы данных. Как и для других объектов базы данных, для макросов предусмотрены два режима: конструирования и выполнения.
После нажатия кнопкиСоздать пользователь получает доступ к бланку макроса (рис. 10.3). В каждойстроке этой таблицы размещается одна макрокоманда. Для определения ее параметров пользователь должен заполнить предложенные программой формыв нижней части бланка. Чаще всего оператору СУБД удается определить всепараметры макрокоманды «по ходу дела», не штудируя.справочник.
Например,можно создать макрос для фильтрации данных в таблице. Конечно, в Access много замечательных средств, для того чтобы организовать фильтрацию, но удобствомакрокоманды ПрименнтьФильтр заключается в том, что в ней заранее определяется критерий фильтрации и запоминается вместе с макрокомандой. Можноиметь хоть сто макросов на разные случаи жизни. Они вызываются достаточнобыстро, а отменить их действие можно обычным способом, нажав кнопкуУдалить фильтр.На бланке макроса необходимо указать требуемое имя макрокоманды (в нашем случае ПрименитьФильтр) и затем записать условие фильтрации. Такое условие можно задать с помощью построителя выражений.
Для его запуска можноприменить команду Сервис => Макрос •=$ Выполнить макрос.После того как макрос написан, разработчик приложения или пользователь должен определить способ запуска макроса. Кроме тривиального пути - при помощименю Сервис - макросы можно вызывать, как уже упоминалось, программным путем (автоматически) или посредством элементов управления в формах и отчетах.Если макрос должен запускаться независимо от желания пользователя, то он долженбыть поставлен в соответствие некоторому событию, которое, в свою очередь, связано с определенным объектом.
При обсуждении форм и отчетов мы видели, как можносвязать с событием выполнение определенной процедуры. Точно так же для обработки событий используются и макросы. Достаточно при определении свойств объектав строке, соответствующей событию, указать имя макроса.Создадим для примера макрос, который позволит предварять открытие объекта базы данных некоторым сообщением, выводимым в окне диалога. Разобьем задачу на следующие этапы:1.Создайте макрос, состоящий из одной макрокоманды - Сообщение.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
