Руководство разработчика. Hello World! - История изменений

SYSDBA: /* Примечания */

2011-10-13T15:20:42Z

‎Примечания

SYSDBA: /* Задания для самопроверки */

2011-10-13T15:19:40Z

‎Задания для самопроверки

SYSDBA: /* Создаем форму из макроса */

2011-10-13T15:17:15Z

‎Создаем форму из макроса

SYSDBA: /* Создаем экранную форму */

2011-10-13T15:10:06Z

‎Создаем экранную форму

SYSDBA: Новая страница: «Со времен ветхого завета в мире программирования принято начинать знакомство с новой сис…»

2011-10-13T14:30:20Z

Новая страница: «Со времен ветхого завета в мире программирования принято начинать знакомство с новой сис…»

Новая страница

Со времен ветхого завета в мире программирования принято начинать знакомство с новой системой написанием простейшей программы вывода на экран строки "Hello World!". Будем придерживаться канонов. Читатель, уже знакомый с тем, как на Гедымине пишется программный код и создаются экранные формы, без малейших для себя последствий может пропустить эту главу. Мы же выполним следующие действия:

# Запустим Гедымин и подключимся к демо базе под учетной записью [[Administrator]].
# В главном окне программы раскроем меню '''Сервис''' и вызовем команду '''Редактор скрипт-объектов'''.
# Найдем окно '''Проводник''', в дереве выделим пункт '''Глобальные макросы'''<ref>Обратите внимание, что ветвь '''Глобальные макросы''' присутствует только в модуле '''APPLICATION'''. Выбор текущего модуля осуществляется из выпадающего списка над деревом объектов '''Проводника'''.</ref> и нажмем правую кнопку мыши.
# Из появившегося меню выберем команду '''Добавить макрос''', как показано на рисунке ниже:

<imgtag width="320px" link="on">
http://gsbelarus.com/gs/images/gs/2011/NewDevGuide/HelloWorld.AddMacros.png
</imgtag>

'''''Совет:''' При первом обращении Редактор скрипт-объектов может содержать вспомогательные окна, такие как: Список переменных, Стек вызовов, Сообщения и др. Для экономии экранного пространства их можно закрыть. Если вы случайно закрыли окно Проводника, вернуть на экран его можно с помощью комбинации горячих клавиш Ctrl-Alt-T или воспользовавшись меню Окна Редактора скрипт-объектов (не путайте с меню Окна главного окна Гедымина).''

По выполнении вышеуказанных действий на рабочем поле Редактора скрипт-объектов откроется окно редактирования макроса.

<imgtag width="580px" link="on">
http://gsbelarus.com/gs/images/gs/2011/NewDevGuide/HelloWorld.AddMacros.Tab1.png
</imgtag>

Пусть вас не смущает обилие полей ввода. В следующих главах мы подробно ознакомимся с предназначением каждого из них. А пока, наберем в поле '''Наименование макроса''' строку "Hello World!", а в поле Наименование функции – "HelloWorld" (Естественно, кавычки не являются частью строки и вводить их не следует. Они используются в тексте исключительно для выделения. Пробелы в имени функции недопустимы).

Далее, перейдем на вкладку Скрипт и наберем такой текст процедуры:

<syntaxhighlight lang="vbnet">
Option Explicit
Sub HelloWorld
Application.MessageBox "Hello World!", "", vbOkOnly
End Sub
</syntaxhighlight>

Результат наших усилий приведен ниже:

<imgtag width="580px" link="on">
http://gsbelarus.com/gs/images/gs/2011/NewDevGuide/HelloWorld.AddMacros.Tab2.png
</imgtag>

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

<imgtag link="on">
http://gsbelarus.com/gs/images/gs/2011/NewDevGuide/HelloWorld.AddMacros.MsgBox.png
</imgtag>

Ура! Наше первое приложение успешно работает.

==Обращаемся к базе данных==

Пусть мы и достигли поставленной цели, но очевидно, что однострочная процедура вряд ли позволит нам составить даже самое поверхностное впечатление о возможностях платформы. Давайте усложним задачу и заставим нашу программу приветствовать не только весь мир, но и лично пользователя. Персональную информацию, имя учетной записи, возьмем непосредственно из базы данных. Код второй версии процедуры HelloWorld выглядит следующим образом<ref>При наборе текста процедуры, номера строк следует опустить.</ref>:

