DELPHI应用程设计 实验指导书 king分享.docVIP

《DELPHI应用程序设计》 实验指导书 枣庄学院计算机系 2007年9月 实验 DELPHI可视化 实验学时：2学时 背景知识：集成开发环境、窗体程序特点。 目的要求： 1. 基本掌握Delphi编译环境。 2. 简单了解窗体程序运行特点。 实验内容： File → New → Application 设计窗体 创建一个按钮，并拖到合适的位置和大小 编写按钮单击响应代码 双击按钮，输入如下代码：Button1.Height:=Button1.Height*2; 执行程序 建立一个应用程序，要求在一个窗口上显示一个Delphi系统提供的Customer.db数据表，并对此表具有浏览、编辑、修改、删除表中记录的功能。其中Customer.db数据表在DBDEMOS所指定的数据库中。 新建项目文件 设计窗体 在组件面板上选择Data ControlsDBGrid1、DbNavigator1；在BED上选择table组件，命名为table1;DataAccess上选择datasource组件，命名为datasource1 设置组件属性 设置table1的databasename属性为dbdemos,tablename为customer.db,active为true;设置datasource1的dataset属性为table1;设置dbgrid1和dbnavigator1的datasource1属性为datasource1 执行程序 实验说明： 1. Form1主窗体是由系统缺省创建。 2. 窗体文件和单元文件一一对应。 3. 编写Button1点击事件既可由双击按钮产生，也可在对象观察器中点击按钮时间产生。 注意问题： 要清晰了解项目文件和单元文件结构。 注意用户自己输入代码位置及其作用。 组件之间的连接方式及其产生的作用。 注意别名与物理数据库之间的关系。 实验 实验学时：学时 背景知识：。 目的要求： Delphi的异常处理语句。 多层异常的实现 。 实验内容： File → New → other → New → console Application →OK 编写代码，代码如下： 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; end. 执行程序 程序2： 利用多层异常捕捉语句，编写一个读取文本文件的控制台程序 新建一个控制台程序 编写代码，代码如下： var F:TextFile; S: string; Begin AssignFile(F,c:\Foo.txt); Try //设置外层陷井， Reset(F); Try //置内层陷井 ReadLn(F,S); //读一行信息到S变量中 Finally CloseFile(F); //关闭文件 End; Except //处理外层陷井捕获的异常 on EInoutError do ShowMessage(访问文件错误!); End; ShowMessage(S); end. 执行程序 实验 Application 对象 实验学时：学时 背景知识： Delphi自建的全局对象、Delphi 程序运行机制。 目的要求： 1. 掌握Application对象属性特点。 2. 利用Windows API函数的强大功能。 实验内容： １. 建立一个新项目。 ２. 在新建项目主窗体上，放入四个按钮组件。 ３. 将四个组件属性分别设置为“取应用程序标题”、“设置主窗体标题”、“取当前应用程序文件名”和“取当前应用程序路径”。 ４. 分别编辑按钮组件的点击事件。 ５. 运行程序。 注意问题： 注意引用Windows API函数的条件和具体含义。 实验 资源文件的用 实验学时： 学时 背景知识： 资源文件中存放的是应用程序中使用的位图、图标、光标等数据。 目的要求： 1. 掌握资源文件的组成及创建方法。 2. 掌握De