多媒体 实验八 Authorware对数据库操作

1、实验八 Authorware对数据库的操作一、实验目的:1熟悉ODBC的功能和设置2熟悉authorware调用和更新数据库的方法二、实验准备1安装了WINDOWS2000或者WINXP的计算机2安装了Authorware7.0中文版软件3. 安装了Access或SQL等相关数据库三、实验内容和步骤 方法1：1、手动添加数据源： 开始-控制面板-管理工具-数据源 在ODBC数据源管理器中选系统DSN,点击右侧的添加按钮； 在创建新数据源窗口中选“Driver toMicrosoft Access(*.mdb)然后点击完成； 在ODBC Microsoft Access安装窗口中，为数据源命名，

2、例如ABC等，选中下面的数据库选项，点击系统数据库； 在选择系统数据库窗口中选择你要用到的数据库的名子，如 ballot.mdb. 2、ODBC.U32（Authorware外部函数库，用于连接Authorware和数据库。包括： ODBCOpen 格式：ODBCHandle := ODBCOpen(WindowHandle, ErrorVar, Database, User, Password) ODBCExecute 格式：data := ODBCExecute(ODBCHandle, SQLString) ODBCClose 格式：ODBCClose(ODBCHandle)） 在Auth

3、orware编辑器中新建一文件sql.a6p,先后拖一运算图标和一显示图标到主流程线上. 导入外部函数ODBC.U32，在运算图标中写入: abc:=ODBCOpen(WindowHandle,ABC,wang,134) sql:=select ballot,hit from ballot data:=ODBCExecute(abc, sql) ODBCClose(abc) 在显示图标中写入date. 3、 运行sql.a6p文件,即可显示ballot.mdb中字段ballot和hit中的所有内容. 方法2 （与方法1不同之处是该方法通过Authorware外部函数tMsDSN.u32库中的t

4、MsDBRegister实现数据源的直接建立，格式为：result := tMsDBRegister(dbReqType, dbType, dbList)）步骤如下：在Authorware编辑器中新建一文件sql2.a6p,先后拖一运算图标和一显示图标到主流程线上.导入外部函tMsDSN.u32和ODBC.U32，在运算图标中写入:dbList:=DSN=ABC;dbList:=dbListDescription= ODBC DSN;dbList:=dbListFIL=MS Access;dbList:=dbListDBQ=FileLocationballot.mdb;dbList:=dbLi

5、stUser=wang;dbList:=dbListPwd=123;tMsDBRegister(4, Microsoft Access Driver (*.mdb), dbList)abc:=ODBCOpen(WindowHandle,ABC,wang,134)sql:=select ballot,hit from ballotdata:=ODBCExecute(abc, sql)ODBCClose(abc)在显示图标中写入date.运行sql.a6p文件,即可显示ballot.mdb中字段ballot和hit中的所有内容.案例：随机出题【制作步骤】一、建立试题库 在d:test目录下建立一个

6、名字为test.mdb的数据库文件，其中建立三个表：填空题、选择题、判断题，分别用于存放填空题、选择题、判断题的题库。每个表的字段和内容如图8-1所示。表中的每条记录对应着一道考题，记录的内容和记录的数量可以由教师根据需要自行设计。 图8-1二、创建数据源 利用“tMsDSN.u32”文件提供的“tMsDBRegister（）”函数，可以在程序中自动创建ODBC数据源。“tMsDSN.u32”文件在Authorware的安装目录中存在，用户在使用前要对其进行装载，并且要将该文件与程序文件一起打包发布。 例如，想把d:testtest.mdb设定为程序的数据源，数据源名称定为“test info

7、”，则可以用以下的语句完成： dbReqType:=4 dbType:=Microsoft Access Driver (*.mdb) dbList:=DSN=test info; dbList:=dbListDescription=试题库; dbList:=dbListFIL=MS Access; dbList:=dbListDBQ=d:testtest.mdb result:=tMsDBRegister(dbReqType,dbType,dbList) 这样，一条红线就将程序和d:testtest.mdb联系起来了！ 在这里，如果在局域网环境下，想将教师机（假如教师机的标识为teacher

8、）中的文件夹test下的test.mdb文件设为数据源，那么可以先将test文件夹共享，然后把语句dbList:=dbListDBQ=d:testtest.mdb改为dbList:=dbListDBQ=teachertesttest.mdb即可。 三从题库中读试题 1、在程序访问数据库之前，要先将相应的数据库文件打开。 例如，要将上文中定义的数据源“test info”所指向的文件test.mdb在程序中打开，则可以用以下的语句实现： DatabaseName:=test info ODBCError:= ODBChandle:=ODBCOpen(WindowHandle,ODBCError,

9、DatabaseName,) 变量DatabaseName用于指向特定的数据源，在此处的取值为“test info”。 2、读取题库中试题的总数。这里，我们以读填空题的题库为例。用到的语句如下： - 读取填空题题库中试题的总数，并将总数存放在变量total中。 SQLString:=select count(*) from 填空题 total:=ODBCExecute(ODBChandle,SQLString) 若想读取选择题题库中试题的总数，那么只需将语句“SQLString:=select count(*) from 填空题”改为“SQLString:=select count(*) fr

