ndle:=ODBCOpen(WindowHandle,"","D","","weirhp")--打开数据库在ODBC.U32Рname:=ODBCExecute(ODBCHandle, namesql)--执行sql ODBC.U32Рlose(ODBCHandle)Рif name="" thenРSystemMessageBox(WindowHandle, "不存在该用户,请重新登录!", "新概念英语一的多媒体教学软件", 48) -- 1=OKРFlag:=0РelseРFlag:=1Рend ifР登录代码Рsno:=EntryTextРnamesql:="select name from student where id='"^sno^"'"РODBCHandle:=ODBCOpen(WindowHandle,"","D","","weirhp")--打开数据库在ODBC.U32Рname:=ODBCExecute(ODBCHandle, namesql)--执行sql ODBC.U32Рlose(ODBCHandle)Рif hname="" tenРSystemMessageBox(WindowHandle, "不存在该用户,请重新登录!", "新概念英语一的多媒体教学软件", 48) -- 1=OKР:=0FlagРelseРFlag:=1Рend ifР登录系统流程线设计如图4-1所示,完效成果如图4-2。Р图4-1 登录系统流程线设计图Р图4-2 登录系统效果图Р4.2 软件首页设计Р首页是一个软件的灵魂,首页的设计一定要精美飘落,卡通符合学生的认知心理特征,课件的色彩要特色鲜明,搭配要鲜艳科学,有一定童趣。本次毕设就是充分利用课件制作的艺术性,技术性,教育性,科学性以及学生认知的心理特征来设计开发这个英语学习系统。软件首页流程线设计如图4-3所示。