Горев А., Макашарипов С., Ахаян Р. Эффективная работа с СУБД
Подождите немного. Документ загружается.
цикла. Как правильно записать в макросе названия других клавиш и их сочетаний можно узнать,
изучив длинную таблицу в справке к команде ON KEY LABEL после вызова контексной помощи.
Теперь, работая в редакторе, мы всегда можем нажать клавиши Ctrl+F и в программе у нас
автоматически появятся следующие три строчки:
FOR
NEXT
Программа в FoxPro - это текстовый файл, содержащий набор команд, написанных в
соответствии с синтаксическими правилами языка. Программа может иметь подпрограммы
(процедуры), в которые помещаются часто повторяющиеся фрагменты кода, размещаемые после
основного текста программы или в отдельном файле. Подпрограмма начинается с ключевого
слова
PROCEDURE ProcedureName
и выполняется, пока не будет выполнено одно из следующих условий:
• Еще раз встретится слово PROCEDURE.
• Будет обнаружена команда RETURN - возвращение в предыдущую программу.
• Будет выдана команда CANCEL - прерывание работы программы.
• Будет выдана команда QUIT - выход из СУБД.
• Встретится новая команда DO для запуска другой программы.
• Будет достигнут конец файла.
В FoxPro аналогично подпрограмме трактуется понятие пользовательской функции, которая
начинается с ключевого слова
FUNCTION FunctionName
и в отличие от процедуры, может вернуть необходимые значения в вызывающую программу.
Имеются четыре способа вызвать функцию:
1. Присвоить возвращаемое значение переменной. Например, следующая строка кода
запоминает текущую системную дату в переменной dToday:
dToday = DATE()
2. Включить вызов функции в команду. Например, следующая команда устанавливает по
умолчанию каталог, имя которого возвращает функция GETDIR():
SET DEFAULT TO GETDIR()
3. Напечатать возвращаемое значение в активное окно:
? TIME()
4. Вызвать функцию без запоминания где-либо возвращаемого значения:
SYS(2002)
Для прерывания выполнения программы служит оператор
RETURN [Expression | TO MASTER | TO ProgramName]
который возвращает управление в вызывающую программу, и в ней выполняется следующая
команда после вызывающей; если указана опция TO MASTER, то управление возвращается на
самый верхний уровень вызывающей программы, а эта же программа с опцией TO ProgramName
передает управление в указанную программу. При использовании в функции команда
автоматически возвращает .T., если не указано другое выражение на месте Expression.
RETRY
действует подобно команде RETURN, но при возвращении управления в вызывающую
программу повторяется выполнение последней команды.
Создайте новый программный файл и наберите в редакторе приведенный ниже текст. В этой
программе объявляется массив, элементы которого принимают значения от 1 до 10. Каждое
присвоение значения сопровождается появлением на экране сообщения с указанием
присвоенной величины. Посмотрите на сообщения, выводимые этой программой на экран.
* Пример простейшей программы
DIMENSION aSampleArray(10)
converted to PDF by HupBaH9I
FOR nItem = 1 TO 10
aSampleArray(nItem) = nItem
= Append_proc()
NEXT
FUNCTION Append_proc
? "В массив добавлено новое значение "
?? nItem
Если эта программа показалась вам слишком примитивной, то без сомнения вы правы. По
мере чтения книги и расширения лексического запаса языка (набора команд и функций), вы
сможете сочинять куда более полезные вещи.
Теперь посмотрим на Visual Basic. Это средство разработки настолько сфокусировано на
визуальных возможностях разработки программ, что написать вручную несколько строк кода,
запустить их на выполнение и тут же увидеть результат не так просто для начинающего
программиста, как в Visual FoxPro. Однако попробуем это сделать.
Начнем с задания команды Options меню Tools. В появившемся диалоговом окне настройки
конфигурации Visual Basic выберем вкладку Project (рис. 4.5). В раскрывающемся списке Startup
Form вместо значения, установленного по умолчанию, - Form1, выберем Sub Main. Значение
Form1 обеспечивает запуск в качестве главной программы визуальной формы с этим именем по
умолчанию. Значение Sub Main позволяет в качестве запускаемой программы использовать
процедуру.
Рис. 4.5.
Создадим в проекте программный модуль путем выполнения команды Module в меню Insert.
Потом в этом же меню выполним команду Procedure. В появившемся диалоговом окне,
converted to PDF by HupBaH9I
показанном на рис. 4.6, напишем имя создаваемой процедуры - Main, для типа процедуры
выберем Sub, а для диапазона действия - Public. После нажатия кнопки OK в окне программного
модуля появится шаблон, готовый для написания программного кода.
Рис. 4.6.
Здесь следует заметить, что редактор в Visual Basic по своим функциальным возможностям и
принципам работы с текстом программы похож на редактор Visual FoxPro. В Visual Basic нет
макросов, зато редактор обеспечивает выделение цветом ключевых слов, строк с ошибками и т.
д. Цвет в редакторе существенно помогает избежать случайных ошибок. При этом вы можете
сами устанавливать цвет для различных ситуаций, как это видно из рис. 4.7, на котором
показано диалоговое окно Options, открытое на вкладке Editor.
converted to PDF by HupBaH9I
Рис. 4.7.
Теперь мы можем попробовать создать простейшую программу по аналогии с той, которую мы
написали в Visual FoxPro. В окне программного модуля в раскрывающемся списке Proc выберите
пункт (declarations), как это показано на рис. 4.8.
converted to PDF by HupBaH9I
Рис. 4.8. Пример простейшей программы в Visual Basic
Наберите следующую строчку для объявления используемого массива и переменной как целых
чисел:
Dim aSampleArray(10), nItem As Integer
Переключитесь в раскрывающемся списке Proc на пункт Main и наберите следующий текст:
Public Sub Main()
For nItem = 1 To 10
aSampleArray(nItem) = nItem
Append_proc
Next
End Sub
Теперь создадим новую процедуру с помощью команды Procedure меню Insert и в ней запишем
код для функции, которая будет отображать процесс заполнения массива:
Private Function Append_proc()
Debug.Print nItem
End Function
Запустим нашу программу на выполнение командой Start в меню Run. Можно воспользоваться
и соответствующей кнопкой на панели инструментов или просто нажать клавишу F5.
В отличие от Visual FoxPro в Visual Basic нельзя направить вывод результатов выполнения
программы в главное окно. Его просто нет. Сначала надо создать какое-то окно, обычно в виде
формы, а затем уже в него направлять вывод данных. Чтобы не усложнять нашу задачу, мы
сознательно выбрали простейший вариант, используя для вывода окно отладки (Debug Window).
Для этого перед командой Print необходимо указать через точку Debug. Для того чтобы увидеть
результат, откройте окно отладки командой Debug Window в меню View.
Обратите внимание, что коды программ в Visual FoxPro и в Visual Basic очень похожи; код
Visual Basic может легко читаться программистом, знающим только Visual FoxPro, и наоборот. В то
же время существуют и определенные различия, которые с увеличением сложности программы
разрастаются. Посмотрите на команды вызова функции и объявления переменных - в Visual Basic
в отличие от Visual FoxPro мы должны явно объявить все используемые переменные и указать их
тип.
Что касается СУБД Access, то, как мы уже говорили, многие воспринимают ее как типичное
средство создания личных информационных систем, предусматривающее использование только
имеющихся в Access диалоговых средств. Поэтому пользователи часто останавливаются на
результатах, достигнутых с помощью визуальных средств разработки, и считают, что
самостоятельное создание таблиц, не говоря уже о создании форм и отчетов, это нечто из ряда
вон выходящее. На самом деле все не совсем так, и стоит относиться к Мастерам как к
converted to PDF by HupBaH9I
чернорабочим, которые строят каркас здания, а отделкой лучше заниматься самостоятельно.
Программистов при переходе к Access из процедурного языка или среды с командной строкой
обычно удручает отсутствие непосредственной возможности написать команду или процедуру,
создать базу данных и при желании добавить тем же путем таблицы, формы или отчеты. При
первом запуске Access этой возможности действительно нет. Вы не можете написать ни строчки
кода, пока не создадите базу данных или не откроете уже созданную.
Вы можете создать какую-либо процедуру после открытия контейнера БД. Для создания
программ в Access используется язык программирования Visual Basic, о котором мы уже говорили.
Перейдите на страницу Модули контейнера базы данных и создайте новый модуль. Меню Access
слегка видоизменится. Надо привыкнуть, что меню динамически меняется, то есть при смене
объекта, с которым вы работаете, загружается новое меню.
Теперь можно набрать следующую строчку
Sub Ясоздаюбазуданныхвручную()
Не забудьте, что каждая процедура должна заканчиваться командой End Sub, но набирать эту
строчку не обязательно - после нажатия клавиши Enter она появится автоматически.
Ваша процедура должна выглядеть следующим образом:
Sub ЯсоздаюБазуДанныхВручную()
Dim MyDb As DATABASE
Set MyDb =_ DBEngine.Workspaces(0).CreateDatabase("МояБазаДанных",_ dbLangCyrillic)
End Sub
Чтобы запустить эту процедуру на исполнение, выведите на экран окно отладки и наберите в
нем название процедуры, возможно, у вас она будет называться по-другому. После этого можете
смело нажимать клавишу ввода, уверяем, что база данных у вас появится.
Для того чтобы в программе можно было разобраться хотя бы на следующий день после
написания, не ленитесь писать комментарий к выполняемым действиям. Для написания строк
комментария в Visual FoxPro надо в начале строки поставить "звездочку"
* [Comments]
Знак звездочки часто используется также для разделения отдельных смысловых фрагментов
программы. Строки комментария нельзя вставлять внутрь команды, если, например, она
написана на нескольких строчках с использованием символа переноса - точки с запятой.
При написании комментария на одной строке с командой текст команды и комментария
разделяется двумя амперсендами:
&& [Comments]
Эти знаки можно опустить только после команд, начинающихся на END.
В Visual Basic признаком комментария является знак апострофа:
[Comments]
Он может применяться и в начале строки, и после команды на одной строке с ней.
Признаком переноса командной строки в Visual Basic является знак подчеркивания, а в Visual
FoxPro - точка с запятой.
4.3. "Горячая десятка"
Если вы следовали руководящим указаниям авторов, то вам не трудно написать простейшую
программу. Если вы написали даже очень простую программу, то вы, несомненно, можете
сказать, что являетесь программистом. Если вы являетесь программистом, то пришла пора
заглянуть в красивую коробку, в которой, мы надеемся, вы принесли от продавца Access, Visual
Basic или Visual FoxPro, и вместо Руководства пользователя вытащить оттуда Руководство
программиста. Если после всего этого у вас упало настроение и стало рябить в глазах от длинных
списков многочисленных объектов, команд и функций, не надо впадать в отчаяние.
В этом параграфе мы попробуем взять реванш у разработчиков Microsoft за их неуемную
фантазию. Возьмем на вооружение успехи лингвистов в деле составления частотных словарей,
вообразим себя обладателями опыта составителей музыкальных хит-парадов и составим
"горячую десятку" - расскажем о тех командах и функциях, которые сразу продвинут вас в деле
написания программ далеко вперед.
10. Пока мы учимся программировать, нам очень поможет самая простая команда вывода
данных в Visual FoxPro
? | ?? Expression
Мы даем здесь не полный ее синтаксис, так как эта команда вряд ли пригодится вам для чего-
то более виртуозного, чем вывод нужного значения в процессе разработки и отладки прикладной
программы. Ее очень удобно набирать в окне Command. Один знак вопроса всегда выводит
значение выражения Expression с новой строки, два знака вопроса - на той же строке. В Visual
Basic этой команде в наибольшей степени соответствует конструкция
converted to PDF by HupBaH9I
Debug.Print Expression
которая выводит значение Expression в окно отладки Debug Window.
9. Для запуска программы или для передачи управления другой программе в Visual FoxPro
дайте команду Do из меню Program и выберите файл с нужным именем, или в окне Command
наберите команду
DO ProgramName1 | ProcedureName [WITH ParameterList] [IN ProgramName2]
Если в ProgramName1 расширение не указывается, то Visual FoxPro будет пытаться запустить
эту версию программы в следующей последовательности расширений для файла с одним и тем
же именем:
• EXE - исполняемая версия.
• APP - прикладная программа.
• FXP - откомпилированная версия.
• PRG - программа.
Опция WITH используется для передачи параметров (заранее определенных данных) в
программу (число параметров не должно превышать 27). По умолчанию параметры передаются
по ссылке, для передачи по значению необходимо установить SET UDFPARMS TO VALUE. В
ProgramName2 можно указать файл, в котором размещается вызываемая программа.
В Visual Basic сходные задачи выполняет команда
Call Name([ParameterList])
Как ее использовать покажем на примере вызова на выполнение подпрограммы:
Call PrintToDebugWindow("Печать в окне отладки")
Sub PrintToDebugWindow(cString)
Debug.Print AnyString
End Sub
8. Ранее мы научились определять в программе нужные нам переменные с требуемым типом
данных. При обработке данных программисту в силу различных причин часто приходится
преобразовывать данные из одного типа в другой.
В языке программирования Visual FoxPro для этого существует большое количество функций,
из которых наиболее часто используемыми можно назвать следующие:
STR(nExpression [, nLength [, nDecimalPlaces]])
Преобразует числовое выражение nExpression в строку символов. Необязательные параметры
nLength и nDecimalPlaces позволяют задать длину и число десятичных разрядов соответственно.
VAL(cExpression)
Преобразует в число строку символов, представляющую собой набор цифр.
В Visual Basic существуют аналогичные функции:
Str(nExpression)
Val(cExpression)
7. Трудно представить себе программу обработки данных, в которой программисту не
пришлось бы с этими данными хоть что-то делать. С числами все просто. В этой области мы
постоянно тренируем себя при посещении магазинов. Суммы растут, тренировки становятся все
более напряженными. Сложнее с символьными данными. И здесь мы должны включить в
почетную десятку хотя бы основные функции для работы со строками.
В Visual FoxPro по частоте употребления можно выделить следующие функции:
SUBSTR(cExpression, nStartPosition [, nCharactersReturned])
Возвращает фрагмент строки символов из строкового выражения cExpression, начинающийся с
позиции nStartPosition и длиной nCharactersReturned.
LEFT(cExpression, nExpression)
Возвращает из строкового выражения cExpression фрагмент, включающий первые nExpression
символов.
RIGHT(cExpression, nExpression)
Возвращает из строкового выражения cExpression фрагмент, включающий последние
nExpression символов.
ALLTRIM(cExpression)
Исключает все начальные и конечные пробелы из строкового выражения.
В Visual Basic существуют аналогичные функции:
converted to PDF by HupBaH9I
Mid(cExpression, nStartPosition [, nCharactersReturned])
Left(cExpression, nExpression)
Right(cExpression, nExpression)
Trim(cExpression)
6. При работе с данными нам постоянно приходится думать об их "свежести", поэтому мы
никак не можем обойти вниманием функции, связанные с определением текущей даты и
времени.
В Visual FoxPro для этого можно использовать следующие функции:
Для определения текущей даты
DATE()
Для определения текущего времени
TIME([nExpression])
Для определения текущей даты и времени в формате дата и время
DATETIME()
Если в функции TIME() в качестве выражения задать любую числовую величину, значение
текущего времени будет возвращено с сотыми долями секунд, хотя тогда лучше уж обратиться к
функции SECONDS().
В Visual Basic существуют аналогичные функции:
Date
Time
Now
5. В том случае, если необходимо многокpатно выполнять какой-либо блок команд, пока
выполняется заданное условие, может быть использована команда, которая в Visual FoxPro
выглядит вот так
DO WHILE lExpression Commands [LOOP] [EXIT]
ENDDO
Каждый раз, когда программа достигает строки с командой DO WHILE, она проверяет
значение выражения lExpression, и если оно равно .T., то выполняются команды внутри
структуры, если .F., то управление передается строке, следующей за ENDDO. Опция LOOP
позволяет после ее указания вернуть управление к строке DO WHILE, а опция EXIT - прекратить
выполнение цикла, невзирая на значение lExpression.
Наиболее часто в качестве условия используют выражения:
• DO WHILE .NOT. EOF() - до исчерпания записей в таблице;
• DO WHILE nMin<<10 .AND. nMax>>100 - пока переменная nMin меньше 10 и переменная
nMax больше 100;
• DO WHILE .T. - бесконечно выполняемый цикл (выход только по EXIT).
Естественно, что в случае использования опций LOOP и (или) EXIT перед ними должны быть
записаны свои условия их выполнения (чаще всего команда IF...ENDIF). Приведем простой
пример организации цикла для реакции на действия пользователя.
DO WHILE .T.
CLEAR
WAIT "Наберите цифру 1 или 2" TO cNumber
DO CASE
CASE cNumber = "1"
? "Вы набрали цифру 1"
CASE cNumber = "2"
? "Вы набрали цифру 2"
OTHERWISE
? "Ошибка: введенное значение не 1 или 2!"
ENDCASE
WAIT "Хотите попробовать еще раз (Y/N)" TO cYesNo
IF UPPER(cYesNo) <<>> "Y"
EXIT
ENDIF
ENDDO
converted to PDF by HupBaH9I
В этом примере для обеспечения ввода пользователем данных используется простейший
вариант команды WAIT, которая приостанавливает работу программы и после нажатия
пользователем какой-либо клавиши присваивает значение этой клавиши переменной, указанной
в опции TO.
В Visual Basic для записи этой команды надо использовать один из следующих эквивалентных
вариантов синтаксиса:
Do [{While | Until} Expression] [Commands] [Exit Do] [Commands]
Loop
или
Do [Commands] [Exit Do] [Commands]
Loop [{While | Until} Expression]
Как правильно использовать эту команду, видно из следующего примера:
lCheck = True
nCounter = 0
Do ` Первый (внешний) цикл
Do While nCounter << 20 ` Второй (внутренний) цикл
nCounter = nCounter + 1
If nCounter = 10 Then
lCheck = False
Exit Do ` Выход из второго цикла
End If
Loop
Loop Until lCheck = False ` Выход из первого цикла
4. Если мы запишем в программу некую последовательность команд, то они будут выполняться
построчно от начала до конца программы. Вряд ли таким образом мы сможем написать мощную
программу, которая должна обрабатывать действия пользователя в зависимости от тех или иных
условий. Нам потребуются средства для управления последовательностью выполнения команд.
Наиболее простое ветвление программы в зависимости от заданного условия можно
обеспечить командой, синтаксис которой в Visual FoxPro записывается в следующем виде:
IF lExpression
Commands
[ELSE
Commands]
ENDIF
В качестве условия может быть использовано любое выражение, в том числе и логическое. На
месте команд, в свою очередь, может стоять снова команда IF (вложенное условие). Если
выражение равно .T., то выполняются команды, заключенные между IF и ELSE. Если .F., то
выполняются команды, следующие за ELSE, а в том случае, если эта необязательная опция ELSE
в команде не используется, выполняются команды, следующие за ENDIF.
В Visual Basic эту команду можно записать на одной строке:
If lExpression Then Commands [Else Commands]
или в более сложном виде:
If Expression Then
[Commands]
[ElseIf Expression_n Then
[Commands]] ...
[Else
[Commands]]
End If
Если выражение Expression имеет значение True, выполняются команды, следующие за
ключевым словом THEN. В противном случае выполняется один из блоков, в котором
converted to PDF by HupBaH9I
Expression_n будет соответствовать выражению Expression. Если и этого не произойдет, будет
выполнен блок команд, следующих за ключевым словом ELSE.
Для выбора по условию очень эффективно можно использовать функцию, которая по смыслу
похожа на рассматриваемую команду и имеет совершенно одинаковый синтаксис как в Visual
FoxPro, так и в Visual Basic
IIF(lExpression, Expression1, Expression2)
Возвращает значение Expression1, если lExpression =.T., и значение Expression2, если
lExpression =.F.; Expression1 и Expression2 должны быть одного типа, например:
TITLE = IIF(nSign=0,"автомобиль","автопоезд") + cModel
Эта функция может использоваться и для выбора выполняемых подпрограмм, например:
cProc_var = IIF(nVid>>5,cProc_1,IIF(nVid<<2,cProc_2,cProc_3))
DO (cProc_var)
Здесь, в зависимости от значения переменной nVid, будет выполняться та или другая
процедура, причем для увеличения числа вариантов в качестве Expression2 используется еще
одна - вложенная функция IIF(). Использование этой функции для программного ветвления, там
где это возможно, значительно увеличивает быстродействие программы и делает ее значительно
меньше, чем при употреблении команды IF...ENDIF.
3. Более сложное ветвление, когда есть несколько условий, в зависимости от которых надо
выполнить ту или иную группу команд, организуется стpуктуpной командой, которая в Visual
FoxPro выглядит так:
DO CASE
CASE lExpression1
Commands
[CASE lExpression2
Commands]
...
[OTHERWISE
Commands]
ENDCASE
Команда выполняет проверку условий, заданных в операторах CASE. Они просматриваются
последовательно сверху вниз, и, как только первое из них оказывается верным (логическое
выражение равно .T.), выполняется блок команд для этого CASE, после чего управление
передается строке программы, следующей за ENDCASE. Если ни одно из условий не истинно,
выполняется опция OTHERWISE, пpи отсутствии этой опции команда игнорируется.
Например:
nChoice = 3
DO CASE
CASE nChoice = 1
? "Выбрано значение 1"
CASE nChoice = 2
? "Выбрано значение 2"
OTHERWISE
? "Выбрано неправильное значение!"
RETURN
ENDCASE
В Visual Basic синтаксис этой структурной команды организован несколько по-иному:
Select Case Expression
[Case Expression_n
[Commands]] ...
[Case Else
[Commands]]
End Select
Выполняются те блоки CASE, в которых выражение Expression_n соответствует выражению
Expression. Если такого соответствия не обнаруживается, то выполняется блок CASE ELSE.
Приведенный выше пример можно записать примерно так:
converted to PDF by HupBaH9I