具体方法如下：

如果登录用户名编辑框.内容≠“”且登录密码编辑框内容≠“” )
查询用户名语句=“ 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，，)