PB实现计算器,一元二次方程.docVIP

实验3：学习PB与SQL SEREVR数据库的连接方法 本次实验的主要目的是掌握PB8.0以上环境及语句的使用，学习PB与SQL SEREVR数据库的连接方法与编程技巧。 实 验 报 告 3 日期： 一．题目： 题目见PB实用教程（第2、3版）中实验2、实验3及实验4，编程序，数据库采用SQL SERVER，然后上机调试运行。 实验2： 运行界面： 部分代码如下： choose case s1 case * sle_1.text=string(dec(sle_1.text)*add1) case / sle_1.text=string(add1/dec(sle_1.text)) case + sle_1.text=string(dec(sle_1.text)+add1) case - sle_1.text=string(add1 -dec(sle_1.text)) end choose add1=dec(sle_1.text) s1=this.text flag=0 if flag=0 then sle_1.text= flag=1 end if sle_1.text=sle_1.text+this.text 运行界面： 部分代码如下： decimal a,b,c,data a= dec(sle_1.text) b= dec(sle_2.text) c= dec(sle_3.text) data = b*b - 4*a*c if data =0 then sle_4.text = left(string((-b + sqrt(data))/2*a),6) sle_5.text = left(string((-b - sqrt(data))/2*a),6) else sle_4.text =left( string((-b )/2*a),5)+i++left(string(sqrt(-data)/2*a),5)+j sle_5.text =left( string((-b )/2*a),5)+i-+left(string(sqrt(-data)/2*a),5)+j end if 实验3： 运行界面： 部分代码如下： if TimerFlag=false then Timer (5) TimerFlag=true else Timer (0) TimerFlag=false end if MessageBox (消息框,计时时间到) 实验3： 运行界面： 部分代码如下： str=sle_1.text l=len(str) p=pos(mle_1.text,str) if p0 then mle_1.selecttext(p,l) mle_1.setfocus() cb_search_next.enabled=true cb_replace.enabled=true else cb_search_next.enabled=false cb_replace.enabled=false messageBox(提示信息,没找到！) end if p=pos(mle_1.text,str,p+1) if p0 then mle_1.selecttext(p,l) mle_1.setfocus() cb_replace.enabled=true else cb_replace.enabled=false cb_search_next.enabled=false MessageBox(完成,已到文章末尾！) end if string s2 s2=sle_2.text if p0 then mle_1.text=replace(mle_1.text,p,l,s2) //用s2的内容替换 end if string s2 s2=sle_2.text str=sle_1.text l=len(str) p=pos(mle_1.text,str) if p0 then mle_1.text=replace(mle_1.text,p,l,s2) end if do while p0 p=pos(mle_1.text,str,p+1) if p0 then mle_1.text=replace(mle_1.text,p,l,s2) end if loop MessageBox(完成,已到文章末尾！) 实验4： 建立数据库，建立数据源，连接数据源和文件。 并建表。