Горев А., Макашарипов С., Ахаян Р. Эффективная работа с СУБД

Подождите немного. Документ загружается.

SQLStr="SELECT * FROM Account WHERE account = ? AND_ summa >> ?"

Set myprepst=myrdConn. CreatePreparedStatement("FromAccount",SQLStr)

'Далее мы можем подставить значения параметров

myprepst.rdoParameters(0)=104

myprepst.rdoParameters(1)=25000

Set myrdRst=myprepst._ OpenResulset(rdOpenDynamic,rdConcurValues)

Вернемся к методу OpenResultset, а точнее к его аргументу Type, который может иметь одно из

четырех значений типа Integer.

Значение Получаемый тип набора данных

rdOpen-

ForwardOnly

Объект rdoResultset, в котором поиск

записей может производиться только

сверху вниз (от первой к последней

записи). Указатель записи нельзя

вернуть назад к первой записи,

одновременно доступна только одна

запись. Наборы данных такого типа

используются для быстрого выбора и

обработки данных

rdOpenStatic

Порядок и значения в наборе данных

статического курсора фиксируются при

его открытии. Изменения, добавления и

удаления, произведенные другими

пользователями, не будут появляться до

закрытия и последующего открытия

курсора.

RdOpen-

Keyset

Результат запроса может иметь

изменяемые строки. Допускается

перемещаться между записями. Этот

набор данных вы можете использовать,

чтобы добавлять, изменять или удалять

данные из соответствующей таблицы

или таблиц. Членство этого набора

данных фиксировано.

RdOpen-

Dynamic

Результат запроса может иметь

изменяемые строки. Допускается

перемещаться между записями. Этот

набор данных вы можете использовать,

чтобы добавлять, изменять или удалять

данные из соответствующей таблицы

или таблиц. Членство этого набора

данных не фиксировано.

Выбирайте значение аргумента в зависимости от требуемой функциональности. Если вам не

нужно редактировать данные на сервере, то имеет смысл выбирать значение rdOpenForwardOnly.

То есть если вы строите отчет за какой-то период, то вам нет смысла отслеживать изменения,

которые произойдут в течение следующего промежутка времени. Если же программа помогает

продавать железнодорожные билеты, то ей постоянно нужны свежие данные о количестве

свободных мест. Наиболее надежным в этом плане является динамический тип набора данных,

но с ним и тяжелее всего работать.

Следующий аргумент LockType служит для контроля за блокировками страниц, которые

содержат редактируемую или записываемую на диск запись. Может принимать значение типа

Integer, равное одной из следующих констант:

Значение Тип разрешения проблем

одновременного доступа

rdConcurLock Пессимистический тип, то есть

страница блокируется, как только вы

выполнили метод Edit. В это время

другие пользователи редактировать

данные на этой странице не могут.

RdConcur- Курсор открывается только для

converted to PDF by HupBaH9I

ReadOnly чтения, следовательно, никакие

блокировки не требуются

rdConcur-

Rowver

Оптимистическая блокировка, то есть

запись блокируется только во время

выполнения метода Update. При этом

поиск записи в исходном наборе

происходит по идентификатору

записи.

rdConcurValues

Оптимистическая блокировка, то есть

запись блокируется только во время

выполнения метода Update. При этом

поиск записи в исходном наборе

происходит по значениям строки.

Последний аргумент Option служит для установки асинхронного режима выборки данных. При

этом режиме программа может продолжать выполняться, не ожидая завершения выборки всех

данных.

Последними объектами в иерархии RDO является коллекция колонок - rdoColumns. С помощью

объекта rdoColumn вы получаете доступ непосредственно к значениям таблиц в конкретных

строках. При этом для перемещения по записям кроме оговоренных выше методов используются

методы MoveFirst, MoveLast, MoveNext и MovePrevious, очень похожие на те, которыми вы

пользовались при программировании с помощью DAO.

8.6. Внешнее управление сервером с помощью SQL-DMO

Данный параграф относится только к Microsoft SQL Server. В нем мы опишем методы

