一、業務邏輯

本次分享的是移動警務項目考勤模塊的代碼實現，該模塊的主要業務邏輯是用戶到達要考勤的目標點-》打開移動警務軟件的考勤模塊-》系統自動進行組合定位-》定位成功后，選擇打卡方式-》最后提交考勤結果即可，具體步驟如下：

1、用戶登錄后在首頁選擇考勤管理，進入簽到記錄頁面，點擊右上角的+號，進入考勤簽到模塊；

?

2、進入考勤簽到模塊，若GPS已經開啟，則會在20秒內嘗試獲取GPS數據，如果定位成功，則調用業務平臺的POI查詢接口，獲取當前考勤點的名稱，跳轉到步驟5；

3、若GPS定位失敗，則會在10秒內進行MapABC的網絡定位，如果定位成功，則調用業務平臺的POI查詢接口，獲取當前考勤點的名稱， 跳轉到步驟5；

4、若MapABC的網絡定位，則會在10秒內調用遼寧基地的SDK進行定位，如果定位成功，則調用業務平臺的POI查詢接口，獲取當前考勤點的名稱， 跳轉到步驟5，否則跳轉到步驟7；

5、顯示當前的考勤點信息；

6、選擇考勤點，進行打開，程序跳轉到上一頁面面；

7、如果基地的SDK定位仍然失敗，則本次定位失敗！

二、流程圖

三、代碼實現

1、定義變量，用于保存超時計數和獲得的經緯度

local g_retryCount = 20 -- GPS定位超時計數 local net_retryCount = 20 -- 網絡定位超時計數 local latitude = 0 -- 當前的緯度：字符串類型，小數點后精確6位 local longitude = 0 -- 當前的經度：字符串類型，小數點后精確6位

?

2、組合定位的入口函數

-- @brief 組合定位方式獲取當前的經緯度 function getCurrentLocation()-- 初始化MapABC定位地址g_address = nil local locInfo = Sprite:findChild(rootSprite, 'kaoqinlocation')Sprite:setProperty(locInfo, 'text', '正在定位......')-- 當前無經緯度信息，檢查當前gps狀態local result = System:getGPSStatus()if result == -1 thenSprite:setProperty(locInfo, 'text', '當前GPS不可用, 嘗試使用網絡定位...')Log:write('GPS開啟失敗, 嘗試使用網絡定位...')getLocationByNetwork()elseif result == 0 thenSprite:setProperty(locInfo, 'text', 'GPS未開啟，嘗試使用網絡定位...')getLocationByNetwork()elseif result == 1 thenSprite:setProperty(locInfo, 'text', 'GPS已經開啟，正在使用GPS定位...')Timer:set(222, 1000, 'getLocationByGPS')end end

?

3、利用GPS獲取當前經緯度

-- @brief 利用GPS獲取經緯度，需要多次進行請求 function getLocationByGPS()-- 獲取當前的經緯度數據local locInfo = Sprite:findChild(rootSprite, 'kaoqinlocation')Sprite:setProperty(locInfo, "text", "GPS正在定位中，剩余"..g_retryCount.."秒")longitude,latitude = System:getGPSData()Log:write(string.format("當前經緯度: %s, %s", latitude, longitude))-- 對獲得的數據進行處理if longitude ~= nil and longitude ~= 0 and latitude ~= nil and latitude ~= 0 and g_retryCount > 0 thenLog:write("GPS數據有效!")g_retryCount = 20System:setGPSStatus(0)latitude, longitude = formatLocation(latitude, longitude)poiSearch(latitude, longitude, "0")elseif longitude == 0 and latitude == 0 and g_retryCount > 0 then-- 未超時需要繼續請求Log:write("GPS數據無效!")g_retryCount = g_retryCount - 1Timer:set(222, 1000, 'getLocationByGPS')else-- 已經超時，進行網絡定位System:setGPSStatus(0)g_retryCount = 20Log:write('GPS定位失敗, 嘗試使用網絡定位...')Sprite:setProperty(locInfo, 'text', 'GPS定位失敗，嘗試使用網絡定位...')getLocationByNetwork()end end

4、網絡定位入口函數

-- @brief 網絡定位獲取經緯度 function getLocationByNetwork()local locInfo = Sprite:findChild(rootSprite, 'kaoqinlocation')if net_retryCount > 10 thenif net_retryCount == 20 then getLocationByMapABC()end Sprite:setProperty(locInfo, "text", "MapABC網絡定位中，剩余"..(net_retryCount - 10).."秒")net_retryCount = net_retryCount - 1elseif net_retryCount > 0 then if net_retryCount == 10 then getLocationByJD()endSprite:setProperty(locInfo, "text", "遼寧基地網絡定位中，剩余"..net_retryCount.."秒")net_retryCount = net_retryCount - 1 elseSprite:setProperty(locInfo, "text", "定位失敗，請稍候再試!")resetNetworkLocation()returnendTimer:set(333, 1000, 'getLocationByNetwork') end

