2017浙大远程《数据库应用程序设计》离线作业

浙江大学远程教育学院 数据库应用程序设计数据库应用程序设计 课程作业课程作业 姓名 姓名 学号 学号 年级 年级 学习中心 学习中心 作业 第一章 1 5 如何保存 Delphi 的项目 尝试自己动手创建一个项目 并保存 答 执行 File Save All 菜单命令或单击工具栏中的 Save All 按钮便可保存 在保存时可 以对工程文件和单元文件进行改名 但后缀名不能改 保存文件之后 单击工具中的 Run 按钮或按 F9 键 系统将开始编译 连接 运行该工程 1 7 尝试设计如图 1 10 所示的窗体 图见教材 P15 页图 1 10 图 1 10 第二章 2 8 设计如图 2 5 所示的界面 单击 按钮 1 或 按钮 2 时在标签上显示用户所执行的操作 单击 开启 停用按钮 可控制 按钮 1 和 按钮 2 是否可用 单击 退出系统 按钮时 结束程 序的运行 2 9 设计如图 2 6 所示的界面 当单击按钮时 可控制文本框中字体的颜色 图 2 5图 2 6 unit test interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls type TForm1 class TForm showLabel TLabel btn1 TButton 按钮 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 Form1 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 exitBtnClick Sender TObject begin form1 Close end procedure TForm1 ctlBtnClick Sender TObject begin if ctlStatus 0 then begin form1 btn1 Enabled false form1 btn2 Enabled false ctlStatus 1 end else begin form1 btn1 Enabled true form1 btn2 Enabled true ctlStatus 0 end end end 2 9 unit test interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls type TForm1 class TForm Label1 TLabel Edit1 TEdit 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 TForm1 btnRedClick Sender TObject begin form1 Edit1 Font Color clred end procedure TForm1 btnGreenClick Sender TObject begin form1 Edit1 Font Color clgreen end procedure TForm1 btnBlueClick 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 0003 3 12 数学式子 sin30 写成 Delphi 表达式是下列哪个 A Sin30 B Sin 30 C SIN 30 D Sin 30 Pi 180 D 需要把角度转化为弧度 第四章 4 7 利用 3 个数字编辑框分别输入小时 分 秒 换算共有多少秒 然后使用标签输出 unit test interface uses Windows Messages SysUtils Variants 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 TObject procedure SpinEdit3Change Sender TObject private Private declarations procedure CalculateTimeToSencond timeKind String time integer public Public declarations end var Form1 TForm1 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 time 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 CalculateTimeToSencond mi StrToInt Form1 SpinEdit2 Text end procedure TForm1 SpinEdit3Change Sender TObject begin Form1 CalculateTimeToSencond ss StrToInt Form1 SpinEdit3 Text end end 4 8 在编辑框中输入一个实数 利用备注框输出该实数及其平方和平方根 unit Unit1 interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls type TForm1 class 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 Sender 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 end end end 第五章 5 11 任意给定 3 个实数 按照从大到小的顺序依次输出这 3 个数 unit Unit1 interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls type TForm1 class TForm num1Edit TEdit Label1 TLabel Label2 TLabel resultLabel TLabel num2Edit TEdit num3Edit TEdit procedure num1EditChange Sender TObject procedure num2EditChange 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 输出结果 implementation 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 then begin compnum num1 num1 num2 num2 compnum end if num3 num1 then begin compnum num1 num1 num3 num3 compnum end if num3 num2 then begin compnum num2 num2 num3 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 CompareNumber end procedure TForm1 num3EditChange Sender TObject begin form1 CompareNumber end end 5 13 假设工资的增幅标准为 若基本工资大于等于 1000 元 增加工资 20 若小于 1000 元大于等于 800 元 则增加工资 15 若小于 800 元 则增加工资 10 请根据用户在文 本框中输入的基本工资 计算出增加后的工资 unit Unit1 interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls type TForm1 class TForm Label1 TLabel Edit1 TEdit 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 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 不大于 20000 时最大的 n unit Unit1 interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls type TForm1 class TForm Label1 TLabel Edit1 TEdit Label2 TLabel resultLabel TLabel procedure FormCreate Sender TObject private Private declarations public Public declarations end var Form1 TForm1 number n tot Integer 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 在标签上输出 100 200 之间的所有的奇数 其中 3 的倍数除外 unit Unit1 interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls type TForm1 class TForm resultLabel TLabel procedure FormCreate 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 IntToStr i form1 resultLabel Caption outStr end end end 第七章 7 4 求 1 200 这 200 个数的和 当和大于 10000 时结束计算 要求使用转向语句 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 public Public declarations end var Form1 TForm1 sum n integer implementation R dfm procedure TForm1 FormCreate Sender TObject begin sum 0 n 0 repeat n n 1 sum sum n if sum 10000 then break until n 200 form1 Label1 Caption 总和为 IntToStr sum end end 第八章 8 8 编写函数 输出 100 500 之间所有能同时被 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 boolean public Public declarations end var 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 then 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 打开对话框组件和打开图片对话框组件有什么异同点 答 两者都会打开一个对话框用于选择电脑本地上的文件 不同的是前者可以选择全部类型 的文件 而后者只可以选择图片类型的文件 并且可以预览图片 第十章 10 7 菜单命令项与工具栏按钮的单击事件中的代码是否可以关联 如何关联 答 将工具栏按钮 ToolButton 的 Style 属性设置为 tbsDropDown 然后在 MenuItem 属性 中选择对应的菜单项即可 第十一章 11 4 调用子窗体的 close 方法时是否可关闭该子窗体 若不能 需要怎么做 答 调用 close 方法只能