毕业论文(设计)的格式规范.doc

西安电子科技大学毕业论文83424414毕业课题：人事档案管理系统专 业：计算机设计人：宋文俊 指导老师：朱接文评审人： 日期：2009年5月目录第一章 引言 1.1题目背景.3 1.2项目内容.3 1.3开发的目的.3 1.4系统设计目标.3第二章 方案论证 2.1人事档案管理系统管理解决方案 .4 2.2总体设计思想 .4 2.3系统设计工具.15第三章 系统需求分析4.1 编写目的.164.2 项目背景.174.3 现行系统存在的主要问题.184.4 解决方案.194.5 具体需求.204.6 软件属性要求.22第四章 系统概要设计 5.1 系统功能分析.235.2 系统数据库结构设计.245.3 系统功能模块设计.25第五章 系统详细设计6.1 人机界面设计与代码.276.1.1登录面.276.1.2 主窗体.286.1.3子窗体.286.2 打包,发布.28 第六章 相关技术与问题的解答 7.1相关技术.28第七章结束语 致谢.40第八章 参考文献 .38第一章 引言1.1 题目背景计算机信息管理是现代企业高效率、快节奏生产的重要组成部分，传统的人事档案管理往往采用手工管理,存在工作效率低、重复劳动多、管理人员劳动强度大等弊病,不能够为企业决策提供及时准确的信息，而采用先进的管理方法引进计算机信息技术，将计算机管理完整的对人事档案进行管理，则可以提高工作效率，进一步简化和规范办事程序，提高生产的质量，为企业带来更多的效益,这已经是各个企业的必经之路。本系统就是针对这种情况，参考同类系统开发的，具有灵活性强，覆盖方面广等特点.1.2 项目内容根据本次毕业设计的要求及任务，我们做了详尽的需求分析，确定了项目的具体内容，人力资源管理包含几大方面：用户管理、档案管理、工资管理、部门管理、员工管理等，由于时间有限，系统本身又很庞大，所以只能把某个部分做精细一些，但宗旨是本系统能为企业管理决策者提供及时准确的信息。 1.3 开发目的为了开发出适用于中小型企业的通用人事管理软件。对于已备电脑等硬件设备而无人事管理软件的企业更能带来更高的收益。此人事管理软件主要应用了DELPHI 6和Microsoft Access 2000。解决企业管理中的员工管理。可以方便的查询员工信息。对管理员设置了一定的权限，提高了本系统的安全性。1.4系统设计目标 建立一个合理的人事档案管理系统，从而能够对单位人事档案做完善的理，使企业管理更加科学规范，并能根据系统提供的准确信息进行适当的调整，使企业更好发展,并做到以下几点：u 简单性 系统设计尽量简单，从而实现使用方便、提高效率、节省开支、提高系统的运行质量。u 灵活性 系统对外界条件的变化有较强的适应能力。u 完整性 系统是各个子系统的集合，作为一个有机的整体存在。因此，要求各个子系统的功能尽量规范，数据采集统一，语言描述一致。u 可靠性 实现安全的、可靠的数据保护措施。第二章 方案论证 21人事档案管理系统解决分案：一套好的人事档案管理解决方案应是对人事档案管理的所有领域提供最佳支持的系统，这些领域涵盖从人力资源计划、人才招聘到人事信息管理（包括员工信息管理、合同管理、休假管理和离职管理）、考勤管理、薪资福利管理以及员工培训与发展管理等各个方面，并提供各种查询统计功能与报表输出功能，能动态直观地反映企业人事档案的状况，为人事档案管理提供高效的决策支持。作为人事档案管理系统功能扩展而提供的经理自助服务与员工自助服务功能，将使得企业所有人员都可以从人事档案管理系统中受益。一个比较完善的人事档案管理系统的解决方案包含的主要功能如下：面向HRSM管理者：用户管理（user Management）人事信息管理（Personnel Information Management）工资管理(Management)复职管理(Management)离职管理(Leave Management)调动管理（）统计报表管理（）下图是资源管理系统的功能结构图：HRSMM系统设置人事管理信息查询统计管理数据备份帮 助工资管理用户授权图1：资源管理系统的功能结构图打 印档案查询2.2 总体设计思想一、总体结构和主要功能人事档案管理系统主要包含员工个人信息情况，工作情况，简历，政治情况等各方面信息，内容比较庞大复杂。同时还综合考虑档案管理工作的性质，总结归纳出所需实现的功能。主要是为人事档案进行服务，对人事的变动、人事资料、以及人事资料的查询，统计等功能。总体上说具有编辑，查询，用户管理，图表统计等功能。(1) 灵活的数据记录编辑功能，可以随时对记录进行增加,修改,更新,删除,查询等编辑操作,并将查询方式有机溶入编辑界面,可以实现对某项记录定位,再进行编辑,修改,更新(2) 多个数据库表的组合条件的查询。便于在实际档案管理操作中对多种情况，多种条件下的人员情况进行统计查看.(3) 具备分级用户权限管理设置，以确保档案的保密性和安全性。(4) 具有分类统计，使用图表显示的功能，该统计图表可根据数据库中记录情况的变化而变化.(5) 具有比较友好的人机界面，各种操作可以在直观的界面上通过人机交互式进行。(6) 具有辅助工具，主要有“会议记录”、“通信录”、“日常记事”的功能，针对每个功能的内容，进行添加，修改，删除操作。2.3系统设计工具下图是较为完善的人事档案管理系统中人事信息管理的工作流程模型图：启动窗体口令检测窗体主窗体系统设置人事管理信息查询工资管理统计管理辅助工具帮助退出系统设置重新登录人事管理数据备份用户注册用户授权用户管理修改密码数据备份单位信息系统设置普通用户管理员数据管理数据恢复基本档案管理详细档案管理年度考核管理职称评定管理培训管理部门管理调动管理复职管理离职管理出勤管理工资管理工资的录入工资的查询信息查询基本档案查询详细档案查询年度考核查询调动员工查询离职员工查询复职员工查询统计管理统计婚姻状况统计文化程度统计部门人数统计政治面貌辅助工具日常记事通信录会议记录第三章 系统需求分析l 4.1 编写目的 人事档案管理系统的主要目的是明确所要求开发的软件应用具有的功能、性能，使系统分析人员及软件开发人员能清楚地了解用户的需求，并在此基础上进一步提出系统管理和完成后续设计与开发工作、为软件开发范围、业务处理规范提供依据，也是应用软件进行合同终验的验收依据。本系统是人事管理系统，它主要实现管理员如何对普通用户进行授权，如何插入、删除一个员工的信息，用户如何浏览员工的所有信息，以及用户如何查询自己想要的结果，也即是通过输入查询条件，显示符合条件的员工记录以及如何显示这个员工的全部信息。如何对查询或统计出来的符合条件的记录用报表的形式打印出来，窗口打开时的排放顺序，也即是平铺还是重叠，最后得提供一下如何使用这个系统，如何解决用户可能会遇到的问题以及这个系统中的难点和开发技巧等等。l 4.2 项目背景 开发软件名称：人事档案管理系统 项目任务提出者：某公司科技处 项目开发者：王鸣、邱庆清、许桂凤用户：某公司 实现软件单位：某软件公司l 4.3现在存在的主要问题1. 手工操作使人员信息的各项登记工作很繁琐，并且大量的重复劳动很容易出现差错。字体不容易规范。2. 员工与领导的联系不紧密，不便于互相交流不能及时的进行数据反馈。3. 大量的书面文件容易混乱和丢失，并且不容易查询、检索、和统计。4. 手工操作的效率极低，并且需要占用大量的人员和场地，大大拉长了办公的时间和费用。l 4.4解决方案1. 信息的录入采用微机，无论是速度还是准确度都有很大的提高，并且字体规范，统一，美观。2. 本系统可以联网使用，员工与领导之间的交流非常方便。3. 电子文件容易保存并且安全，使员工信息的查询，检索，统计，修改，删除等操作变的非常简单。4. 用微机占用的场地很小并且人员也不需要很多，并且效率极高，从而大节省了办公费用5. 友好的人机界面，便于维护和操作。l 4.5具体需求1. 功能需求(1) 系统设置，包括用户管理，修改密码，新用户注册，用户授权，学校或者企业信息设置，数据的备份，数据的恢复。(2) 档案管理，包括员工的基本信息、学历信息、婚姻状况、考勤信息、奖励和处分，体检，政治面貌，工资信息。 (3) 对用户进行授权。 (4)员工各种信息的修改。 (5)对于转出、辞职、退休员工信息的删除。 (6)按照某种条件，查询统计符合条件的员工信息。 (7) 对查询、统计的结果打印输出。 (8) 人事系统的使用帮助。(9) 员工基本情况。包括的数据项有员工号、员工姓名、性别、所在部门、身份证号、生日、籍贯、国籍、民族、婚姻状况、健康状况、政治面貌、参加时间、血型、开 作时间、家庭住址、联系电话、岗位代号。 (10) 员工婚姻状况。包括的数据项有员工号、爱人代号、爱人姓名、爱人生日、结婚时间、爱人工作单位、爱人政治面貌、爱人工作职务。 (11) 员工学历信息。包括的数据项有员工号、学历、专业、毕业时间、毕业学校、学校类型、外语、外语级别、计算机、计算机级别。 (12)员工考勤信息。包括的数据项有员工号、姓名、日期，本月天数，公休假天数，应出勤天数，请假，节假日加班，其它加班。 (13) 员工工资信息。包括的数据项有员工号，姓名，底薪，补贴，奖金，加班，代扣养老金，代扣医疗保险，代扣住房公积金，所得税，房贴，房租，实发工资。 (14) 员编码信息。包括的数据项有人员编码，人员姓名，密码。 (15) 用户授权信息。包括的数据项有序号，人员编码，程序号。 2. 性能需求 为了保存期系统能够长期、安全、稳定、可靠、高效地运行，人事档案管理系统应该满足以下性能需求： 系统处理的准确性和及时性系统处理的准确性和及时性是系统的必要性能。查询时应保证查全率，所有相应域包含查询关键字的记录都应能查到。在系统设计和开发过程中，要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力和响应能够满足企业对信息处理的需求。响应时间，更新处理时间都比较迅速，完全满足用户要求。一般操作的响应时间应在12s内，对数据的导入、导出、软磁盘和打印机的操作也应在可接受的时间内完成。 系统的开放性和系统的可扩充性系统的开发过程中,应该充分考虑以后的可扩充性。例如,申报方式的改变(网上申报),用户查询 的需求也会不断地更新和完善.所有这些,都要求系统提供足够的手段进行功能的调整和扩充.而要实现这一点,应通过系统的开放性来完成,即系统应是一个开放系统,只要符合一定的规范,可以简单地加入和减少系统的模块,配置系统的硬件.通过软件的修补、替换，完成系统的升级和更新换代。 系统的易用性和易维护性系统是直接面对面使用人员的，而使用人员往往对计算机并不是很熟悉。这就要求能够提供良好的用户接口，易用的人机交互界面。要实现这一点， 就要求系统应该尽量使用用户熟悉的术语和中文信息的界面；针对用户可能性出现的使用问题，要提供足够的在线帮助，缩短用户对系统熟悉过程。系统中涉及的数据是公司的相当重要的信息，系统要提供方便面的手段供系统维护人员进行数据的备份、日常的安全管理、系统意外崩溃时数据的恢复等工作。 系统的标准性系统在设计、开发、使用过程中，要涉及很多计算机硬件、软件。所有这些都要符合主流国际、国家和行业标准。例如，在开发中使用的操作系统、网络系统、开发工具都必须符合通用标准。 软件属性要求1. 正确性要求发布的软件达到用户的预期目标，运行基本无错误。2. 可靠性在正常条件下，应该不出故障。3. 效率对于浏览、查询、添加、删除、更新、和密码设置等一般操作，要求及时响应，在12s内。4. 完整性要求在发生意外（如，掉电）时，保证数据不丢失。5. 易使用性软件界面符合当前流行的习惯，尽量为用户的使用提供方便。6. 可维护性要求软件运行发现错误时，能够快速、准确地对其定位、诊断和修改、恢复。7. 可理解性对于本软件提供的各种菜单、按钮，其功能应该一目了然，易于理解。8. 安全保密性要求提供身份验证，只允许通过身份验证的用户使用本软件。如果三次密码输入不正确，则强行关闭系统。9. 数据可交换性要求提供数据的导入/导出功能，尤其要提高与WORD/EXCEL等通用办公软件的数据交换接口。第四章 系统概要设计5.1 系统功能分析如下：系统设置： 1用户管理： （1）用户设置： 用户分为两类：普通用户和管理员。功能：设置使用人事管理系统的用户及其使用权限。 整个人事管理系统由多个功能模块组成，不同的模块完成不同的功能，所以可以为不同的用户分配不同的功能，使其具有不同的权限，完成其权限所对应的功能，从而很好地管理好整个系统。(2)用户登录功能：用户登录进入人事管理系统。系统启动后，首先要做的就是用户登录。若不登录系统，所有功工能都无法使用。用户只有登录系统后，根据其具有的权限，才能执行一定的操作。操作：进入该功能后，要求输入用户的登录名及其口令，只有其登录名和口令完全正确，才能进入人事管理系统。系统会根据为用户分配的权限，设置其对应的功能为有效，用户就可操作该功能。2用户注册： 功能：由于数据库中没有新用户的记录，没有用户名和密码无法进行登录，所以新用户只有注册之后才能成功的登录到系统，然后再进行操作，系统也根据新用户选择的是普通用户还是管理员来设置不同的权限。3修改密码： 功能：更改密码，可以对公司员工原有的密码进行修改。4数据管理： 功能：对数据进行备份和恢复，防止意外情况造成数据的损失。人事管理:人事管理编辑模块中有7个子模块。他们是基本档案管理、详细档案管理、年度考核管理、职称评定管理、培训管理、部门管理、调动员工管理、复职员工管理、离职员工管理等功能。这些功能因管理员的权限不同所表示出的功能使用也不同，普通用户没有档案录入的权利。在这些功能里详细的记录了所有单位员工的资料。 (1)基本档案管理:功能：也就是个人档案录入，添加,修改和删除公司人员人事资料（包括个人基本信息，接受教育经历，工作经历，奖惩记录,证件资料,家庭情况和其它）。(2)详细档案管理： 基本操作的功能：主要添加记录员工的简历包括基本资料（员工号、姓名）工作经历、社会关系、英语水平、计算机水平、主修课程、个性特点、兴趣爱好的内容。(3)年度考核管理： 功能:根据公司部门的需要将一些已离职的员工和调动了职务的员工进行职务复职.(4)职称评定管理：功能:根据公司人员的素质、技能、知识、业绩四个方面进行员工的职称评定，根据四个方面加起来百分比从而算出人员的职称等级是低级、中级还是高级.也可以按字段（员工号、姓名、部门名称）查询出某一个人的等级评定。 (5)培训管理: 培训设置：对于培训人员的姓名、培训起止时间、培训单位、培训名称及培训内容。(6)部门管理： 功能：用于建立公司部门结构信息，可以增加新部门，修改部门，删除选择部门。根据部门代号，部门名称进行这些功能的操作，同时也可以根据这两个字段进行部门的查询功能。(7)调动管理： 功能：根据人事部人员的变动，进行人员调动。(8)离职管理： 功能：根据人事部人员的变动及其个人情况，进行离职管理。(9)复职管理： 功能：根据公司人员的需求，对一些已离职或者是调职的员工进行复职管理。(10)出勤管理： 功能：对缺勤的员工进行浏览；添加记录、修改记录、删除记录；根据员工的缺勤时间，缺勤天数，缺勤原因进行记录；按编号进行查找，快速查找该员工的详细资料。信息查询： (1)基本档案查询： 功能：可以选择单个条件进行查询也可以选择多个条件进行查询，选择条件会在另一个窗口中显示出来，结果在另一个窗中显示出来。 (2)详细档案查询：功能：与档案卡片管理类似，可以对员工个人简历、对全部员工的家庭成员信息进行浏览。但是不能进行修改、删除员工个人简历的记录；可以按员工号，姓名，部门，职称进行查找，快速查找该员工个人简历的资料。 (3)年度考核查询： (4)离职员工查询： 功能：按员工号进行查询可以对离职的员工进行浏览，除了浏览信息的功能外，还有一些基本操作的功能：对已离职的员工进行复职；对已离职员工的信息进行删除；可以按员工号进行个人或者是全部查找，快速查找离职员工的资料。(5)复职员工查询： 复职员工查询设置：员工号，姓名，部门，职务，职称，离职时间，离职原因，附加说明等内容，通过对员工号进行查询，可以获取到复职员工离职时的信息。统计表: (1)统计婚姻状况: 功能:根据员工进入公司时填写的基本档案表可以获得员工的婚姻状况,因此只要单击婚姻统计就会分别显示出未婚,已婚,已离的人数.(2)统计文化程度: 功能:根据员工进入公司时填写的基本档案表可以获得员工的文化程度,因此单击统计文化程度就会分别显示出不同文化程度的人数.(3)统计部门人数: 功能:根据员工进入公司时填写的基本档案表可以获得每一个部门的人数,因此单击统计部门人数就会显示出各个部门的人数.(3)统计部门人数: 功能:根据员工进入公司时填写的基本档案表可以获得每一个员工的政治面貌如何,是共青团还是党员还是群从,因此单击统计政治面貌就会显示出共青团有多少人,党员有多少人,群众有多少人数.工资:(1)工资录入: 薪资项目设定：设定各种薪资的项目,分为常量和公式设定。 薪资项目输入：针对那些常量的薪资项目,输入该员工该类项目的薪资。 薪资方案:根据不同种类人员的薪资项目情况,进行薪资方案的设置,设置不同的薪资方案，可以适应多种薪资需求。薪资计算：根据薪资方案和个人薪资项目的设定，自动计算各员工薪资，并可修改。 薪资维护：薪资计算完成之后，如果你要对某一员工某一薪资项目数据进行调整，则可使用薪资维护。薪资报表：生成在职员工薪资报表。(2)工资查询: 功能:根据员工号和部门进行工资查询,不同部门,不同等级的员工工资不同.数据备份: 对数据进行备份和恢复，防止意外情况造成数据的损失。打印： 对数据进行打印输出。5.2系统数据库结构设计 5.1.1系统设置数据字典 5.1.2人事管理数据字典5.1.3信息查询数据字典5.1.4工资管理数据字典5.1.5统计报表数据字典(部门人数，婚姻状部，政治面貌，学历程度)第五章 系统详细设计 6.1 人机界面设计与代码 6.1.1主窗体模块图普通用户:procedure TFrmyhdr.SpeedButton2Click(Sender: TObject); var S: string;Begin Edtusername.SetFocus; If Edtusername.Text=then Begin Show Message(用户名不能为空); Edtusername.SetFocus; End Else if Edtpassword.Text=then Begin Show Message(密码不能为空); Edtusername.SetFocus; End Else Begin Edtusername.SetFocus; S: =select * from hob where username=+Quietest (Edtusername.text); DMo1.ADOQuerydr1.Close; DMo1.ADOQuerydr1.SQL.Clear; DMo1.ADOQuerydr1.SQL.Add(s); DMo1.ADOQuerydr1.Open; If DMo1.ADOQuerydr1.RecordCount0 then Begin S: =select * from hub where password=+Quotes (Edtpassword.Text); DMo1.ADOQuerydr1.Close; DMo1.ADOQuerydr1.SQL.Clear; DMo1.ADOQuerydr1.SQL.Add(s); DMo1.ADOQuerydr1.Open; If DMo1.ADOQuerydr1.RecordCount0 then Begin Frmyhdr.Hide; Frmrsglmail.Show; Frmrsglmail.N5.Enabled:=False; Frmrsglmail.N9.Enabled:=False; Frmrsglmail.N13.Enabled:=False; Frmrsglmail.N15.Enabled:=False; Frmrsglmail.N31.Enabled:=False; Frmrsglmail.N22.Enabled:=False; Frmrsglmail.N23.Enabled:=False; Frmrsglmail.N8.Enabled:=False; Frmrsglmail.N10.Enabled:=False; Frmrsglmail.N2.Enabled:=False; End Else Begin Show Message(你输入正确的用户名或密码错误); Edtusername.Clear; Edtpassword.Clear; Edtusername.SetFocus; End; End Else Begin Show Message(请输入正确的用户名或密码！); Edtusername.Clear; Edtpassword.Clear; Edtusername.SetFocus; Js: =js+1; If js=3 then if Application.MessageBox(你不能登录本系统,是否重新注册用户,警告信息,MB_YESNO)=6then Frmyhdr.Show Else Close; End; End;End;/管理员Procedure TFrmyhdr.SpeedButton3Click (Sender: TObject);Var S: string;BeginEdtusername.SetFocus; If Edtusername.Text=then Begin Show Message(用户名不能为空); Edtusername.SetFocus; End Else if Edtpassword.Text=then Begin Show Message(密码不能为空); Edtpassword.SetFocus; End Else Begin S: =select * from glyb where username=+QuotedStr (Edtusername.text); DMo1.ADOQuerydr1.Close; DMo1.ADOQuerydr1.SQL.Clear; DMo1.ADOQuerydr1.SQL.Add(s); DMo1.ADOQuerydr1.Open; If DMo1.ADOQuerydr1.RecordCount0 then Begin S: =select * from glyb where password=+QuotedStr (Edtpassword.Text); DMo1.ADOQuerydr1.Close; DMo1.ADOQuerydr1.SQL.Clear; DMo1.ADOQuerydr1.SQL.Add(s); DMo1.ADOQuerydr1.Open; If DMo1.ADOQuerydr1.RecordCount0 then Begin Frmyhdr.Hide; Frmrsglmail.Show; End Else Begin Show Message(你输入正确的用户名或密码错误); Edtusername.Clear; Edtpassword.Clear; Edtusername.SetFocus; End;End Else Begin Show Message(请输入正确的用户名或密码！); Edtusername.Clear; Edtpassword.Clear; Edtusername.SetFocus; Js: =js+1; If js=3 then if Application.MessageBox(你不能登录本系统,是否重新注册用户名,警告信息,MB_YESNO)=6 then Frmyhdr.Show Else Close; End; End;End;6.1.2主窗体模块procedure TFrmrsglmail.Timer1Timer(Sender: Object);var logTime:String ;beginLabel1.Caption:=FormatDateTime(yyyy-mm-dd,Now); Label2.Caption:=FormatDateTime(hh:mm:ss,Now); LogTime:=TimetoStr(Time); StatusBar1.Panels0.Text:=使用者:+登录时间:+DateToStr(date)+ +logtime; StatusBar1.Panels1.Text:=开始使用; StatusBar1.Panels2.Text:=FormatDateTime(yyyy-mm-dd,Now); StatusBar1.Panels3.Text:=版权所属:+凤凰工作室;end;procedure TFrmrsglmail.N32Click(Sender: TObject);begin Frmyhdr.Show; Frmrsglmail.Hide;end;procedure TFrmrsglmail.N3Click(Sender: TObject);begin Frmnewyh.Show ; StatusBar1.Panels1.Text:=正在使用:+ +新用户注册; end;procedure TFrmrsglmail.N4Click(Sender: TObject);begin Frmkeyupdate.Show; StatusBar1.Panels1.Text:=正在使用:+ +密码修改; end;procedure TFrmrsglmail.N2Click(Sender: TObject);begin Frmusergl.Show ; StatusBar1.Panels1.Text:=正在使用:+ +用户管理;end;procedure TFrmrsglmail.N5Click(Sender: TObject);begin Frmusersq.Show ; StatusBar1.Panels1.Text:=正在使用:+ +用户授权;end;procedure TFrmrsglmail.N13Click(Sender: TObject);begin Frmbm.Show ;end;procedure TFrmrsglmail.SpeedButtoncdrClick(Sender: TObject);begin Frmyhdr.Show ; Frmrsglmail.Hide ;end;procedure TFrmrsglmail.N26Click(Sender: TObject);begin Frmttxl.Show ;end;procedure TFrmrsglmail.N8Click(Sender: TObject);begin frmbf.Show ; StatusBar1.Panels1.Text:=正在使用:+ +数据备份; end;procedure TFrmrsglmail.N25Click(Sender: TObject);begin frmjs.Show ;end;procedure TFrmrsglmail.N9Click(Sender: TObject);begin frmff.Show ; StatusBar1.Panels1.Text:=正在使用:+ +数据恢复;end;procedure TFrmrsglmail.TreeView1Click(Sender: TObject);begin if TreeView1.Items.Item0.Selected then begin DMo1.ADOQuerybasic.Close ; DMo1.ADOQuerybasic.SQL.Clear ; DMo1.ADOQuerybasic.SQL.Add(select * from ygjb); DMo1.ADOQuerybasic.Open ; end; if TreeView1.Items.Item0.Item1.Selected then begin s:=select * from ygjb where bm=+QuotedStr(TreeView1.Items.Item0.Item1.text); DMo1.ADOQuerybasic.Close ; DMo1.ADOQuerybasic.SQL.Clear ; DMo1.ADOQuerybasic.SQL.Add(s) ; DMo1.ADOQuerybasic.Open ; end; end;procedure TFrmrsglmail.TreeView1MouseDown(Sender: TObject;Button: TMouseButton; Shift:TShiftState; X, Y: Integer); var s:string ;begin if TreeView1.Items.Item0.Item0.Item0.Selected then begin s:=select * from ygjb where bm=+QuotedStr(TreeView1.Items.Item0.Item0.Item0.Text); DMo1.ADOQuerybasic.Close ; DMo1.ADOQuerybasic.SQL.Clear ; DMo1.ADOQuerybasic.SQL.Add(s) ; DMo1.ADOQuerybasic.Open ; end; if TreeView1.Items.Item0.Item0.Item1.Selected then begin s:=select * from ygjb where bm=+QuotedStr(TreeView1.Items.Item0.Item0.Item1.text); DMo1.ADOQuerybasic.Close ; DMo1.ADOQuerybasic.SQL.Clear ; DMo1.ADOQuerybasic.SQL.Add(s) ; DMo1.ADOQuerybasic.Open ; end; if TreeView1.Items.Item0.Item0.Item2.Selected then begin s:=select * from ygjb where bm=+QuotedStr(TreeView1.Items.Item0.Item0.Item2.Text); DMo1.ADOQuerybasic.Close ; DMo1.ADOQuerybasic.SQL.Clear ; DMo1.ADOQuerybasic.SQL.Add(s) ; DMo1.ADOQuerybasic.Open ; end; if TreeView1.Items.Item0.Item1.Item0.Selected then begin s:=select * from ygjb where gw=+QuotedStr(TreeView1.Items.Item0.Item1.Item0.text); DMo1.ADOQuerybasic.Close ; DMo1.ADOQuerybasic.SQL.Clear ; DMo1.ADOQuerybasic.SQL.Add(s); DMo1.ADOQuerybasic.Open ; end; if TreeView1.Items.Item0.Item1.Item1.Selected then begin s:=select * from ygjb where gw=+QuotedStr(TreeView1.Items.Item0.Item1.Item1.text); DMo1.ADOQuerybasic.Close ; DMo1.ADOQuerybasic.SQL.Clear ; DMo1.ADOQuerybasic.SQL.Add(s); DMo1.ADOQuerybasic.Open ; end; if TreeView1.