<syntaxhighlight lang="vbnet">
01 Option Explicit
02 Sub HelloWorld
03 Dim gdcUser
04 Set gdcUser = Designer.CreateObject(Application,_
05 "TgdcUser", "")
06 gdcUser.SubSet = "ByID"
07 gdcUser.ID = IBLogin.UserKey
08 gdcUser.Open
09
10 Application.MessageBox "Hello World!" & vbCrLf &_
11 "Hello " & gdcUser.ObjectName & "!", _
12 "", vbOkOnly
13
14 Designer.DestroyObject(gdcUser)
15 End Sub
</syntaxhighlight>

Прежде чем привести нашу процедуру в действие поясним некоторые нюансы.

Мы можем обращаться к функциям и параметрам Гедымина через набор глобальных объектов. В данном случае используются три таковых: глобальный объект Designer предназначен для динамического создания и уничтожения объектов в процессе работы программы, IBLogin – содержит параметры текущего подключения к базе данных, а Application – среди прочих – обладает функцией вывода на экран окна с сообщением.

В четвертой строке представленного кода, вызовом метода Designer.CreateObject, создается бизнес-объект типа TgdcUser и, для дальнейшего обращения, сохраняется в объявленной строкой выше переменной gdcUser. В шестой строке мы указываем, что будем работать только с одной записью, которую отыщем по идентификатору. В следующей строке мы передаем бизнес-объекту этот идентификатор, взяв его из свойства IBLogin.UserKey. В восьмой строке мы открываем набор данных методом gdcUser.Open и используем считанное из базы имя при формировании текста приветствия и выводе его на экран (строки с десятой по двенадцатую). И, наконец, закончив работу с бизнес-объектом, в четырнадцатой строке мы удаляем его с помощью метода Designer.DestroyObject.

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

<imgtag link="on">
http://gsbelarus.com/gs/images/gs/2011/NewDevGuide/HelloWorld.AddMacros.MsgBox2.png
</imgtag>

==Создаем экранную форму==

====Примечания====
<references/>

← Предыдущая		Версия 15:20, 13 октября 2011
Строка 233:		Строка 233:
	==Примечания==		==Примечания==
	<references/>		<references/>
		+
		+	[[Category:Руководство разработчика]]

@@ Строка 225: / Строка 225: @@
 # Откройте окно Редактора скрипт-объектов и изучите его содержимое.
 # Ознакомьтесь со списком команд каждого пункта меню.
-# Внесите изменения в текст процедуры HelloWorld, чтобы вместо строки "Hello Administrator" на экран выводилось приветствие "Доброе утро, Administrator!", "Добрый день, Administrator!" или "Добрый вечер, Administrator!", в зависимости от времени суток. Подсказка, используйте функции Time (возвращает текущее время) и Hour (извлекает номер часа из времени).
+# Внесите изменения в текст процедуры HelloWorld, чтобы вместо строки "Hello Administrator" на экран выводилось приветствие "Доброе утро, Administrator!", "Добрый день, Administrator!" или "Добрый вечер, Administrator!", в зависимости от времени суток. Подсказка, используйте функции Time (возвращает текущее время) и Hour (извлекает номер часа из времени).<ref>Для выполнения задания вам придется использовать оператор [[VBScript. Основы VBScript#Выражение If..Then..Else|условного перехода]].</ref>
-#: Для выполнения задания вам придется использовать оператор условного перехода, который в языке VBScript имеет следующий синтаксис:
-#:
-#: If <условие> Then
-#:   [операторы]
-#: [ElseIf <условие> Then
-#:   [операторы]] . . .
-#: [Else
-#:   [операторы]]
-#: End If
-#:
-#: Здесь, в квадратных скобках, показаны необязательные части оператора.
 # Постарайтесь ответить на вопрос: почему необходимо объявлять переменную с помощью оператора Dim перед ее использованием?
 # Почему в конце выполнения процедуры необходимо с помощью вызова Designer.DestroyObject уничтожать созданные объекты?

@@ Строка 186: / Строка 186: @@
 ==Создаем форму из макроса==
-====Примечания====
+Все готово к написанию третей версии процедуры HelloWorld, в которой мы не только прочитаем из базы данных наименование текущей учетной записи, но и выведем на экран приветствие в сконструированном нами окне.
 <references/>