MapBasic. Руководство пользователя

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

Глава

Глава 7: Работа с

таблицами

Работа с таблицами

MapBasic предоставляет полный набор

средств работы с таблицами.

Например, Вы можете изменять

структуру таблицы с помощью

оператора Alter Table или переходить к

определенной записи в таблице с

помощью оператора Fetch. Оператор

Import позволяет создать таблицу в

формате MapInfo из текстового файла,

а оператор Export — перевести таблицу

в другой формат.

В данной главе описаны операторы и

функции языка MapBasic,

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

таблицами. Подробное описание

каждого из этих операторов и функций

можно найти в Справочнике MapBasic.

Открытие таблиц с помощью

MapBasic

>Создание новых таблиц

>Доступ к Косметическому

слою с помощью таблицы

“CosmeticN”

>Доступ к окнам Отчетов с

помощью таблицы

“LayoutN”

>Редактирование в

многопользовательской

среде

>Файлы>компоненты таблицы

>Таблицы, содержащие

растровые изображения

>Работа с метаданными

>Работа со сшитыми

таблицами

>Доступ к удаленным данным

>Доступ и изменения в

удаленных базах при

помощи

связанных таблиц

>Рекомендации по

повышению

производительности

при работе с таблицами

Глава 7: Работа с таблицами

140 MapBasic Руководство пользователя

Открытие таблиц с помощью MapBasic

Чтобы таблица стала доступна в приложении на языке MapBasic, эту

таблицу надо сначала открыть. Это можно сделать с помощью

оператора Open Table. Например, следующий оператор открывает

таблицу WORLD:

Open Table "C:\mapinfo\data\world"

Обратите вримение что оператор Browse идентифицирует таблицу по ее

псевдониму (Earth). Псевдоним таблицы действует так долго, как

открыто та таблица. Таблица непереименовывается навсегда. Для

постоянного переименования, используйте оператор Rename Table.

Если используется дополнительное предложение Interactive в

операторе Open Table, и если таблица, которую вы определяете, не

может быть размещена в указанной директории, то MapInfo откроет

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

пропускаете ключевое слово Interactive и таблица не может быть

размещена в указанном месте, то оператор Open Table сгенерирует

сообщение об ошибке.

Имена таблиц во время выполнения программы

Имя таблицы в MapBasic может представлять собой строковое

выражение или константу. Например, если открыты таблицы STATES,

PIPELINE и PARCELS, то в своей программе Вы можете явно

использовать их имена:

Select * From States

Browse * From Pipeline

i = NumCols(Parcels)

Впрочем, Вы можете и не ограничиваться именамиконстантами. Вы

можете, например, предложить пользователю выбрать таблицу из

списка всех открытых таблиц. Поскольку заранее не известно, какую

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

строковую переменную в качестве имени таблицы. Предположим,

чтобы открыть таблицу ZONING, можно выполнить следующие

действия:

Dim work_table As String

work_table = "Zoning"

Browse * From work_table

Глава 7: Работа с таблицами

MapBasic Руководство пользователя

141

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

Если Вы попытаетесь открыть две таблицы с одинаковыми именами,

MapInfo присвоит им различные стандартные псевдонимы. Например,

если Вы откроете таблицу “C:\DATA1994\SITES", MapInfo присвоит

