2022年数据库应用程序设计离线作业答案定义 .pdf

《2022年数据库应用程序设计离线作业答案定义 .pdf》由会员分享，可在线阅读，更多相关《2022年数据库应用程序设计离线作业答案定义 .pdf（49页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、浙江大学远程教育学院数据库应用程序设计课程作业姓名：学号：年级：学习中心：作业第一章1.5 如何保存Delphi 的项目？尝试自己动手创建一个项目，并保存。答：执行File|Save All 菜单命令或单击工具栏中的Save All 按钮便可保存，在保存时可以对工程文件和单元文件进行改名，但后缀名不能改。保存文件之后，单击工具中的Run 按钮或按 F9键，系统将开始编译、连接、运行该工程。1.7 尝试设计如图110 所示的窗体。 （图见教材P15 页图 110）图 110 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心

2、整理 - - - - - - - 第 1 页，共 49 页 - - - - - - - - - 答：设计界面：运行界面：第二章2.8 设计如图 2 5 所示的界面。 单击 “ 按钮 1” 或“ 按钮 2” 时在标签上显示用户所执行的操作。单击 “ 开启/停用按钮 ” 可控制 “ 按钮 1” 和“ 按钮 2” 是否可用，单击“ 退出系统 ” 按钮时，结束程序的运行。答：设计界面：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 49 页 - - - - - - - - - 运

3、行界面：代码：unit test; interface 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 49 页 - - - - - - - - - uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) showLabel: TLabel; btn1: TButton; / 按

4、钮 1 btn2: TButton; / 按钮 2 ctlBtn: TButton; / 开启停用按钮exitBtn: TButton; / 退出按钮procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure exitBtnClick(Sender: TObject); procedure ctlBtnClick(Sender: TObject); private Private declarations public Public declarations end; var For

5、m1: TForm1; ctlStatus:integer = 0; / 控制按钮1 和 2 的开启和关闭，0 表示当前为开启，1 表示关闭implementation $R *.dfm procedure TForm1.btn1Click(Sender: TObject); begin form1.showLabel.Caption := 您点击了按钮1; end; procedure TForm1.btn2Click(Sender: TObject); begin form1.showLabel.Caption := 您点击了按钮2; end; procedure TForm1.exitB

6、tnClick(Sender: TObject); begin form1.Close; end; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 49 页 - - - - - - - - - procedure TForm1.ctlBtnClick(Sender: TObject); begin if ctlStatus = 0 then begin form1.btn1.Enabled := false; form1.btn2.Enabled := false; ct

7、lStatus := 1; end else begin form1.btn1.Enabled := true; form1.btn2.Enabled := true; ctlStatus := 0; end; end; end. 2.9 设计如图26 所示的界面。当单击按钮时，可控制文本框中字体的颜色。图 25 图 26 答：设计界面：运行界面：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 49 页 - - - - - - - - - 名师资料总结 - - -精品资料

8、欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 49 页 - - - - - - - - - 代码： (按钮快捷键的设置方法为在字母前加&，如 &R，&G，&B) unit test; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TE

9、dit; btnRed: TButton; btnGreen: TButton; btnBlue: TButton; procedure btnRedClick(Sender: TObject); procedure btnGreenClick(Sender: TObject); procedure btnBlueClick(Sender: TObject); private Private declarations public Public declarations end; var Form1: TForm1; implementation $R *.dfm procedure TFor

10、m1.btnRedClick(Sender: TObject); begin form1.Edit1.Font.Color := clred; end; procedure TForm1.btnGreenClick(Sender: TObject); begin form1.Edit1.Font.Color := clgreen; end; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 49 页 - - - - - - - - - procedure TForm1.bt

11、nBlueClick(Sender: TObject); begin form1.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 表达式是下列哪

12、个？（A）Sin30 （B）Sin(30) （C）SIN（30。）（D）Sin(30*Pi/180) 答： D，需要把角度转化为弧度第四章4.7 利用 3 个数字编辑框分别输入小时、分、秒，换算共有多少秒，然后使用标签输出。答：设计界面：运行界面：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 49 页 - - - - - - - - - 代码：unit test; interface uses Windows, Messages, SysUtils, Variants,

