【執行個體簡介】E4A程式設計MYSQL資料庫操作
【執行個體截圖】
【核心代碼】
變量 mysql 為 MySQL直連
事件 增加視窗.建立完畢()
mysql=公用子產品.mysql
結束 事件
事件 增加視窗.按下某鍵(鍵代碼 為 整數型,傳址 屏蔽 為 邏輯型)
判斷 鍵代碼
分支 傳回鍵
切換視窗(公用子產品.連接配接視窗)
豐富文本框1.内容=""
豐富文本框2.内容=""
豐富文本框3.内容=""
豐富文本框4.内容=""
豐富文本框5.内容=""
豐富文本框6.内容=""
結束 判斷
結束 事件
事件 增加視窗.切換完畢()
編輯框1.内容=讀取設定("目前日期")
結束 事件
事件 添加.被單擊()
mysql.添加記錄("working","time,place,content,situation,list,careful,remarks",""&編輯框1.内容&","&代碼轉字元(34)&豐富文本框1.内容&代碼轉字元(34)&","&代碼轉字元(34)&豐富文本框2.内容&代碼轉字元(34)&","&代碼轉字元(34)&豐富文本框3.内容&代碼轉字元(34)&","&代碼轉字元(34)&豐富文本框4.内容&代碼轉字元(34)&","&代碼轉字元(34)&豐富文本框5.内容&代碼轉字元(34)&","&代碼轉字元(34)&豐富文本框6.内容&代碼轉字元(34)&"")
結束 事件
事件 mysql.添加記錄完畢(添加結果 為 邏輯型)
如果 添加結果 則
彈出提示("添加成功")
否則
彈出提示("添加失敗")
結束 如果
結束 事件