управления сервером с помощью пользовательского приложения.

В клиентской части настольной базой данных может использоваться приложение, которое

способно выступать в качестве OLE контроллера. Тем, кто прочитает десятую главу данной книги

или хорошо знает Visual Basic, будет очень легко освоиться с набором объектов, который

предоставляет DMO. Для того чтобы использовать данную технологию с рабочей станции,

необходимо установить на рабочей станции клиентскую версию Microsoft SQL Server. Установить

ее очень легко. Например, при установке SQL Server на рабочей станции, которая работает под

управлением Windows 95, программа установки сама определит тип операционной системы и,

соответственно, предложит для использования на данном компьютере клиентскую часть сервера.

При этом вам будут доступны многие компоненты SQL Server, например Entreprise Manager или

Books On-line.

В любом случае для работы с SQL-DMO на ПЭВМ, работающей под управлением Windows 95

или Windows NT, должны быть установлены следующие файлы:

• SQLOLE.HLP - файл контекстной помощи для работы с SQL-DMO;

• SQLOLE.REG - файл регистра;

• SQLOLE65.DLL - in-process сервер SQL-DMO и программные компоненты;

• SQLOLE65.TLB - библиотека объектов, используемая программой контроллером OLE

Automation;

• SQLOLE65.SQL - файл поддержки языка transact-SQL для создания хранимых процедур.

DMO - Distributed Management Object - это распределенные объекты управления. Главное

назначение данной технологии - управление сервером с любой рабочей станции в сети.

DMO может использоваться и для выполнения запросов. Правда, при этом вы не можете

получить для использования в своем приложении курсоры и, соответственно, у вас нет средств

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

иначе, запросами определения данных.

Несмотря на то, что мы не можем получить удобный курсор с методами для навигации и

отображения данных, которые бы хранились в нем, использовать SQL-DMO для доступа к

конкретным данным можно. Для этого необходимо использовать объект QueryResults, который

отображает данные запроса выборки и имеет методы для работы с колонками и строками.

На рис. 8.15 приведена иерархия объектов SQL-DMO и их коллекций, а в табл. 8.8 содержится

краткое описание этих объетов.

converted to PDF by HupBaH9I

Рис. 8.15.

Таблица 8.8. Назначение объектов SQL-DMO

Объект Описание

Alert Содержит всю информацию, которая описывает

предупреждения SQL Server, появляющиеся при

наступлении определенных событий.

AlertSystem Управляет процессом выполнения

предупреждений SQL Server.

Application Обеспечивает доступ и управление средой

приложения, в том числе коллекцией объектов

SQL Server, которые связаны с используемыми в

системе отдельными серверами.

Article Содержит информацию о статье, помещенной в

публикацию. Статья - это таблица, представление

или их часть, сихронизируемые по содержанию на

внешнем и локальном серверах. С помощью

свойств TableName и DestinationTableName

задаются таблицы или представления,

участвующие в синхронизации. Свойства

InsertCommand, UpdateCommand и

DeleteCommand позволяют задать операторы

transact-SQL, которые будут выполняться при

вставке, обновлении или удалении данных.

Свойства ReplicateAllColumns и

ReplicationFilterProcName позволяют ограничить по

колонкам или строкам данные, помещаемые в

статью.

Backup Используется для выполнения резервного

копирования или восстановления БД или журнала

транзакций.

BulkCopy Содержит информацию для копирования данных

из таблиц или представлений в файл данных

(текстовый файл) или из такого файла в таблицу

SQL Server. Позволяет установить границы

копирования и разделительные символы. Для

копирования используются методы ExportData или

ImportData объектов Table или View.

Check Содержит информацию об ограничениях

целостности, которые могут содержать одну или

более колонок. С помощью свойства

ExcludeReplication эти ограничения могут

отключаться во время синхронизации данных.

Column Позволяет получить информацию об имеющихся в

таблице колонках, типе хранящихся в них данных,

converted to PDF by HupBaH9I

значениях по умолчанию, допустимости значений

NULL и т. д.

