設定表(密碼錶)裡面新增欄位使用者名稱和密碼用於你儲存密碼和使用者名稱的!新建表單呼叫資料環境新增密碼錶,新增窗體控制元件combo1、text1、spinner1、command1,並在command1的click過程加入命令:locate all for alltrim(密碼錶.使用者名稱)=alltrim(thisform.combo1.value)if found() if alltrim(thisform.text1.value)==alltrim(密碼錶.密碼) do form 你的表單 thisform.release else thisform.spinner1.value=thisform.spinner1.value+1 if thisform.spinner1.value=3 messagebox("對不起口令不正確!"+chr(13)+"對不起,你無權使用!",48,"登入資訊") thisform.release quit endif messagebox("密碼錯誤,請重新輸入!",48,"登入資訊") thisform.text1.setfocus thisform.text1.value="" thisform.refresh endifendif
設定表(密碼錶)裡面新增欄位使用者名稱和密碼用於你儲存密碼和使用者名稱的!新建表單呼叫資料環境新增密碼錶,新增窗體控制元件combo1、text1、spinner1、command1,並在command1的click過程加入命令:locate all for alltrim(密碼錶.使用者名稱)=alltrim(thisform.combo1.value)if found() if alltrim(thisform.text1.value)==alltrim(密碼錶.密碼) do form 你的表單 thisform.release else thisform.spinner1.value=thisform.spinner1.value+1 if thisform.spinner1.value=3 messagebox("對不起口令不正確!"+chr(13)+"對不起,你無權使用!",48,"登入資訊") thisform.release quit endif messagebox("密碼錯誤,請重新輸入!",48,"登入資訊") thisform.text1.setfocus thisform.text1.value="" thisform.refresh endifendif