浙江大学远程教育数据库应用程序设计离线作业.docx

浙江大学远程教育学院 《数据库应用程序设计》课程作业 姓名： 学号： 年级： 学习中心： ————————————————————————————— 作业 第一章 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,?StdCtr