Configuration Позволяет получить информацию о конфигурации

сервера. Включает только коллекцию объектов

ConfigValue, каждый из которых имеет

минимальное, максимальное и текущее значение.

После изменения параметров конфигурации

получить новые значения можно с помощью

метода ReconfigureCurrentValue или

ReconfigureWithOverride.

ConfigValue Сохраняет минимальное, максимальное и текущее

значение параметров конфигурации сервера.

Database Контейнер базы данных, который используется

для ссылки на все содержащиеся в данной БД

объекты, такие как Table, StoredProcedure и т. д.

Служит также для выполнения запросов с

помощью метода ExecuteWithResult.

DBObject Содержит информацию, применимую ко всем

объектам БД и позволяет использовать один и тот

же код для управления несколькими объектами,

такими как Table, View, Rule и т. д.

DBOption Содержит все опции для БД, которые может

установить ее владелец. Например, возможность

подписки на данные из этой БД, права доступа и

т. п.

Default Значение по умолчанию, хранящееся для колонки

или типа данных.

Device

Предоставляет возможность получить информацию

о имеющихся устройствах сервера (имя,

физическое расположение, объем и т. п.). С

помощью этого объекта вы можете полностью

управлять процессом зеркальной записи данных и

изменениями, выполняемыми параллельно на двух

физических дисках.

DRIDefault Содержит ограничения целостности по умолчанию

для колонок.

Executive Содержит информацию о выполнении плановых

задач и предупреждений.

Group Содержит информацию о группе пользователей.

History-Filter

Используется для определения или очистки списка

заданий с помощью методов EnumHistory и

PurgeHistory объектов SQLServer и Task.

Index Индекс для указанной таблицы. Позволяет

получить информацию об имеющихся индексах,

перестроить индекс, удалить, создать новый или

скопировать существующий индекс для другой

таблицы.

IntegratedSecurity

Определяет, как система доступа и обеспечения

секретности SQL Server будет интегрироваться с

аналогичными системами для бюджетов

пользователей и групп пользователей Windows NT.

Key Содержит информацию о первичном, уникальном

или внешнем ключах таблицы. Каждый ключ

может включать одну или более колонок таблицы.

Language Содержит полную информацию о каждом из

языков, поддерживаемых SQL Server.

соединения с сервером. Этот объект имеет

глобальный характер в целом для SQL Server; ему

соответствует объект User в каждой БД.

Names Эта коллекция служит для хранения имен

converted to PDF by HupBaH9I

объектов в виде строк символов.

Operator Описывает условия работы оператора, в том числе

его почтовый адрес, необходимость получения

предупреждений, режим работы и т. д.

Permission Содержит информацию о пользовательских

объектах БД или привилегиях команд.

Publication Содержит информацию о публикации (наборе

статей), используемой для синхронизации данных.

Метод AddFullSubscriber позволяет указать сервер,

на котором данные синхронизируются по всем

статьям в наборе.

QueryResults Содержит данные, полученные при выполнении

запроса. Данные могут быть получены путем

выполнения метода ExecuteWithResults объектов

SQLServer, Database и RemoteServer. Данные

размещаются в памяти и не могут

редактироваться.

RegisteredServer Содержит имя и данные о регистрации SQL

серверов, входящих в объект ServerGroup для

использования в SQL Enterprise Manager. Этот

объект отображается в Server Manager и

запоминается в Регистре.

Registry Содержит всю информацию, размещенную в

Регистре Windows о SQL Server.

Remote-Login Используется при соединении внешнего сервера с

локальным SQL Server и содержит необходимую

для этого соединения информацию.

Remote-Server Внешний SQL Server, который становится

известным для локального сервера.

Rule Содержит информацию о допустимых данных для

колонок или типов данных.

Server-Group Группа серверов, имеющая уникальное имя.

SQLServer Объект для связи с используемым сервером.

Каждый объект SQLServer может

инициализировать одно соединение с выбранным

сервером, используя метод Connect.

Stored-Procedure

Поименованный набор команд Transact-SQL,

