应用程序设计 程序设计》 《DELPHI 应用程序设计》 实验指导书
枣庄
计算机系 2007 年 9 月
可视化开发环境 实验 1 DELPHI 可视化开发环境
实验学时:2 学时 实验学时 背景知识:集成开发环境、窗体程序特点。 背景知识 目的要求: 目的要求 1. 基本掌握 Delphi 编译环境。 2. 简单了解窗体程序运行特点。 实验内容: 实验内容 1. 在一个窗体上建立一个按钮,要求用户每单击一次按钮,按钮的高 度增加一倍。 1) 新建项目文件 File → New → Application 2)
设计窗体 3) 创建一个按钮,并拖到合适的位置和大小 4) 编写按钮单击响应代码 5) 双击按钮, 输入如下代码: Button1.Height:=Button1.Height*2; 6) 执行程序 2. 建立一个应用程序, 要求在一个窗口上显示一个 Delphi 系统提供的 Customer.db 数据表,并对此表具有浏览、编辑、修改、删除表中 记录的功能。其中 Customer.db 数据表在 DBDEMOS 所指定的数据库 中。 1) 新建项目文件 2) 设计窗体 在组件面板上选择 Data Controls 标签,创建两个 控件 DBGrid1、DbNavigator1;在 BED 上选择 table 组件,命名 为 table1;DataAccess 上选择 datasource 组件,命名为 datasource1 3) 设置组件属性 设置 table1 的 databasename 属性为 dbdemos,tablename 为 customer.db,active 为 true;设置 datasource1 的 dataset 属性为 table1;设置 dbgrid1 和 dbnavigator1 的 datasource1 属性为 datasource1 4) 执行程序
实验说明: 实验说明 1. Form1 主窗体是由系统缺省创建。 2. 窗体文件和单元文件一一对应。 3. 编写 Button1 点击事件既可由双击按钮产生,也可在对象观察器中 点击按钮时间产生。 注意问题: 注意问题 1. 要清晰了解项目文件和单元文件结构。 2. 注意用户自己输入代码位置及其作用。 3. 组件之间的连接方式及其产生的作用。 4. 注意别名与物理数据库之间的关系。
实验 2 结构化异常处理
实验学时: 实验学时:4 学时 背景知识:异常处理语句,异常对象。 背景知识: 目的要求: 目的要求: 1. 熟悉 Delphi 的异常处理语句。 2. 多层异常的实现 。 实验内容: 实验内容: 1. 编写一个捕捉被零除异常的控制台程序 a) 新建一个控制台程序 Application →OK b) 编写代码,代码如下: var R1,R2:Double; begin while True do Begin try//设置陷井 write('输入一个实数:'); readln(R1); write('输入另一个实数:'); readLn(R2); writeln('现在用第二个数除第一个数'); writeln('答案是:',(R1/R2):5:2); except // 捕捉错误 on EzeroDivide do // 处理被 0 除错误 writeln('不能被 0 除!'); on EinOutError do// 处理输入/输出错误 writeln('不是有效数'); end; end; File → New → other → New → console
end. c) 执行程序 程序 2: 2. 利用多层异常捕捉语句,编写一个读取文本
文件的控制台程序 a) 新建一个控制台程序 b) 编写代码,代码如下: var F:TextFile; S: string; Begin AssignFile(F,'c:\Foo.txt'); Try //设置外层陷井, Reset(F); Try //置内层陷井 ReadLn(F,S); Finally CloseFile(F); End; Except //处理外层陷井捕获的异常 //关闭文件 //读一行信息到 S 变量中
on EInoutError do ShowMessage('访问文件错误!'); End; ShowMessage(S); end. c) 执行程序
对象的应用 实验 3 Application 对象的应用
实验学时: 实验学时:4 学时 背景知识: 背景知识: Delphi 自建的全局对象、
Delphi 程序运行机制。 目的要求: 目的要求: 1. 掌握 Application 对象属性特点。 2. 利用 Windows API 函数的强大功能。 实验内容: 实验内容: 1. 建立一个新项目。 2. 在新建项目主窗体上,放入四个按钮组件。 3. 将四个组件属性分别设置为“取应用程序标题”、“设置主窗体标 题”、“取当前应用程序文件名”和“取当前应用程序路径”。 4. 分别编辑按钮组件的点击事件。 5. 运行程序。 注意问题: 注意问题: 注意引用 Windows API 函数的条件和具