5、高德定位獲取當前經緯度

-- @brief 高德網絡定位獲取當前經緯度 function getLocationByMapABC()Log:write("嘗試使用高德網絡定位獲取當前經緯度...")observer = Plugin:getObserver()Map:getCurPosition(observer, 1001) end -- @brief 獲取接口返回時的反饋處理 function bodyOnPluginEvent(msg, param)if msg == 1001 then -- MapABC定位返回local postDataString = Param:getString(param, 0)local postData = Json:loadString2Table(postDataString)Log:write('MapABC網絡定位結果：', postData)if postData.longitude ~= nil and postData.latitude ~= nil thenresetNetworkLocation()latitude, longitude = formatLocation(postData.latitude, postData.longitude)g_address = postData.descpoiSearch(latitude, longitude, "1")end

?

6、遼寧基地獲取當前經緯度

-- @brief 遼寧基地網絡定位獲取當前經緯度 function getLocationByJD()Log:write("嘗試使用遼寧基地網絡定位獲取當前經緯度...")local code = LuaToJavaExec('Clutter','GetLocationByJD', "[]", 1, "GetLocationByJDCallback");Log:write("LuaToJavaExec函數返回:", code) end -- @brief 遼寧基地網絡定位回調函數 function GetLocationByJDCallback(strMsg)Log:write("遼寧基地網絡定位返回字符串："..strMsg)local startPos = string.find(strMsg, "\"")local endPos = lastIndexof(strMsg, "\"")local locationStr = string.sub(strMsg, startPos + 1, endPos - 1)local locationArray = Split(locationStr, " ")latitude = locationArray[1]longitude = locationArray[2]Log:write("解析后的經緯度為:"..latitude..", "..longitude)latitude,longitude = formatLocation(latitude, longitude)resetNetworkLocation()poiSearch(latitude, longitude, "0") end

7、格式化經緯度函數

-- @brief 格式化經緯度 function formatLocation(lat, lon)lat = tonumber(lat)lon = tonumber(lon)while lat > 90 do lat = lat / 10end while lon > 180 dolon = lon / 10end lat = string.format("%.6f", lat)lon = string.format("%.6f", lon)Log:write(string.format("格式化后的經緯度為:%s, %s", lat, lon))return lat, lon end

8、POI查詢接口函數

-- @brief 由經緯度進行POI查詢 -- localType : 0 - 真實經緯度， 1 - MapABC經緯度 function poiSearch(lat, lon, locateType)Log:write("進行POI查詢,latitude:"..lat..", longitude:"..lon..", locateType:"..locateType)local isShifting = locateTypelocal requestUrl = string.format("http://120.209.131.154:8080/mobileSale/locateUserType/poi?mobile=%s&longtitude=%s&latitude=%s&radius=%s&isShifting=%s&locateType=%s&productCode=%s",Config:get("username"), lon, lat, "1", isShifting, locateType, Config:get("productKey"))Log:write("自定義POI查詢接口地址："..requestUrl)Http:request('pois', requestUrl, 1003, {useCache = false})Loading:show() end elseif msg == 1003 then -- 自定義POI查詢接口返回Loading:close()local json = Http:jsonDecode('pois')Log:write("自定義POI查詢接口返回：", json)if json.success == "true" and json.list ~= nil and getJsonArrayCount(json.list) > 0 theng_addressList = json.list-- 加載地址選擇列表local len = getJsonArrayCount(g_addressList)local addrList = Sprite:findChild(rootSprite, "addrList")local addrSelectItem = Sprite:findChild(rootSprite, "addrSelectItem")ListView:loadItem(addrList, addrSelectItem, len, 'loadListItem')ListView:adjust(addrList) -- 顯示取消列表按鈕local addrListNode = Sprite:findChild(rootSprite, "addrListNode")Sprite:setProperty(addrListNode, "visible", "true")Sprite:setProperty(addrListNode, "enable", "true")elseLog:write("自定義POI查詢失敗或為空！")if g_address ~= nil then Log:write("使用高德定位返回的地址")local locInfo = Sprite:findChild(rootSprite, 'kaoqinlocation')Sprite:setProperty(locInfo, "text", g_address)isLocateSuccess = trueelseLog:write("調用高德地址反解接口...")observer = Plugin:getObserver()latitude = tonumber(latitude) * 1000000longitude = tonumber(longitude) * 1000000Map:getLocation(observer, 1004, latitude, longitude)end end

?

總結

以上是生活随笔為你收集整理的移动警务考勤打卡组合定位实现的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。