实验四delphi编程基础和控件的使用

《实验四delphi编程基础和控件的使用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验四Delphi编程基础和控件的使用—・实验目的：理解并掌握利用delphi进行可视化编程的基木过程，并熟悉若干基木控件的使用。二.实验属性：设计性。三.实验仪器设备及器材：装冇delphi7的电脑。四.实验要求1.预习ObjectPascal语言以及利用delphi7.0的控件进行可视化编程的基本方法。熟悉TLabekTEdit、TComboBox、TGroupBox、TRadioGroup、TRadioButton.TCheckBox、TMemoTBitBtn等常用控件的属性和使用方法。2.实验

2、前仔细阅读实验指导书，理解实验耍求。3.实验中要求完成如下两个工程：(1)设计用户登录验证的窗体，用来接收用户输入的用户名和口令，单击“确定”按钮进行验证，如果用户输入的用户名是"aaa-,密码是”bbb",则弹出对话框提示"登录成功！”并退出程序。如果用户输入其他的用户名和密码，则弹出对话框提示“用户名或密码错误，请重新输入！”。程序界面应如下图所示。(2)实现-个教师简历的信息输入。一个教师的属性有姓名、学历、性别、职称等，还有一些备注。当上述这些属性有改动后，“刷新简历(R)”按钮就被激活，按下

3、后，就在简历一项屮生成该教师的一个大致简历。按下“关闭”按钮后，如果教师属性冇改动但简历没冇刷新，则不允许用户退出，并弹出对话框提示“信息已更改但未刷新，请先刷新”。否则退出程序。程序界血如下图所示。性刖0广男e女面历（R

4、职転CO「i4in广阿软决介救授StandardDataSnaoADO飞直冒弛A顾冒页区@葛冒皿□匡学顾口j备注冋壬口卫科半院院士厂中国工程院院士P8$3百席科学巫书Closej1.实验后提交程序消•单和实验报告。二.实验步骤1.打开Delphi7主程序，我们可以看见一个主窗口工作

5、区位空，只冇工作条和一些工具窗口，英他部位都可以看见桌面的工作坏境。下血让我们开始第一个我们的工程，设计用户登录验证的窗体。2.首先新建一个工程File->new->Application在NewItems中选中Application然后［ok］工程就创建完了。我准备在这一个工程中实现两个实验，一个是上面说到的，一个是实现-个教师简历的信息输入。卞一步开始设计。3・先看看Delphi7的工作条:在这个工作条中冇好多组，每一个组里冇数量不等的常用控件，这个实验主要使用

6、Sbnd3『d

7、里面的控件，这里是

8、最普通的控件。如果耍往刚才建立的工程中插入控件，只耍双击这个工具上的某个控件就插入到Forml的面板里了。4.往Fom】1屮添加两个臺LabelE^EditButton,如下所示：为了直观再把每一个控件上的名字也改变一下，选中一个控件在左边的工具窗口有一个3阿0门Kabell~把Label换成你需要的名字，左边的工具窗口如下：IIObjectInspector2d

9、LabellTLabel□Properties

10、Eve{^

11、AlignalNone▲AlignmenttaLefUustifyElAnch

12、ors[akLeftakTop]Au^SizeTrueBiDiModebdLehToRiqhtCaptionLabellColorclBtnFaceEConstraints(TSizeConstraint：CursorcrDefault把英它的也改一下最后得到的面板如下:5•现在改写代码双击login按钮，跳转到双击login时的事件响应函数，添加七.实验代码屮的代码，这样第一个实验就可以运行了。结果很简单，成功弹出一对话框，失败也弹出一个对话框。6.开始“实现一个教师简历的信息输入”。首先再新建一个

13、Form,方法是File->NewForm。按照上血的方法添加各个控件并且修改幺字，结果如下：【别新简历7.当上述这些属性有改动后，“刷新简历(R)”按钮就被，按下后，就在简历一项中生成该教师的一个大致简历。为了实现这个功能需要给各个惶件一个点击的事件响应函数，在里而把激活。添加的代码illH：Button1.Enabled:=true;。当然了Button1初试话为false。按下“关闭”按钮后，如果教师属性冇改动但简历没冇刷新，则不允许用户退出，并弹出对话框提示“信息己更改但未刷新，请先刷新”。否

14、则退出程序。这个的实现是比较简单的，只耍加些控制就可以To下而重点介绍备注的显示问题。6.刷新简历的函数里而要处理东西比较多，下而-一列举：1）如何得到控件的文本内容2）如何控制“备注”里面每条在Memol的显示问题3）如何往ComboBox1里面添加条冃下而一一解答：1）例如EditI.Text就可以得到Editl中文本的内容了在例如ComboBox1.Text得到ComboBox1中的文本内容。2）首先把Memol.Lines设置成10行（10个回车