Delphi课内实验封皮.docVIP

中 国 计 量 学 院 《高级程序语言》课内教学实践环节 教案 2005 ~ 2006 学年 第 二 学期 二级学院（部、中心） 管理学院 1 学 科 （ 专 业 ） 信息管理与信息系统 课 程 名 称 管理信息系统 1 授 课 对 象 03信管12 1 授 课 教 师 钮 亮 1 职 称 职 务 讲 师 1 教 材 名 称 《DELPHI程序设计》 2006 年 2 月 19 日 实践一：熟悉Delphi开发环境 【实验目的求】 通过本次实验，熟悉集成开发环境，了解Delphi的主菜单、工具栏、控件面板、对象观察器、主窗体和代码编辑器的使用方法。 掌握Delphi工程和窗体的建立过程，熟悉Delphi工程文件、单元文件和窗体文件的结构。能够建立简单的工程、窗体。 【建议实验学时】 2～3学时 【实验内容和步骤】 启动Delphi7程序，熟悉其可视化集成开发环境，包括主菜单、工具栏、控件面板、对象观察器、主窗体、代码编辑器、窗体设计器； 进入Delphi的主菜单，了解各菜单的名称和功能。 观察组件栏中各组件选项卡中的组件名称。 工程的建立、调试、运行。 新建一个工程，工程文件名为myPro.dpr； 新建一个窗体，对应的单元文件名为first.pas，在窗口中显示“欢迎学习DELPHI”； 生成一个可执行文件，程序运行结果如图所示： 练习窗体的显示，简单代码的编写。 （1）新建一个工程，工程名 自己命名，新建如下两个窗体，学生自己练习命名。目的：单击FORM1的确定按钮，能够显示FORM2窗体。单击取消按钮，退出系统。 （2）观察FORM1窗体对应的单元文件，理解单元文件的结构，掌握单元文件各组成部分的用法。 6.新建一个项目文件，在窗体上放两个组件，一个是System组件标签下的Timer组件，另一个为Standard组件标签下的Label组件，窗体上放置的组件布局如右图所示，双击Timer1组件，并在代码编辑器中编写它的OnTimer事件，代码如下： Label1.Caption:=TimeToStr(Time); 请执行上程序，并写出程序的执行结果。从此程序的执行结果中，你是否有别的想法，请写来，并尽可能实现它。 实践二：Object Pascal语法 【实验目的求】 通过本次实验，熟悉Object Pascal基本语法，熟悉常量、变量的定义，熟悉Object Pascal的数据类型。掌握数据类型之间的强制转换函数。熟悉Object Pascal的语句。能够制作简单的小程序。 【建议实验学时】 2～3学时 【实验内容和步骤】 新建工程，并设计如下界面，单击各按钮分别显示第二题——第5题窗体。 计界面如右图。由用户输入一个整数，对其进行整数和实数的加法运算，并将结果输出。请编写代码实现以上功能。 常量、变量、语句的应用。由用户输入r，作为圆的半径，求圆的周长和面积，并输出结果。 环语句的应用。自行设计界面，利用for语句，计算s=1+2+…+100的值，并在界面上输出计算结果。 计一个窗体，实现以下功能。输入一个整数ａ，判断是否为偶数。（是输出ｙｅｓ否则输出ｎｏ）。有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，两有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？ 实践三：Delphi数据库工具的使用 【实验目的和要求】 1、熟悉Delphi的数据库工具的使用。 2、学习数据库表设计的方法 【建议实验学时】 2学时 【实验内容和步骤】 熟悉用Database Desktop工具，Database Desktop工具设置默认工作目录：E:\delphi练习。 用Database Desktop工具建立下表，表名info.db，保存在刚刚建立的默认工作目录中。 修改上表的结构，使Marr这个字段名改成Address。 记录的操作。对上表，输入5条以上记录的数据，练习记录的删除，移动记录指针。. 熟悉BDE Adminstrator工具。 实践四：练习Table组件的使用 【实验目的和要求】 通过本次实验，掌握Table组件的使用。学会设计简单的数据库程序。 【建议实验学时】 2～3学时 【实验内容和步骤】 利用实践3所学的Database Desktop工具，根据图中数