资源描述:
《delphi7实验报告(共10篇)》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划delphi7实验报告(共10篇) 实验五 实验题目:使用Ttable组件进行简单程序设计 实验目的:Ttable组件的属性设计;数据库连接设置;数据控制方法,数据定位功能设计,编程设计。 实验类型:验证性 实验内容: 编写使用BDE的一个应用程序实现表中纪录的插入、编辑、更新以及记录指针,如下图所示: 点击浏览数据,界面如图所示: 实验步骤简介: 1.建立表格books,字段有bookno,bookname,author,publis
2、hment, buytimeyear,byetimemonth,buytimedate,buytime,ordered,borrowed。并在BDEAdministration中建立数据库别名books。 2.使用pagecontrol控件,右键单击弹出快捷键,使用newpage方法产 生浏览记录和浏览数据的两个页面。修改两个tabsheet的caption属性,命名为浏览记录和浏览数据。目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目
3、的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 3.在tabsheet1页面下,放置table1,datasource1和DBNavigator1控件, 并设置属性。设置table的databasename和tablename属性。Datasource1只需设置dataset属性。DBNavigator1设置datasource属性。 4.在tabsheet1页面下,放置相关控件,如,dbedit,dbcombobox,dbradiogroup.分别设置它们的datasource和datafield属性。 5. 6. procedu
4、re(Sender:TObject); begin withDBRadioGroup1do begin ('是'); ('否'); ('True'); ('False'); end; end; Form1中添加close按钮,在tabsheet1中添加两个按钮。在button下编程,实现程序功能。目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 7.在ta
5、bsheet2页面下,放置DBGrid1和DBNavigator2控件。并按照上面第三步的方式设置属性。 在DBGrid1中实现当具体点击某一行的数据时,页面切换到tabsheet2界面下。在DBGrid1的事件中oncellclick中编程。 :=tabsheet1; 9.”添加”按钮BitBtn1的点击事件代码: procedure(Sender:TObject); begin ; end; 10.”确定”按钮BitBtn2的点击事件代码: procedure(Sender:TObject); begin ; end; 总代码: u
6、nitUnit1; interface uses目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls,DBCtrls,Mask,DB,DBTables,ComCtrls, Buttons,G
7、rids,DBGrids; 实验1简单程序设计 姓名: 一实验目的: 1)熟悉Delphi7的集成开发环境。 2)掌握Delphi7分支(选择)程序设计 二实验时间:XX年3月21日 三实验地点:c2-417 四实验内容与步骤: 本次实验需要提交实验报告,实验报告中描述各程序设计的主要思路,及其程序实现时使用的数据及其数据结构. 1.设计一个登录界面,并实现登录功能。 2.完成三角形性质判定系统的设计,并能计算三角形面积。 要求:输入三条边,判定能否构成三角形,是等边、等腰直角、等腰、直角还是普通三角形,面积如何。 说明:如果输入的三个顶
8、点的坐标也