高校学生宿舍管理系统论文.doc 47页

'目录高校学生宿舍管理系统论文目录第一章引言1第二章需求分析22.1系统基本情况描述22.1.1系统的主要功能22.1.2系统功能的模块设计22.2可行性分析22.2.1技术可行性22.2.2经济可行性22.2.3运行可行性22.2.4法律可行性22.3系统分析22.3.1系统的功能分析22.3.2系统数据分析与描述32.3.3实现本系统功能的方法3第三章系统设计73.1系统配置73.2数据库设计73.2.1数据库需求分析73.2.2高校学生宿舍管理系统概念结构设计83.2.3高校学生管理系统数据库逻辑结构设计9第四章数据库功能的实现104.1创建数据库表格104.2创建数据维护窗口104.3创建数据库查询窗口114.4创建数据库统计窗口124.5创建数据报表窗口14 目录4.6互动中心144.6.1发布通知设计窗口144.6.2宿舍检修窗口154.6.3宿舍报检窗口164.6.4用户查看窗口174.7权限管理17第五章系统测试205.1用户注册测试205.2用户登陆测试215.3数据维护测试235.4数据查询265.5信息发布275.6系统测试总结28第六章工作总结29第七章谢辞31参考文献30附录：程序关键代码31 第一章引言第一章引言随着科学技术的进步，计算机迅速发展,高校学生宿舍管理的方法也日新月异,人工管理的缺陷日益突出：管理效率低，劳动强度大，信息处理速度低且准确率差强人意。为了提高学生宿舍管理效率，减轻劳动强度，提高信息处理速度和准确性；为学生宿舍管理员提供更方便、科学的服务项目；为宿舍管理员提供的一种更先进、科学的服务系统。系统选择了由Delphi来设计一个学生宿舍管理系统的方案。让计算机软件对学生宿舍进行自动管理，学生宿舍管理员可以直接在计算机上实现学生宿舍的信息管理，用户可以通过该系统获取宿舍管理通知，反馈生活信息等，并能在一定程度上实现自动化。学生宿舍管理系统集合了学生成绩管理系统和宿舍生活管理系统的功能，使学生的生活信息和学习信息充分结合在一起，为宿舍管理员、年级辅导员提供全方位的学生在校信息，以及时跟进学生学习状况，达到人性化、全方位、高效率的管理。我在现行系统初步调查的基础上提出了新系统目标，即新系统建立后所要求达到的运行指标，这是系统开发和评价的依据[1]。系统的主要功能：（1）权限设置管理，由管理员进行宿舍管理，用户为在校学生。用户可以登录、新用户可以注册[1]。（2）信息维护版块，对学生个人档案、学习、生活等各种信息的维护、存档[1]。（3）信息查询版块，学生宿舍管理的各种信息查询，修改和维护，加强公寓管理的监督力，学生学习状况的综合查询，了解学生学习状况。（4）信息统计版块，对学生在校学习情况和宿舍生活状况进行统计。（5）互动版块，管理员可以发布通知、查看通知、回复留言、审核宿舍报修等，而学生用户可以查看通知，给管理员留言，加强学生同老师之间的信息反馈和沟通。（6）数据报表，管理员可以查看报表信息，并打印存档。（7）帮助文件，详细说明作者信息，系统使用注意事项等，以不断改进。1 第二章需求分析第一章需求分析2.1系统基本情况描述设计开始前，必须在现行系统初步调查的基础上提出了新系统目标，即新系统建立后所要求达到的运行指标，这是系统开发和评价的依据。2.1.1系统的主要功能（1）权限设置管理，由管理员进行宿舍管理，用户为在校学生。用户可以登录、新用户可以注册。（2）信息维护版块，对学生个人档案、学习、生活等各种信息的维护、存档。（3）信息查询版块，学生宿舍管理的各种信息查询，修改和维护，加强公寓管理的监督力，学生学习状况的综合查询，了解学生学习状况。（4）信息统计版块，对学生在校学习情况和宿舍生活状况进行统计。（5）互动版块，管理员可以发布通知、查看通知、回复留言、审核宿舍报修等，而学生用户可以查看通知，给管理员留言，加强学生同老师之间的信息反馈和沟通。（6）数据报表，管理员可以查看报表信息，并打印存档。（7）帮助文件，详细说明作者信息，系统使用注意事项等，以不断改进。2.1.2系统功能的模块设计在系统功能分析基础上，考虑学生宿舍管理程序特点，编制如图所示的系统功能模块图。图2.1学生宿舍管理系统结构图3 第二章需求分析图2.2系统操作结构图图2.3数据维护模块结构图图2.4数据查询模块结构图图2.5数据统计模块结构图图2.6数据报表模块结构图图2.7发布信息模块结构图3 第二章需求分析图2.8帮助文件模块结构图3 第二章需求分析2.2可行性分析当接受一个软件开发任务，就进入软件生命的第一个阶段，即进行可行性的研究。并不是所有问题具有简单的解决办法，许多问题不能在预定的规模之内解决。因此通过可行性的研究分析可以知道问题[6]。有无可行性的解决方法，进而避免人力、物力和才力的浪费。在现行系统初步调查的基础上就可以提出新系统目标，即新系统建立后所要求达到的运行指标，这是系统开发和评价的依据。系统目标应充分体现，直接为学生宿舍管理系统服务，并且，程序可以分期分批实现。但是，需要指出的是，系统目标是不可能在总体规划阶段就提得非常具体，它还将在开发过程中逐步明确和定量化。以达到更加出色的程序系统。系统的目标确定后，就可以从以下四方面对能否实现新系统目标进行可行性分析：2.2.1技术可行性根据客户提出的系统功能、性能及实现系统的各项约束条件，根据新系统目标来衡量所需的技术是否具备，本系统是一个数据库管理和查询的系统，现有的技术以较为成熟，硬件、软件的性能要求、环境条件等各项条件良好，估计利用现有技术条件应完全可以达到该系统的功能目标。同时，考虑给予的开发期限也较为充裕，预计系统是可以在规定期限内完成开发[6]。2.2.2经济可行性估算新系统的成本效益分析，其中包括估计项目开发的成本，开发费用和今后的运行、维护费用，估计新系统将获得的效益，估算开发成本是否回高于项目预期的全部经费。并且，分析系统开发是否会对其它产品或利润带来一定影响[6]。（1）支出：基础投资：硬件设备：PC机软件设备：WINDOWS98/2000、POWERBUILDE8.0、WORD2000其它一次性支出：软件设计和开发费用经常性支出：软件维护费用、软件使用费用。（2）效益：系统的效益可以从经济效益和社会效益两方面考虑。对于学生宿舍管理系统3 信息管理学士学位论文则应着重分析其社会效益。例如，系统投入运行后可以使学生宿舍管理实现科学化、规范化。曾强了学校管理人员对学生宿舍管理能力、提高了工作效率。2.2.3运行可行性新系统的研制和开发是充分得考虑工作人员对学生宿舍的易于管理，管理者方便查询设备信息效率[7]。从而能完全满足使用者的要求。2.2.4法律可行性新系统的研制和开发，将不会侵犯他人、集体和国家的利益，不会违反国家政策和法律。2.3系统分析现已确定系统开发的目标，系统需求规格。确定软件系统的总体结构，给出系统中各个组成模块见的联系[5]。划分功能模块，将软件功能需求分配给所有单元模块。下一步工作就是在上述结果基础上，考虑怎样实现这个软件系统。2.3.1系统的功能分析（1）管理权限设置系统的权限分为管理员和学生用户，若没有注册，选定角色后可以注册新用户，即可以进入宿舍管理系统。若输入的用户名和密码不符，系统将报错提示。（2）系统操作包括退出、链接库、另存为几个主要功能。（3）数据维护此版块权限设置为管理员，学生用户不能对数据进行修改。管理员可以对学生个人信息、住宿信息、课程信息、宿舍管理信息等基本生活和学习信息进行录入、修改、删除等维护操作。（4）数据查询支持多表查询和单表查询，可以对系统信息进行综合查询。此版块充分结合了学生生活信息和学习信息，其提供的数据可作为分析学生在校状况的重要记录。（5）数据统计对信息进行统计处理，以供用户筛选重要信息。包括学生信息统计、学生学习情况统计、宿舍管理信息统计。（6）数据报表提供打印和预览系统信息报表的功能。（7）交互版块6 信息管理学士学位论文交互中心为本系统设计的重要亮点之一。在此版块，学生和管理员可以进行充分交流和互动，除通知发布、宿舍检修等信息的互通外，更人性化的设置了留言板功能。（8）帮助文件提供关于、作者信息、使用说明等信息，供用户参考。本系统的以上功能会更适合学生宿舍管理的发展情况，将会给学生宿舍管理带来一种更为科学的服务系统，是学生宿舍管理自动化的一面新窗口。也将会是学生宿舍管理员的好帮手。2.3.2系统数据分析与描述(1)、学生信息表包括学号、姓名、性别、年龄、学院、专业；(2)、学生课程表包括课号、课程、学分、教师、课时、教室；(3)、学生成绩表包括学号、课号、成绩；(4)、宿舍一览表包括宿舍楼、宿舍号、宿舍规格、宿舍管理员、宿舍辅导员；(5)、学生住宿表包括宿舍楼、宿舍号、学号、床号；(6)、宿舍管理表包括宿舍楼、宿舍号、日期、卫生、用水、用电、是否晚归；经过对以上数据的分析与描述，现在可以知道整个系统的各种信息关系。然后更好的实现系统。2.3.3实现本系统功能的方法首先要制作一个学生宿舍设备信息的存储库，以用来存储设备信息，作为主题工作后台；接下来展开前台功能，以完成各方面操作；最后新系统要在友好的界面中，达到使用预期，并要在良好的可靠性、高速的效率、易使用的目的在安全性和稳定性前提下，给用户们提供各种方便的操作。6 第三章系统设计第一章系统设计系统设计就是已确定软件系统的总体结构，给出系统中各个组成模块的功能和模块间的联系。考虑如何实现这个软件系统，直到对系统中的每个模块给出足够的过程性描述。通过适当的设计方法，实现用户对本软件各项功能的要求。3.1系统配置系统的使用环境：硬件环境：PentiumⅡ或同档次以上微机，32MB以上内存或更高；4.2G以上硬盘；1.44M软驱；24速以上光驱；针打或激光打印机一台[12]。软件环境：中文WINDOWS95/98/WE/2000操作系统,使用了delphi7进行前台设计，数据库采用了SQLServer2005。3.2数据库设计3.2.1数据库需求分析在仔细调查高校学生宿舍物质设备管理过程基础上，得到系统所处理的数据流程图，如图3.1：图3.1活动图图3.2系统流程图7 信息管理学士学位论文3.2.2高校学生宿舍管理系统概念结构设计针对本实例，通过对高校学生宿舍管理的内容和数据流程分析，设计的数据项和数据结构，图3.3所示：(1)、CREATETABLEStudent//创建学生数据表(SnoCHAR(10)PRIMARYKEY,SnameCHAR(40)UNIQUE,SsexCHAR(2),SageSMALLINT,SdeptCHAR(20),SspCHAR(40));(2)、CREATETABLECourse//创建课程信息表(CnoCHAR(10)PRIMARYKEY,CnameCHAR(20),CcreditCHAR(4),CteacherCHAR(40),CtimeCHAR(40),CplaceCHAR(40));(3)、CREATETABLEDormitory//创建宿舍信息表(DfloorCHAR(4),DroomCHAR(10),DstaCHAR(10),DadmCHAR(20),DassCHAR(20));(4)、CREATETABLESD//创建学生住宿表(SnoCHAR(10)PRIMARYKEY,DfoorCHAR(4),DroomCHAR(10),BedCHAR(4));(5)、CREATETABLESC//创建学生课程表(SnoCHAR(20),CnoCHAR(10),GradeSMALLINT,PRIMARYKEY(Sno,Cno),FOREIGNKEY(Sno)REFERENCESStudent(Sno),FOREIGNKEY(Cno)REFERENCESCourse(Cno));8 信息管理学士学位论文(6)、CREATETABLEDmanagement//创建宿舍管理表(DfloorCHAR(4),DroomCHAR(10),DdateCHAR(20),DhealthCHAR(40),DeleCHAR(100),DwatCHAR(100),DbackCHAR(40),PRIMARYKEY(Dfloor,Droom));3.2.3高校学生管理系统数据库逻辑结构设计使用关系模型，其E-R图如下图所示：图3.3系统ER图8 信息管理学士学位论文第一章数据库功能的实现4.1创建数据库表格(1)、使用ADOConnection来连接数据库在ADO中将ADOConnection拖入FORM1中，并单击设置ConnectionStringàBuildà提供者选择……forSQLServer；连接选择：数据库、用户……；高级设置：连接超时30秒。测试并确定。(2)、使用ADOTable来连接表同样设置ADOTable，Connection属性为以上设置的ADOConnection1，在TableName中选择连接的表名。设置Active为true。(3)、使用DBGrid显示表先DataAccess中选择设置DataSource的DataSet属性为ADOTable1。然后再在DataControls中，选择设置DBGrid（方法同上）DataSource属性为DataSource1。(4)、使用数据库导航器（DBNavigator）在DataControls中，选择设置DBNavigator的DataSource属性为DataSource1。(5)、实现在同一窗体中显示多表内容，并能用数据库导航器进行增加、删除等操作。4.2创建数据维护窗口示例：学生信息维护窗口图4.1学生信息维护窗口图procedureTForm3.Button1Click(Sender:TObject);10 第四章数据库功能的实现beginadotable1.Append//添加“添加”按钮，添加数据信息end;procedureTForm3.Button2Click(Sender:TObject);beginadotable1.UpdateStatus//添加“修改”按钮，修改信息end;procedureTForm3.Button3Click(Sender:TObject);beginadotable1.Delete//添加“删除”按钮，删除信息end;procedureTForm3.Button4Click(Sender:TObject);beginadotable1.Post//添加“确认”按钮，确定信息修改或添加或删除end;[12]4.3创建数据库查询窗口示例：宿舍管理系统综合查询窗口个人信息综合查询procedureTForm27.Button1Click(Sender:TObject);beginadoquery1.SQL.Clear;adoquery1.SQL.Add("selectStudent.Sno,Sname,Ssex,Sage,Sdept,Ssp,SD.Dfloor,SD.Droom,SD.bedfromStudent,SDwhereStudent.Sno=SD.Snoand"+ComboBox1.Text+"="""+edit1.Text+"""");adoquery1.Open;//根据输入的学生信息，查询学生的个人信息end;学习情况综合查询procedureTForm27.Button3Click(Sender:TObject);11 信息管理学士学位论文beginadoquery2.SQL.Clear;adoquery2.SQL.Add("selectSC.Sno,Grade,Sname,Ssex,Sdept,Ssp,Course.Cno,Cname,Ccredit,CteacherfromCourse,SC,StudentwhereSC.Cno=Course.CnoandSC.Sno=Student.Snoand"+ComboBox2.Text+"="""+edit2.Text+"""");//根据输入的学生信息，查询学生的学习情况adoquery2.Open;end;[8]图4.2宿舍管理系统综合查询窗口图4.4创建数据库统计窗口示例：宿舍管理统计窗口卫生情况统计procedureTForm17.RadioButton1Click(Sender:TObject);beginadoquery1.SQL.Clear;adoquery1.SQL.Add("selectDhealth,count(Droom)as宿舍个数fromDmanagementwhereDdate="""+edit4.Text+"""andDhealth="""+edit1.Text+"""groupbyDhealth");adoquery1.open;[11]end;用电情况统计procedureTForm17.RadioButton2Click(Sender:TObject);begin12 第四章数据库功能的实现adoquery1.SQL.Clear;adoquery1.SQL.Add("selectDele,count(Droom)as宿舍个数fromDmanagementwhereDdate="""+edit4.Text+"""andDele="""+edit2.Text+"""groupbyDele");adoquery1.open;end;[11]用水情况统计procedureTForm17.RadioButton3Click(Sender:TObject);beginadoquery1.SQL.Clear;adoquery1.SQL.Add("selectDwat,count(Droom)as宿舍个数fromDmanagementwhereDdate="""+edit4.Text+"""andDwat="""+edit3.Text+"""groupbyDwat");adoquery1.open;end;[11]晚归情况统计procedureTForm17.RadioButton4Click(Sender:TObject);beginadoquery1.SQL.Clear;adoquery1.SQL.Add("selectDback,count(Droom)as宿舍个数fromDmanagementwhereDdate="""+edit4.Text+"""andDback="""+edit5.Text+"""groupbyDback");adoquery1.open;end;图4.3宿舍管理统计窗口图13 第四章数据库功能的实现4.5创建数据报表窗口示例：创建学生课程报表窗口打印报表代码procedureTForm21.Button1Click(Sender:TObject);beginform22.QuickRep1.PreviewModalend;[7]图4.4创建学生课程报表窗口图4.6互动中心4.6.1发布通知设计窗口发布procedureTForm28.Button1Click(Sender:TObject);beginadotable1.Appendend;修改procedureTForm28.Button2Click(Sender:TObject);beginadotable1.UpdateStatusend;确定procedureTForm28.Button3Click(Sender:TObject);13 第四章数据库功能的实现beginadotable1.Postend;[3]图4.5发布通知设计窗口图4.6.2宿舍检修窗口回答用户留言procedureTForm29.Button1Click(Sender:TObject);beginadotable1.Appendend;确定发表答案procedureTForm29.Button2Click(Sender:TObject);beginadotable1.Postend;删除回答procedureTForm29.Button4Click(Sender:TObject);beginadotable1.Deleteend;更新答案15 信息管理学士学位论文procedureTForm29.Button5Click(Sender:TObject);beginadotable1.UpdateStatus[3]end;图4.6宿舍检修窗口图4.6.3宿舍报检窗口关键代码：上传待检修信息procedureTForm30.Button1Click(Sender:TObject);beginadotable1.Appendend;确定上传信息procedureTForm30.Button2Click(Sender:TObject);beginadotable1.Postend;[6]16信息管理学士学位论文16 信息管理学士学位论文图4.7宿舍报检窗口图a4.6.4用户查看窗口图4.8宿舍报检窗口图b4.7权限管理关键代码：用户登录并自动分配权限procedureTForm1.Button1Click(Sender:TObject);begin16信息管理学士学位论文whilenotadotable1.eofdobeginif(trim(adotable1.FieldByName("Name").AsString)=edit1.text)and(trim(adotable1.FieldByName("Password").AsString)=maskedit1.text)and(trim(adotable1.FieldByName("role").AsString)="管理员")and16 信息管理学士学位论文18信息管理学士学位论文(RadioButton1.Checked)18信息管理学士学位论文thenbeginform2.Show;form1.Hide;break;endelseif(trim(adotable1.FieldByName("Name").AsString)=edit1.text)and(trim(adotable1.FieldByName("Password").AsString)=maskedit1.text)and(trim(adotable1.FieldByName("role").AsString)="用户")and(RadioButton2.Checked)thenbeginform2.Show;form1.Hide;form2.N5.Enabled:=false;form2.N29.Enabled:=false;form2.N22.Enabled:=false;form2.shu1.Enabled:=false;break;end;adotable1.next;end;ifadotable1.Eofthenbeginshowmessage("您输入的用户名或密码有误，请重试！");adotable1.First;end;end;[11]新用户用户注册procedureTForm1.Button3Click(Sender:TObject);beginadotable1.Append18 信息管理学士学位论文end;procedureTForm1.Button4Click(Sender:TObject);beginform1.Closeend[11];图4.9权限管理窗口图18 信息管理学士学位论文第一章系统测试5.1用户注册测试为确保最终软件系统满足用户需求并且遵循系统设计，以便对出现的系统漏洞进行及时弥补，需对最终软件系统进行全面的测试。测试内容：用户“123”尚未注册，在“用户登陆窗口”输入用户“123”及其密码“123”；输出结果：系统弹出“用户“123”尚未注册，无法登陆，请注册！”提示框。图4.10登陆失败示意图测试内容：注册新用户，输入用户名“123”，密码“123”后，点击“确定”；输出结果：系统提示“注册成功”。20 第五章系统测试图4.11用户注册成功示意图5.2用户登陆测试测试内容：输入用户名“123”，但输入错误密码“1234”；输出结果：出现错误提示框“您输入的用户名或密码有误，请重试！”。图4.12登录错我示意图测试内容：输入错误用户名“1234”，输入密码“123”；输出结果：出现错误提示框“您输入的用户名或密码有误，请重试！”。21 第五章系统测试图4.13登录密码有误示意图测试内容：输入用户名“123”，输入密码“123”，但选择错误角色“管理员”；输出结果：出现提示框“请确定已选择的正确的用户类型！您输入的用户名或密码有误，请重试！”。图4.14登录有误示意图a测试内容：输入用户名“1234”，输入密码“123”，未选择登陆角色；输出结果：出现提示框“请确定已选择的正确的用户类型！您输入的用户名或21 第五章系统测试密码有误，请重试！”。图4.15登录有误示意图b测试内容：输入用户名“123”，输入密码“123”，选择登陆角色“用户”；测试结果：成功登陆主菜单，显示“欢迎使用学生宿舍管理系统”。图4.16登录成功示意图5.3数据维护测试添加信息：在课程信息表中，单击“添加”按钮，输入信息“1005网络工程23 信息管理学士学位论文3姚晨3211B208”一行信息，点击“确定”测试结果：弹出对话框“是否添加“1005网络工程3姚晨3211B208”信息？”点击“OK”，弹出对话框“添加成功！”图4.17数据维护测试图a图4.18数据维护测试b删除信息：学生信息表中，点击“王小丫”一行记录，单击“删除”键；测试结果：弹出对话框，确认是否删除信息，单击“OK”键，删除信息，光标移至下一个记录。24 第五章系统测试图4.19数据维护测试c图4.20数据维护测试d修改信息：在“宿舍一览表”中，将宿舍管理员“成龙”修改为“林青霞”，点击“确定”按钮；测试结果：弹出对话框：是否确定将“成龙”修改为“林青霞”？点击25 第五章系统测试“OK”，弹出对话框“信息修改成功！”图4.21数据维护测试e图4.22数据维护测试f5.4数据查询查询信息：在宿舍信息查询表中，在“宿舍楼”一览中输入“29”，点击“确定”输出结果：弹出对话框“Sorry！没有查询到相应信息！25 第五章系统测试27第五章系统测试图4.23数据维护测试g5.5信息发布删除信息：点击“老师您真帅”记录，点击“删除”运行结果：弹出对话框确认是否删除信息。图4.24数据维护测试h检修回答：发布“已报检，请准备3月28日进行检修！”信息。运行测试：弹出对话框：确认发布“已报检，请准备3月28日进行检修！”？点击“OK”，弹出“发布成功”。27 第五章系统测试图4.25数据维护测试i5.6系统测试总结类型问题严重度预期结果实际结果出错原因注册低正常出错提示框未注册登录低正常出错提示框用户名或密码错误数据维护低正常提示框要求确认数据查询低正常提示框要求确认新闻发布低正常提示框要求确认各功能模块的运行测试显示，系统能满足基本的功能需求，对基本错误能够识别并提示，在修改数据库信息时能有效提示信息，具有一定的健壮性。27 第六章工作总结第一章工作总结这次论文毕业设计我做的是学生宿舍管理系统，主要是服务于宿舍管理员和学生辅导员，以掌握学生学习和生活动态，更好地进行管理工作。系统分为宿舍生活管理和学生学习管理两部分，使用对象有教师、辅导员、公寓管理员、学生，每一部分又按照权限的不同各分若干专题。系统中采用的技术主要有：sqlserver2005，利用Delphi集成开发环境。Delphi是一个集成开发环境（IDE），使用的核心是由传统Pascal语言发展而来的ObjectPascal，以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。整个Delphi数据库应用程序开发环境由数据库引擎(BDE)、数据库引擎管理程序(BDEAd—ministrator)、数据库桌面(DataBaseDesktop)、SQL浏览器(SQLExplorere)、SQL驱动程序(SQLLinks)和ODBC驱动程序等组成。数据库引擎是Delphi数据库开发环境的核心，它由两种类型的动态链接库组成：一种用于提供核心服务，另一种用于连接本地或网络数据库。所有这些文件被安装在操作系统的System和用户所指定驱动器ProgrameFilesCommonFilesBorlandBde目录下。数据库引擎的主要功能是将数据库应用程序和物理的数据库分隔开来，在数据库引擎中通过数据库别名(DatabaseAliases)来标识本地或远程的数据库，数据库应用程序仅需要此数据库别名就可以透明地对数据库进行访问。数据库引擎管理程序(BDEAdministrator)主要用于对本地的Paradox、dBASE数据表和远程的SQL数据库进行创建表、创建索引、查询、存取和编辑等操作。通过SQL浏览器可以对本地或远程的数据库进行各种SQL查询操作。SQL驱动程序(SQLLinks)是Inprise公司在Delphi客户/服务器版本中提供的远程数据库的访问驱动程序，ODBC是微软公司在Windows95/98或NT操作系统提供数据库访问驱动程序。在Delphi数据库应用程序开发环境29 第六章工作总结的支持下，系统实现了查询、录入、修改、删除等基本数据维护、查看打印报表、管理员发布通知、学生上报信息、管理员和用户的互动、教师成绩管理等常用功能，经系统测试，能基本达到使用要求。在系统设计的过程中，我查阅了大量资料，仔细分析了不同用户对系统功能的需求，对各项功能的实现也在草稿—实现—修改—完善的过程中不断细化，对各项流程我虽然系统的基本功能都已实现，但还是存在系统不稳定等问题尚待解决。我正在做系统的过程中遇到了很多问题，有的是知识存储不足，有的是考虑不够周全，之所以能够顺利实现基本功功能，离不开老师和同学的大力相助。事实证明，只靠自己是不能顺利完成一套功能完整的系统的，必须充分利用团队的力量。开发一套系统，最重要的是细心，并不是一定要做到面面俱到，但也要充分考虑到客户的需求和现实意义，不管什么系统，只用运用到实际应用中，才具有现实意义。所以在准备工作中要正确分析社会需求了解现实应用，画出流程图，把大体框架做好，然后再逐一细化。我们不可能做到面面俱到，但一定要做到步步扎实，作为一个程序编程人员，要保持清醒的头脑，以现实为依据，让自己的每一行代码都能实现自己的意义。通过这次毕业设计，我收获的不仅仅是课程上的知识得到实际应用，还有编程的基本习惯和开发系统时应注意的流程。29 第七章谢辞第一章谢辞本设计在龙老师的悉心指导和严格要求下业已完成，从课题选择、方案论证到具体设计和调试，无不凝聚着老师的心血和汗水，在两年多的双学位学习和生活期间，也始终感受着导师的精心指导和无私的关怀，我受益匪浅。在此向龙老师表示深深的感谢和崇高的敬意。不积跬步何以至千里，本设计能够顺利的完成，也归功于各位任课老师的认真负责，使我能够很好的掌握和运用专业知识，并在设计中得以体现。正是有了他们的悉心帮助和支持，才使我的毕业论文工作顺利完成。虽然我的论文作品不是很成熟，还有很多不足之处，但我可以自豪的说，这里面的每一段代码，都是我的劳动。当看着自己的程序，自己成天相伴的系统能够健康的运行，真是莫大的幸福和欣慰。我相信其中的酸甜苦辣最终都会化为甜美的甘泉。 这次做论文的经历使我终身受益，我感受到做论文是要真真正正用心去做的一件事情，是真正的自己学习的过程和研究的过程，没有学习就不可能有研究的能力，没有自己的研究，就不会有所突破，那也就不叫论文了。希望这次的经历能让我在以后学习中不断激励我进步。31 第七章谢辞参考文献[1]王学庆.Delphi6数据库设计实例导航.北京：科学出版社，2003.45～60 [2]付军.Delphi7实例编程100例.北京：中国铁道出版社，2005.23~67[3]马秀莉.数据库系统概念(原书第5版).吉林机械工业出版社，2006.15～20[4]鲍威尔.数据库设计入门经典.清华大学，2007.29~55[5]牛汉民.Delphi7开发基础教程.科学出版社，2005.99~155[6]胡光兵.Delphi7应用教程(附光盘).北京：清华大学出版，2007.19~25 [7]张莉.新概念:Delphi7教程(第5版)(附光盘1张).吉林电子出版社，2008.34~45[8]王春红.Delphi7程序设计.北方交通大学出版社，2006.5~12 [9]牛汉民.Delphi7应用开发教程.科学出版社，2005.78~88 [10]陈蓓.Delphi7编程实例教程.兵器工业出版社、北京希望电子出版社，2004.66~69[11]史嘉权.数据库系统概论.清华大学出版社，2006.12~51[12]康诺利.数据库设计教程机械工业出版社，2005.90~12331 附录附录：程序关键代码1、学生成绩表代码 unitUnit5; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ExtCtrls,DBCtrls,Mask,jpeg,Grids,DBGrids,DB, ADODB; type TForm5=class(TForm) ADOConnection1:TADOConnection; ADOTable1:TADOTable; DataSource1:TDataSource; DBGrid1:TDBGrid; Image1:TImage; Label1:TLabel; Label2:TLabel; Label3:TLabel; DBEdit1:TDBEdit; DBEdit2:TDBEdit; DBEdit3:TDBEdit; DBNavigator1:TDBNavigator; Button1:TButton; Button2:TButton; Button3:TButton; Button4:TButton; Button5:TButton; procedureButton1Click(Sender:TObject); procedureButton2Click(Sender:TObject); procedureButton3Click(Sender:TObject); procedureButton4Click(Sender:TObject); procedureButton5Click(Sender:TObject); private {Privatedeclarations} public {Publicdeclarations} end; var Form5:33 附录TForm5; implementation usesUnit2; {$R*.dfm} procedureTForm5.Button1Click(Sender:TObject); begin adotable1.Append end; procedureTForm5.Button2Click(Sender:TObject); begin adotable1.UpdateStatus end; procedureTForm5.Button3Click(Sender:TObject); begin adotable1.Delete end; procedureTForm5.Button4Click(Sender:TObject); begin adotable1.Post end; procedureTForm5.Button5Click(Sender:TObject); begin form2.Show; form5.Close end; end. 2、宿舍管理表查询unitUnit13; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,Mask,DBCtrls,jpeg,ExtCtrls,Grids,DBGrids,DB, ADODB; 33 附录 type TForm13=class(TForm) ADOConnection1:TADOConnection; ADOTable1:TADOTable; DataSource1:TDataSource; DBGrid1:TDBGrid; DBNavigator1:TDBNavigator; Image1:TImage; Label1:TLabel; Label2:TLabel; Label3:TLabel; Label4:TLabel; Label5:TLabel; Label6:TLabel; Label7:TLabel; DBEdit1:TDBEdit; DBEdit2:TDBEdit; DBEdit3:TDBEdit; DBEdit4:TDBEdit; DBEdit5:TDBEdit; DBEdit6:TDBEdit; DBEdit7:TDBEdit; Button1:TButton; Button2:TButton; Button3:TButton; Button4:TButton; Button5:TButton; procedureButton1Click(Sender:TObject); procedureButton2Click(Sender:TObject); procedureButton3Click(Sender:TObject); procedureButton4Click(Sender:TObject); procedureButton5Click(Sender:TObject); private {Privatedeclarations} public {Publicdeclarations} end; var Form13:TForm13; implementation 35 信息管理学士学位论文 usesUnit2; {$R*.dfm} procedureTForm13.Button1Click(Sender:TObject); begin adotable1.Append end; procedureTForm13.Button2Click(Sender:TObject); begin adotable1.UpdateStatus end; procedureTForm13.Button3Click(Sender:TObject); begin adotable1.Delete end; procedureTForm13.Button4Click(Sender:TObject); begin adotable1.Post end; procedureTForm13.Button5Click(Sender:TObject); begin form2.show; form13.Close end; end. 3、学生信息报表unitUnit19; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,Grids,DBGrids,DB,ADODB,jpeg,ExtCtrls; type TForm19=class(TForm) 36 信息管理学士学位论文Image1:TImage; ADOTable1:TADOTable; DataSource1:TDataSource; DBGrid1:TDBGrid; Button1:TButton; Button2:TButton; procedureButton1Click(Sender:TObject); procedureButton2Click(Sender:TObject); private {Privatedeclarations} public {Publicdeclarations} end; var Form19:TForm19; implementation usesUnit20,Unit2; {$R*.dfm} procedureTForm19.Button1Click(Sender:TObject); begin form20.QuickRep1.PreviewModal end; procedureTForm19.Button2Click(Sender:TObject); begin form2.Show; form19.Close end; end. 4、发布通知unitUnit28; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,ExtCtrls,DBCtrls,StdCtrls,Mask,Grids,DBGrids,DB,ADODB, 36 信息管理学士学位论文type TForm28=class(TForm) Image1:TImage; ADOConnection1:TADOConnection; ADOTable1:TADOTable; DataSource1:TDataSource; DBGrid1:TDBGrid; DBEdit1:TDBEdit; Label1:TLabel; Label2:TLabel; Button1:TButton; Button2:TButton; Button3:TButton; DBNavigator1:TDBNavigator; Button4:TButton; procedureButton1Click(Sender:TObject); procedureButton2Click(Sender:TObject); procedureButton3Click(Sender:TObject); procedureButton4Click(Sender:TObject); private {Privatedeclarations} public {Publicdeclarations} end; var Form28:TForm28; implementation usesUnit2; {$R*.dfm} procedureTForm28.Button1Click(Sender:TObject); begin adotable1.Append end; procedureTForm28.Button2Click(Sender:TObject); begin adotable1.UpdateStatus end; procedureTForm28.Button3Click(Sender:TObject); 38 附录begin adotable1.Post end; procedureTForm28.Button4Click(Sender:TObject); begin form2.Show; form28.Close end; end. 5、宿舍检修unitUnit29; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,Mask,DBCtrls,ExtCtrls,Grids,DBGrids,DB,ADODB, jpeg; type TForm29=class(TForm) Image1:TImage; ADOConnection1:TADOConnection; ADOTable1:TADOTable; DataSource1:TDataSource; DBGrid1:TDBGrid; DBNavigator1:TDBNavigator; DBEdit1:TDBEdit; Label1:TLabel; Button1:TButton; Button2:TButton; Button3:TButton; Button4:TButton; Label2:TLabel; Button5:TButton; procedureButton1Click(Sender:TObject); procedureButton2Click(Sender:TObject); procedureButton4Click(Sender:TObject); procedureButton5Click(Sender:TObject); procedureButton3Click(Sender:TObject); private 39 附录{Privatedeclarations} public {Publicdeclarations} end; var Form29:TForm29; implementation usesUnit2; {$R*.dfm} procedureTForm29.Button1Click(Sender:TObject); begin adotable1.Append end; procedureTForm29.Button2Click(Sender:TObject); begin adotable1.Post end; procedureTForm29.Button4Click(Sender:TObject); begin adotable1.Delete end; procedureTForm29.Button5Click(Sender:TObject); begin adotable1.UpdateStatus end; procedureTForm29.Button3Click(Sender:TObject); begin form2.Show; form29.Close end; end. 6、宿舍报检39 附录unitUnit30; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,Mask,DBCtrls,ExtCtrls,Grids,DBGrids,DB,ADODB, jpeg; type TForm30=class(TForm) Image1:TImage; ADOConnection1:TADOConnection; ADOTable1:TADOTable; DataSource1:TDataSource; DBGrid1:TDBGrid; DBNavigator1:TDBNavigator; Label1:TLabel; DBEdit1:TDBEdit; Button1:TButton; Button2:TButton; Button3:TButton; Label2:TLabel; procedureButton1Click(Sender:TObject); procedureButton2Click(Sender:TObject); procedureButton3Click(Sender:TObject); private {Privatedeclarations} public {Publicdeclarations} end; var Form30:TForm30; implementation usesUnit2; {$R*.dfm} procedureTForm30.Button1Click(Sender:41 附录TObject); begin adotable1.Append end; procedureTForm30.Button2Click(Sender:TObject); begin adotable1.Post end; procedureTForm30.Button3Click(Sender:TObject); begin form2.Show; form30.Close end; end. 7、登录及注册unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,Mask,jpeg,ExtCtrls,DB,ADODB,DBCtrls; type TForm1=class(TForm) Image1:TImage; Label1:TLabel; Label2:TLabel; Edit1:TEdit; MaskEdit1:TMaskEdit; Button1:TButton; Button2:TButton; Label3:TLabel; RadioButton1:TRadioButton; RadioButton2:TRadioButton; ADOTable1:TADOTable; Label4:TLabel; Label5:TLabel; Label6:TLabel; Label7:TLabel; Button3:TButton; Button4:TButton; DBEdit1:TDBEdit; 41 附录DBEdit2:TDBEdit; DataSource1:TDataSource; procedureButton1Click(Sender:TObject); procedureButton2Click(Sender:TObject); procedureButton3Click(Sender:TObject); procedureButton4Click(Sender:TObject); private {Privatedeclarations} public {Publicdeclarations} end; var Form1:TForm1; implementation usesUnit2; {$R*.dfm} procedureTForm1.Button1Click(Sender:TObject); begin whilenotadotable1.eofdo begin if(trim(adotable1.FieldByName("Name").AsString)=edit1.text) and(trim(adotable1.FieldByName("Password").AsString)=maskedit1.text) and(trim(adotable1.FieldByName("role").AsString)="管理员")and(RadioButton1.Checked) then begin form2.Show; form1.Hide; break; end else if(trim(adotable1.FieldByName("Name").AsString)=edit1.text) and(trim(adotable1.FieldByName("Password").AsString)=maskedit1.text) and(trim(adotable1.FieldByName("role").AsString)="用户")and(RadioButton2.Checked) then begin form2.Show; form1.Hide; 43 附录form2.N5.Enabled:=false; form2.N29.Enabled:=false; form2.N22.Enabled:=false; form2.shu1.Enabled:=false; break; end; adotable1.next; end; ifadotable1.Eofthen beginshowmessage("您输入的用户名或密码有误，请重试！"); adotable1.First; end; end; procedureTForm1.Button2Click(Sender:TObject); begin form1.Close end; procedureTForm1.Button3Click(Sender:TObject); begin adotable1.Append end; procedureTForm1.Button4Click(Sender:TObject); begin form1.Close end; end. 43'