浙大远程在线教育之2016年秋《数据库应用程序设计》课下作业.docVIP

浙江大学远程教育学院 《数据库应用程序设计》课程作业 姓名： 学 号： 年级： 15年春 学习中心： ————————————————————————————— 作业 第一章 1.5 如何保存Delphi的项目？尝试自己动手创建一个项目，并保存。 答：练习课本例1.1，创建“我的第一个Delphi小程序” 运行程序： 保存项目，选择全部保存，保存为dpr格式： 1.7 尝试设计如图1－10所示的窗体。（图见教材P15页图1－10） 图1－10 答：向窗体中添加一个标签组件label，三个radionbutton按钮和两个按钮组件button，并根据原图设置对应的的Caption值，并使得radionbutton1的checked属性变为True，如图所示： 运行后： 第二章 2.8设计如图2－5所示的界面。单击“按钮1”或“按钮2”时在标签上显示用户所执行的操作。单击“开启/停用按钮”可控制“按钮1”和“按钮2”是否可用，单击“退出系统”按钮时，结束程序的运行。 答：程序主要代码清单如下： procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption:=您点击了按钮1！; end; procedure TForm1.Button2Click(Sender: TObject); begin label1.Caption:=您点击了按钮2！; end; procedure TForm1.Button3Click(Sender: TObject); begin label1.Caption:= ; end; procedure TForm1.Button4Click(Sender: TObject); begin Form1.Close; end; 2.9 设计如图2－6所示的界面。当单击按钮时，可控制文本框中字体的颜色。 图2－5 图2－6 答：程序主要代码清单如下： procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Font.Color:= clred; end; procedure TForm1.Button2Click(Sender: TObject); begin Edit1.Font.Color:= clgreen; end; procedure TForm1.Button3Click(Sender: TObject); begin Edit1.Font.Color:= clblue; end; 第三章 3.8 下列实数中哪些是合法的，哪些是不合法的？不合法的请说明理由。 （A）0.25E+02 （B）.25+2 （C）25E+2 （D）34.5 （E）.123 （F）-3E-4 答： （A）0.25E+02 合法 （B）.25+2 不合法，指数记数法不能省略E，小数点前后一定要有数字。 （C）25E+2 合法 （D）34.5合法 （E）.123 不合法，因为小数点前后一定要有数字 （F）-3E-4 合法 3.12 数学式子sin30。写成Delphi表达式是下列哪个？ （A）Sin30 （B）Sin(30) （C）SIN（30。） （D）Sin(30*Pi/180) 答：要把角度30度转化为弧度表示，所以应该是（D）Sin(30*Pi/180) 第四章 4.7 利用3个数字编辑框分别输入小时、分、秒，换算共有多少秒，然后使用标签输出。 答：程序主要代码清单如下： procedure TForm1.Button1Click(Sender: TObject); begin label5.Caption:=inttostr(spinedit1.value*3600+spinedit2.value*60+spinedit3.value)+秒; end; 4.8 在编辑框中输入一个实数，利用备注框输出该实数及其平方和平方根。 答：程序主要代码清单如下： procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.Clear; memo1.Lines.Strings[0]:=edit1.Text+的平方是+floattostr(sqr(strtofloat(edit1.Text) ) )+chr(13) +chr(10); memo1.Lines.Strings[1]:=edit1.Text+的平方根是+floattostr(sqrt(strtofloat(edit1.Text) ) ); end; procedure TForm1.FormCreate(Sender: T