《职工档案管理信息系统的设计与实先.docx》由会员分享，可在线阅读，更多相关《职工档案管理信息系统的设计与实先.docx（36页珍藏版）》请在三一办公上搜索。
1、湖南文理学院课程设计报告课程名称： 计算机软件技术基础 系 部： 电气与信息工程学院 专业班级： 通信 07101 班 学生姓名： 郭 兰 指导教师： 梅 英 完成时间： 2009-12-5 报告成绩： 评阅意见：评阅教师 日期 目录一、设计题目2二、设计要求2三、设计目的2四、所用软件2五、系统设计31.系统总体设计31.1 系统总体设计分析31.2 系统的结构组成框图32.各子模块设计42.1 数据库的逻辑结构设计42.2 登陆界面的模块设计62.3档案管理窗体模块设计63相关函数分析64源程序设计（见附录）6六、实验调试结果61.系统的登陆界面62、职工档案系统的主窗体。6七、设计中的问
2、题及解决方法6八、设计心得6九.参考文献6十、附录：6一、设计题目职工档案管理信息系统的设计与实现二、设计要求设计编写一个职工档案管理软件。该软件与实际应用还有很大的距离，但它涵盖了数据库设计的基本内容。根据实际工作的需要，一般用户要求一个档案管理软件应有以下几个基本功能：(1) 数据输入功能：要求随时往库中追加记录和插入记录并且操作方便。(2) 数据查询功能：一般的查询功能包括按姓名查询、按编号查询等(为简单起见例按姓名查询)，且能从任何一个记录计始顺序浏览，随时可停止。(3) 数据修改功能：要求可随时对库中数据进行修改更新，对无用的数据可随时删除。(4) 报表功能：为了查询全部信息，可以将
3、数据库中的数据简单直观的以表格的形式输出。(5) 要求以菜单选择的方式完成上述4项功能，用户界面美观，便于操作，软件运行稳定、准确。三、设计目的 随着我们对计算机理论知识的学习的不断加深，实践方面是不可缺少的，因此我觉着这是一次很好的运用自己所学的知识的机会，在本次我的设计中为了提升自己的能力，我运用了delphi语言来实现我所设计的系统的功能。这是一种我们课堂上没讲过的语言，我也是听别人说这种语言的编程简单，界面友好，同时我觉得既然是锻炼能力，何不运用这种语言，现在网络那么发达，还怕学不会？凭着自己平时的积累和学习的激情，我决定用了,虽然没有达到自己预期的效果。四、所用软件1.页面开发环境：
4、Borland Delphi 72.后台数据库： Microsoft Office Access 20033.开发环境运行平台：XP(SP2)五、系统设计1.系统总体设计1.1 系统总体设计分析 该系统为职工管理系统，主要目的是方便，全面的对职工信息进行管理。根据我所学知识可以运用C语言、C+实现和delphi等。鉴于C语言的单一界面、复杂程序的编辑，操作不方便，不能方便直观的展现设计内容。C+虽然界面比TC好一些，但由于我们没有系统的对他进行学习编程有些困难。因此选用delphi为平台设计此系统。 根据老师的设计要求，该系统实现下面的功能: 系统采用人机交互的方式，界面美观友好，信息查询灵活
5、、方便，数据存储安全实现对职工的档案的输入、查询。实现对职工的档案的修改。实现对职工的档案的输出报表。对于职工档案的输入、查询、修改和报表功能都是基于数据库的操作，建立数据库是本设计关键。通过对设计的需求分析可得知，此系统设计包括：数据库的建立，登陆界面的设计，登陆等候界面的设计，档案管理窗体的创建，数据报表编辑窗体的建立。 1.2 系统的结构组成框图 系统结构框图如下图所示：按编号查询信息浏览信息查询信息修改信息添加菜单选择按姓名查询职工档案管理信息系统图1 系统结构框图由结构框图可知，首先要建立数据库，同时新建一个工程，再在里面添加form1、form2、 form3、form4、 for
6、m5窗体，通过在窗体中添加所需的控件，比如：Adodatabase、Adodatasource、Adoquery。最后对各个控件的属性和事件进行设置，对数据库进行连接，编写程序代码，实现系统所需实现的功能。2.各子模块设计2.1 数据库的逻辑结构设计数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。在进行数据库的设计时有两种方法可行，即：（1）在delphi自身的开发环境中创建数据表，用到的是该软件的数据库桌面工具Database Desktop。（2）可以用Microsoft Office Access 2003来建立表格，生成该数据
7、库的.mdb文件，再通过delphi来进行数据库的链接。我选择了后一种方法。2.1.1数据表的建立首先需要罗列出职工档案所包括的具体项目，如下所示：籍贯职工基本信息性别民族出生日期工资学历健康状况政治面貌编号姓名职务年龄 图2 职工基本信息打开Microsoft Office 2003 Access完成表格的建立，如下所示：图3 数据表2.1.2 数据表的链接在form2和form3中添加Ado数据集组件Adotable1、数据访问组件Daasource1及数据控制组件DBGrid1，点击Adotable1中的ConnectionString（连接字符串属性），得到下图所示的对话框： 图4 生
8、成Connectionstring的向导进行浏览加载数据表并测试，最后结果如下图所示： 图5 AdoConnection属性配置成功点击“确定”即加载数据表成功。2.2 登陆界面的模块设计为了使系统的安全性得到保障，我设置了登录模块。只有通过登录模块，只有系统的合法用户才可以进入系统的主界面。建立了一个窗口Form1，并在里面添加了一些控件，其中包括6个标签控件lable，一个图片控件image1，一个编辑控件edit1和一个时间控件timer1，用以进行界面的验证和登陆。同时建立form5并在其中添加image1，lable1，progressbar1和timer1，用以控制登陆的时间和模拟
9、网络的登陆模型。在添加控件之后最重要的事是设置各个控件的属性、事件和编程。2.2.1整个窗体界面的设计：图6 登陆界表1档案管理窗体主要控件的属性设置和功能表组件属性功能Image1Picture使用editor加载图片Edit1Text属性为空,passwordchar属性设为“”用来输入用户登密码Label 1Caption设为“职工档案管理系统”用于显示系统标题Label2Caption设为“进入”用于进入系统Label3Caption设为“职工档案管理系统”用于显示系统标题Label4Caption设为“进入”用于输入标示输入密码Label5Caption设为“设计者：郭兰”用于显示设
10、计者Label6Caption设为“退出”用于退出系统Timer1Interval设为“500”用于登陆界面等候2.2.2登陆流程图 输入密码密码是否正确系统功能开始退出NoYes与数据库核对密码 图7 登陆流程图2.2.3编写窗体代码1.处理登陆窗体的Label2Click事件该事件的主要作用是设置登陆用户名和用户需要登录的密码，点击登陆按钮当密码不正确时显示“对不起，您输入的密码不正确”，密码正确时进去form5窗体，form1窗体自动隐藏。当你不需要登录是就点击退出按钮退出该系统。登陆窗体的Label2Click事件对应的代码如下：procedure TForm1.Label2Click
11、(Sender: TObject);begin if edit1.Text=1234 then 输入密码“1234” begin form1.Hide; 窗体1隐藏 form5.Show; 窗体5显示form5.timer1.enabled:=true;endelseshowmessage(对不起，您输入的密码不正确！) 密码不正确显示“对不起，您输入的密码不正确！”end;2. 处理登陆窗体的.Label2MouseEnter事件该事件的主要作用是当鼠标指向lable 2时，lable2的颜色变成红的点击鼠标就可进入系统。登陆窗体的.Label2MouseEnter事件对应的代码如下：pro
12、cedure TForm1.Label2MouseEnter(Sender: TObject);begin label2.font.Color:=clred; 字体颜色变为红色end;3. 处理登陆窗体的Label2MouseLeave事件该事件的主要功能是当它离开label2时字体的颜色恢复原来的颜色变为绿蓝。登陆窗体的Label2MouseLeave事件对应的代码如下：procedure TForm1.Label2MouseLeave(Sender: TObject); /beginlabel2.font.Color:=clteal; 字体颜色变为绿蓝 end; 4. 处理登陆窗体的Tim
13、er1Timer事件该事件的主要功能是进入界面时使label1和 label3闪烁实现立体感。登陆窗体的Timer1Timer事件对应的代码如下：procedure TForm1.Timer1Timer(Sender: TObject);beginlabel1.visible:=not label1.Visible ;end;5. 处理登陆窗体的Label6Click事件该事件的主要功能是退出登陆界面关闭form1窗体。登陆窗体的Label6Click事件对应的代码如下：procedure TForm1.Label6Click(Sender: TObject); beginForm1.Clos
14、e; 关闭窗口end;end.2.3档案管理窗体模块设计 任何窗体都是一个容器，只有在容器中放置执行相关事务的空间才能产生相应的作用，为此在主窗体中在里面添加了一些控件，其中包括2个标签控件lable，一个图片控件image1，一个页面控制控件Pagecontrol1，一个数据源提供者provider，一个命令按钮Speedbutton1和一个时间控件timer1。其中最重要的是pagecontrol1，它用于生成多个页面，以实现不同功能的开发。2.3.1整个窗体界面的设计：图8 主窗体的设计表2 Form2档案管理窗体主要控件的属性设置和功能表组件属性功能Image1Picture使用edi
15、tor加载图片Lable1Caption设为“职工档案管理”用于显示窗体标题Label2Caption设为“职工档案管理”用于显示窗体标题Pagecontrol1用于页面控制DatasourceDataset设为“adotable”设置数据源对应的数据集AdotableConnectionstring设为“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsAdministrator桌面郭兰职工档案管理信息系统.mdb;Persist Security Info=False”，active设为“true”，t
16、ablename设为“职工基本信息表”active设为“true”设置该数据集所使用的数据库 Speedbutton1Caption设为“退出系统”用于系统的退出Timer1Interval设为“1000”用于字体的闪烁，产生立体感2.3.2编写窗体代码1.处理登陆窗体的SpeedButton1Click事件该事件的主要功能是退出系统。登陆窗体的SpeedButton1Click事件对应的代码如下：procedure TForm2.SpeedButton1Click(Sender: TObject);beginapplication.Terminate ;end;2.3.3 pagecontr
17、ol1页面的设置和控件的属性、功能设置及代码编写该页面控制主要由表单tabsheet2、tabsheet3、tabsheet4及其添加到表单中的各个控件。tabsheet2（个人档案记录）建立及设置tabsheet2表单在其中加载了很多label控件显示职工的基本信息。其主要实现职工信息的输入，修改，删除功能。tabsheet2的操作界面：图9 个人档案记录编辑表3 tabelsheet2主要控件的属性设置和功能表组件属性功能Label3Caption设为“职务”提示输入职务Label4Caption设为“职工姓名”提示输入姓名Label5Caption设为“职工编号”提示输入职工编号Labe
18、l6Caption设为“工资”提示输入工资Label7Caption设为“政治面貌”提示输入政治面貌Label8Caption设为“性别”提示输入性别Label9Caption设为“出生日期”提示输入出生日期Label10Caption设为“民族”提示输入民族Label11Caption设为“学历”提示输入学历Label12Caption设为“健康状况”提示输入健康状况Label13Caption设为“联系电话”提示输入联系电话Label15Caption设为“籍贯”提示输入籍贯DBEdit1Datasource设为“Datasourc1”选择数据源Datafield设为“职工编号”是数据与输
19、出窗口相匹配DBEdit2Datasource设为“Datasourc1”选择数据源Datafield设为“职工姓名”是数据与输出窗口相匹配DBEdit3Datasource设为“Datasourc1”选择数据源Datafield设为“性别”是数据与输出窗口相匹配DBEdit4Datasource设为“Datasourc1”选择数据源Datafield设为“出生日期”是数据与输出窗口相匹配DBEdit5Datasource设为“Datasourc1”选择数据源Datafield设为“民族”是数据与输出窗口相匹配DBEdit6Datasource设为“Datasourc1”选择数据源Datafi
20、eld设为“政治面貌”是数据与输出窗口相匹配DBEdit7Datasource设为“Datasourc1”选择数据源Datafield设为“健康状况”是数据与输出窗口相匹配DBEdit8Datasource设为“Datasourc1”选择数据源Datafield设为“学历”是数据与输出窗口相匹配DBEdit9Datasource设为“Datasourc1”选择数据源Datafield设为“职务”是数据与输出窗口相匹配DBEdit10Datasource设为“Datasourc1”选择数据源Datafield设为“工资”是数据与输出窗口相匹配DBEdit11Datasource设为“Dataso
21、urc1”选择数据源Datafield设为“联系电话”是数据与输出窗口相匹配DBEdit12Datasource设为“Datasourc1”选择数据源Datafield设为“籍贯”是数据与输出窗口相匹配BitBtn1Caption设为“输入”输入数据BitBtn2Caption设为“修改”对数据进行修改BitBtn3Caption设为“删除”删除数据流程图如下图示：Yes开始开始退出输入职工信息判断是否重复保存数据退出连接数据库连接数据库输入修改信息判断是否重复保存数据YesNoNo 图9 输入流程图 图10 修改流程图编写tabsheet2代码 处理登陆窗体的TForm2.BitBtn1Cl
22、ick事件该事件的主要功能是添加职工档案信息。登陆窗体的TForm2.BitBtn1Click事件对应的代码如下：procedure TForm2.BitBtn1Click(Sender: TObject);beginadotable1.Append;end; 处理登陆窗体的TForm2.BitBtn2Click事件该事件的主要功能是修改职工档案信息。登陆窗体的TForm2.BitBtn2Click事件对应的代码如下：procedure TForm2.BitBtn2Click(Sender: TObject);beginadotable1.Edit;adotable1.Post;end; 处理
23、登陆窗体的TForm2.BitBtn3Click事件该事件的主要功能是删除职工档案信息。登陆窗体的TForm2.BitBtn3Click事件对应的代码如下：procedure TForm2.BitBtn3Click(Sender: TObject);beginadotable1.Delete;end;2. Tabsheet3（全部档案浏览查询）建立及设置Tabsheet3表单中设置了DBGird控件，Label控件和Button按钮其主要功能是显示每个职工的全部信息，并可以通过输入职工姓名查询每个职工的信息。Tabsheet3的操作界面：图11 浏览查询界面编辑表4 tabsheet2主要控件
24、的属性设置和功能表组件属性功能LabelCaption设为“请输入职工姓名”提示输入所要查询的职工姓名DBGird1Datasource设为“Datasourc1”设置数据表格使用的数据源Edit1Text属性为空，用于输入要查询的职工姓名ButtonCaption设为“执行查询”进入查询流程图: 开始输入查询信息判断是否存在输出数据退出连接数据库NoYes图12 查询流程图 编写Tabsheet3代码：处理登陆窗体的TForm2. Button1Click事件该事件的主要功能是查询职工档案信息，当输入的姓名在数据库中时黑三角指向对应的职工，否则保持不变。登陆窗体的TForm2. Button
25、1Click事件对应的代码如下procedure TForm2.Button1Click(Sender: TObject);beginadotable1.locate(职工姓名,edit1.Text ,)end;3.Tabsheet4 （报表功能）建立及设置Tabsheet4表单的设计主要包括两大部分：数据表的建立和操作界面的设置。其主要功能是显示职工的全部信息。建立一个数据报表图13 数据报表的建立表5 QuickRep1主要控件的属性设置和功能表组件组件属性功能QRBand1QRLabel7Caption设为“职工基本信息”在报表中显示静态文本QRBand2QRDBText1Dataset
26、设为“ADOTable1”指定数据来源，显示数据库表中记录的字段QRDBText2Dataset设为“ADOTable1”指定数据来源，显示数据库表中记录的字段QRDBText3Dataset设为“ADOTable1”指定数据来源，显示数据库表中记录的字段QRDBText4Dataset设为“ADOTable1”指定数据来源，显示数据库表中记录的字段QRDBText5Dataset设为“ADOTable1”指定数据来源，显示数据库表中记录的字段QRBand3QRLabel2将Name设为QRLabel2在报表中显示静态文本QRLabel3” 将Name设为QRLabel3在报表中显示静态文本Q
27、RLabel4将Name设为QRLabel4在报表中显示静态文本QRLabel5将Name设为QRLabel5在报表中显示静态文本QRLabel6将Name设为QRLabel6在报表中显示静态文本Tabsheet4的操作界面：图14 报表功能界面编辑在该页面中添加了一个数据控制控件Radiobutton并将其与Form3窗体链接，把它的Caption设为“基本信息打印”。流程图如下所示： 开始输入职工信息输出职工信息退出 图13 报表流程图 编写Tabsheet4代码：处理登陆窗体的TForm2. RadioClick事件该事件的主要功能是打印职工档案信息，当点击数据控制按钮时就显示全体职工的
28、信息。登陆窗体的TForm2. RadioClick事件对应的代码如下procedure TForm2.RadioButton1Click(Sender: TObject);beginform3.quickrep1.preview;打印form3的信息form2.Hide ;窗体2隐藏form3.Show;窗体3显示end.3相关函数分析 在设计该系统的过程中我没有用到函数，只有过程之间的相互调用和ifelse语句、deginend语句的应用，最主要的过程是procedure，比如procedure TForm2.BitBtn1Click(Sender: TObject);beginadota
29、ble1.Append;end;TForm2.BitBtn1Click事件过程调用adotable1.Append过程，鼠标点击就执行增加空白页的任务。该系统应用的基本上就是这种过程和事件的调用。4源程序设计（见附录）六、实验调试结果1.系统的登陆界面当输入的密码正确时，得到如下的成功登陆界面图14 系统登陆当输入的密码不正确时，显示密码输入错误图15 系统登陆失败2、职工档案系统的主窗体。登陆成功后将进入该界面，它由编辑、浏览，报表三个主按钮控件构成。图16 个人档案显示图当点击输入按钮后，得到如下的空白页面，我们可以输入员工的相对应的档案信息图17 职工档案信息输入当我们点击修改按钮后可以
30、对员工的档案进行修改，如下图所示图18 职工档案修改进入查询页面后，我们可以对员工的档案进行查询，当所要查询的人属于该系统后，黑三角形将指向我们所查询的员工这一行，当不存在时，黑三角就保持不变。图19 职工档案信息查询选择报表功能后点击基本信息打印，将会显示职工的部分信息，具体效果如下图所示：图20 职工档案报表3.“退出系统”按钮实现带系统的退出功能，鼠标选定后，将自动退出该系统，其存在的界面如下：图21 退出系统七、设计中的问题及解决方法 由于这是我第一次用delphi来制作一个系统，所以我碰到了好多问题，但是经过查找资料，看视频教程，我把问题解决掉了，基本实现我所要的那些功能。我列写了下
31、面主要几个方面的。1.在背景图片上添加控件的问题。 设置背景图片后，当我添加一些组件时相应部分的背景无法显示，使得图片上残留一些阴影，经过查找书本，最后在对象编辑器中我将Transparent属性设为“True”,终于得到了我所需的效果，同时我也将其它组件的属性进行了修改。Transparent属性设置为“false”时的效果如下：Transparent属性设置为“true”时的效果如下： 2.Pagecontrol和Tabsheet的添加问题。 通过阅读我所借的相关资料书，我了解到设计档案窗体时，可以通过页面控制控件按钮来控制相应页的菜单。但是在设计过程中我并没有找到相应的Tabsheet控
32、件，后来在我下载的视频教程中我找到了解决方法，成功的添加了3个表单，完成了该页面的设置。 3.数据表的链接问题 在该系统中最重要的部分就是数据表的链接问题，只有数据表链接成功了，后续的工程才能进行，同时这也是我问题出现最多的一个过程。在Pagecontrol中添加Adotable1和Datasource1控件后，就是设置其属性了，当数据表的链接不成功时，出现了以下的对话框：图22 数据表链接失败当我把Adotable1属性Connectionstring设为“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and Setting
33、sAdministrator桌面郭兰职工档案管理信息系统.mdb;Persist Security Info=False”，active设为“true”，tablename设为“职工基本信息表”active设为“true”；Datasource的Dataset设为“adotable”后，数据表导入成功。4.使用该系统后出现的路径错误问题。当系统设计好后，我在其他电脑上测试其功能时发现，总是出错，数据表的内容也无法显示出来，在我们班精通电脑的同学的帮助下，我重新设置链接的路径，并将文件夹放在桌面上，这样就可以有效的避免这种问题的出现，但是在那种不同的电脑系统中，比如windows7，就要重新修改
34、路径了。八、设计心得这是我第一次用这个语言来编写这样一个系统，也是我真正的学习delphi的实践过程，遇到的问题真的很多。当时有很多人劝我放弃，毕竟时间是有限的，可是我拒绝了他们的好意，因为我从来对这样一个自己陌生的软件产生浓烈的兴趣，我上网查了好多资料、下载视频教程、到图书馆借阅书籍、与同学网上交流，当我设计出这个系统时，心里真的很高兴。在学习delphi的过程中我学到了好多，比如说对delphi组件的属性和功能的理解，对procedure过程的理解，特别是数据库的建立与链接。也掌握了如何应用这种语言实现对一个数据表的添加、删除、修改、产生报表功能，我相信以后遇到类似的系统时，通过努力我都可
35、以可以设计出来。两周的课程设计，我真的学到了很多，但是最重要的是我学会了这样一个有用的软件，我觉得它的优点很多，它的编程的简单易懂更是我所喜欢的。两周的时间要学会一种语言真的很难，而我学的只是些基本的、浅显的，但是我相信在课余我一定会加强对它的学习，从而更好的学好它，掌握它，应用它。九.参考文献 1. 谭浩强. Delphi程序设计（第二版）（Delphi 2005），北京，清华大学出版社 20062. 伍俊良. Delphi 7.0/8.0课程设计与系统开发案例，北京，清华大学出版社 20043. 徐 谡. Delphi应用与开发案例教程.，北京，清华大学出版社 20054. 求是科技 De
36、lphi信息管理系统开发实例导航.，北京，人民邮电出版社 20055. 彭明明 Delphi数据库实用编程100例，北京，中国铁道出版社 20066. 十、附录：unit Unit1; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls; Type 所用到的控件 TForm1 = class(TForm) Image1: TImage; Label1: TLabel; Label2: TLabel; L
37、abel3: TLabel; Edit1: TEdit; Label4: TLabel; Timer1: TTimer; Label5: TLabel; Label6: TLabel; procedure Label2Click(Sender: TObject); procedure Label2MouseEnter(Sender: TObject); procedure Label2MouseLeave(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Label6Click(Sender: TObject
38、); private Private declarations public Public declarations end;var Form1: TForm1;implementation uses unit5;$R *.dfmprocedure TForm1.Label2Click(Sender: TObject); beginif edit1.Text=1234 then 输入密码1234beginform1.Hide; form1隐藏form5.Show; form5显示 form5.timer1.enabled:=true; form5的时间控制工作endelseshowmessag
39、e(对不起，您输入的密码不正确！) 密码错误时显示对不起，您输入的密码不正确！end;procedure TForm1.Label2MouseEnter(Sender: TObject);beginlabel2.font.Color:=clred;鼠标移到Label2时变为红色end;procedure TForm1.Label2MouseLeave(Sender: TObject);begin label2.font.Color:=clteal; 鼠标移开Label2时变为绿蓝色end;procedure TForm1.Timer1Timer(Sender: TObject);使字体闪烁be
40、ginlabel1.visible:=not label1.Visible ;end;procedure TForm1.Label6Click(Sender: TObject);点击Label6时form1关闭，进入等候界面beginForm1.Close;end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Mask, DBCtrls, DB, DBTables, ComCtr
41、ls, Grids, DBGrids, ExtCtrls, QuickRpt, QRCtrls, jpeg, ExtDlgs, ADODB;Type 该窗体所用到的控件 TForm2 = class(TForm) Label1: TLabel; Label2: TLabel; PageControl1: TPageControl; TabSheet2: TTabSheet; SpeedButton1: TSpeedButton; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBEdit8: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit; DBEdit11: TDBEdit; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel;
