资源描述：
《大数据的库全应用的程序的设计书的离线作业的的解答.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、实用文档浙江大学远程教育学院《数据库应用程序设计》课程作业姓名：学号：年级：2016年春学习中心：—————————————————————————————作业第一章1.5如何保存Delphi的项目？尝试自己动手创建一个项目，并保存。答：执行File
2、SaveAll菜单命令或单击工具栏中的SaveAll按钮便可保存，在保存时可以对工程文件和单元文件进行改名，但后缀名不能改。保存文件之后，单击工具中的Run按钮或按F9键，系统将开始编译、连接、运行该工程。1.7尝试设计如图1－10所示的窗体。（图见教材P15页图1－10）文
3、案大全实用文档图1－10答：设计界面：运行界面：第二章文案大全实用文档2.8设计如图2－5所示的界面。单击“按钮1”或“按钮2”时在标签上显示用户所执行的操作。单击“开启/停用按钮”可控制“按钮1”和“按钮2”是否可用，单击“退出系统”按钮时，结束程序的运行。答：设计界面：运行界面：文案大全实用文档代码：unittest;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeT
4、Form1=class(TForm)文案大全实用文档showLabel:TLabel;btn1:TButton;//按钮1btn2:TButton;//按钮2ctlBtn:TButton;//开启停用按钮exitBtn:TButton;//退出按钮procedurebtn1Click(Sender:TObject);procedurebtn2Click(Sender:TObject);procedureexitBtnClick(Sender:TObject);procedurectlBtnClick(Sender:TObj
5、ect);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.bt
6、n2Click(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;ctlStat
7、us:=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;interfaceuses文案大全实用文档Windows,Messages,SysUtils,Variants,Cl
8、asses,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);privat
9、e{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementation{$R*.dfm}文案大全实用文档procedureTForm1.btnRedClick(Sender:TObject);beginform
