《sql delphi 图书管理系统实验报告》由会员分享，可在线阅读，更多相关《sql delphi 图书管理系统实验报告（30页珍藏版）》请在金锄头文库上搜索。
1、SQL Serve数据库 课 程 设 计设计选题：图书管理系统班 级：电气工程及其自动化1004设 计 人：刘硕果学 号：0909102825 辅导教师：董密目录一、摘要二、需求分析2.1 功能划分与描述2.2 安全性需求三、系统数据结构3.1系统实体ER图四、各子系统功能分析与程序代码设计4.1 登陆界面4.2 主界面4.3 新书入库4.4 借书还书4.5 查询4,6 办理会员4.7 解除会员五、实验体会六、参考文献一、摘要随着人类社会的发展，书籍渐渐地成为人们获取并增长知识的主要途径，而图书馆就理所当然的在人们的生活中占据了一定的位置，如何科学合理的管理图书馆不但关系到读者求知的方便程度，
2、也关系到图书管的发展，因此，开发一套完善的图书管理系统，是必不可少的了。本系统是由delphi 7前台和SQL serve 2005相结合而完成的。本文主要是介绍图书管理系统的环境、功能作用、所用到的语言、设计的方案等各方面的内容。主要是让使用者了解此系统，使他们能更好的运用本系统，使此系统发挥出应有的作用。关键字 图书管理系统 Delphi 7.0 SQL Server 2005数据库二、需求分析 随着学校规模的不断扩大，图书数量的急剧增加，有关图书的信息量也在不断成倍增长。面对庞大的信息量，就需要有图书管理系统来提高图书管理工作的效率。通过这样的系统，我们可以做到信息的规范管理和快速查询，
3、从而减少了管理方面的工作量。 传统手工的图书管理，管理过程繁琐而复杂，执行效率低，并且易于出错。通过这样的系统，我们可以做到信息的规范管理和快速查询，实现了图书管理的系统化、规范化和自动化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。2.1功能划分与描述图书管理系统主要实现以下功能：a.图书入库 主要整理图书的数量、类别和各种相关的信息等。b.查询 主要查询图书的数量、类别、借出情况和各种相关的信息等。c.修改、删除信息 修改、删除图书相关信息等。d.图书借还 对读者借阅 归还信息进行办理和查询。e.系统管理 为系统的使用者进行帐户和密码管理以及基础数据维护。f.办理、解除会员
4、 对读者信息进行管理和维护。2.4 安全性需求管理员有权力行使所有的管理功能，。三、系统数据结构3.1系统实体E-R图管理员登陆退出关于系统解除会员办理会员新书入库借书还书查询3.2数据库设计3.2.1关系图 3.2.2基本表的建立由数据模型利用SQLsever2005进行数据库的详细设计，本系统设计的数据库名为图书管理系统，其基本表的设计如下：管理员表：图书信息表：借书情况表：图书类别表：会员表：四、 各子系统功能分析与程序代码设计4.1登录界面：unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes,
5、Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls;type TForm8 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; DataSource1: TDataSource; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; Image1: T
6、Image; Image2: TImage; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private Private declarations public Public
7、declarations end;var Form8: TForm8; a:integer=0;implementationuses Unit1;$R *.dfmprocedure TForm8.Button2Click(Sender: TObject);begin if (edit1.Text=)or (edit2.Text=) then begin Application.MessageBox(用户名称或密码不能为空！,提示,0+64); end else begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(selec
8、t * from manager where 登录账号=:rno and 密码=:rpassword); adoquery1.Parameters.ParamByName(rno).Value := trim(edit1.Text); adoquery1.Parameters.ParamByName(rpassword).Value := trim(edit2.Text); adoquery1.Open; if adoquery1.RecordCount0 then begin form8.hide; main.Show; end else begin Application.MessageB
9、ox(用户名或密码不正确，请重新输入！,提示,0+64); edit2.Clear; a:=a+1; end; if a=3 then begin Application.MessageBox(对不起，您输入错误次数已经达到三次，请联系管理员！,提示,0+64); Application.Terminate ; end; end;end;procedure TForm8.Button1Click(Sender: TObject);beginif application.MessageBox(确定退出登录吗？,确认,mb_iconinformation+mb_okcancel+mb_defbut
10、ton1)=idokthenform8.close;end; procedure TForm8.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=13 then Button2click(sender);end;procedure TForm8.Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=13 then Button2click(sender);end;end.4.2主界面：4.
11、3新书入库：procedure Tin_book.Button1Click(Sender: TObject);beginadoquery1.Close;adoquery1.SQl.Clear;adoquery1.SQL.Add(select * from book where 图书编号= +edit1.text+);adoquery1.Open;if adoquery1.recordcount0then showmessage(已有此号,图书编号可能出错，请重新输入) else begin adoquery1.Close; adoquery1.SQl.Clear; adoquery1.SQL.
12、Add(exec insert2 +edit1.Text+,+edit2.Text+,+edit3.Text+,+combobox1.Text+,+edit5.Text+,+edit7.Text+,+edit6.Text+,+edit8.Text+); adoquery1.execsql; close; showmessage(入库成功);end;end;procedure Tin_book.Edit6KeyPress(Sender: TObject; var Key: Char);beginif not (key in 0.9,.,#8) thenbeginkey:=#0;showmessa
13、ge(该项只能写入数字);end;end;procedure Tin_book.Edit8KeyPress(Sender: TObject; var Key: Char);beginif not (key in 0.9,#8) thenbeginkey:=#0;showmessage(该项只能写入数字);end;end;procedure Tin_book.Edit7KeyPress(Sender: TObject; var Key: Char);beginif not (key in 0.9,-,#8) thenbeginkey:=#0;showmessage(输入违反规则);end;end;end.procedure Tmain.ToolButton4Click(Sender: TObject);beginsearch.ShowModal;
