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

《DELPHI应用程序设计》实验指导书枣庄学院计算机系2007年9月实验1DELPHI可视化开发环境实验学时：2学时背景知识：集成开发环境、窗体程序特点。目的要求：1.基本掌握Delphi编译环境。2.简单了解窗体程序运行特点。实验内容：1.在一个窗体上建立一个按钮，要求用户每单击一次按钮，按钮的高度增加一倍。1)新建项目文件File→New→Application2)设计窗体3)创建一个按钮，并拖到合适的位置和大小4)编写按钮单击响应代码5)双击按钮，输入如下代码：Button1.Height:=Button1.Height*2;6)执行程序2.建立一个应用程序，要求在一个窗口上显示一个Delphi系统提供的Customer.db数据表，并对此表具有浏览、编辑、修改、删除表中记录的功能。其中Customer.db数据表在DBDEMOS所指定的数据库中。1)新建项目文件2)设计窗体在组件面板上选择DataControls标签，创建两个控件DBGrid1、DbNavigator1；在BED上选择table组件，命名为table1;DataAccess上选择datasource组件，命名为datasource13)设置组件属性设置table1的databasename属性为dbdemos,tablename为customer.db,active为true;设置datasource1的dataset属性为table1;设置dbgrid1和dbnavigator1的datasource1属性为datasource14)执行程序实验说明：1.Form1主窗体是由系统缺省创建。2.窗体文件和单元文件一一对应。3.编写Button1点击事件既可由双击按钮产生，也可在对象观察器中点击按钮时间产生。注意问题：1.要清晰了解项目文件和单元文件结构。2.注意用户自己输入代码位置及其作用。3.组件之间的连接方式及其产生的作用。4.注意别名与物理数据库之间的关系。实验2结构化异常处理实验学时：4学时背景知识：异常处理语句，异常对象。目的要求：1.熟悉Delphi的异常处理语句。2.多层异常的实现。实验内容：1.编写一个捕捉被零除异常的控制台程序a)新建一个控制台程序File→New→other→New→consoleApplication→OKb)编写代码，代码如下：varR1,R2:Double;beginwhileTruedoBegintry//设置陷井write('输入一个实数:');readln(R1);write('输入另一个实数:');readLn(R2);writeln('现在用第二个数除第一个数');writeln('答案是：',(R1/R2):5:2);except//捕捉错误onEzeroDividedo//处理被0除错误writeln('不能被0除！');onEinOutErrordo//处理输入/输出错误writeln('不是有效数');end;end;end.c)执行程序程序2：2.利用多层异常捕捉语句，编写一个读取文本文件的控制台程序a)新建一个控制台程序b)编写代码，代码如下：varF:TextFile;S:string;BeginAssignFile(F,'c:\Foo.txt');Try//设置外层陷井，Reset(F);Try//置内层陷井ReadLn(F,S);//读一行信息到S变量中FinallyCloseFile(F);//关闭文件End;Except//处理外层陷井捕获的异常onEInoutErrordoShowMessage('访问文件错误!');End;ShowMessage(S);end.c)执行程序实验3Application对象的应用实验学时：4学时背景知识：Delphi自建的全局对象、Delphi程序运行机制。目的要求：1.掌握Application对象属性特点。2.利用WindowsAPI函数的强大功能。实验内容：１.建立一个新项目。２.在新建项目主窗体上，放入四个按钮组件。３.将四个组件属性分别设置为“取应用程序标题”、“设置主窗体标题”、“取当前应用程序文件名”和“取当前应用程序路径”。４.分别编辑按钮组件的点击事件。５.运行程序。注意问题：注意引用WindowsAPI函数的条件和具体含义。实验4资源文件的使用及编程技巧实验学时：4学时背景知识：资源文件中存放的是应用程序中使用的位图、图标、光标等数据。目的要求：1.掌握资源文件的组成及创建方法。2.掌握Delphi程序对资源文件的使用方式。3.封面程序的实现方法4.避免应用程序重复启动的实现方法实验内容：1.编写一个程序，用于获取自建资源文件中创建的资源。1)资源文件的创建运行imageeditor软件：Tools→ImageEditor2)资源文件的调用打开项目文件：project→viewsource有一条语句{$R*.res}，用于实现对项目默认资源文件的读取。默认资源文件与项目同名，扩展名为.res，与项目文件保存在同一目录下。若要使用自己创建的资源，可在该语句的后边再加一条语句，如{$RC:\MyReference\ResFile.res}2.编写一个程序，在主窗体启动之前显示系统封面1)在项目文件中编写如下代码：Application.Initialize;SplashFrm:=TSplashFrm.Create(Application);//创建封面SplashFrm.Show;//显示封面SplashFrm.Update;//强制更新封面Application.CreateForm(TMainFrm，MainFrm);//创建主窗体SplashFrm.Free;//删除封面窗体Application.Run；//运行主程序2)运行程序3.编写程序，实现程序只能同时运行一次。1)查找窗口法a)新建一个项目b)打开项目文件，键入如下代码：programProject1;usesForms,windows,Unit1in'Unit1.pas'{Form1};{$R*.res}VarHwnd:Thandle;beginHwnd:=FindWindow('TForm1','Main');//查找主窗体IfHwnd=nilthen//如果没找到应用程序的主窗体则启动应用程序BeginApplication.Initialize;Application.CreateForm(TForm1,Form1);Application.Run;end;end.2)互斥对象法a)新建一个项目b)打开项目文件，键入如下代码：programProject1;usesForms,windows,Unit1in'Unit1.pas'{Form1};{$R*.res}VARMutex:THandle;beginMutex:=CreateMutex(NIL,True,'Form1');//判断创建互斥对象是否成功IFGetLastErrorERROR_ALREADY_EXISTSTHENBEGINApplication.Initialize;Application.CreateForm(TForm1,Form1);Application.Run;end;ReleaseMutex(Mutex);end.实验说明：1.仔细体会ImageEditor工具创建资源文件的过程。注意问题1.在项目文件中对资源文件引用时注意路径问题。2.从资源文件中调入图标、光标或图片时，它们的标识符必须全部大写。实验5MDI程序的编写实验学时：２学时背景知识：窗体创建、自动创建窗体、可用窗体。目的要求：1.掌握窗体的创建方式。2.掌握模式窗体和无模式窗体。3.掌握MDI程序的实现方法4.掌握框架窗体的实现方法实验内容：1.编写一个程序，动态创建窗体，并用模式和无模式方法对其进行显示。1)新建一个项目2)将窗体命令为fmain，再创建两个窗体，分别为form2和form3。单击project→options→forms，将form2和form3设为可用窗体。单击file→useunit，添加对unit2和unit3的引用。3)在主窗体上建立两个按钮button1和button2，分别用于模式显示form2和无模式显示form3。4)对button1和button2的单击事件进行编码。//button1的单击事件ifassigned(form2)thenform2.Free;//form2若存在，释放form2:=Tform2.Create(self);//动态创建form2form2.ShowModal;//模式显示form2.Free;//释放form2//button2的单击事件ifassigned(form3)thenform3.Free;//form2若存在，释放form3:=Tform3.Create(self);//动态创建form2form3.Show;//模式显示对form3的close事件进行编码。action:=cafree;//关闭form3时将其释放form3:=nil;2.编写一个MDI程序1)新建一个项目，将窗体form1的formstyle设为fsMDIForm。在窗体上放１个button1，用于显示子窗体。2)新建一个窗体form2，将其formstyle设为fsMDIChild。在其close事件中添加如下语句：action:=caFree;3)在form１中添加对unit２的引用，并将form2设为可用窗体。4)对form1中的button1的单击事件进行编码：5)Form2:=Tform2.create(self)；6)运行程序3.编写一个程序，利用框架技术实现界面复用。1)新建一个项目2)在窗体上创建按钮button1和button2,分别用于控制嵌入框架窗体。放入panel1，用作容纳框架窗体的容器。界面如右图所示。3)单击file→new→frame,新建两个框架frame2和frame3.对button1和button2的单击事件进行编码：//button1的单击事件ifassigned(frame2)then//判断是否初始化frame2.free;frame2:=tframe2.Create(self);//创建frame2frame2.Align:=alclient;//使框架窗体充满panel组件frame2.Parent:=panel1;//设置frame2的容器//button2的单击事件ifassigned(frame3)then//判断是否初始化frame3.free;frame3:=tframe2.Create(self);//创建frame3frame3.Align:=alclient;frame3.Parent:=panel1;//设置frame3的容器实验说明：１.设置可用窗体在Project→ProjectOptions菜单中设置。２.设置unit1单元可访问Unit2单元可在File→UsesUnit菜单中设置。注意问题:１.正确设置可用窗体。２.模式窗体和无模式窗体的释放方式。实验6选作一个小型的实用项目实验学时：4学时背景知识：Pascal语法规范，窗体设计，组件使用。目的要求：1.根据前面所学知识，选做一个小型的实用项目。可选主题如下：1)文本编辑器a)文本编辑器功能要求：采用MDI技术实现，以微软自带的写字版为参考，要求实现其大部分功能。b)涉及技术：常用对话框的使用；RichEdit控件2)媒体播放器a)媒体播放器功能要求：以微软自带的MediaPlayer为参考，要求实现其大部分功能。b)技术方案选择：Delphi自带的mediaplayer组件；导入ActiveX控件，如RealPlayer插件、MediaPlayer等。3)计算器a)计算器功能要求：以微软自带的计算器为参考，要求实现其大部分功能。实验步骤：略实验7数据库的连接与配置实验学时：２学时背景知识：BDE,ODBC目的要