10、om 选择题”即可。 3、随机地在题库中选择一道题。 以填空题为例，读取试题的“题干”和“正确答案”并存放到变量tigan和Rightdaan中。用到的语句如下： -随机产生一个试题的编号 bianhao:=Random(1,Total,1) -在试题库中读编号对应的试题的题干和答案,并存于变量tigan和rightdanan中. SQLString:=select distinct 题干 from 填空题 where 填空题.编号=bianhao tigan:=ODBCExecute(ODBChandle,SQLString) SQLString:=select distinct 答案 fr

11、om 填空题 where 填空题.编号=bianhao rightdaan:=ODBCExecute(ODBChandle,SQLString) 这样，就可以在程序中，通过显示变量tigan的值来显示题目，通过变量Rightdaan来判断用户输入的答案是否正确,从而实现更进一步的交互功能。 选择题的读取，则可以用下面的一组语句： -随机产生一个试题的编号 bianhao:=Random(1,Total,1) -在试题库中读编号对应的试题的题干、备选答案A、B、C、D、正确答案,并存于变量xtigan、aa、bb、cc、dd和xrightdaan中. SQLString:=select dist

12、inct 题干 from 选择题 where选择题.编号=bianhao xtigan:=ODBCExecute(ODBChandle,SQLString) SQLString:=select distinct A from 选择题 where选择题.编号=bianhao aa:=ODBCExecute(ODBChandle,SQLString) SQLString:=select distinct B from 选择题 where选择题.编号=bianhao bb:=ODBCExecute(ODBChandle,SQLString) SQLString:=select distinct C

13、from 选择题 where选择题.编号=bianhao cc:=ODBCExecute(ODBChandle,SQLString) SQLString:=select distinct D from 选择题 where选择题.编号=bianhao dd:=ODBCExecute(ODBChandle,SQLString) SQLString:=select distinct 答案 from选择题where选择题.编号=bianhao xrightdaan:=ODBCExecute(ODBChandle,SQLString) 判断题的读取： -随机产生一个试题的编号 bianhao:=Rand

14、om(1,Total,1) -在试题库中读编号对应的试题的题干和答案,并存于变量ptigan和prightdanan中. SQLString:=select distinct 题干 from 判断题 where选择题.编号=bianhao ptigan:=ODBCExecute(ODBChandle,SQLString) SQLString:=select distinct 答案 from 判断题where选择题.编号=bianhao prightdaan:=ODBCExecute(ODBChandle,SQLString) 图8-2四呈现试题 试题存放到变量中以后，就可以在“呈现试题”的展示

15、图标中，通过显示相应变量的值来呈现题目。试题呈现界面可以参考图8-2进行设计： 至此，d:testtest.mdb这个数据库文件就成功地嫁到了程序中！并且程序打包发布后，用户还可以随意地修改数据库中的内容而不影响程序的运行！增强了试题的灵活性。 五设计交互式的程序结构 1、设计程序时，可以参考图8-3所示的程序结构。 图8-32、在填空题的交互分支“*”中，设置一个计算图标“判断并反馈”，其中的内容如下： if EntryText=rightdaan then resp:=你真棒! else resp:=再试一试吧! GoTo(IconID呈现试题) end if 其功能是程序对用户所输入的内

16、容进行判断，如果用户所输入的答案正确，则反馈信息是“你真棒!”，程序向下执行；否则反馈信息是“再试一试吧!”，并且让用户重新回答。 3、在选择题的交互分支中，设置了四组按钮类型的响应。每组响应中也是设计了一个计算图标“判断并反馈”，以“A”组为例说明其中的语句： useranswer=“A” if useranswer =prightdaan then presp:=你真棒! else presp:=再试一试吧! GoTo(IconID呈现试题2) end if 其功能是：如果用户选择了答案A，并且A是正确答案，那么反馈信息是“你真棒!”，程序向下执行；否则反馈信息是“再试一试吧!”，并且让用

17、户重新选择。在B、C、D分支中，只需把语句useranswer=“A”中的“A”改为相应的“B”、“C”、“D”即可。 4、判断题的程序结构与选择题类似，只是在“正确”和“错误”这两个分支的计算图标中，第一条语句useranswer=“A”要做相应的修改，即： “正确”分支：改为useranswer=“T”； “错误”分支：改为useranswer=“F”。 这样，一组简单的交互试题就设计完成了。在每道题的设计中，用户也可以增加限定交互次数或限定交互时间的响应，用来限定用户可以尝试的次数或时间。 四、实用技巧Authorware连接和操作数据库的方法比较简单，它是通过两种工业标准实现的：1、Open Database Connectivity (ODBC)，一个通用的与数据库连接的