图书馆图书信息管理系统程序设计文档.docx

1、图书馆图书信息管理系统程序设计文档 Delphi课程设计（图书信息管理系统） 学院：数计学院 专业：08 信管 学号：080304041 姓名：林燕玉（图书信息管理系统）1.概述 .3.2 需求分析 .3. 3.系统模块分析图 .3.4.数据库设计 .4.4.1图书信息表 .4.4.2读者信息表 .5.4.3图书借阅表 .6.4.4用户信息表 .7.5.系统模块设计 .7.5.1主窗体的创建 .7.5.2数据模块窗体设计 .11.5.3登录窗体设计 11.5.4 用户密码窗体设计 13.5.5 添加用户窗体设计 .14.5.6 修改密码窗体设计 .16.5.7 信息查询窗体设计 .17.5.8

2、 图书管理窗体设计 . 23.5.9 读者管理窗体设计 .27.5.10 借阅管理窗体设计 .31.5.11 规章制度窗体设计 .36.5.12 图书馆背景窗体设计 .37.6.本系统各个功能的运行 .37.7.总体设计方案的分析 .38.8.出现的问题及解决方法 .38.9.小结 .39.一、 概述： 本系统是介绍一个用delphi为开发工具基于ADO的图书馆图书管理系统。图书管理系是以数据库为支撑的应用程序，提出了权限管理模块的具体实现方法，并完成了相关模块设计。其功能包括用户管理、图书或读者或借阅查询、图书或读者管理以及图书借还等。本系统使用Access数据库存储图书管理的基本信息。二：

3、需求分析： 主要功能本图书管理系统主要是实现对图书信息的查询和管理，其功能为：1 操作系统：分为四个部分：.登录：根据不同的用户的权限不同，可进行不同的操作；.用户管理：增加和删除系统用户，并制定用户的权限；.修改密码：可修改当前用户自己的密码；.退出系统：退出程序，关闭窗口。信息查询：分为三个部分查询：.图书查询：可根据书号、书名、出版社、作者分别来查询图书的基本信息，也可模糊查询来查询图书的全部基本信息；.读者查询：可根据书号借书证号、姓名来查询读者的基本信息，也可根据模糊查询来查询读者的全部基本信息；.借阅查询：可根据借书证号来查询图书被借阅的基本信息，也可根据模糊查询来查询图书借阅的全

4、部基本信息。图书管理：分为三个部分管理：.图书管理：a.新书入库：添加新的书籍； b.浏览图书：可根据书号来浏览图书 .读者管理：添加、修改、删除读者信息，刷新可查看读者的信息； . 图书借还：实现图书的借出和归还的管理。关于图书馆：a. 图书馆制度：实现对图书馆规章制作的查看;b.图书馆背景：实现对本图书馆了解。 在本系统中，主要采用“用户登录”来进行子系统的切换，使不同权限的用户能在对应的子系统下正常操作。三系统功能模块分析图：四、数据库设计:名称：图书信息表； 表名称标识：book；表结构示意图如下所示： 用户信息表数据图如下所示： 名称：读者信息表； 表名称标识：reader； 表结构

5、示意图如下所示： 读者信息表数据如下： 名称：借阅图书信息表； 表名称标识：lend； 表结构如下所示： 借阅图书信息表数据如下所示： 名称：用户信息表； 表名称标识：usera； 表结构图如下所示： 用户名称信息表数据如下所示： 五、系统模块设计：主窗体的创建 主窗体的名字：mainform，对应的单元文件为：main.pas，在窗体中添加一个mainmenu组件，一个statusbar组件，一个image组件，程序界面如下图所示： 程序主要代码： var Mainform: TMainform; mypath:string;implementationuses book, reader,

