资源描述:
《数据库应用程序设计离线作业答案》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、浙江大学远程教育学院《数据库应用程序设计》课程作业姓名:学号:年级:学习中心:—————————————————————————————作业第一章1.5如何保存Delphi的项目?尝试自己动手创建一个项目,并保存。答:执行File
2、SaveAll菜单命令或单击工具栏中的SaveAll按钮便可保存,在保存时可以对工程文件和单元文件进行改名,但后缀名不能改。保存文件之后,单击工具中的Run按钮或按F9键,系统将开始编译、连接、运行该工程。1.7尝试设计如图1-10所示的窗体。(图见教材P15页图1-10)图1-10答:设计界面:运行界面:第二章2.8设计如图2-5所示的界面。单击“按钮
3、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;//开启停用按钮
4、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表示关闭imp
5、lementation{$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:T
6、Object);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;interfaceu
7、sesWindows,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:TObje
8、ct);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementation{$R*.dfm}procedureTForm1.btnRedClick(Sender:TObject);beginform1.Edit1.Font.Color:=clred;end;procedureTForm1.btnGreenClick(Sender:TObject);beginf