




版權說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權,請進行舉報或認領
文檔簡介
1、JobDone數(shù)據(jù)處理源代碼# JobDone處理web中間件傳回的數(shù)據(jù) 同時操作本地sql數(shù)據(jù)庫Sub JobDone (Job As HttpJob) Log("JobName = " & Job.JobName & ", Success = " & Job.Success) If Job.Success = True Then Select Job.JobName Case "Job1" 'print the result to the logs 'Log(Job.GetString)Di
2、m JSON As JSONParser Dim Map1 As Map JSON.Initialize(Job.GetString)Map1 = JSON.NextObjectDim m1 As StringDim m As Map 'helper map for navigatingDim MenuItems As List'log("success":False,"message":"用戶名或密碼錯誤!"Log(11111111111111111111111111111111111) m1 = Map1.Get(
3、"success") Log( m1)'Log(m.Get(m.GetKeyAt(0) If m1=False Then mymsg("用戶名或密碼錯誤!") Return End Ifm = Map1.Get("data")id=m.Get("ID")Name =m.Get("UserName")sj =m.Get("ExpirationDate")ppxtp1t.Text ="系統(tǒng)("&Name&")"If
4、jcsj(sj) =1 Thenmymsg("軟件已經(jīng)到期,過期日期:"&sj)ReturnEnd Ifmymsg(Name&"登錄成功"&CRLF&"id:"&id&CRLF&"過期日期:"&sj)Log(Name&"登錄成功"&"id"&id&"過期日期"&sj)If pxtc.Checked=True ThenFile.WriteString(Fi
5、le.DirInternal,"dl.txt",Job.GetString)End IfPxt.Visible=False'加密jm'For i = 0 To m.Size - 1''m = m.GetKeyAt(i) 'Log( m.GetKeyAt(i)'Log( m.Get(m.GetKeyAt(i)'Next''=Case "Job9"Log(Job.GetString)If Job.GetString<>"1" ThenExitApplica
6、tionEnd If'=Case "Job4" 'Log(Job.GetString)Dim JSON As JSONParser Dim Map1 As Map JSON.Initialize(Job.GetString)Map1 = JSON.NextObjectDim m1 As StringDim m As Map 'helper map for navigatingDim MenuItems As List m1 = Map1.Get("success") Log( m1)'Log(m.Get(m.GetKeyA
7、t(0) If m1=False Then mymsg("新建用戶不成功!") Return Else mymsg("新建成功!") Dim m As Map 'helper map for navigatingDim ml As Listm = Map1.Get("data") Dim Query As String Query = "INSERT INTO bd " _&"(Name,OrgGroupName,CallName,ChildrenName,Email,OrgGroup,C
8、hildrenSchool,ID,Organization,PhoneNo,WeiXin,Birthday,Address) " _&"VALUES ('"&m.Get("Name")&"','"&m.Get("OrgGroupName")&"','"&m.Get("CallName")&"','"&m.Get("Ch
9、ildrenName")&"','"&m.Get("Email")&"','"&m.Get("OrgGroup")&"','"&m.Get("ChildrenSchool")&"','"&m.Get("ID")&"','"&m.Get("O
10、rganization")&"','"&m.Get("PhoneNo")&"','"&m.Get("WeiXin")&"','"&m.Get("Birthday")&"','"&m.Get("Address")&"')" SQL1.ExecNonQuery(Quer
11、y)mymsg("同步完成") p4.Visible =False End If'= Case "Job3" 'print the result to the logs 'Log(Job.GetString)Dim JSON As JSONParserDim Map1 As MapJSON.Initialize(Job.GetString)Map1 = JSON.NextObjectDim m As Map 'helper map for navigatingDim ml As Listml = Map1.Get(&quo
12、t;data")'Map1.SizeDim Query2 As String Query2 = "DELETE FROM bd" SQL1.ExecNonQuery(Query2)Query2 = "update sqlite_sequence set seq=0 where Name='bd'"SQL1.ExecNonQuery(Query2)For i = 0 To ml.Size - 1m=ml.Get(i) Dim Query As String Query = "INSERT INTO bd &quo
13、t; _&"(Name,OrgGroupName,CallName,ChildrenName,Email,OrgGroup,ChildrenSchool,ID,Organization,PhoneNo) " _&"VALUES ('"&m.Get("Name")&"','"&m.Get("OrgGroupName")&"','"&m.Get("CallName"
14、)&"','"&m.Get("ChildrenName")&"','"&m.Get("Email")&"','"&m.Get("OrgGroup")&"','"&m.Get("ChildrenSchool")&"','"&m.Get("ID"
15、;)&"','"&m.Get("Organization")&"','"&m.Get("PhoneNo")&"')" SQL1.ExecNonQuery(Query)DoEventsNextmymsg("同步完成")ppxtan1.Enabled=Truepb.Visible =FalseDim sjsj As String sjsj=DateTime.Date(DateTime.Now)&
16、;" "& DateTime.time(DateTime.Now)ppxtl3.Text="數(shù)據(jù)同步至:"&sjsjFile.WriteString(File.DirInternal,"ytsj.txt",sjsj)'=同步計劃 Case "Job5" 'print the result to the logs 'Log(Job.GetString)Dim JSON As JSONParserDim Map1 As MapJSON.Initialize(Job.GetStri
17、ng)Map1 = JSON.NextObjectDim m As Map 'helper map for navigatingDim ml As Listml = Map1.Get("data")'Map1.SizeDim Query2 As String Query2 = "DELETE FROM PL" SQL1.ExecNonQuery(Query2)Query2 = "update sqlite_sequence set seq=0 where Name='PL'"SQL1.ExecNonQu
18、ery(Query2) For i = 0 To ml.Size - 1 m=ml.Get(i)Log(m.Get("ID")&"-"&m.Get("PlanName") Dim ml2 As ListDim ml3 As List ml2 = m.Get("SendPlanDetailList")ml3 = m.Get("SendPlanContractList")Dim yhs As Stringyhs=ml3.SizeFor ii = 0 To ml2.Size - 1 D
19、im map2 As Map map2=ml2.Get(ii) Log(map2.Get("SendDate")&"-"&map2.Get("Content") Dim sj As String Dim sj1 As StringDim sj2 As StringDateTime.DateFormat="yyyy-MM-dd"DateTime.timeFormat="HH:mm:ss"sj=map2.Get("SendDate")If sj.IndexOf (
20、"T")>0 Then sj1=sj.SubString2(0,10)sj2=sj.SubString2(11,19)sj=sj1&" "&sj2Log(sj)Elsesj="1900-01-01 00:00:00"End If Dim Query As String Query = "INSERT INTO PL " _&"(ID,PlanName,Content,SendDate,CID) " _&"VALUES ('"&am
21、p;m.Get("ID")&"','"&m.Get("PlanName")&"','"&map2.Get("Content")&"','"&sj&"','"&yhs&"')"Log(Query) SQL1.ExecNonQuery(Query)Dim Cursor7 As CursorDim s
22、qls As String Dim wenben As String sqls="Select Max(id2) As ok FROM pl"Cursor7 = SQL1.ExecQuery(sqls)If Cursor7.RowCount > 0 ThenCursor7.Position = 0For iii = 0 To ml3.Size - 1 Dim Query As String Query = "INSERT or ignore INTO PLC " _&"(jhid,id,pid,k) " _&&q
23、uot;VALUES ('"&m.Get("ID")&"','"&ml3.Get(iii)&"','"&Cursor7.GetString("ok")&"','"&m.Get("ID")&ml3.Get(iii)&Cursor7.GetString("ok")&"')" SQL1.Ex
24、ecNonQuery(Query)DoEvents Next End IfCursor7.CloseNext Next mymsg("同步完成")SQL1.ExecNonQuery("update PL SET zt='運行' where SendDate>datetime('now','localtime')")Log("update PL SET zt='運行' where SendDate>datetime('now','localtime
25、')")ppxtan3.Enabled=Truepb.Visible =FalseDim sjsj As String sjsj=DateTime.Date(DateTime.Now)&" "& DateTime.time(DateTime.Now)ppxtl3.Text="數(shù)據(jù)同步至:"&sjsjFile.WriteString(File.DirInternal,"ytsj.txt",sjsj)'=Case "Job7"Dim JSON As JSONParser
26、 Dim Map1 As Map JSON.Initialize(Job.GetString)Map1 = JSON.NextObjectDim m1 As StringDim m2 As Int m1 = Map1.Get("success") Log( m1)'Log(m.Get(m.GetKeyAt(0) If m1=False Then mymsg("數(shù)據(jù)讀取錯誤!") Return End Ifm2 = Map1.Get("data")Log( m2)SQL1.ExecNonQuery("update wh SET s="&m2)StopService(fuwu)StartService(fuwu)L
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025年中國高功率光纖布拉格光柵行業(yè)市場前景預測及投資價值評估分析報告
- 新型復合纖維項目投資商業(yè)計劃書范本(投資融資分析)
- 八年級英語復習計劃與心理調(diào)適
- 教育行業(yè)勞務員崗位職責與發(fā)展路徑
- 高校工會組織建設管理制度范文
- 數(shù)字轉(zhuǎn)型中的找短板補短板心得體會
- 土木工程施工單位項目職責
- 部編版一年級語文下冊閱讀理解計劃
- 2025年幼兒園心理輔導計劃
- 直播結(jié)合計劃書
- 江蘇省常州市重點中學2025屆高考歷史三模試卷含解析
- 小學五年級下冊道德與法治期末測試卷帶答案【考試直接用】
- 甘肅省蘭州市城七里河區(qū)-2023-2024學年六年級下學期小學期末畢業(yè)測試語文試卷
- 《裝飾材料與施工》考試復習題庫(含答案)
- 中小學生民法典主題班會-民法典宣講課件
- 第一單元大單元教學設計(表格式) 2023-2024學年統(tǒng)編版語文八年級下冊
- (正式版)SHT 3046-2024 石油化工立式圓筒形鋼制焊接儲罐設計規(guī)范
- 小學高段學生數(shù)學應用意識培養(yǎng)的實踐研究 開題報告
- GB/T 17592-2024紡織品禁用偶氮染料的測定
- GA/T 2015-2023芬太尼類藥物專用智能柜通用技術規(guī)范
- 唱片行業(yè)前景分析
評論
0/150
提交評論