非首次使用：要判斷當前表格裡面的time列中有沒有今天的日期數據。沒有：今天還沒有使用過有：今天已經使用。第三步：繼續分情況處理沒有今天的日期數據：在數據庫中寫入今天日期和次數1有今天的日期數據：讀取數據庫中當天日期對應的num列中的次數，判斷次數是否小於3次小於3次：今天還可以繼續使用，把今天日期對應的次數+1不小於3次：今天免費測試次數用完。 這部分寫成代碼是：Import "sqlite3.lua" Dim dbpath="/sdcard/pictures/abc.db" Dim t=DateTime.Format("%Y%m%d") If Dir.Exist(dbpath) = 0 Then showmessage "首次使用" sqlite3.SQLCreate(dbpath, "code", {"time","num"}) sqlite3.SQLInsert DBpath, "code", {"time":t, "num":1} Else dim ret=sqlite3.SQLSelect(DBpath, "code", "num", "WHERE time="&t) If Len(ret) = 0 Then showmessage "今天首次使用" sqlite3.SQLInsert DBpath, "code", {"time":t, "num":1} Else showmessage encode.TableToJson(ret) If cint(ret[1]["num"]) < 3 Then sqlite3.SQLUpdate DBpath, "code", {"num":ret[1]["num"]+1}, "WHERE time=" & t showmessage "第"&ret[1]["num"]+1&"次領卡" Else showmessage "今天3次測試卡已經領過了，明天再來" End If End If End If 在以上的代碼中，並沒有獲取測試卡的操作，僅僅是對測試卡需要獲取的記錄，我們寫每次寫入/修改數據庫內容都是要配合獲取測試的操作。這其中包括建庫、當天首次使用、次數小於3等這幾種情況。 （4）讀取服務器上的文本這一步需要一個php文件，完成讀取文本內容和刪除文本內容的操作，把php文件和存有測試卡的文本放到服務器裡面，運行下面代碼就可以了。需要這個文件可以加我微信xiaomu86119，備註【服務器文本】Dim ip="http://192.168.1.3/file" //我建了一個file的文件夾，不是一定有這個目錄的Dim 文件名="code" //文本名字TracePrint url.get(ip&"/File.php?uid=6&txtid="&文件名&"&hid=1") （5）寫入輸入框Function 函數名1() Dim 測試卡="abc0001" uip.SetAttribute("輸入框1",{"初始文本":測試卡})End Function =正文完=我個人微信
留言列表
留言列表