Справка:TMManager (Архив)

Материал из TaxiMaster
(перенаправлено с «Справка:TMManager»)
Перейти к: навигация, поиск

TMManager (Архив), пример сценария для работы с TMManager на языке Basic (VBS):

' Пример работы с объектом "Передача координат".
' Координаты в программе можно менять только в следующем диапазоне:
' Широта - от 55.76194441 до 55.79749994
' Долгота - от 37.54083331 до 37.60694440
' Это связано с демонстрационной картой от компании "Ингит". В ней координаты заданы жестко.
' Экипаж может не отображаться на карте по следующим причинам:
' - передаваемое значение "Identifier" не совпадает ни с одним значением поля "Идентификатор" у экипажей;
' - передаваемые значения координат выходят из допустимого диапазона данной карты;
' - с последнего момента передачи прошло много времени (экипажи через определенный промежуток
'   времени автоматически стираются с карты). Время задается в настройках программы в закладке "Отображение экипажей".

' При открытии сессии запускается таймер, который каждые 10 секунд передает список
' принятых координат в базу данных.
' После закрытия сессии таймер прекращает работу. Координаты, переданные в COM-объект без открытия сессии,
' никак не обрабатываются и не сохраняются.

Dim mgr

' Создать COM-объект.
set mgr = WScript.CreateObject("TMMgr.TMManager")

' Установить подключение.
' DBConnect(string ServerName, string FilePath, string Login, string Password)
mgr.DBConnect "localhost", "C:\Program Files\TMEnterprise\tme_db.fdb", "SYSDBA", "masterkey"

' Открыть сессию на прием координат.
mgr.BeginCoordsSending

' Отправить координаты.
' SendCoords(int Identifier, float Latitude, float Longitude)
' Identifier - это может быть любое число, главное, чтобы оно совпадало с полем "Идентификатор"
' в справочнике "Экипажи". Для удобства можно использовать ИД водителя, его можно посмотреть в справочнике "Водители".
mgr.SendCoords 11, 55.77, 37.55
mgr.SendCoords 12, 55.78, 37.56
mgr.SendCoords 13, 55.77, 37.58

WScript.Sleep 17000

' Отправить координаты.
mgr.SendCoords 11, 55.78, 37.56
mgr.SendCoords 12, 55.77, 37.58
mgr.SendCoords 13, 55.77, 37.55

WScript.Sleep 17000

' Отправить координаты.
mgr.SendCoords 11, 55.77, 37.55
mgr.SendCoords 12, 55.78, 37.55
mgr.SendCoords 13, 55.78, 37.56

' Закрыть сессию приема координат.
mgr.EndCoordsSending

' Разъединить подключение.
mgr.DBDisconnect

' Удалить COM-объект.
Set mgr = Nothing