который запоминается в БД. Помимо команд в

свойстве Text может храниться имя и путь к

библиотеке DLL, реализующей расширенный

вариант хранимых процедур.

Subscriber-Info Содержит всю необходимую информацию для

обновления данных на внешнем сервере, включая

дату начала и конца подписки (свойства

ActiveStartDate и ActiveEndDate), интервалы

ежедневного, еженедельного и ежемесячного

обновления и т. д.

Subscription Содержит информацию, необходимую для

синхронизации данных.

System-Datatype

Содержит информацию о системных типах данных

SQL Server.

Table Представляет набор строк в БД (таблицу).

Позволяет изменять свойства таблицы, добавлять

новые колонки, проверять ограничения

целостности и т. д.

Task Содержит информацию о плановых заданиях.

TransactionLog Содержит информацию о процедуре регистрации

транзакций. Позволяет зарезервировать

пространство для журнала регистрации и указать

необходимость его ведения на отдельном

устройстве.

converted to PDF by HupBaH9I

Transfer Содержит информацию для пересылки данных и

объектов из БД источника (объект Database) в

другую БД, расположенную на внешнем сервере.

Trigger Триггер для указанной таблицы. Позволяет

получить информацию о хранящихся триггерах

или создать новый с помощью метода Script. Тип

триггера определяется свойством Type.

User Содержит информацию о пользователе БД.

Каждый пользователь ассоциируется с одной

регистрацией пользователя для работы с БД.

User-Defined-

Datatype

Определяет пользовательский тип данных.

View Представление, хранящееся в БД. В свойстве Text

хранится команда SELECT Transact-SQL для

выполнения запроса. Данные в представлении не

могут редактироваться.

На вершине иерархии объектов DMO находится объект Application, который обеспечивает нас

методами и свойствами для управления средой приложения.

Важной особенностью использования объектов SQL-DMO является наличие наряду с самими

объектами, их коллекций. За счет этого работа с объектами в Visual Basic существенно

упрощается. Коллекция включает группу объектов одного типа. Имя коллекции образуется как

множественное число от имени объекта. К коллекции можно обратиться из объекта, являющегося

родительским в иерархии. Если объект не имеет коллекции, то используется коллекция

Properties, которая имеет по одному объекту Property для каждого свойства. С ее помощью можно

легко установить имена и значения всех свойств объекта, не зная их заранее. Например:

For Each oProperty in oSQLServer.Properties

Debug.Print oProperty.Name & " = " oProperty.Value

В Visual FoxPro возможность использования таких языковых конструкций появится только в

следующей версии. При использовании версии 3.0 работы немного прибавится. Например, для

получения всех имен БД, имеющихся на сервере, в Visual Basic достаточно такого фрагмента

кода:

For Each oDatabase in oSQLServer.Databases

Debug.Print oDatabase.Name

В Visual FoxPro код будет чуть длиннее:

nDBNum = oSQLServer.Databases.Count

FOR nItem = 1 TO nDBNum

? oSQLServer.oDatabases(nItem).Name

Для добавления нового объекта в коллекцию используется метод Add. Для удаления объекта

из коллекции - метод Remove.

По сравнению с другими рассмотренными ранее объектными моделями, модель объектов SQL-

DMO имеет особый тип коллекции, - список (list), доступный только для чтения. Возможности

получения списков весьма широки и охватывают почти все объекты DMO, но необходимо

учитывать, что в списке вы получите данные, фиксирующие текущее состояние системы и никак

не изменяющиеся при дальнейших действиях.

Для того чтобы начать работу с SQL сервером посредством DMO, если вы используете Access

или Visual Basic, необходимо создать объект SQLServer:

Global MyServer As New SQLOLE.SQLServer

Если вы используете Visual FoxPro, то необходимо воспользоваться функцией

CREATEOBJECT():

oMyServer = CREATEOBJECT("SQLOLE.SQLServer")

converted to PDF by HupBaH9I

В данный момент этот объект представляет собой абстрактную ссылку. Для придания ему

конкретности необходимо подсоединиться к существующему серверу, естественно, если вам как

