2、求一元二次方程的实根：ax2+bx+c=0（如图2) 建六个静态文本框(st_1、st2、st_3、st_4、st_5),五个单行编辑框(sle1、 sle2、sle3、sle_4、sle5),三个命令按钮(cb1、cb2、cb3) ■求解方程 日回区 求解一元二次方程的实根 输入a的值， 输入b的值： 输入c的值： x1= X2= 求解 清除 退出 (图2) (1)“求解”按钮代码 dec a,b,c,d,x1,x2 a=dec(slel.text)】 b=dec(sle 2.text) c=dec(sle_3.text) db籼 4*a*刘 if d>0 then x1=(-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)) else messagebox(“提示”，"方程无实根") end if (2)“清除”按钮代码 sle_l.text=" sle_2.text= sle_3.text= sle_4.text= sle_5.text=" (3)“退出”按钮代码 se(w_aa) (4)应用程序open事件代码 open(w_aa)
11 2、求一元二次方程的实根：ax 2 +bx+c=0（如图 2） 建六个静态文本框（st_1、st_2、st_3、st_4、st_5），五个单行编辑框（sle_1、 sle_2、sle_3、sle_4、sle_5），三个命令按钮（ cb_1、cb_2、cb_3） （图 2） （1）“求解”按钮代码 dec a,b,c,d,x1,x2 a=dec(sle_1.text) b=dec(sle_2.text) c=dec(sle_3.text) d=b*b - 4*a*c if d >= 0 then x1=(-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)) else messagebox("提示","方程无实根") 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)
实验四数据窗口设计 一、实验目的 l、熟悉PowerBuilder运行环境： 2、掌握PowerBuilder数据窗口的创建及使用. 二、实验内容 1、建立数据库有数据表 (1)建立学生信息表5： 表1 snam sedept 9801 李铭 男 19 计算机软件 9802 刘晓鸣 男 20 计算机应用 9806 刘成风 里 计算机软件 9807 王铭 男 22 计算机应用 9808 宜明尼 女 18 计算机应用 9R09 柳红利 19 计算机软件 9803 22 计算机应用 9804 张鹰 21 计算机软件 9805 刘竞静 女 22 计算机软件 创建S表的SQL命令如下： create table S(sno char(④)， snam char(8),sex char(2),age char(②)，sdept char(1o): insert into S values(980 ,’男 计算机软行 insert into S values(9802 刘晓吗， 20°， 计岸机应用)： insert into s values(9806' 刘成刚，’男，’21’，’计算机软件)： insert into s values(9807." 王铭'，男’，22'，计算机应用’)： insert into S values(9808,'宣明尼'，'女'，'18，'计算机应用) inser into S values(9809 柳红利 女'，19 ,’计算机软件)： insert into S values(9803 李明 男 22 计算机应用')； insert into S values(C9804','张鹰'，’女'，'21'，’计算机软件)： insert into S values(C9805','刘竞静'，'女'，'22，'计算机软件')： select from S: (2)建立学生课程信息表c: cno cname cdept tname 1 PASCAL 斗销机应用 王感多 数据结构 计算机应用 红 C6 WINDOW技不 计算机软件 昊志刚 C3 离敬数学 计算机应用 李严劲 C4 计算机度理 计销机敏件 王晓名 G 数据库原理 计算机应用 吴志刚 C9 系统结构 计算机软件 刘红 C8 编译原理 计算机应用 蒋莹岳
12 实验四 数据窗口设计 一、实验目的 1、熟悉 PowerBuilder 运行环境； 2、掌握 PowerBuilder 数据窗口的创建及使用。 二、实验内容 1、建立数据库有数据表 （1）建立学生信息表 s： 表 1 sno sname sex age sedept 9801 李铭 男 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： 表 2 cno cname cdept tname C1 PASCAL 计算机应用 王晓名 C2 数据结构 计算机应用 刘红 C6 WINDOW 技术 计算机软件 吴志刚 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('cl','PASCAL','计算机应用'，'王晓名')； insert into c values('c2' 数据结构，计算机应用，刘红) insert into c values(c insert into c values(c3', 离散数学 十算机应用， insert into c values('c4','计算机原理' ,’计算机软件’，’王晓名)： insert into c values(c5,'数据库原理'，'计算机应用'，'吴志刚)： insert into c values insert into c values（c8','编译原理'，'计算机应用'，'蒋莹岳')： select from c: (3)建立学生选课信息表sc: 表3 sno cno grade 9801 C2 56 9801 C6 66 0R01 C4 18 9803 88 9803 C2 76 9804 CI 67 9804 9804 C3 67 9805 CI 67 9805 C3 01 9805 C2 78 9806 C1 78 创建SC表的SQL命令如下： create tahle se（sno char(④，cno char(,8 grade integer) 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(9,c67) inser t 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,) select from sc;
13 创建 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: 表 3 sno cno grade 9801 C2 56 9801 C6 66 9801 C4 78 9803 C1 88 9803 C2 76 9804 C1 67 9804 C2 76 9804 C3 67 9805 C1 67 9805 C3 91 9805 C2 78 9806 C1 78 创建 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;