实验四Delphi编程基础和控件的使用.docxVIP

实验四Delphi编程基础和控件的使用 —?实验目的： 理解并掌握利用delphi进行可视化编程的基木过程，并熟悉若干基木控件的使用。 实验属性： 设计性。 实验仪器设备及器材： 装冇delphi 7的电脑。 实验要求 预习Object Pascal语言以及利用delphi 7. 0的控件进行可视化编程的基本方法。熟悉TLabek TEdit、TComboBox、TGroupBox、TRadioGroup、TRadioButton. TCheckBox、TMemo TBitBtn 等常 用控件的属性和使用方法。 实验前仔细阅读实验指导书，理解实验耍求。 实验中要求完成如下两个工程： (1)设计用户登录验证的窗体，用来接收用户输入的用户名和口令，单击“确定”按钮进行验证，如 果用户输入的用户名是aaa-,密码是”bbb,则弹出对话框提示登录成功！”并退出程序。如果用 户输入其他的用户名和密码，则弹出对话框提示“用户名或密码错误，请重新输入！ ”。程序界面应 如下图所示。 (2)实现-个教师简历的信息输入。一个教师的属性有姓名、学历、性别、职称等，还有一些备注。 当上述这些属性有改动后，“刷新简历(R)”按钮就被激活，按下后，就在简历一项屮生成该教师的一 个大致简历。按下“关闭”按钮后，如果教师属性冇改动但简历没冇刷新，则不允许用户退出，并弹 出对话框提示“信息已更改但未刷新，请先刷新”。否则退出程序。程序界血如下图所示。 性刖0广男e女面历（R|职転CO 性刖0广男e女 面历（R| 职転CO 「i4 i n 广阿软决 介救授 Stan dard DataSnao ADO 飞直冒弛A顾冒页区@葛冒皿□匡 学顾口 j 备注冋 壬口卫科半院院士 厂中国工程院院士 P 8$3百席科学巫 书 Close j 实验后提交程序消?单和实验报告。 实验步骤 打开Delphi 7主程序，我们可以看见一个主窗口工作区位空，只冇工作条和一些工具窗口，英 他部位都可以看见桌面的工作坏境。下血让我们开始第一个我们的工程，设计用户登录验证的窗体。 首先新建一个工程 File - new -Application 在 New Items 中选中 Application 然后［ok］工程 就创建完了。我准备在这一个工程中实现两个实验，一个是上面说到的，一个是实现-个教师简历的 信息输入。卞一步开始设计。 3?先看看Delphi 7的工作条: 在这个工作条中冇好多组，每一个组里冇数量不等的常用控件，这个实验主要使用|Sbnd3『d|里 面的控件，这里是最普通的控件。如果耍往刚才建立的工程中插入控件，只耍双击这个工具上的某个控 件就插入到Forml的面板里了。 4.往Fom】1屮添加两个臺Label E^Edit Button ,如下所示： 为了直观再把每一个控件上的名字也改变一下，选中一个控件在左边的工具窗口有一个 3阿0门 Kabell~ 把Label换成你需要的名字，左边的工具窗口如下： II Obj ect Inspector 2d | Labell T Label □ Properties | Eve{^| Align alNone ▲ Alignment taLefUustify El Anchors [akLeftakT op] Au^Size T rue BiDiMode bdLehToRiqht Caption Labell Color clBtnFace E Constraints (T S izeConstraint： Cursor crD efault 把英它的也改一下最后得到的面板如下: 5?现在改写代码双击login按钮，跳转到双击login时的事件响应函数，添加七.实验代码屮 的代码，这样第一个实验就可以运行了。结果很简单，成功弹出一对话框，失败也弹出一个对话框。 开始“实现一个教师简历的信息输入”。首先再新建一个Form,方法是File- NewForm。 按照上血的方法添加各个控件并且修改幺字，结果如下： 【别新简历当上述这些属性有改动后，“刷新简历(R)”按钮就被，按下后，就在简历一项中生成该教师的一 个大致简历。为了实现这个功能需要给各个惶件一个点击的事件响应函数，在里而把 激活。添加的代码ill H： Button 1.Enabled := true;。当然 了 Button 1 初试话为 false。 【别新简历 按下“关闭”按钮后，如果教师属性冇改动但简历没冇刷新，则不允许用户退出，并弹出对话框提 示“信息己更改但未刷新，请先刷新”。否则退出程序。这个的实现是比较简单的，只耍加些控制就可以 To下而重点介绍备注的显示问题。 刷新简历的函数里而要处理东西比较多，下而-一列举： 1） 如何得到控件的文本内容 2） 如