【文章內(nèi)容簡介】
t exac on set status off set safe off = 2 set cent on open database fjhbk do form hyjmbd read events do form dljmbd read events do form zjmbd read events clear windows close database set symsmenu to default return 歡迎使用界面 用戶登錄命令的 click 事件為: do form dljmbd 退出的 click 事件為: Quit 登陸界面 確認(rèn)按鈕的 click 事件為: public xm1,mm1 xm1=TRIM() mm1=TRIM() SET EXAC ON select mmb locate for 姓名 =xm1 .AND. 密碼 =mm1 if found() clear events do form zjmbd else messagebox(39。密碼與賬號(hào)不符 ,請(qǐng)重新輸入 !39。,16+0+0,39。提示:請(qǐng)核對(duì)密碼! 39。) do form dljmbd endif 返回按鈕的 click 事件為: do form hyjmbd 系統(tǒng)主界面 航班信息查詢命令的 click 事件為: do form hbcxbd 航班信息增加命令的 click 事件為: do form hbzjbd 航班信息修改命令的 click 事件為: do form hbxgbd 修改密碼的 click 事件為: do form xgmmbd 退出系統(tǒng)的 click 事件為: Quit 密碼修改 確認(rèn)修改命令的 click 事件為: sele mmb locate for alltr( )=姓名 amp。amp。姓名是一個(gè)全局變量 ,系統(tǒng)登錄時(shí)保存了當(dāng)前用戶名 if alltr( )alltr() messageb(原密碼有誤 ,請(qǐng)重新輸入 !) = return