浙大远程16年秋数据库应用程序设计离线作业(兼容)

浙江大学远程教育学院《数据库应用程序设计》课程作业姓名：学号：年级：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”是否可用，单击“退出系统”按钮时，结束程序的运行。答：程序主要代码清单如下：procedureTForm1.Button1Click(Sender:TObject);beginlabel1.Caption:='您点击了按钮1！';end;procedureTForm1.Button2Click(Sender:TObject);beginlabel1.Caption:='您点击了按钮2！';end;procedureTForm1.Button3Click(Sender:TObject);beginlabel1.Caption:='';end;procedureTForm1.Button4Click(Sender:TObject);beginForm1.Close;end;2.9设计如图2－6所示的界面。当单击按钮时，可控制文本框中字体的颜色。图2－5图2－6答：程序主要代码清单如下：procedureTForm1.Button1Click(Sender:TObject);beginEdit1.Font.Color:=clred;end;procedureTForm1.Button2Click(Sender:TObject);beginEdit1.Font.Color:=clgreen;end;procedureTForm1.Button3Click(Sender:TObject);beginEdit1.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个数字编辑框分别输入小时、分、秒，换算共有多少秒，然后使用标签输出。答：程序主要代码清单如下：procedureTForm1.Button1Click(Sender:TObject);beginlabel5.Caption:=inttostr(spinedit1.value*3600+spinedit2.value*60+spinedit3.value)+'秒';end;4.8在编辑框中输入一个实数，利用备注框输出该实数及其平方和平方根。答：程序主要代码清单如下：procedureTForm1.Button1Click(Sender:TObject);beginmemo1.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;procedureTForm1.FormCreate(Sender:TObject);beginmemo1.Lines.Clear;edit1.Clearend;第五章5.11任意给定3个实数，按照从大到小的顺序依次输出这3个数。答：程序主要代码清单如下：usesMath;procedureTForm1.Button1Click(Sender:TObject);vara,b,c,d,e,f:real;begina:=strtofloat(edit1.Text);b:=strtofloat(edit2.Text);c:=strtofloat(edit3.Text);d:=max(max(a,b),c);f:=min(min(a,b),c);if(ad)and(af)thene:=aelseif(bd)and(bf)thene:=belseif(cd)and(cf)thene:=c;label3.Caption:=floattostr(d)+''+floattostr(e)+''+floattostr(f);end;procedureTForm1.FormCreate(Sender:TObject);beginedit1.clear;edit2.clear;edit3.clear;label3.Caption:='';end;5.13假设工资的增幅标准为：若基本工资大于等于1000元，增加工资20%；若小于1000元大于等于800元，则增加工资15%；若小于800元，则增加工资10%。请根据用户在文本框中输入的基本工资，计算出增加后的工资。答：程序主要代码清单如下：procedureTForm1.Button1Click(Sender:TObject);vara,b:real;begina:=strtofloat(edit1.Text);if(a=1000)thenb:=a*1.2elseif(a=800)thenb:=1.15*aelseb:=1.1*a;edit2.Text:=floattostr(b);end;procedureTForm1.FormCreate(Sender:TObject);beginedit1.clear;edit2.clear;end;第六章6.5设s=1X2X3X…Xn，求s不大于20000时最大的n。答：程序主要代码清单如下：procedureTForm1.Button1Click(Sender:TObject);varx,s:integer;beginx:=1;s:=1;whiles=20000dobeginx:=x+1;s:=x*s;end;label2.Caption:='n='+inttostr(x-1)end;procedureTForm1.FormCreate(Sender:TObject);beginlabel2.caption:='';end;6.10在标签上输出100~200之间的所有的奇数，其中3的倍数除外。答：程序主要代码清单如下：procedureTForm1.Button1Click(Sender:TObject);vara,i:integer;ar:array[1..50]ofinteger;begini:=1;Fora:=100To200Dobeginif((amod2=1)and((amod3)0))thenbeginar[i]:=a;label2.Caption:=label2.Caption+inttostr(ar[i])+'';if(imod10=0)thenlabel2.Caption:=label2.Caption+chr(13)+chr(10);i:=i+1;end;end;end;procedureTForm1.FormCreate(Sender:TObject);beginlabel2.Caption:='';end;第七章7.4求1~200这200个数的和，当和大于10000时结束计算。（要求使用转向语句）答：程序主要代码清单如下：procedureTForm1.Button1Click(Sender:TObject);vari,sum,x:integer;beginsum:=0;i:=0;repeati:=i+1;sum:=sum+i;if(sum10000)thenbeginx:=i-1;break;end;untili=200;label3.Caption:='相加的数字是从1到'+inttostr(x)+'，和为'+inttostr(sum-x-1);end;procedureTForm1.FormCreate(Sender:TObject);beginlabel3.Caption:='';end;第八章8.8编写函数，输出100~500之间所有能同时被3和13整除的数。答：建立工程，设计界面如图：在代码编辑窗口的private中定义函数ch的原型部分：private{Privatedeclarations}functionch(a,b:integer):string;将光标放在该函数原型的代码定义行，按下ctrl+shift+C组合键，在函数体定义中加入代码。程序主要代码清单如下：functionTForm1.ch(a,b:integer):string;vars:string;i:integer;beginfori:=atobdoif(imod3=0)and(imod13=0)thens:=s+inttostr(i)+'';result:=s;end;procedureTForm1.FormCreate(Sender:TObject);beginedit1.Clear;edit2.Clear;label4.Caption:='';end;procedureTForm1.Button1Click(Sender:TObject);beginlabel4.Caption:=ch(strtoint(edit2.Text),strtoint(edit1.Text));end;第九章9.2打开对话框组件和打开图片对话框组件有什么异同点？答：打开对话框组件和打开图片对话框组外观相似，只是打开图片对话框组件增加了一个预览区域，可以用来显示用户所选择的图象。打开图片对话框组件的直接上级是打开对话框组件，打开图片对话框组件所拥有的属性、方法和时间与打开对话框组件完全相同，只是它主要是用来打开图片的。第十章10.7菜单命令项与工具栏按钮的单击事件中的代码是否可以关联？如何关联？答：可以关联，利用位于Standard选项卡中的ActionList组件。例如用ActionList组件建立一个动作Action1，双击编辑好代码，再将菜单命令项和工具栏按钮的事件中的“Action”都选择设置为Action1，这样两个就关联起来了。第十一章11.4调用子窗体的close方法时是否可关闭该子窗体？若不能，需要怎么做？答：调用子窗体的close方法时不能关闭该子窗体。关闭子窗体方法：先把窗体的fsFormstlyle改成fsMDIChild，再在事件中选择Onclose属性，写入Action:=CaFree第十二章12.3使用红色的画笔在窗体中绘制一个半径为5的圆，并且用黄色来填充圆的内部。答：半径为5的圆太小了，切图后只有一点点大，看不清楚我将尺寸放大为半径50画图。具体步骤如下：画一个图形：修改相关参数设置，填充颜色改成黄色，画笔颜色改成红色，形状style改成圆形，width改成100：第十三章13.3打开一个文本文件有几种方法？区别是什么？答：