程式碼如下：密碼錶為mmb,使用者名稱在text1，密碼在text2裡輸入，輸入admin使用者名稱,呼叫form1,輸入其它使用者呼叫form2 username=alltrim(thisform.text1.value) &&接收輸入文字框中使用者名稱資料npass=alltrim(thisform.text2.value) &&接收輸入文字框中密碼資料**判斷密碼與使用者名稱正確與否if username=="admin"select * from mmb where 使用者名稱="admin".and.密碼=npass into cursor temp1 if reccount("temp1")>0 do form form1thisform.release elsemessagebox("密碼不正確")returnendif elseselect * from mmb where 使用者名稱=username.and.密碼=npass into cursor temp2if reccount("temp2")>0do form form2thisform.releaseelsemessagebox("密碼不正確")returnendifendif