s:=FieldValues[‘KeyNo‘]; end;
if s<>Edit2.Text file://判断该用户名下的密码是否正确 then begin
MessageDlg(‘您所输入的密码不正确，请重新输入或按“取消”退出。‘, mtInformation,[mbok],0); Edit2.Text:=‘‘;Edit2.SetFocus; end
else begin file://从数据库中删除该用户 with datamoduleform.KeyQuery do begin close; SQL.Clear;
SQL.Add(‘delete from Key where KeyName=:KeyName‘); Parameters.ParamByName(‘KeyName‘).Value:=Edit1.Text; execSQL; end;
MessageDlg(‘用户已成功删除，您可以继续删除用户，或按“取消”退出。‘, mtInformation,[mbok],0);
Edit1.Text:=‘‘;Edit2.Text:=‘‘;Edit1.SetFocus; end; end; end; end;
29
结束语
本系统是一个面向小型图书企业，具有一定实用性的数据库信息管理系统。它主要完成对图书仓库的一系列管理，包括入库、出库、库存以及员工和供应商信息管理。本系统采用当前流行的面向对象的开发工具—Delphi来完成整个系统的设计，在数据库的设计上利用了Access的便利性和实用性。
本系统具有相当的实用功能。在查询方面，系统实现了多条件任意字段的模糊查询，同时在分类查询上实现了动态生成，系统可以自动识别用户不同的输入。在图书入库、出库和库存三者之间建立了良好的链接关系，某一部分地修改均会自动引发系统对与其相关的部分进行连锁修改。在用户管理方面，系统较好地实现了用户注册，用户注销和密码修改等各项功能。
系统在设计过程中不可避免地遇到了各种各样的问题，由于整个系统完全都是由个人设计的，有关Delphi许多细节问题都要靠自己去摸索，加之本人水平有限，并没有完全地理解Delphi的强大功能，而且还存在着许多不足之处。如：
※ 受开发条件和开发时间的限制，本系统只利用了本地数据库Access，它同应用程序处于同一系统中，能存储的数据量也有一定限制，并没有发挥出Delphi其数据库方面的优势；
※ 报表打印功能尚不够全面完善，不能实现动态报表；
※ 在一些数据输入时没有及时的进行数据格式校验，不能保证数据输入的绝对正确性。
※ 由于时间关系，系统功能实现不够完善，使用不是很方便，比如，没有实现多条记录的连锁删除和添加以及数据的导入功能。
这些都是需要完善的地方，该系统离实际使用也还有相当的距离，需要我进行不断地补充和完善。
通过本次毕业设计我学到了不少新的东西，也发现了大量的问题，有些在设计过程中已经解决，有些还有待今后慢慢学习。只要学习就会有更多的问题，有更多的难点，但也会有更多的收获。
30
致 谢
本次设计是在宋军营老师的亲切关怀和悉心指导下完成的。他严肃的科学态度，严谨的治学精神，精益求精的工作作风，深深地感染和激励着我。从课题的选择到设计的最终完成，宋老师都始终给予我细心的指导和不懈的支持。我很荣幸能在宋军营老师带的毕业设计组中完成我的毕业设计，这个过程使我受益匪浅。三个多月以来，宋老师在设计上给我以精心指导，在此谨向宋老师致以诚挚的谢意和崇高的敬意。
感谢其他老师在繁忙当中,抽出大量的时间,给我们有关方面的知识,给了全面的指导。使我们无形中增长了见识，扩充了知识面，这些对我们扎实的掌握专业知识有很大的帮助。
感谢同组的同学，在与他们相互讨论中，对所学的知识加深了印象，对课题有了更深刻的理解，这使我在毕业设计开始时能较快地进入课题。在合作过程中，与他们相处的融洽为我提供了很好的设计氛围。在此，我表示非常高兴能与他们合作，同时感谢他们对我的无私帮助。
然后还要感谢大学三年来所有的老师，为我们打下计算机应用技术专业知识的基础；同时还要感谢所有的同学们，正是因为有了你们的支持和鼓励。此次毕业设计才会顺利完成。最后还要感谢郑州电力职业技术学院三年来对我的培养
31
参 考 文 献
[1] 郑荣贵、黄平、谷会东，Delphi 6.0数据库开发与应用，中科多媒体电子出版社，2002 [2] 伍俊良，Delphi 6控件应用实例教程，北京希望电子出版社，2002 [3] 卢国俊，Delphi 6数据库开发，电子工业出版社，2002 [4] 边萌，Delphi 编程起步，机械工业出版社，2002
[5] 伍俊良，Delphi 6课程设计案例精编，中国水利水电出版社，2002 [6] 丁宝康，数据库原理，经济科学出版社，2000 [7] 陆丽娜，软件工程，经济科学出版社，2000
32
loading