ей стандартный псевдоним обычным образом (“sites"); но при

открытии еще одной таблицы с таким же именем (допустим,

“C:\BACKUP\SITES"), MapInfo присвоит второй таблице стандартный

псевдоним, отличающийся от стандартного псевдонима для первой

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

псевдонимы. В нашем примере MapInfo присвоит второй таблице

псевдоним “sites_2."

Если в операторе Open Table использовать предложение Interactive, то

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

псевдоним. Если же не использовать предложение Interactive, MapInfo

создаст стандартный псевдоним автоматически.

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

стандартный псевдоним будет сопоставлен той или иной открываемой

таблице. Однако узнать стандартный псевдоним можно с помощью

функции TableInfo( ), например так:

Include "mapbasic.def"

Dim s_filename As String

Open Table "States" Interactive

s_filename = TableInfo(0, TAB_INFO_NAME)

Browse * from s_filename

Функция TableInfo(0, TAB_INFO_NAME) возвращает имяпсевдоним

последней открытой таблицы.

Как открыть файл, не являющийся таблицей MapInfo

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

формате таблиц MapInfo (dBASE, Lotus, Excel или текстовым файлам).

Но прежде чем Вы получите возможность работать с ними из MapBasic,

Вы должны зарегистрировать файлы такого типа. При регистрации

файла MapInfo строит файл таблицы (.TAB) для файла во внешнем

формате. Регистрацию достаточно провести один раз. После

регистрации с файлом во внешнем формате можно будет работать так

же, как с таблицей в формате MapInfo.

Следующий оператор регистрирует файл в формате dBASE:

После регистрации файл можно считать обычной таблицей, Вы можете

открыть его так же, как и обычную таблицу MapInfo с помощью

оператора Open Table.

Open Table "INCOME" Interactive

Глава 7: Работа с таблицами

142 MapBasic Руководство пользователя

MapInfo проводит поиск по таблицам независимо от того, в каком

именно формате они хранятся. Например, выбирать данные

оператором Select (используя возможности языка запросов SQL)

можно из любых таблиц, хранятся ли они в формате базы данных или

электронной таблицы.

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

MapInfo отчасти зависят от формата данных в таблице. Если таблица

базируется на .DBFфайле, то MapInfo сможет внести изменения в

такую таблицу; при выполнении оператора Update. MapInfo реально

произведет изменения в исходном .DBFфайле. Но MapInfo не сможет

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

электронных таблиц или текстовых (ASCII) файлах. Чтобы внести

изменения в файлы такого типа, следует создать копию таблицы (с

помощью оператора Commit Table ... As) и уже затем ее изменять.

Создание файла отчета из открытой таблицы MapInfo

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

создавать прямо из MapInfo, для этого используется генератор отчетов,

соответствующий промышленным стандартам Seagate Crystal Reports.

Этот редактор отчетов имеет интуитивно понятный и дружественный

интерфейс. Смотрите операторы Create Report From Table и Open

Report в Справочнике MapBasic.

Чтение значений из строк и колонок таблицы

Программа на MapBasic может оперировать значениями из отдельных

строк (записей) и/или колонок (полей) таблицы. Для этого следует

использовать следующие действия:

1. С помощью оператора Fetch указать, с какой строкой (записью)

таблицы Вы будете работать. Этот оператор устанавливает

текущую запись таблицы.

2. С помощью выражений над элементами таблицы (например,

имя_таблицы.имя_колонки) Вы можете получать доступ к

отдельным полям в текущей записи.

Рассмотрим пример программы, в которой читается содержимое поля

"Country" из первой записи таблицы WORLD:

Dim s_name As String

Open Table "world" Interactive

Fetch First From world

s_name = world.Country

Глава 7: Работа с таблицами

MapBasic Руководство пользователя

143

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

путать с указателем мыши, отображающим текущее положение мыши

на экране). При выполнении оператора Fetch Вы передвигаете

указатель текущей записи к заданной позиции. Дальнейшие операции

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

текущей записи.

Имеется несколько вариантов применения оператора Fetch для

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

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

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

таблице. Чтобы определить, не применяется ли оператор Fetch за

пределами таблицы, используйте функцию EOT( ). Подробное

описание оператора Fetch и функции EOT( ) можно найти в

Справочнике MapBasic.

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

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

В предыдущих примерах использовался синтаксис первого вида:

имя_таблицы.имя_колонки (world.country).

Можно также использовать выражения вида имя_таблицы.col#. Здесь

указывается номер поля, а не его название (так, col1 соответствует

первому полю таблицы). Так как "Country" является первым полем

таблицы WORLD, то в приведенном нами примере оператор

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

s_name = world.col1

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

имя_таблицы.col(числовое_выражение). Здесь номер поля (колонки)

задается числовым выражением, заключенным в круглые скобки. С

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

пример следующим образом:

Dim i As Integer

i = 1

s_name = world.col(i)

Синтаксис колонки Пример

имя_таблицы.имя_колонки world.country

имя_таблицы.COLn world.COL1

имя_таблицы.COL(n) world.COL(i)

Глава 7: Работа с таблицами

144 MapBasic Руководство пользователя

Данный подход позволит Вам определять, к какому полю необходим

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

Бывает, что указывать имя_таблицы в выражениях внутри операторов

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

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

будет работать данный оператор (из предложения From), то в названия

колонок не обязательно включать имя таблицы.

Select Country, Population/1000000 From World

Browse Country, Col2 From Selection

Оператор Select также содержит предложение From, где указано имя

таблицы, к которой он применяется. Названия колонок в операторе

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

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

предложении From оператора Select перечислены несколько таблиц, то

названия колонок должны начинаться с приставки имя_таблицы.

Более подробная информация об использовании оператора Select

содержится в Руководстве пользователя MapInfo и главе "Select"

Справочника MapBasic.

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

выражений: COLn или COL(n). В последнем примере оператор Select

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

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

результат вычисления выражения Population/1000000. В

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

ссылаться только как col2 или как col(2), поскольку Population/

1000000 не является допустимым названием колонки.

Обращение к колонке с помощью переменной типа Alias

В приводившихся до сих пор примерах использовались

фиксированные имена колонок. Например, в операторе

Select Country, Population/1000000 From World

имена колонок — "Country" и "Population" — указаны явно.

Иногда название колонки заранее не известно, оно определяется во

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

из списка, а Ваше приложение должно ее обработать.

Язык MapBasic содержит тип переменных Alias, который позволяет

хранить и формировать названия колонок во время выполнения

программы. Как и переменным типа String, переменным Alias можно

присваивать текстовые строки. MapBasic считает значение переменной

типа Alias названием колонки, если переменная такого типа

используется в выражении на месте ссылки на колонку. Например:

Dim val_col As Alias

Глава 7: Работа с таблицами

MapBasic Руководство пользователя

145

val_col = "Inflat_Rate"

Select * From world Where val_col > 4

MapBasic подставит значение val_col (псевдоним Inflat_Rate) при

выполнении оператора Select, чтобы выбрать все страны с уровнем

инфляции больше 4 процентов.

Разберем пример процедуры MapIt, которая открывает таблицу,

показывает ее в окне Карты и выбирает все записи из указанной

колонки, имеющие значения большие или равные заданному

пороговому значению. MapIt использует переменную типа Alias для

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

Include "mapbasic.def"

Declare Sub Main

Declare Sub MapIt( ByVal filespec As String,

ByVal col_name As String,

ByVal min_value As Float )

Sub Main

Call MapIt("C:\MAPINFOW\MAPS\WORLD.TAB", "popula

tion", 15000000)

End Sub

Sub MapIt( ByVal filespec As String,

ByVal col_name As String,

ByVal min_value As Float )

Dim a_name As Alias

a_name = col_name

Open Table filespec

Map From TableInfo(0, TAB_INFO_NAME)

Select * From TableInfo(0, TAB_INFO_NAME)

Where a_name >= min_value

End Sub

Глава 7: Работа с таблицами

146 MapBasic Руководство пользователя

В процедуре MapIt оператор Select использует переменную типа Alias

(a_name) вместо явного названия колонки. Заметим, что параметр

col_name имеет тип String (а не Alias); это связано с тем, что MapBasic

не позволяет передавать параметры типа Alias значением. Чтобы

обойти это ограничение, название колонки передается значением как

строковая переменная (типа String), а затем значение строковой

переменной копируется в локальную переменную типа Alias (a_name).

Приведенный пример показывает, как переменной типа Alias

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

(“population"). Переменная типа Alias может содержать и сложное

название колонки вида имя_таблицы.имя_колонки. Вот пример

использования подобного синтаксиса:

Dim tab_expr As Alias

Open Table "world"

Fetch First From world

tab_expr = "world.COL1"

Note tab_expr

Оператор Note будет работать точно так же, если его переписать:

Note world.COL1

Обработка составных имен колонок

Форма записи имя_таблицы.имя_колонки (например,

world.population) аналогична синтаксису, используемому при

обращении к полю переменной типа Type (т.е. нового или

“пользовательского”). MapBasic пытается интерпретировать любое

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

пользовательского типа. Если же это не удается, то MapBasic пробует

интерперетировать такое выражение как обращение к колонке одной

из открытых таблиц. Если и это не удается, MapBasic выдает

сообщение об ошибке при выполнении программы.

Обращение к записям с помощью поля “RowID"

RowID — это название особой колонки, содержащей номера строк

(записей) таблицы. RowID можно считать полем таблицы, хотя на

самом деле в файле такое поле не содержится. Поэтому будем назвать

RowID виртуальной колонкой, то есть колонкой, которой можно

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

Значение RowID для первой строки (записи) таблицы равно 1, для

второй — 2 и т.д.

Вот пример выделения первой записи из таблицы World:

Select * from world Where RowID = 1

Глава 7: Работа с таблицами

MapBasic Руководство пользователя

147

В следующем примере RowID используется в операторе Select для

выделения всех штатов, население в которых в 1990 году превосходило

среднее по стране.

Dim median_row As Integer

Select * From states Order By pop_1990 Into bypop

median_row = Int(TableInfo(bypop,TAB_INFO_NROWS)/2)

Select * From bypop Where RowID > median_row

Так как функция TableInfo( ) возвращает общее число записей в

виртуальной таблице BYPOP, переменная median_row содержит номер

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

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

таблице BYPOP.

Если удалить одну из записей таблицы, эта запись не будет считаться

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

таблицы. (Удаленные строки показываются в окнах Списков серыми

полосками.) Удаленным записям попрежнему соответствуют значения

RowID. Поэтому само по себе удаление записи из таблицы не влияет на

значения RowID; лишь когда Вы после удаления записи сохраните

изменения и упакуете таблицу, значения RowID изменятся. Чтобы

упаковать таблицу, выполните команду Т

АБЛИЦА > ИЗМЕНИТЬ >

ПАКОВАТЬ в MapInfo или оператор MapBasic Pack Table.

Использование колонки “Obj" для работы с графическими

объектами

В таблицах MapInfo имеется еще одна специальная колонка. Она

называется Obj и предназначена для работы с графическими

объектами. Любая таблица, содержащая графические объекты,

содержит колонку Obj (хотя эта колонка и не показывается в окнах

Списков). Если некоторой записи не сопоставлен графический объект,

то такая запись содержит пустое поле Obj.

Пример выбора всех записей, не содержащих графических объектов:

Select * From sites Where Not Obj

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

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

незакодированные записи.

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

из таблицы в переменную типа Object:

Dim o_var As Object

Fetch First From sites

o_var = sites.obj

Подробнее работа с графическими объектами описана в главе 9.

Глава 7: Работа с таблицами

148 MapBasic Руководство пользователя

Нахождение адресов в таблице

Пользователи MapInfo могут находить адрес на карте с помощью

команды З

АПРОС > НАЙТИ. В программе на языке MapBasic

аналогичный поиск выполняют операторы Find и Find Using. В

операторе Find Using указывается таблица, по которой следует

проводить поиск; оператор Find пробует определить географические

координаты для указанного адреса (скажем, “Тверская 23 "). С

помощью оператора Find можно также находить пересечение двух

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

амперсанд (напр., “Тверская && Лесная").

После выполнения оператора Find Вы должны дважды вызвать

CommandInfo( ): чтобы определить, найден ли адрес, и еще раз, чтобы

узнать географические координаты.

В отличие от команды З

АПРОС > НАЙТИ в MapInfo оператор Find в

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

Карты. Чтобы показать найденный объект в центре окна Карты, Вы

можете использовать оператор Set Map с предложением Center.

Аналогично, оператор Find не добавляет автоматически символ к

Карте, чтобы пометить найденный адрес: для этого используйте

функцию CreatePoint() или оператор Create Point. Примеры см. в

описании оператора Find в Справочнике MapBasic или интерактивной

справке.

Геокодирование

Для того, чтобы произвести геокодирование, сделайте следующее:

1. Используйте оператор Fetch, чтобы указать адрес в таблице.

2. Используйте оператор Find Using и оператор Find, чтобы найти

адрес.

3. Вызовите функцию CommandInfo () чтобы определить результат

выполнения оператора Find; вызовите CommandInfo () снова,

чтобы определить координаты x и y найденного места.

4. Создайте точечный объект, вызвав функцию CreatePoint () или

оператор Create Point.

5. Используйте оператор Update, чтобы присоединить точечный

объект к таблице.

Для того, чтобы произвести интерактивное (“ручное”) геокодирование,

сделайте следующее:

Run Menu Command M_TABLE_GEOCODE