如果登錄用戶名編輯框.內容≠“”且登錄密碼編輯框內容≠“” )
查詢用戶名語句=“ SELECT username FROM user HERE username =’”+登錄用戶名編輯框.內容+“'”
查詢密碼語句=“SELECT password FROM user WHERR password= ’”+登錄密碼編輯框.內容+“'”
執行SQL語句(MySq1句柄， 查詢用戶名語句)
記錄集句柄=取記錄集(MySq1句柄)
讀字段值記錄集句柄“username”, 用戶名)
釋放記錄集(記錄集句柄)
執行SQL語句0MySq1句柄， 查詢密碼語句)
記錄集句柄1 =取記錄集(MySqI 句柄)
讀字段值(記錄集句柄1， “password” ，密碼)
釋放記錄集(記錄集句柄1)
如果真用戶名=登錄用戶名編輯框內容且密碼=登錄密碼編輯框.內容)
信息框(“登錄成功!” 0,，)
返回0
信息框(“用戶名或密碼錯誤:”，0,，)
信息框(“請輸入用戶名或密碼!”，0，，)
