delphi课程设计

delphi课程设计

题目: Delphi程序设计

学号

姓名

专业计算机科学与技术

课程 Delphi应用程序设计

指导教师职称讲师

完成时间:2010年11月----2010年 12月

1

课程设计任务书及成绩评定

课程设计的任务和具体要求

1.内容

小型信息管理系统的设计与实现图书管理系统 2.基本要求

课程设计应能反应出学生综合利用所学知识完成一定的设计任务的能力，反映出学

生理论联系实践的动手能力。具体要求如下:

明确所要开发系统的设计任务;

做好需求分析，合理选择设计方案;

合理设计数据库中各个表的结构及其关系; 能够设计出美观大方的程序界面;

养成良好的代码书写习惯;

在编写程序过程中应注意相关文档的编写; 综合应用Delphi各种组件实现程序功能; 认真撰写课程设计总结报告。

指导教师签字: 日期:

2

指导教师评语

成绩: 指导教师签字: 日期:

课程设计所需软件、硬件等

1、微型计算机

2、 Windows操作系统

3、 Delphi5.0以上版本的开发环境

4、微软SQL Server 2005软件

课程设计进度计划

起至日期工作内容备注

2010.11 问题调查分析

2010.11 收集资料

2010.12 数据库设计

2010.12 程序设计

3

参考文献、资料索引

序号文献、资料名称编著者出版单位

[1] 《Delphi应用程序设计》李目海，电子科技大学出版社，2005 [2]《Delphi程序设计实用教程》叶核亚，电子工业出版社，2005 [3] 《Delphi 2005程序设计教程》刘瑞新编著，机械工业出版社，2004 [4]《Delphi数据库程序设计教程》刘瑞新张志纲张兵义编著，机械工业出版社，2004 [5] 《Delphi 使用教程》郑阿奇主编，电子工业出版社，2003 [6]《Delphi 7 程序设计技巧与实例》吴天准编著，中国铁道出版社 2003

4

引言:随着我国市场经济的迅速发展和人们生活水平的不断提高，图书馆藏书的树木逐渐增大，这也挑战

了图书管理方面的技术，以前的人工管理方式已经不再适应现在的环境，取而代之的是先进的图书管理系

统，通过使用Delphi创建的图书管理系统可以让管理人员方便而快捷的进行管理、查询、借阅、录入等工

作。

设计实验正文实验内容:

一、数据库表

管理员密码:

属性名存储代码类型长度备注管理员编号 Mn char 5 密码 Mm char 15 图书数据:

属性名存储代码类型长度备注图书编号 Bno char 5 图书名称 Bn char 20 图书作者 Wn char 10 类别编号 Kno char 5 图书所属类别出版社编号 Pno char 5

图书类别数据:

属性名存储代码类型长度备注类别编号 Kno Char 5 类别名 Kna char 20

出版社数据:

属性名存储代码类型长度备注出版社编号 Pno char 5 出版社名 Pna char 20

读者数据:

属性名存储代码类型长度备注读者编号 Rno char 5 读者姓名 Rna char 10 读者年龄 Rage Int 2 性别 Rs char 4 联系方式 Rr char 15 注册时间 Rt Date 8 .

1

读者借阅数据:

属性名存储代码类型长度备注读者编号 Rno char 5 图书编号 Bno char

5

二、流程图:

读者进入系统工作的流程图为:

读者登陆

查询个人信息个人信息修改查询图书信息

图书管理员工作的流程图为:

管理员登陆

图书入库图书出库读者注册读者注销借书还书查询

2

二、主要功能窗口

1.程序封面窗口:

2.登录窗口:

3

3.图书管理员窗口:

4.读者窗口:

4

5.管理员查询窗口:

三、分段代码及功能:

1.不同用户密码登录:

procedure TForm2.Button1Click(Sender: TObject); begin

if guanli=1

then

begin

adotable1.Open;

adotable1.First; if

ADOtable1.Locate('Wno;Mm',varArrayof([edit1.Text,edit2.Text]),[]) then

form2.ModalResult:=4 else

showmessage('Soory,用户名或密码错误') end

else

if duzhe=1

5

then

begin

if ADOtable2.Locate('读者编号;密码

',varArrayof([edit1.Text,edit2.Text]),[])

then

form2.ModalResult:=5

else

showmessage('Sorry,用户名或密码错误')

end;

end;

2.查询功能实现:

procedure TForm4.Button1Click(Sender: TObject); begin