6、lend, infoquery,dl, xgmm, xgyh, about, gz;$R *.dfmprocedure TMainform.FormCreate(Sender: TObject);begin mypath:=extractfilepath(paramstr(0); /程序当前的途径 shortdateformat:=yyyy/mm/dd; n1.enabled:=false; n2.enabled:=false; n3.enabled:=false; n4.enabled:=false; n5.enabled:=false; n6.enabled:=false; n7.enab

7、led:=false; n8.enabled:=false; n11.enabled:=false; n12.enabled:=false; Mainform.statusbar1.panels4.Text:=datetostr(now); /显示现在时间end;procedure TMainform.Button1Click(Sender: TObject);begin bookform.show;end;procedure TMainform.Button2Click(Sender: TObject);begin readerform.show;end;procedure TMainfor

8、m.Button3Click(Sender: TObject);begin lendform.show;end;procedure TMainform.Button4Click(Sender: TObject);begin close;end;procedure TMainform.Button5Click(Sender: Tobject);beginqueryform.show;end;procedure TMainform.Button6Click(Sender: TObject);begin button5click(sender);end;procedure TMainform.But

9、ton7Click(Sender: TObject);begin button5click(sender);end;procedure TMainform.Button8Click(Sender: TObject);begin dl_form.show;end;procedure TMainform.Button11Click(Sender: TObject);begin close;end;procedure TMainform.Button10Click(Sender: TObject);begin xgmm_Form.show;end;procedure TMainform.Button

10、9Click(Sender: TObject);begin xgyh_Form.show;end;procedure TMainform.N2Click(Sender: TObject);beginqueryform.show; /显示图书查询end;procedure TMainform.N3Click(Sender: TObject);beginbutton5click(sender); /显示图书管理系统end;procedure TMainform.N4Click(Sender: TObject);begin button5click(sender); /显示借阅查询end;proce

11、dure TMainform.N6Click(Sender: TObject);beginbookform.show; /显示图书管理end;procedure TMainform.N7Click(Sender: TObject);beginreaderform.show; /显示读者管理end;procedure TMainform.N8Click(Sender: TObject);begin lendform.show; /显示借阅管理end;procedure TMainform.N10Click(Sender: TObject);begindl_form.show; /显示登录end;

12、procedure TMainform.N11Click(Sender: TObject);beginxgyh_Form.show; /显示用户管理end;procedure TMainform.N12Click(Sender: TObject);beginxgmm_Form.show; /显示修改密码end;procedure TMainform.N13Click(Sender: TObject);beginclose; /退出系统end;procedure TMainform.Timer1Timer(Sender: TObject);beginMainform.statusbar1.pan

13、els4.Text:=FormatDateTime(yyyy年mm月dd日.,now()+timetostr(now);end;procedure TMainform.N16Click(Sender: TObject);begin about_form.show; /显示图书馆背景end;procedure TMainform.N15Click(Sender: TObject);begingz_form.show; /显示图书馆规章制度end;数据模块设计窗体： 建立一个数据模块（data module）来存放ADO组件对象，便于窗体统一使用ADO组件来访问数据库，命名为：DataModule

14、ADO，在窗体中添加一个ADOConnection组件，三个ADOQuery组件，两个ADOTable组件，一个DataSource组件。程序界面如下图所示： 程序主要代码如下： procedure TDataModuleADO.DataModuleCreate(Sender: TObject);begin adoconnection1.ConnectionString :=Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source= +mypath+databookmanage.mdb;Persist Security Info=Fa

15、lse; adoquery1.Connection :=adoconnection1; adotable1.Connection :=adoconnection1; ADOQuery2.ConnectionString:=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.databookmanage.mdb;Persist Security Info=False; ADOQuery3.ConnectionString:=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.databookmanage.mdb;Pe

16、rsist Security Info=False;end; 登录窗体设计： 窗体的名字为：dlform,对应的单元文件为：dl.pas。在窗体中添加两个label组件，两个edit组件，两个speedbutton组件。程序的界面如下所示： 程序的主要代码如下： procedure Tdl_Form.Button1Click(Sender: TObject);begin close;end;procedure Tdl_Form.SpeedButton1Click(Sender: TObject);var vqx:string;begin with dataModuleADO.ADOQuery1

17、 do begin close; sql.Clear ; SQL.Add(select * from usera where (yhm=:yhm1) and (mm=:mm1); parameters.ParamByName(yhm1).Value :=Edit1.text ; parameters.ParamByName(mm1).Value :=Edit2.text ; open; if recordcount=0 then begin showmessage(用户名或密码错!); edit2.Text:= ; end else begin vqx:=fieldbyname(qx).ass

18、tring; Mainform.dlname:=mainform.statusbar1.panels0.text; Mainform.statusbar1.panels0.Text:=登录用户：+trim(dl_form.Edit1.text); mainform.n12.enabled:=true; if vqx=1 then begin Mainform.statusbar1.panels1.Text:=用户权限：读者 ; mainform.n11.enabled:=false; mainform.n1.enabled:=true; mainform.n2.enabled:=true; m

19、ainform.n3.enabled:=false; mainform.n4.enabled:=true; mainform.n5.enabled:=true; mainform.n6.enabled:=false; mainform.n7.enabled:=false; mainform.n8.enabled:=true; end else begin Mainform.statusbar1.panels1.Text:=用户权限：管理者; mainform.n11.enabled:=true; mainform.n1.enabled:=true; mainform.n2.enabled:=t

20、rue; mainform.n3.enabled:=true; mainform.n4.enabled:=true; mainform.n5.enabled:=true; mainform.n6.enabled:=true; mainform.n7.enabled:=true; mainform.n8.enabled:=true; end; Button1Click(Sender); edit1.text:=; edit2.text:=; end; end;end;procedure Tdl_Form.SpeedButton2Click(Sender: TObject);beginclose;

21、end;用户密码窗体设计： 窗体的名字为：xxgh_form,对应的单元文件为：xxgh.pas。在窗体中添加一个Dbgrid组件，一个datasource组件，一个mainmenu组件，界面如下所示： 程序主要的代码如下： procedure Txgyh_Form.FormShow(Sender: TObject);var sqlstr:string;begin DataSource1.DataSet:= dataModuleADO.ADOQuery1; DBGrid1.DataSource:=DataSource1; sqlstr:=select yhm as 用户名,mm as 密码,q

22、x as 权限 from usera; with dataModuleADO.ADOQuery1 do begin close; sql.Clear ; SQL.Add(sqlstr); open; end;end;procedure Txgyh_Form.N1Click(Sender: TObject);begin xgyh_Form.Visible:=false; tjyh_Form.show;end;procedure Txgyh_Form.N2Click(Sender: TObject);var vmsg,vyhm,sqlstr:string;begin vyhm:=dataModul

23、eADO.ADOQuery1.FieldByName(用户名).AsString; if vyhm=mainForm.dlname then begin ShowMessage(不能删除当前用户 !); exit; end; vmsg:= 确实要删除“+vyhm+”用户？; if MessageDlg(vmsg, mtConfirmation, mbYes, mbNo,0)=mrNo then exit; sqlstr:=delete from usera where (yhm=+vyhm+); with dataModuleADO.ADOQuery1 do begin Close; SQL.

24、Clear; SQL.Add(sqlstr); ExecSQL; end; xgyh_Form.FormShow(Sender);end;procedure Txgyh_Form.N3Click(Sender: TObject);beginclose;end;添加用户窗体设计： 窗体的名字为：tjyh_form，对应的单元文件为tjyh.pas。在窗体中添加三个label组件，两个edit组件，一个combobox组件，两个button组件，程序的界面如下： 程序的主要代码如下： procedure Ttjyh_Form.Button2Click(Sender: TObject);begin

25、xgyh_Form.Visible:=true; xgyh_Form.FormShow(Sender); close;end;procedure Ttjyh_Form.Button1Click(Sender: TObject);var vmm,vyhm,vqx,sqlstr:string;begin if trim(Edit1.Text)= then begin ShowMessage(用户名不能为空!); exit; end; vmm:=Edit2.Text; vyhm:=Edit1.Text; sqlstr:=select * from usera where (yhm=+vyhm+);

26、with dataModuleADO.ADOQuery1 do begin close; sql.Clear ; SQL.Add(sqlstr); open; end; if dataModuleADO.ADOQuery1.RecordCount0 then begin ShowMessage(该用户已经存在,请选择“删除用户”!); exit; end; if ComboBox1.Text=管理员 then vqx:=1 else vqx:=0; sqlstr:=insert into usera (yhm,mm,qx) values (:yhm,:mm,:qx); with dataMod

27、uleADO.ADOQuery1 do begin Close; SQL.Clear; SQL.Add(sqlstr); Parameters.ParamByName(yhm).Value:=vyhm; Parameters.ParamByName(mm).Value:=vmm; Parameters.ParamByName(qx).Value:=vqx; ExecSQL; end; tjyh_Form.Button2Click(Sender);end;修改密码窗体设计： 窗体的名字：xxgm_form, 对应的单元文件为：xxgm.pas。在窗体中添加三个edit组件，三个label组件，两

28、个button组件，程序界面如下： 程序的主要代码： procedure Txgmm_Form.Button1Click(Sender: TObject);var vymm,vxmm,vyhm,sqlstr:string;begin vymm:=Edit1.Text; vxmm:=Edit2.Text; vyhm:=mainForm.dlname; sqlstr:=select * from usera where (yhm=+vyhm+); with dataModuleADO.ADOQuery1 do begin close; sql.Clear ; SQL.Add(sqlstr); open; if recordcount0 then begin vymm:=FieldByName(mm).AsString; if vymmEdit1.Text then begin ShowMessage(原密码不正确!); exit; end else begin if Edit2.TextEdit3.Text then begin ShowMessage(新密码与确认密码不一致!); exit; end else begin sqlstr:=update usera set mm=+vxmm+w