|
其中具体实现为： dblist:="DSN=studentinfo;"--设置新建的数据源名为student info 内容来自www.paper51.com dblist:=dblist^"Description=题库;"--对数据源的说明 内容来自论文无忧网 www.paper51.com dblist:=dblist^"FIL=MSAccess;"--说明数据源的类型是"Access"数据库 copyright paper51.com
dblist:=dblist^"DBQ="^FileLocation^"student.mdb;"--与数据源相联接的数据库名为"student.mdb" paper51.com result:= tMsDBRegister(4, dbtype, dblist)--创建一个新的系统数据源 http://www.paper51.com odbchandle:=ODBCOpen(WindowHandle,"ODBCError", "student info",,"xueshshujuku")--打开数据源"student" ,不指定用户名，密码为xueshshujuku 内容来自www.paper51.com addSQL1:="insertinto 成绩(学号,姓名)values('"^xuehao^"', '"^name^"')" 内容来自www.paper51.com ODBCExecute(odbchandle,addSQL1)--在数据库中添加用户输入的记录 内容来自www.paper51.com
addSQL2:="select姓名 from 成绩 where 姓名='"^name^"'" 内容来自论文无忧网 www.paper51.com addrecord:=ODBCExecute(odbchandle,addSQL2)--检测添加是否成功 http://www.paper51.com
ODBCClose(odbchandle)--关闭数据库 paper51.com ifaddrecord<>"" then paper51.com
MessageBox(WindowHandle,"["^name^"]"^"学生登录成功！","学生登录系统",0) paper51.com dl:=1 paper51.com else 内容来自www.paper51.com
MessageBox(WindowHandle,"["^name^"]"^"学生登录失败,请重新登录!","学生登录",0) copyright paper51.com dl:=0 内容来自www.paper51.com endif --对添加的成功与否进行判断，并给出相应的提示对话框。 内容来自论文无忧网 www.paper51.com 当学生登录数据库后，学生开始做题，试题需从数据库中的读出，从数据库中读出试题的具体实现过程为： 内容来自论文无忧网 www.paper51.com SQLString:="select题干 from 单选题 where 题号=1" 内容来自论文无忧网 www.paper51.com xtigan:=ODBCExecute(odbchandle,SQLString) 内容来自论文无忧网 www.paper51.com SQLString:="select题号 from 单选题 where 题号=1" paper51.com tihao:=ODBCExecute(odbchandle,SQLString) paper51.com SQLString:="select选项A from 单选题 where 题号=1" paper51.com
aa:=ODBCExecute(odbchandle,SQLString) copyright paper51.com SQLString:="select选项B from 单选题 where 题号=1" copyright paper51.com bb:=ODBCExecute(odbchandle,SQLString) 内容来自www.paper51.com SQLString:="select选项C from 单选题 where 题号=1" 内容来自www.paper51.com cc:=ODBCExecute(odbchandle,SQLString) http://www.paper51.com SQLString:="select选项D from 单选题 where 题号=1" paper51.com
dd:=ODBCExecute(odbchandle,SQLString) http://www.paper51.com 在读出试题后，必须对试题中的每一个选项进行相应的设置，必须让学生看到自己选择了哪个选项，其具体实现为： 内容来自论文无忧网 www.paper51.com Checked@"a1":=1--按钮a1的值为选中状态 http://www.paper51.com Checked@"b1":=0--按钮b1的值为非选中状态 http://www.paper51.com
Checked@"c1":=0--按钮c1的值为非选中状态 http://www.paper51.com
Checked@"d1":=0--按钮d1的值为非选中状态 内容来自论文无忧网 www.paper51.com 当选择了某个选项后要对这个选项的选择给予一定的处理，如提示“您选择的答案是（ ）”，并要记下当前学生所选择的选项，以便于后面计算得分时候能顺利计算，这个方法具体在课件代码中给以标示。 内容来自论文无忧网 www.paper51.com
当学生做完题目后，要给出学生的分数，判断该学生是否达到目标，看他是否可以交卷，若可以交卷，在交卷成功的前提下，把相应的信息写入数据库，便获得随机产生的一个随机码，表示通过该检测，具体实现方法为： copyright paper51.com 计算得分部分如下， paper51.com zuodui:=answer1+answer2+answer3+answer4+answer5+answer6+answer7+answer8+answer9+answer10 内容来自论文无忧网 www.paper51.com zuocuo:=10-(answer1+answer2+answer3+answer4+answer5+answer6+answer7+answer8+answer9+answer10) paper51.com defen:=(answer1+answer2+answer3+answer4+answer5+answer6+answer7+answer8+answer9+answer10)*10 内容来自论文无忧网 www.paper51.com if defen>="60" then copyright paper51.com keyi:="恭喜你，你可以交卷了！" 内容来自论文无忧网 www.paper51.com else copyright paper51.com keyi:="你还没有达到目标，请选择“退出” 内容来自www.paper51.com
end if paper51.com 把分数写入到数据库中， 内容来自www.paper51.com
odbchandle:=ODBCOpen(WindowHandle,"ODBCError", "student info",,"xueshshujuku") paper51.com --打开数据库 http://www.paper51.com
chengji1:="update成绩 set 分数="^defen^" where姓名='"^name^"'" copyright paper51.com chengji2:="update成绩 set 随机码="^suijima^"where 姓名='"^name^"'" http://www.paper51.com ODBCExecute(odbchandle,chengji1) paper51.com ODBCExecute(odbchandle,chengji2) http://www.paper51.com --写入成绩 http://www.paper51.com
chengji3:="select分数 from 成绩 where 姓名='"^name^"'" 内容来自www.paper51.com addrecord3:=ODBCExecute(odbchandle,chengji3) 内容来自论文无忧网 www.paper51.com --检测添加是否成功 内容来自www.paper51.com ODBCClose(odbchandle) paper51.com --关闭数据库 内容来自论文无忧网 www.paper51.com
copyright paper51.com ifaddrecord3<>"" then copyright paper51.com |