资源描述：
《数据库系统原理实验讲义(2014)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、《数据库系统原理》上机实验讲义数学与计算机科学学院编写：颜清40实验一计算器设计一、实验目的1、熟悉PowerBuilder运行环境；2、掌握PowerBuilder数据窗口的创建及使用。二、实验内容1、用PowerBuilder实现如下计算器(图1)：（图1）（CTRL+C：复制按钮及按钮中的代码；CTRL+T：复制按钮但不复制按钮中相应的代码）（1）声明变量decimaldata//保存中间结果charstr//保存按下的运算符intflag//flag=1表示按下的数字是前面数字的一部分，flag=0表示按下的数字是一个新的数字的开始（2）十个数字按钮和小数点按钮代码
2、ifflag=0thensle_1.text=""flag=1endifsle_1.text=sle_1.text+this.text（3）+、-、*、/运算按钮代码40choosecasestrcase'*'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))endchoos
3、edata=dec(sle_1.text)str=this.textflag=0（4）“清除”按钮代码sle_1.text=""data=0str=''flag=0（5）“=”按钮代码choosecasestrcase'*'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))e
4、ndchooseflag=0str=''（6）“应用程序”open事件代码open(w_calculator)40实验二计算器设计求一元二次方程的实根：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）“求解”按钮代码deca,b,c,d,x1,x2a=dec(sle_1.text)b=dec(sle_2.text)c=dec(sle_3.text)d=b*b-4*a*cifd>=
5、0thenx1=(-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("提示","方程无实根")endif（2）“清除”按钮代码sle_1.text=""sle_2.text=""sle_3.text=""sle_4.text=""sle_5.text=""（3）“退出”按钮代码close(w_aa)40（4）应用程序open事件代码open(w_aa)实验三数据库的设计一、实验目的1、熟悉PowerB
6、uilder运行环境；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命令如下：createtableS(snochar(4),snamechar(8),sexchar(2),agech
7、ar(2),sdeptchar(10));insertintoSvalues('9801','李铭','男','19','计算机软件');insertintoSvalues('9802','刘晓鸣','男','20','计算机应用');insertintoSvalues('9806','刘成刚','男','21','计算机软件');insertintoSvalues('9807','王铭','男','22','计算机应用');insertintoSvalues('9808','宣明尼','女','18','计算机应