пользователю даны права или вы знаете пароль администратора.

Вы можете сделать это, использовав метод Connect объекта SQLServer, например, следующим

образом:

oMyServer.Connect(Servername:="Autoserver",_ Login="Me",Password="You")

Можно пойти более сложным путем, но при этом вы будете знать причину возникновения

возможной ошибки. Используйте следующую или подобную ей функцию:

Function SQLLogin(strServerName As String, _strUID As String, strPWD As String) As Boolean

' Подключение к указанному SQL серверу, используя

' предложенный идентификатор пользователя и пароль.

' Устанавливает глобальный объект типа SQLServer

' Возвращает истину при удачном завершении,

' в противном случае - ложь.

On Error GoTo SQLLoginErr

Const erSQLAlreadyLoggedIn = -2147211004

SQLLogin = True

DoCmd.Hourglass True

mySQLServer.Connect strServerName, strUID, _strPWD

SQLLoginExit:

DoCmd.Hourglass False

Exit Function

SQLLoginErr:

Select Case Err.Number

Case erSQLAlreadyLoggedIn

SQLLogin = True

Resume Next

Case Else

MsgBox "Error " & Err.Number & ": " & _

Err.Description, vbCritical, "SQLLogin()"

End Select

SQLLogin = False

Resume SQLLoginExit

End Function

В простейших случаях можно безболезненно пользоваться первой конструкцией. Необходимо

помнить, что после завершения работы программы с использованием SQL-DMO вам обязательно

надо отсоединиться от сервера. Для этого используйте метод Disconnect объекта SQLServer:

oMySqlServer.Disconnect

В промежутках между присоединением к серверу и отсоединением от него вам доступны

практически любые операции с сервером и с его данными, но в зависимости от предоставленных

вам прав доступа. Вы можете, например, получить информацию о доступных устройствах баз

данных, о самих базах данных, выполнять запросы и работать с результатами запросов.

Если нужно создать новую базу данных, которая будет располагаться на конкретном

устройстве, то можно это сделать примерно так, как это сделано в следующем примере:

Function SQLMakeNewDatabase(strName As String, _strDeviceName As String, lngSize As Long)

' Создаем новую БД на текущем SQL Server

On Error GoTo SQLMakeNewDatabaseErr

SQLMakeNewDatabase = True

Dim objNewDatabase As New SQLOLE.Database

If Not gobjSQLServer Is Nothing Then

DoCmd.Hourglass True

With objNewDatabase

.Name = strName

End With

' БД будет располагаться на устройстве по

' умолчанию

gobjSQLServer.Databases.Add objNewDatabase

converted to PDF by HupBaH9I

' Увеличиваем размер указанного устройства

With objNewDatabase

.ExtendOnDevices (strDeviceName & "=" &_ CStr(lngSize))

.Shrink (lngSize)

End With

Else

SQLMakeNewDatabase = False

End If

SQLMakeNewDatabaseExit:

DoCmd.Hourglass False

Exit Function

SQLMakeNewDatabaseErr:

MsgBox "Error " & Err.Number & ": " & _Err.Description, _vbCritical, "SQLMakeNewDatabase()"

SQLMakeNewDatabase = False

Resume SQLMakeNewDatabaseExit

End Function

Следующий фрагмент кода показывает, как можно добавить новую колонку во все

существующие таблицы.

Dim oTable As Table

Dim oCol As Column

Set db = ss.Databases("pubs")

For Each oTable In db.Tables

' Выполняем для каждой таблицы в коллекции

Set oCol = New Column

oCol.AllowNulls = True

oCol.Datatype = "varchar"

oCol.Length = 30

oCol.Name = "NewCol"

oTable.BeginAlter ' Начинаем процесс изменения

oTable.InsertColumn oCol, ""

oTable.DoAlter ' Завершаем процесс изменения

Next oTable

Вероятно, вы заметили, что перед добавлением колонки мы применяем метод BeginAlter, а для

выполнения всех изменений необходимо воспользоваться методом DoAlter. При этом на сервере

