软件组件技术实验指导书.docVIP

《软件组件技术》实验指导书 王李冬 编 二0一四年一月 目录 TOC \o 1-3 \h \z \u HYPERLINK \l _Toc 实验一 Delphi程序设计初识 PAGEREF _Toc \h 3 HYPERLINK \l _Toc 实验二 选择分支程序设计 PAGEREF _Toc \h 6 HYPERLINK \l _Toc 实验三 循环处理程序设计 PAGEREF _Toc \h 8 HYPERLINK \l _Toc 实验四 自定义数据类型 PAGEREF _Toc \h 11 HYPERLINK \l _Toc 实验五 Delphi窗体、对话框设计 PAGEREF _Toc \h 13 HYPERLINK \l _Toc 实验六 常用组件的使用（一） PAGEREF _Toc \h 20 HYPERLINK \l _Toc 实验七 常用组件的使用（二） PAGEREF _Toc \h 26 HYPERLINK \l _Toc 实验八 MDI程序的编写 PAGEREF _Toc \h 33 HYPERLINK \l _Toc 实验九 图形与多媒体编程（选做） PAGEREF _Toc \h 36 HYPERLINK \l _Toc 实验十 结构化异常处理（选做） PAGEREF _Toc \h 43 HYPERLINK \l _Toc 实验十一 数据库编程 PAGEREF _Toc \h 45 HYPERLINK \l _Toc 实验十二 综合大作业 PAGEREF _Toc \h 52 HYPERLINK \l _Toc 附录 Delphi函数参考大全 PAGEREF _Toc \h 70 实验一 Delphi程序设计初识 实验目的 了解Delphi 7.0的集成开发环境（IDE） 初步掌握在Delphi IDE中开发应用程序的一般步骤 初步掌握窗体设计器、对象观察器、代码编辑器的使用方法 实验示例 1 设计如下图所示的Windows应用程序。程序运行后，窗口空白显示，鼠标点击窗口，则显示如图文字，同时“退出”按钮激活；单击“退出”按钮，则关闭窗口，结束运行。 实现步骤： 1．新建Application项目 启动Delphi 7.0后，IDE已自动创建并初始化了一个Application项目Project1。第1步可省略。否则，通过执行菜单【File】→【New】→【Application】项创建，或单击工具栏上的New items快捷钮打开的对话框来创建Application。 IDE自动初始化一个Windows应用程序项目。 2．在窗体上布置组件 1）用鼠标拖动的方法，适当调整窗体的大小； 2）在standard组件板上用鼠标点击（Button组件），然后在窗体适当位置单击，将自动创建按钮Button1； 3）在standard组件板上用鼠标点击（Label组件），然后在窗体适当位置单击，将自动创建标签Label1。 3．设置窗体和组件属性 1）通过单击窗体空白处，或在对象观察器（Object Inspector）窗口的对象列表框中选中Form1，然后在属性页（Properties）中点击选中Caption属性，在其后输入“My first form”属性值； 2）同样方法选中Label1组件对象，将其Caption属性值设为“我的第一个Windows应用程序”，Font（字体）属性设为“宋体”、五号、深蓝色，Visible（可视的）属性设为False； 3）选中Button1组件对象，设置其Caption属性为“退出”，Enabled（激活的）属性设为False。 4．编写程序代码 1）选中Form1，在对象观察器窗口的事件（Events）页中选中OnClick（鼠标点击）事件，鼠标双击其后的编辑处，IDE则自动初始化了一个TForm1的OnClick事件处理过程（见代码编辑器窗口），转到代码编辑器窗口，在对应事件处理过程中编写如下代码： procedure TForm1.FormClick(Sender: TObject); begin label1.Visible:=true; button1.Enabled:=true; end; 2）选中Button1，同样方法，编写其OnClick事件处理程序代码如下： procedure TForm1.Button1Click(Sender: TObject); begin form1.Close;(Application.Terminate;) end; 5．保存项目和程序单元 执行菜单【File】→【Save Project As…】项，在打开的保