13、 Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin; type TForm1 = class(TForm) SpinEdit1: TSpinEdit; Label1: TLabel; Label2: TLabel; SpinEdit2: TSpinEdit; Label3: TLabel; SpinEdit3: TSpinEdit; Label4: TLabel; procedure SpinEdit1Change(Sender: TObject); procedure SpinEdit2Change(Sender: TOb

14、ject); procedure SpinEdit3Change(Sender: TObject); 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 49 页 - - - - - - - - - private Private declarations procedure CalculateTimeToSencond(timeKind:String; time:integer); public Public declarations end; var Form1: TFo

15、rm1; hour: integer = 0; minute: integer = 0; second: integer = 0; tot:integer = 0; implementation $R *.dfm procedure TForm1.CalculateTimeToSencond(timeKind:String; time:integer); begin if timeKind = hh then hour := time else if timeKind = mi then minute := time else if timeKind = ss then second := t

16、ime; tot := hour * 60 * 60 + minute * 60 + second; form1.Label4.Caption := 总共为 + IntToStr(tot) + 秒; end; procedure TForm1.SpinEdit1Change(Sender: TObject); begin Form1.CalculateTimeToSencond(hh, StrToInt(Form1.SpinEdit1.Text); end; procedure TForm1.SpinEdit2Change(Sender: TObject); begin Form1.Calcu

17、lateTimeToSencond(mi, StrToInt(Form1.SpinEdit2.Text); end; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 49 页 - - - - - - - - - procedure TForm1.SpinEdit3Change(Sender: TObject); begin Form1.CalculateTimeToSencond(ss, StrToInt(Form1.SpinEdit3.Text); end; end.

18、 4.8 在编辑框中输入一个实数，利用备注框输出该实数及其平方和平方根。答：设计界面：运行界面：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 49 页 - - - - - - - - - 代码：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = clas

19、s(TForm) Edit1: TEdit; Label1: TLabel; Memo1: TMemo; Label2: TLabel; procedure Edit1Change(Sender: TObject); private Private declarations public Public declarations end; var Form1: TForm1; num1 : Real; / 原实数num2 : Real; / 实数平方num3 : Real; / 实数平方根implementation $R *.dfm procedure TForm1.Edit1Change(S

20、ender: TObject); begin if form1.Edit1.Text then begin num1 := 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);

21、 end; end; end. 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 49 页 - - - - - - - - - 第五章5.11 任意给定3 个实数，按照从大到小的顺序依次输出这3 个数。答：设计界面：运行界面：代码：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; t

22、ype TForm1 = class(TForm) num1Edit: TEdit; Label1: TLabel; Label2: TLabel; resultLabel: TLabel; num2Edit: TEdit; num3Edit: TEdit; procedure num1EditChange(Sender: TObject); 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 49 页 - - - - - - - - - procedure num2Edi

23、tChange(Sender: TObject); procedure num3EditChange(Sender: TObject); private Private declarations procedure CompareNumber(); public Public declarations end; var Form1: TForm1; num1 : Real; / 数字 1 num2 : Real; / 数字 2 num3 : Real; / 数字 3 compnum : Real; / 比较时转换2 数outStr : String; / 输出结果 ; implementati

24、on $R *.dfm procedure TForm1.CompareNumber(); begin if (trim(form1.num1Edit.Text) ) And (trim(form1.num2Edit.Text) ) And (trim(form1.num3Edit.Text) ) then begin num1 := StrToFloat(form1.num1Edit.Text); num2 := StrToFloat(form1.num2Edit.Text); num3 := StrToFloat(form1.num3Edit.Text); if num2 num1 the

25、n begin compnum := num1; num1 := num2; num2 := compnum; end; if num3 num1 then begin compnum := num1; num1 := num3; num3 := compnum; end; if num3 num2 then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 49 页 - - - - - - - - - begin compnum := num2; num2 := num

26、3; num3 := compnum; end; outStr := FloatToStr(num1) + , + FloatToStr(num2) + , + FloatToStr(num3); form1.resultLabel.Caption := outStr; end; end; procedure TForm1.num1EditChange(Sender: TObject); begin form1.CompareNumber; end; procedure TForm1.num2EditChange(Sender: TObject); begin form1.CompareNum

27、ber; end; procedure TForm1.num3EditChange(Sender: TObject); begin form1.CompareNumber; end; end. 5.13 假设工资的增幅标准为：若基本工资大于等于1000 元，增加工资20%；若小于1000元大于等于800 元， 则增加工资15%；若小于 800 元，则增加工资10%。请根据用户在文本框中输入的基本工资，计算出增加后的工资。答：设计界面：=名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第

28、15 页，共 49 页 - - - - - - - - - 运行界面：代码：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页

29、，共 49 页 - - - - - - - - - Label2: TLabel; resultLabel: TLabel; procedure Edit1Change(Sender: TObject); private Private declarations public Public declarations end; var Form1: TForm1; salary: Real; outSalary: Real; implementation $R *.dfm procedure TForm1.Edit1Change(Sender: TObject); begin salary :=

30、 StrToFloat(form1.Edit1.Text); if (salary = 1000) then outSalary := salary * (1 + 0.2) else if (salary = 800) then outSalary := salary * (1 + 0.15) else if (salary 800) then outSalary := salary * (1 + 0.1); form1.resultLabel.Caption := FloatToStr(outSalary); end; end. 第六章6.5 设 s=1X2X3X Xn，求 s 不大于 20

31、000 时最大的n。答：设计界面：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 49 页 - - - - - - - - - 运行界面：代码：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; E

32、dit1: TEdit; Label2: TLabel; resultLabel: TLabel; procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end; var 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 49 页 - - - - - - - - - Form1: TForm1; number, n, tot: Integ

33、er; implementation $R *.dfm procedure TForm1.FormCreate(Sender: TObject); begin tot := 1; n := 0; number := StrToInt(form1.Edit1.Text); While tot = number do begin n := n + 1; tot := tot * n; end; form1.resultLabel.Caption := IntToStr(n-1); end; end. 6.10 在标签上输出100200 之间的所有的奇数，其中3 的倍数除外。答：设计界面：运行界面：

34、代码：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共 49 页 - - - - - - - - - resultLabel: TLabel; procedure FormCrea

35、te(Sender: TObject); private Private declarations public Public declarations end; var Form1: TForm1; number, i: Integer; outStr: String; implementation $R *.dfm procedure TForm1.FormCreate(Sender: TObject); begin for i:= 100 to 200 do begin if i mod 2 0 then if i mod 3 0 then outStr := outStr + + In

36、tToStr(i); form1.resultLabel.Caption := outStr; end; end; end. 第七章7.4 求 1200 这 200 个数的和，当和大于10000 时结束计算。 （要求使用转向语句）答：设计界面：运行界面：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 20 页，共 49 页 - - - - - - - - - 代码：unit Unit1; interface uses Windows, Messages, SysUtils, Vari

37、ants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end; var Form1: TForm1; sum, n : integer; implementation $R *.dfm procedure TForm1.FormCreate(Sender:

38、 TObject); begin sum := 0; n := 0; repeat n := n + 1; sum := sum + n; if (sum 10000) then break; until n = 200; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 21 页，共 49 页 - - - - - - - - - form1.Label1.Caption := 总和为 + IntToStr(sum); end; end. 第八章8.8 编写函数，输出100500 之间

39、所有能同时被3 和 13 整除的数。答：设计界面：运行界面：代码：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; procedure FormCreate(Sender: TObject); private Private declarations Function checkNum(num:integer):bool

40、ean; public Public declarations end; var 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 22 页，共 49 页 - - - - - - - - - Form1: TForm1; implementation $R *.dfm Function TForm1.checkNum(num:integer):boolean; var n :boolean; begin if (num mod 3 = 0) And (num mod 13 = 0) t

41、hen n := true else n := false; result := n; end; procedure TForm1.FormCreate(Sender: TObject); var i : integer; var out : string; begin for i := 100 to 500 do begin if checkNum(i) then out := out + + IntToStr(i); end; form1.Label1.Caption := out; end; end.第九章9.2 打开对话框组件和打开图片对话框组件有什么异同点？答：两者都会打开一个对话框

42、用于选择电脑本地上的文件不同的是前者可以选择全部类型的文件，而后者只可以选择图片类型的文件，并且可以预览图片第十章10.7 菜单命令项与工具栏按钮的单击事件中的代码是否可以关联？如何关联？答：将工具栏按钮ToolButton 的 Style 属性设置为tbsDropDown, 然后在 MenuItem 属性中选择对应的菜单项即可第十一章11.4 调用子窗体的close 方法时是否可关闭该子窗体？若不能，需要怎么做？答：调用close 方法只能最小化窗口，如果要真正关闭，需要调用free 方法名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - -

43、 - - 名师精心整理 - - - - - - - 第 23 页，共 49 页 - - - - - - - - - 第十二章12.3 使用红色的画笔在窗体中绘制一个半径为5 的圆，并且用黄色来填充圆的内部。答：设计界面：运行界面：代码：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); privat

44、e Private declarations public Public declarations end; var Form1: TForm1; implementation $R *.dfm 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 24 页，共 49 页 - - - - - - - - - procedure TForm1.FormPaint(Sender: TObject); var r, x, y:integer; begin r := 5; Canvas.Pen.C

45、olor := clred; Canvas.Brush.Color := clyellow; Canvas.Ellipse(0, 0, r*2, r*2); end; end. 第十三章13.3 打开一个文本文件有几种方法？区别是什么？答：有 3 种打开文件的方法：（1）Reset过程以只读方式打开一个文件。（2）Rewrite 过程创建并打开文件，对于一个已经存在的文件，此操作将使文件被覆盖。（3）Append 过程以追加方式打开文件，并向已经存在的文本文件中追加文本。第十四章14.4 使用 Database DeskTop设计如表145 所示的数据表，并创建简单的应用程序完成数据的浏览和编

46、辑功能。表 145 数据表字段设置说明字段名类型长度说明Id 字符型4 产品编号Name 字符型20 产品名称Price 数值型产品单价Count 短整型产品库存量答：设计界面：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 25 页，共 49 页 - - - - - - - - - (数据库设计 ) (界面设计 ) 运行界面：14.6 使用数据库软件（如Sql Server2000）创建如表146 所示的数据表，并开发一个学生档案管理系统，完成学生基本信息的添加、删除、修改等。同时

47、，可以按照学生的学号、姓名等进行数据的查询。最后，将学生的基本信息以报表的方式输出。表 146 数据表字段设置说明字段名类型长度说明Id 字符型8 学号Name 字符型8 姓名Sex 字符型2 性别Birthday 日期型4 出生日期Address 字符型50 家庭住址答： (1)使用的数据库软件为Sql Server 2008,依据题目设计的数据表结构为名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 26 页，共 49 页 - - - - - - - - - 表名为 Student

48、s （2） 本系统包含 5个 Form,分别为 FormMain 主界面 ,FormTable信息录入查询界面,FormReport学生信息报表界面,FormHelp 系统帮助界面,FormAbout 系统关于界面（3）各 Form 详细内容：A：FormMain 设计界面：运行界面：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 27 页，共 49 页 - - - - - - - - - 代码：unit Unit2; interface uses Windows, Messages

49、, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Unit3, Unit1, Unit4, Unit5; type TMainForm = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; Label1: TLabel; Label2: TLabel;

50、 Label3: TLabel; procedure N8Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure N4Click(Sender: TObject); procedure N7Click(Sender: TObject); private 名师资料总结 - - -精品资料欢迎下载 - - - -