数据库应用程序设计离线作业答案

浙江大学远程教育学院《数据库应用程序设计》课程作业姓名：学号：年级：2016年春学习中心：—————————————————————————————作业第一章1.5如何保存Delphi的项目？尝试自己动手创建一个项目，并保存。答：执行File|SaveAll菜单命令或单击工具栏中的SaveAll按钮便可保存，在保存时可以对工程文件和单元文件进行改名，但后缀名不能改。保存文件之后，单击工具中的Run按钮或按F9键，系统将开始编译、连接、运行该工程。1.7尝试设计如图1－10所示的窗体。（图见教材P15页图1－10）图1－10答：设计界面：运行界面：第二章2.8设计如图2－5所示的界面。单击“按钮1”或“按钮2”时在标签上显示用户所执行的操作。单击“开启/停用按钮”可控制“按钮1”和“按钮2”是否可用，单击“退出系统”按钮时，结束程序的运行。答：设计界面：运行界面：代码：unittest;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)showLabel:TLabel;btn1:TButton;//按钮1btn2:TButton;//按钮2ctlBtn:TButton;//开启停用按钮exitBtn:TButton;//退出按钮procedurebtn1Click(Sender:TObject);procedurebtn2Click(Sender:TObject);procedureexitBtnClick(Sender:TObject);procedurectlBtnClick(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;ctlStatus:integer=0;//控制按钮1和2的开启和关闭，0表示当前为开启，1表示关闭implementation{$R*.dfm}procedureTForm1.btn1Click(Sender:TObject);beginform1.showLabel.Caption:='您点击了按钮1';end;procedureTForm1.btn2Click(Sender:TObject);beginform1.showLabel.Caption:='您点击了按钮2';end;procedureTForm1.exitBtnClick(Sender:TObject);beginform1.Close;end;procedureTForm1.ctlBtnClick(Sender:TObject);beginifctlStatus=0thenbeginform1.btn1.Enabled:=false;form1.btn2.Enabled:=false;ctlStatus:=1;endelsebeginform1.btn1.Enabled:=true;form1.btn2.Enabled:=true;ctlStatus:=0;end;end;end.2.9设计如图2－6所示的界面。当单击按钮时，可控制文本框中字体的颜色。图2－5图2－6答：设计界面：运行界面：代码：(按钮快捷键的设置方法为在字母前加&，如&R，&G，&B)unittest;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;Edit1:TEdit;btnRed:TButton;btnGreen:TButton;btnBlue:TButton;procedurebtnRedClick(Sender:TObject);procedurebtnGreenClick(Sender:TObject);procedurebtnBlueClick(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementation{$R*.dfm}procedureTForm1.btnRedClick(Sender:TObject);beginform1.Edit1.Font.Color:=clred;end;procedureTForm1.btnGreenClick(Sender:TObject);beginform1.Edit1.Font.Color:=clgreen;end;procedureTForm1.btnBlueClick(Sender:TObject);beginform1.Edit1.Font.Color:=clblue;end;end.第三章3.8下列实数中哪些是合法的，哪些是不合法的？不合法的请说明理由。（A）0.25E+02（B）.25+2（C）25E+2（D）34.5（E）.123（F）-3E-4答：（A）合法，即为25（B）不合法，小数点前必须有数字，如表示为0.25+2（C）合法，即为2500（D）合法，即为34.5（E）不合法，同（2）（F）合法，即为-0.00033.12数学式子sin30。写成Delphi表达式是下列哪个？（A）Sin30（B）Sin(30)（C）SIN（30。）（D）Sin(30*Pi/180)答：D，需要把角度转化为弧度第四章4.7利用3个数字编辑框分别输入小时、分、秒，换算共有多少秒，然后使用标签输出。答：设计界面：运行界面：代码：unittest;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Spin;typeTForm1=class(TForm)SpinEdit1:TSpinEdit;Label1:TLabel;Label2:TLabel;SpinEdit2:TSpinEdit;Label3:TLabel;SpinEdit3:TSpinEdit;Label4:TLabel;procedureSpinEdit1Change(Sender:TObject);procedureSpinEdit2Change(Sender:TObject);procedureSpinEdit3Change(Sender:TObject);private{Privatedeclarations}procedureCalculateTimeToSencond(timeKind:String;time:integer);public{Publicdeclarations}end;varForm1:TForm1;hour:integer=0;minute:integer=0;second:integer=0;tot:integer=0;implementation{$R*.dfm}procedureTForm1.CalculateTimeToSencond(timeKind:String;time:integer);beginiftimeKind='hh'thenhour:=timeelseiftimeKind='mi'thenminute:=timeelseiftimeKind='ss'thensecond:=time;tot:=hour*60*60+minute*60+second;form1.Label4.Caption:='总共为'+IntToStr(tot)+'秒';end;procedureTForm1.SpinEdit1Change(Sender:TObject);beginForm1.CalculateTimeToSencond('hh',StrToInt(Form1.SpinEdit1.Text));end;procedureTForm1.SpinEdit2Change(Sender:TObject);beginForm1.CalculateTimeToSencond('mi',StrToInt(Form1.SpinEdit2.Text));end;procedureTForm1.SpinEdit3Change(Sender:TObject);beginForm1.CalculateTimeToSencond('ss',StrToInt(Form1.SpinEdit3.Text));end;end.4.8在编辑框中输入一个实数，利用备注框输出该实数及其平方和平方根。答：设计界面：运行界面：代码：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Edit1:TEdit;Label1:TLabel;Memo1:TMemo;Label2:TLabel;procedureEdit1Change(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;num1:Real;//原实数num2:Real;//实数平方num3:Real;//实数平方根implementation{$R*.dfm}procedureTForm1.Edit1Change(Sender:TObject);beginifform1.Edit1.Text''thenbeginnum1:=StrToFloat(form1.Edit1.Text);num2:=Sqr(num1);num3:=Sqrt(num1);form1.Memo1.Lines.Clear;form1.Memo1.Lines.Add('实数为:'+FloatToStr(num1));form1.Memo1.Lines.Add('平方为:'+FloatToStr(num2));form1.Memo1.Lines.Add('平方根为:'+FloatToStr(num3));end;end;end.第五章5.11任意给定3个实数，按照从大到小的顺序依次输出这3个数。答：设计界面：运行界面：代码：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)num1Edit:TEdit;Label1:TLabel;Label2:TLabel;resultLabel:TLabel;num2Edit:TEdit;num3Edit:TEdit;procedurenum1EditChange(Sender:TObject);procedurenum2EditChange(Sender:TObject);procedurenum3EditChange(Sender:TObject);private{Privatedeclarations}procedureCompareNumber();public{Publicdeclarations}end;varForm1:TForm1;num1:Real;//数字1num2:Real;//数字2num3:Real;//数字3compnum:Real;//比较时转换2数outStr:String;//输出结果;imple