e4a sqlite案例

變量 數據庫表名 為 文本型
事件 主窗口.創建完畢()
	數據庫表名 = "mytable"
結束 事件

事件 按鈕4.被單擊()
	如果 文件是否存在(取存儲卡路徑() & "/mydata.db") = 假 則
		創建數據庫(取存儲卡路徑() & "/mydata.db")
		彈出提示("創建數據庫成功！")
	結束 如果
	打開數據庫(取存儲卡路徑() & "/mydata.db") '！！！在進行數據庫操作前必須先打開數據庫
	彈出提示("打開數據庫成功！")
結束 事件

事件 按鈕1.被單擊()
	如果 數據表是否存在(數據庫表名) = 假 則
		'數據庫執行("CREATE TABLE " & 數據庫表名 & " (id text,value text)") '創建數據表,表的結構有兩個列,第一列為id,第二列為value
		創建數據表(數據庫表名,"id text,value text")
		'如果要創建自增型id字段,可以這樣寫 創建數據表(數據庫表名,"id integer PRIMARY KEY,value text")
		彈出提示("創建數據表成功！")
	否則	
		彈出提示("數據表已存在！")
	結束 如果	
結束 事件

事件 按鈕2.被單擊()
'	數據庫執行("INSERT INTO " & 數據庫表名 & " VALUES ('1','[e-mail]')") '插入記錄
'	數據庫執行("INSERT INTO " & 數據庫表名 & " VALUES ('2','[e-mail]')") 
'	數據庫執行("INSERT INTO " & 數據庫表名 & " VALUES ('3','[e-mail]')") 
'	數據庫執行("INSERT INTO " & 數據庫表名 & " VALUES ('4','[e-mail]')") 
	插入記錄(數據庫表名,"'1','[e-mail]'")
	插入記錄(數據庫表名,"'2','[e-mail]'")
	插入記錄(數據庫表名,"'3','[e-mail]'")
	插入記錄(數據庫表名,"'4','[e-mail]'")
	'如果id是自增型字段,應該這樣寫 插入記錄(數據庫表名,"null,'[e-mail]'")
	'要插入編輯框的內容,可以這樣寫：插入記錄(數據庫表名,"'" & 編輯框1.內容 & "','" & 編輯框2.內容 & "'")
    彈出提示("插入成功！")
結束 事件

事件 按鈕3.被單擊()
	'編輯框1.內容 = 數據庫查詢("SELECT * FROM " & 數據庫表名 & " WHERE id='1'","-","\n") '查詢id='1'的那條記錄,每條記錄的子項之間用-隔開,各條記錄之間用換行符隔開
	'編輯框1.內容 = 條件查詢(數據庫表名,"id='1'","-","\n")
	如果 刪首尾空(編輯框2.內容) = "" 則
		彈出提示("請輸入查詢條件")
		退出
	結束 如果
	編輯框1.內容 = 條件查詢(數據庫表名,"id='" & 刪首尾空(編輯框2.內容) & "'","-","\n")
	彈出提示("查詢成功！")
結束 事件

事件 按鈕6.被單擊()
	'數據庫執行("UPDATE " & 數據庫表名 & " SET value='這是修改后的值' WHERE id='1'") '修改id='1'的那條記錄
	修改記錄(數據庫表名,"value='這是修改后的值'","id='1'")
	彈出提示("修改成功！")	
結束 事件

事件 按鈕5.被單擊()
	'數據庫執行("DELETE FROM " & 數據庫表名 & " WHERE id='1'") '刪除id='1'的那條記錄
    刪除記錄(數據庫表名,"id='1'")
	彈出提示("刪除成功！")
結束 事件

事件 按鈕7.被單擊()
	'數據庫執行("DROP TABLE " & 數據庫表名) '刪除整個數據庫表
	刪除數據表(數據庫表名)
	彈出提示("刪除數據庫表成功！")
結束 事件

事件 按鈕8.被單擊()
	彈出提示("記錄總數為：" & 取記錄數(數據庫表名) & "條")
結束 事件

事件 按鈕9.被單擊()
	'編輯框1.內容 = 數據庫查詢("SELECT * FROM " & 數據庫表名 & " WHERE value LIKE '%163.com'","-","\n") '查詢所有value以"163.com"結尾的記錄
	編輯框1.內容 = 條件查詢(數據庫表名,"value LIKE '%163.com'","-","\n")
	彈出提示("查詢成功！")
結束 事件

事件 按鈕10.被單擊()
	'編輯框1.內容 = 數據庫查詢("SELECT * FROM " & 數據庫表名 & " LIMIT 0,3","-","\n") '查詢從第0條(第一條)開始的3條記錄
	編輯框1.內容 = 范圍查詢(數據庫表名,0,3,"-","\n")
	彈出提示("查詢成功！")
結束 事件

事件 按鈕11.被單擊()
	關閉數據庫() '！！！在程序結束時關閉數據庫
	結束程序()
結束 事件