数据库系统原理实验讲义(2014).doc

数据库系统原理上机实验讲义数学与计算机科学学院编写：颜清 实验一 计算器设计一、实验目的1、熟悉PowerBuilder运行环境；2、掌握PowerBuilder数据窗口的创建及使用。二、实验内容 1、 用PowerBuilder实现如下计算器(图1)：（图1）（CTRL+C：复制按钮及按钮中的代码；CTRL+T：复制按钮但不复制按钮中相应的代码）（1）声明变量decimal data /保存中间结果char str /保存按下的运算符int flag /flag=1表示按下的数字是前面数字的一部分，flag=0表示按下的数字是一个新的数字的开始（2）十个数字按钮和小数点按钮代码if flag=0 then sle_1.text=flag=1end ifsle_1.text=sle_1.text+this.text（3）+、-、*、/运算按钮代码choose case strcase *sle_1.text=string(dec(sle_1.text)*data)case /sle_1.text=string(data/dec(sle_1.text)case +sle_1.text=string(dec(sle_1.text)+data)case -sle_1.text=string(data - dec(sle_1.text)end choosedata=dec(sle_1.text)str=this.textflag=0（4）“清除”按钮代码sle_1.text=data=0str=flag=0（5）“=”按钮代码choose case strcase *sle_1.text=string(dec(sle_1.text)*data)case /sle_1.text=string(data/dec(sle_1.text)case +sle_1.text=string(dec(sle_1.text)+data)case -sle_1.text=string(data - dec(sle_1.text)end chooseflag=0str=（6）“应用程序”open事件代码open(w_calculator)实验二 计算器设计求一元二次方程的实根：ax2+bx+c=0（如图2）建六个静态文本框（st_1、st_2、st_3、st_4、st_5、st_6），五个单行编辑框（sle_1、sle_2、sle_3、sle_4、sle_5），三个命令按钮（ cb_1、cb_2、cb_3）（图2）（1）“求解”按钮代码dec a,b,c,d,x1,x2a=dec(sle_1.text)b=dec(sle_2.text)c=dec(sle_3.text)d=b*b - 4*a*cif d = 0 thenx1=(-b + sqrt(d)/(2*a)x2=(-b - sqrt(d)/(2*a)sle_4.text=string(round(x1,6)sle_5.text=string(round(x2,6)elsemessagebox(提示,方程无实根)end if（2）“清除”按钮代码sle_1.text=sle_2.text=sle_3.text=sle_4.text=sle_5.text=（3）“退出”按钮代码close(w_aa)（4）应用程序open事件代码open(w_aa)实验三 数据库的设计一、实验目的1、熟悉PowerBuilder运行环境；2、掌握PowerBuilder数据窗口的创建及使用。二、实验内容1、建立数据库（有三个数据表）（1）建立学生信息表s：表1snosnamesexagesedept9801李铭男19计算机软件9802刘晓鸣男20计算机应用9806刘成刚男21计算机软件9807王铭男22计算机应用9808宣明尼女18计算机应用9809柳红利女19计算机软件9803李明男22计算机应用9804张鹰女21计算机软件9805刘竟静女22计算机软件创建S表的SQL命令如下：create table S( sno char(4),sname char(8),sex char(2),age char(2),sdept char(10);insert into S values(9801,李铭,男,19,计算机软件);insert into S values(9802,刘晓鸣,男,20,计算机应用);insert into S values(9806,刘成刚,男,21,计算机软件);insert into S values(9807,王铭,男,22,计算机应用);insert into S values(9808,宣明尼,女,18,计算机应用);insert into S values(9809,柳红利,女,19,计算机软件);insert into S values(9803,李明,男,22,计算机应用);insert into S values(9804,张鹰,女,21,计算机软件);insert into S values(9805,刘竟静,女,22,计算机软件);select * from S;（2）建立学生课程信息表c：表2cnocnamecdepttnameC1PASCAL计算机应用王晓名C2数据结构计算机应用刘红C6WINDOW技术计算机软件吴志刚C3离散数学计算机应用李严劲C4计算机原理计算机软件王晓名C5数据库原理计算机应用吴志刚C9系统结构计算机软件刘红C8编译原理计算机应用蒋莹岳创建C表的SQL命令如下：create table c(cno char(4),cname char(10),cdept char(10),tname char(8);insert into c values(c1,PASCAL,计算机应用,王晓名);insert into c values(c2,数据结构,计算机应用,刘红);insert into c values(c6,WINDOW技术,计算机软件,吴志刚);insert into c values(c3,离散数学,计算机应用,李严劲);insert into c values(c4,计算机原理,计算机软件,王晓名);insert into c values(c5,数据库原理,计算机应用,吴志刚);insert into c values (c9,系统结构,计算机软件,刘红);insert into c values(c8,编译原理,计算机应用,蒋莹岳);select * from c;（3）建立学生选课信息表sc:表3snocnograde9801C2569801C6669801C4789803C1889803C2769804C1679804C2769804C3679805C1679805C3919805C2789806C178创建SC表的SQL命令如下：create table sc( sno char(4),cno char(4),grade integer);insert into sc values(9801,c2,56);insert into sc values(9801,c6,66);insert into sc values(9801,c4,78);insert into sc values(9803,c1,88);insert into sc values(9803,c2,76);insert into sc values(9804,c1,67);insert into sc values(9804,c2,76);insert into sc values(9804,c3,67);insert into sc values(9805,c1,67);insert into sc values(9805,c3,91);insert into sc values(9805,c2,78);insert into sc values(9806,c1,78);select * from sc;2、将学生信息表s生成如下信息窗口（如图3）（图3）（1）窗口的open事件代码dw_1.settransobject(sqlca)dw_1.retrieve()（2）“上一个”控制按钮cb_ 1的clicked事件代码dw_1.scrollpriorrow()（3）“下一个”控制按钮cb_ 2的clicked事件代码dw_1.scrollnextrow()（4）“第一个”控制按钮cb_ 3的clicked事件代码 dw_1.scrolltorow(1)（5）“最后一个”控制按钮cb_ 4的clicked事件代码Int nn =dw_1.rowcount()dw_1.scrolltorow(n)（6）应用程序open事件代码（复制+粘贴数据库连接信息）Connect;open(窗口名)3、将学生信息表s生成如下信息窗口（如图4）（图4）（注意：生成的数据窗口文要设置tab顺序和更新属性）（1）窗口的open事件代码dw_1.settransobject(sqlca)dw_1.retrieve()（2）“增加”控制按钮cb_ 1的clicked事件代码Int nn=dw_1.rowcount()dw_1.insertrow(n+1)dw_1.scrolltorow(n+1)dw_1.setfocus()（3）“删除”控制按钮cb_ 2的clicked事件代码int nn=dw_1.getrow()dw_1.DeleteRow(n)dw_1.Update()（4）“保存”控制按钮cb_ 3的clicked事件代码dw_1.Update()（5）“退出”控制按钮cb_ 4的clicked事件代码Close(w_s)（6）应用程序open事件代码（复制+粘贴数据库连接信息）Connect;open(窗口名)实验四 不可见数据窗口控件DataStore的应用一、实验目的1、熟悉PowerBuilder运行环境；2、掌握PowerBuilder不可见控件的使用。二、实验内容DataStore对象是一个不可视的datawindow控件，除不可视外，它与数据窗口对象有相同的功能和使用方法。在窗口中建四个静态文本框，三个单行编辑框、三个命令按钮。（图5）1、定义实例变量（dedare instance variables）int ndatastore ds2、窗口的open事件代码string xh,kchint cjds= create datastoreds.dataobject =d_scds.settransobject(sqlca)ds.retrieve()n=1xh=ds.getitemstring(n,sno)kch=ds.getitemstring(n,cno)cj=ds.getitemnumber(n,grade)sle_1.text=xhsle_2.text=kchsle_3.text=string(cj)3、命令按钮的clicked事件代码（1）上一个：string xh,kchint cjif n=1 thenn=ds.rowcount()elsen=n - 1end ifxh=ds.getitemstring(n,sno)kch=ds.getitemstring(n,cno)cj=ds.getitemnumber(n,grade)sle_1.text=xhsle_2.text=kchsle_3.text=string(cj)（2）下一个string xh,kchint cjif n=ds.rowcount() then n=1elsen=n + 1end ifxh=ds.getitemstring(n,sno)kch=ds.getitemstring(n,cno)cj=ds.getitemnumber(n,grade)sle_1.text=xhsle_2.text=kchsle_3.text=string(cj)4、应用程序open事件代码（复制+粘贴数据库连接信息）connect;open(窗口名)查询if sle_1.text= and sle_2.text= and sle_3.text= and sle_4.text= thenmessagebox(注意!,请输入查询条件!)end ifif sle_1.textthendw_1.setfilter( sno=+sle_1.text+ ); dw_1.filter();elseif sle_2.text and sle_3.text= and sle_4.text=thendw_1.setfilter(sname=+sle_2.text+ );dw_1.filter();end ifif sle_2.text and sle_3.text and sle_4.text thendw_1.setfilter(sname=+sle_2.text+andage=+sle_3.text+andage=+sle_4.text+ );dw_1.filter();end ifif sle_2.text= and sle_3.text and sle_4.text thendw_1.setfilter(age=+sle_3.text+ and age=+sle_4.text+ );dw_1.filter();end ifend if取消dw_1.setfilter();dw_1.filter();sle_1.text=sle_2.text=sle_3.text=sle_4.text=sle_1.setfocus()暂未做if sle_1.text= thenmessagebox(注意,请输入查询条件)end ifif sle_1.text thendw_1.setfilter(readerno=+ sle_1.text+)dw_1.settransobject(sqlca)dw_1.retrieve()dw_1.filter()dw_2.setfilter(readerno=+ sle_1.text+)dw_2.settransobject(sqlca)dw_2.retrieve()dw_2.filter()end if实验五 水平进度条的设计一、实验目的1、熟悉PowerBuilder运行环境；2、掌握PowerBuilder进度条的设计及使用二、实验内容在窗口（w_start）中建一个水平进度条控件（ hpb_1）、二个静态文本框控件(st_1 、st_2)，且在st_1中输入文本100，st_2中输入号，如图6。（图6）1、定义实例变量（dedare instance variables）Int n_step2、窗口的open 事件代码Timer(0.1)3、窗口的time()事件代码n_step+hpb_1.position=n_stepst_1.text=string(n_step)if n_step=100 thenopen(窗口名)hpb_1.visible=falsest_1.visible=falsest_2.visible=falsen_step=0timer(0)end if4、应用代码：Open(窗口名)实验六 登录窗口一的设计一、实验目的1、熟悉PowerBuilder运行环境；2、掌握PowerBuilder登录窗口帐号、口令是固定值的窗口的创建及使用。二、实验内容1、登录窗口如图7所示，帐号为DBA，口令为SQL，窗口上有一个图片框（p_1）、二个静态文本框(st_1、st_2)、二个单行编辑框（sle_1、sle_2）、二个命令按钮（cb_1、cb_2）。（图7）2、按钮代码（1）“登录”按钮代码string useid=dba,pass=sqlif sle_1.text= thenmessagebox(注意!,账号不能为空!)sle_1.setfocus()elseif sle_2.text= thenmessagebox(注意!,口令不能为空!)sle_2.setfocus()elseif sle_1.text=useid and sle_2.text=pass thenmessagebox(通过验证！,账号和口令正确，欢迎您使用本系统！)connect;open(窗口名)close(parent) /当前窗口名elsemessagebox(没通过验证！,账号和口令不正确，不欢迎您使用本系统！)end if（2）“取消”按钮代码close(w_login)实验七 登录窗口二的设计一、实验目的1、熟悉PowerBuilder运行环境；2、掌握PowerBuilder登录窗口帐号、口令是放在数据库表中的窗口的创建及使用。二、实验内容1、数据表中的帐号、口令如图8所示：（图8）insert into mab values (9802,刘晓鸣,2000);insert into mab values (9803,李明,3000);insert into mab values (9804,张鹰,4000);insert into mab values (9805,刘竟静,5000);insert into mab values (9806,刘成刚,6000);insert into mab values (9807,王铭,7000);insert into mab values (9808,宣明尼,8000);insert into mab values (9809,柳红利,9000);select * from mab;create table mab(czynum char(4),czyname char(10),czymima char(4),czylim char(1);insert into mab values (0001,沈夕赫,1000,1);insert into mab values (0002,丰兰息,2000,1);insert into mab values (0003,安远兮,3000,1);insert into mab values (1001,齐月兵,1001,2);insert into mab values (1002,刘贺年,2001,2);insert into mab values (1003,裴如轩,3001,2);insert into mab values (2001,李云贵,1002,3);insert into mab values (2002,王春民,2002,3);insert into mab values (2003,陆唯雨,3002,3);select * from mab;2、登录界面如图9所示（图9）（1）“确定”按钮代码/定义两个变量string num,password/判断用户是否输入信息if sle_1.text= or sle_2.text= thenmessagebox(错误！,用户名或密码不能为空！)else/检索用户名和密码记录SELECT mab.czynum, mab.czymima INTO :num, :passwordFROM mab WHERE czynum = :sle_1.text ;if num=sle_1.text and password=sle_2.text thenopen(窗口名)close(parent)elsemessagebox(错误！,用户名或密码错误，请重新输入！)end ifend if（2）“退出”按钮代码Close(窗口名)实验八 用户密码修改窗口的设计一、实验目的1、熟悉PowerBuilder运行环境；2、掌握PowerBuilder修改用户数据表的密码的窗口创建及使用。二、实验内容1、窗口界面如图10所示：（图10）方法一（1）“确定”按钮/定义变量分别记录用户名、原密码、新密码、确认密码string num,password,newpass,conpass /判断用户是否输入信息if sle_1.text= or sle_2.text= or sle_3.text= or sle_4.text= thenmessagebox(错误！,用户名或密码不能为空！)else/检索用户名和密码记录SELECT mab.czynum, mab.czymima INTO :num, :passwordFROM mab WHERE czynum = :sle_1.text ; if numsle_1.text or passwordsle_2.text thenmessagebox(错误,用户名或密码错误！)end if newpass=sle_3.textconpass=sle_4.textif newpass = conpass then update mab set czymima=:sle_3.text where czynum =:sle_1.text ;commit;messagebox(注意！,您的密码已修改，请牢记!)close(parent)end if end if（2）“取消”按钮代码close(parent)方法二（1）“确定”按钮/定义变量分别记录用户名、原密码、新密码string num, password, oldpass,newpass/原密码不能为空if trim(sle_2.text) = or isnull(sle_2.text) then returnoldpass = trim(sle_2.text)/检索用户名和密码记录SELECT mab.czynum, mab.czymima INTO :num, :passwordFROM mab WHERE czynum = :sle_1.text ;/两次输入的新密码和确认密码要相同且不能为空if trim(sle_3.text) = or trim( sle_4.text) = or isnull(sle_3.text) or isnull(sle_4.text) then returnif oldpass password then messagebox(错误,请输入正确的原密码！)sle_2.text=sle_2.setfocus()returnend ifif trim(sle_3.text) trim (sle_4.text) thenmessagebox(错误,两次输入的密码不一致！)sle_3.text=sle_4.text=sle_3.setfocus()returnend ifnewpass=trim(sle_3.text)/若原密码与新密码不同则更新账户表if oldpass newpass thenupdate mab set cyzmima=:newpass where cyznum=:num ;messagebox(提示,密码修改成功!)close(parent)end if（2）“取消”按钮代码: close(parent) /当前窗口实验九 多用户登录窗口的设计一、实验目的1、熟悉PowerBuilder运行环境；2、掌握PowerBuilder多用户登录窗口的创建及使用。二、实验内容1、多用户登录窗口如图11所示：（图11）（1）“登录”按钮代码方法一if sle_1.text= thenmessagebox(提示,帐号不能为空!)sle_1.setfocus()returnend if if sle_2.text= then messagebox(提示,密码不能为空!)sle_2.setfocus()returnend ifinteger li_class /临时变量，记录登录用户类型（学生、教师、管理员）string ls_password , gs_pas, gi_level ls_account=trim(sle_1.text) ls_password=trim(sle_2.text)string ls_strls_str=ls_accountif rb_1.checked=true thenselect student.mm , student.xh into :gs_pas , :gi_level from student where student.xh= :ls_account;li_class=1 end if if rb_2.checked=true then select qy.qymm, qy.qybh into :gs_pas, :gi_level from qy where qy.qybh= :ls_account; li_class=2 end if if rb_3.checked=true thenselect admin.mm , admin.id into :gs_pas , :gi_level from admin where admin.id= :ls_account;li_class=3end ifif gi_level= thenmessagebox(错误,帐户或密码出错!)sle_1.text=sle_2.text=sle_1.setfocus()returnend ifif ls_passwordgs_pas then messagebox(错误,账户或密码出错!)sle_1.text=sle_2.text=sle_1.setfocus()returnend ifchoose case li_classcase 1 open(w_student)case 2 open(w_qy)case 3 open (w_admin)end chooseclose(w_login)方法二if sle_1.text= thenmessagebox(提示,帐号不能为空!)sle_1.setfocus()returnend if if sle_2.text=then messagebox(提示,密码不能为空! )sle_2.setfocus()returnend ifstring num, password ,class /三变量分别记录用户账号、密码、用户类型num=trim(sle_1.text)password=trim(sle_2.text)if rb_1.checked=true thenselect mab.cyznum, mab.cyzmima,cyzlim into :num, :password,:class from mab where cyznum= :num;end ifif rb_2.checked=true thenselect mab.cyznum, mab.cyzmima,cyzlim into :num, :password,:class from mab where cyznum= :num;end ifif rb_3.checked=true thenselect mab.cyznum, mab.cyzmima,cyzlim into :num, :password,:class from mab where cyznum= :num;end ifchoose case classcase 1 open (w_student) /进入学生系统窗口case 2 open (w_teacher) /进入教师系统窗口case 3 open (w_administrator) /进入管理员系统窗口end chooseclose(当前窗口)if sle_1.text=thenmessagebox(提示,帐号不能为空!)sle_1.setfocus()return end if /输入的密码为空if sle_2.text= then messagebox(提示,密码不能为空!)sle_2.setfocus()return end if/定义三个变量 string number,mima int class /在用户表中以类型分组选出用户名和密码if rb_1.checked=true thenselect czynum ,czymima into :number ,:mima from mab where czynum= :sle_1.text and czylim=1;sle_1.text=numbersle_2.text=mimaclass=1end ifif rb_2.checked=true thenselect czynum ,czymima into :number ,:mima from mab where czynum= :sle_1.text and czylim=2;sle_1.text=numbersle_2.text=mimaclass=2end ifif rb_3.checked=true thenselect czynum ,czymima into :number ,:mima from mab where czynum= :sle_1.text and czylim=3;sle_1.text=numbersle_2.text=mimaclass=3end if/判断用户输入的用户名是否正确if numbersle_1.text or mimasle_2.text thenmessagebox(错误,用户名或密码错误，请重新输入！,exclamation!,ok!,2)sle_1.text= sle_2.text=sle_1.setfocus()elsechoose case classcase 1 open (w_student)case 2 open (w_teacher)case 3open (w_administrator)end chooseend if（2）“退出”按钮代码close(窗口名)实验十 考试系统的设计一、实验目的1、熟悉PowerBuilder运行环境；2、掌握PowerBuilder小型应用系统的开发。二、实验内容1、创建试题数据表表exam列名idtitleselectaselectbselectcselectdanswer类型intChar(100)Char(50)Char(50)Char(50)Char(50)Char(10)含义题号题目选项A选项B选项C选项D答案2、创建窗口及各控件（图7） （1）一个静态文本框sle_1 （2）一个多行文本框mle_1（3）四个单选按钮rb_1、 rb_2、 rb_3、 rb_4（4）三个命令按钮cb_1、cb_2、cb_33、 应用程序窗口及数据窗口的创建 (w_ks、d_ks) 图1240三、创建考试数据表ks的SQL命令如下：create table ks (th int,title char(100),selecta char(50),selectb char(50),selectc char(50),selectd char(50),answer char(10);insert into ks values (1,在数据库的三级模式结构中,描述数据库中全体数据的全局逻辑结构和特征的是：,A.外模式,B.内模式,C.存储模式,D.概念模式,D); insert into ks values(2,数据的完整性是指：,A.数据是正确的,B.数据的独立、可控性,C.数据的一致性,D.数据的正确性、有效性和相容性,D); insert into ks values(3,数据模型是：,A.文件的集合,B.记录的集合,C.数据的集合,D.记录及其联系的集合,D); insert into ks values(4,应用数据库的主要目的是为了：,A.解决保密问题,B.解决数据完整性问题,C. 共享数据问题,D.解决数据批量大的问题,C); insert into ks values(5,关系数据库用（ ）实现数据之间的联系。,A.关系,B.指针,C.表,D.公共属性（或外键）,D); insert into ks values(6,在数据管理技术的发展过程中，经历了人工管理阶段 、文件系统阶段和数据库系统阶段。在这几个阶段中，数据独立性最高的是（ ）阶段。,A.数据库系统,B.文件系统 ,C.人工管理,D. 数据项管理,A); insert into ks values(7,数据库系统与文件系统的主要区别是：,A.数据库系统复杂，而文件系统简单,B.文件系统不能解决数据冗余和数据独立性问题，而数据库系统可以解决,C.文件系统只能管理程序文件，而数据库系统能够管理各种类型的文件,D.文件系统管理的数据量较少，而数据库系统可以管理庞大的数据量,B); insert into ks values(8,数据库的概念模型独立于：,A.具体的机器和数据库管理系统,B.E-R 图,C.信息世界,D.现实世界,A); insert into ks values(9,数据库是在计算机系统中按照一定的数据模型组织 存储和应用的：,A.文件的集合,B.数据的集合,C. 命令的集合, D.程序的集合,B); insert into ks values(10,支持数据库各种操作的软件系统称为：,A.命令系统,B. 数据库管理系统,C. 操作系统,D. 数据库系统,B); insert into ks values(11,由计算机 、操作系统 、数据库管理系统、 数据库 、应用程序以及用户等组成的一个整体称为：,A.文件系统,B. 数据库系统,C.软件系统,D.数据库管理系统,B); insert into ks values(12,数据库系统的数据共享是指：,A.多个用户共享一个数据文件,B.多个用户共享同一种语言共享数据,C.多种应用 、多种语言 、多个用户相互覆盖地使用数据集合,D.同一个应用的多个程序共享数据,C); insert into ks values(13,在数据库中，产生数据不一致的根本原因是：,A.数据存储量太大,B.没有严格保护数据,C.未对数据进行完整性控制,D. 数据冗余,D); insert into ks values(14,数据库管理系统是：,A.一组硬件,B.一个完整的数据库应用系统,C.一组软件,D.既有硬件，也有软件,C); insert into ks values(15,数据库管理系统是：,A.数学软件,B. 应用软件,C.计算机辅助设计,D.系统软件,D); insert into ks values(16,数据库管理系统的工作不包括：,A.定义数据库,B. 对已定义的数据库进行管理,C.对定义的数据库提供操作系统,D. 数据通信,C); insert into ks values(17,数据库应用系统是由（ ）组成。,A.数据库管理系统 、应用系统 、数据库,B.数据库管理系统 、 数据库管理员、 数据库,C.数据库系统 、应用程序系统 、 用户,D.数据库管理系统 、数据库 、用户,C); insert into ks values(18,数据库管理系统是：,A.操作系统的一部分,B.在操作系统支持下的系统软件, C.一种编译程序,D.一种操作系统,B);四、考试窗口