电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

2025年浙大远程数据库应用程序设计离线作业

2025年浙大远程数据库应用程序设计离线作业_第1页
1/36
2025年浙大远程数据库应用程序设计离线作业_第2页
2/36
2025年浙大远程数据库应用程序设计离线作业_第3页
3/36
浙江大学远程教育学院《数据库应用程序设计》课程作业姓名:学号:年级:学习中心:—————————————————————————————作业第一章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.btn...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

2025年浙大远程数据库应用程序设计离线作业

您可能关注的文档

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部