реально будут совершены все действия, записанные после применения метода BeginAlter. Этот

процесс напоминает транзакции и должен использоваться при выполнении действий со

следующими объектами:

• Alert

• AlertSystem

• Article

• Executive

• Operator

• Publication

• RemoteServer

• SubscriberInfo

• Subscription

• Table

• Task

Это условие вызвано тем, что при выполнении любых действий с перечисленными объектами

должны приниматься повышенные меры безопасности, и, в частности, должна быть возможна

безболезненная отмена этих действий. Для других объектов изменение значений свойств и

выполнение каких-либо методов приводят к непосредственному их обновлению.

В заключение отметим, что одно из наиболее перспективных направлений использования SQL-

DMO - проведение процесса перевода настольных приложений в технологию клиент-сервер.

Глава 9

converted to PDF by HupBaH9I

Разработка пользовательского интерфейса

9.1. Инструментарий разработчика

9.2. Конструируем форму

Создание формы "Прием заказов" на Visual FoxPro

Создание формы "Прием заказов" на Access

9.3. Разработка управляющего меню

Разработка меню в Visual FoxPro

Разработка меню в Access

Даже программисты быстро забыли, что еще несколько лет назад общались с компьютером с

помощью колоды перфокарт, а результат работы программы могли видеть лишь на листе бумаги.

Теперь самую лучшую программу никто не оценит по достоинству, если она не будет иметь

удобного пользовательского интерфейса.

При работе с современными средствами разработки приложений программист с самого начала

окунается в проблемы построения интерфейса. Также и мы, обсуждая проблемы работы с

данными, не могли не коснуться этих проблем. В этой главе мы как бы подведем итог

обсуждаемым ранее вопросам под привычным лозунгом Microsoft "Putting It All Together!" -

"Объединим все вместе!"

Рассуждая о принципах и методах построения пользовательского интерфейса можно много

говорить о различных писаных и неписаных правилах. А можно этого не делать, а попросить

читателя повнимательнее посмотреть на тот интерфейс, который обеспечивает любимое средство

разработки. Посмотрели? Это лучший образец для подражания.

9.1. Инструментарий разработчика

В третьей главе мы уже рассматривали визуальный инструментарий для разработки

пользовательского интерфейса. Все три пакета для построения пользовательских программ

(Visual FoxPro, Visual Basic и Access) имеют соответствующие средства, выполненные в виде

Конструкторов и Мастеров. Если в Visual Basic и Access основным визуальным инструментарием

для построения пользовательского интерфейса следует считать Конструктор формы, то в Visual

FoxPro сюда следует отнести и Конструктор класса, который может эффективно использоваться

для разработки многократно используемых элементов от отдельных объектов до целых форм.

В этом параграфе мы рассмотрим средства, доступные для разработчика пользовательского

приложения программным путем.

В первую очередь это, конечно, средства языка программирования. С помощью программного

кода мы можем описывать действия, которые приложение должно выполнять при наступлении

событий, подобных выбору пользователем какого-либо пункта меню или щелчку мыши на том

или ином элементе пользовательского интерфейса. Возможности языков программирования Visual

FoxPro и Visual Basic в этом плане достаточно широки, примерно равны по мощности и могут

обеспечить самую изощренную функциональность для вашей программы. Авторы выражают

слабую надежду, что читатель успел в этом убедиться, прочитав предыдущие главы нашей книги.

Поэтому более подробно мы остановимся на дополнительных средствах, доступных программисту

в рассматриваемых средствах разработки.

И все-таки даже такие мощные программные средства порой бессильны перед жесткими

требованиями пользователя и неудержимым желанием программиста сделать свою программу

самой совершенной в мире. В этом случае на помощь можно призвать дополнительные средства в

виде богатого набора функций операционной системы - Windows API.

Windows API - это интерфейс, позволяющий прикладной программе использовать функции,

встроенные в операционную систему.

При использовании функций Windows API программист может реализовать следующие

преимущества:

• Повышение скорости работы. В большинстве случаев функции, встроенные в ОС,

