КУРСОВАЯ РАБОТА

2 posts / 0 new
Последнее сообщение
fartchuvak
Аватар пользователя fartchuvak
КУРСОВАЯ РАБОТА

Include "mapbasic.def"
Declare Sub Main
Declare Sub TEST
Declare Sub theEnd
Dim fileName As String
Dim GetRowCount As String
Sub Main
Create Menu "TEST" As
"ZAGRUZIT_KARTY" Calling TEST,
"VIGRUZIT_KARTY" Calling Main,
"ZAPROSI" Calling TEST,
"Выход" Calling theEnd
Alter Menu Bar Add "TEST"
end sub
`В ЭТОМ МЕСТЕ ПРОИСХОДИТ ОТКРЫТИЕ КАРТЫ И ДИАЛОГ С ПОЛЬЗОВАТЕЛЕМ
Sub TEST
if Ask("Действительно желаете загрузить карту?", "Да", "Нет")="T" then
fileName = FileOpenDlg("G:\курсач 6 курс\Курсовая работа наработки за 6 курc\Рабочая область","","TAB","Открыть таблицу")
print "ВАША КАРТА УДАЧНО ЗАГРУЖЕНА"
else
note "Вы не захотели выбрать карту"
end if
end sub
Sub theEnd
End Program
end sub
______________________________________________
НУЖНА ПОМОЩЬ, программа компилируется, ошибок нет, но вот в чём загвоздка, запускаю её , и нажимаю в МЕНЮ "ТЕСТ" на любую любую КНОПКУ ЗАГРУЗИТЬ, ВЫГРУЗИТЬ КАРТУ(ТАБЛИЦУ), затем выбираю, что мне надо загрузить, подтверждаю открыть, но само изображение почему-то не появляется(отображается), как допустим открыть через стандартную панель, почему-так, что необходимо дописать, чтоб всё заработало, как я того хочу?!! -МОжет кто подскажет))

dab
fileName = FileOpenDlg("G:

fileName = FileOpenDlg("G:\курсач 6 курс\Курсовая работа наработки за 6 курc\Рабочая область","","TAB","Открыть таблицу")
Вы получаете имя файла и ничего более. Для реального открытия таблицы нужно выполнить
Open Table fileName