обеспечивают более высокую скорость выполнения операций, чем встроенные функции

Visual FoxPro или Visual Basic. В первую очередь это касается выполнения графических

операций.

converted to PDF by HupBaH9I

• Стабильность и высокая надежность работы функций, связанная с высокой степенью

отладки ОС.

• Отсутствие потребности в дополнительных модулях. Альтернативой использования

Windows API является приобретение дополнительных компонентов, обеспечивающих

расширенную функциональность, что повышает затраты на разработку пользовательского

приложения и создает дополнительные сложности при его распространении.

В то же время мы рекомендуем использовать Windows API только в крайнем случае и при

необходимости повышения скорости работы программы, так как здесь программисту приходится

сталкиваться с более сложными программными конструкциями. Это, естественно, требует

времени на освоение, так как те сложные задачи, которые были скрыты от программиста при

использовании любимого языка программирования высокого уровня с приставкой Visual, теперь

придется решать самому. При этом учтите, что Microsoft до сих не выпустила хорошего

руководства или четко структурированного файла контекстной помощи по Windows API и вам

придется долго блуждать среди многих сотен функций с мудреными названиями. С

профессиональными версиями Visual FoxPro (только на CD-ROM) и Visual Basic поставляется файл

со справочными сведениями по Windows API, но он содержит синтаксис для программирования на

языке Си.

Если вы все же не раздумали использовать функции Windows API, в своей программе вам

придется позаботиться о двух необходимых составляющих. Во-первых, вы должны определить

путь для передачи параметров в вызываемую функцию. Во-вторых - определить механизм для

получения значения, возвращаемого функцией. Эти задачи выполняет команда DECLARE.

В Visual Basic она имеет следующий синтаксис:

[Public | Private] Declare Function FunctionName Lib "LibraryName" [Alias " AliasName" ]

[([ParamList])][As ParamType]

В Visual FoxPro при том же составе параметров синтаксис команды выглядит чуть иначе:

DECLARE [cFunctionType] FunctionName IN LibraryName [AS AliasName] [cParamType1 [@]

ParamName1,cParamType2 [@] ParamName2, ...]

С помощью этой команды можно зарегистрировать функцию, расположенную в динамической

библиотеке и затем использовать ее как стандартную. В команде выделим четыре основных

компонента:

• Сведения о функции определяются ее именем FunctionName, заданном в библиотеке DLL.

Имя функции следует указывать с соблюдением регистра! Если функция возвращает

какое-либо значение, перед ее именем следует указать тип возвращаемого значения

cFunctionType. Вероятно, здесь уместно напомнить, что в Visual Basic объявление Public

используется для обеспечения доступа к функции из всех процедур, раположенных во

всех модулях. Объявление Private обеспечивает доступ к функции только внутри данного

модуля.

• Имя библиотеки DLL Windows LibraryName, содержащей требуемую функцию. Если вы

хотите использовать функцию, входящую в API Windows, то здесь достаточно написать

WIN32API, что автоматически обеспечит поиск функции в одном из следующих файлов:

KERNEL32.DLL, GDI32.DLL, USER32.DLL, MPR.DLL или ADVAPI32. DLL.

• Псевдоним имени функции для использования в Visual FoxPro или в Visual Basic. Его

удобно использовать для сокращения слишком длинного названия функции или при

угрозе совпадения имени функции с зарезервированным словом.

• Список передаваемых параметров включает обозначение типа и имени параметров,

передаваемых из приложения в функцию DLL Windows. Знак @ после типа параметра

показывает, что он будет передаваться по ссылке, а не по значению. Имя параметра

никак не используется ни приложением, ни функцией DLL и может применяться в команде

только в информационных целях. Если функция DLL требует в качестве аргумента

передачи нулевого указателя (null pointer), то его следует передавать как целое число по

значению.

Для передачи параметров в Visual Basic следует использовать следующий синтаксис:

[Optional][ByVal | ByRef][ParamArray] varname[( )][As ParamType]

converted to PDF by HupBaH9I