书店管理系统毕业论文1.doc
书店管理系统 目 录：摘要 4前言 7第一章 设计目标 8 1.1 理论应用 8 1.2 工具使用 8 1.3 应用开发 8 1.4 报告编写 8第二章 系统设计说明 8 2.1 系统简介 8 2.2 数据库设计 8 2.2.1 实体联系图设计 8 2.2.2 关系定义 9 2.3 应用程序设计 11 2.3.1 业务流程图 11 2.3.2 系统结构图 112.4 系统框架的选择 12 2.5 界面设计 12 第三章 部分程序代码和实现功能 12 3.1 系统登陆部分 12 3.2 书籍查询部分 13 第四章 数据库相关 20 第五章 最终应用程序运行说明 21 5.1 系统登陆 21 5.2 用户权限管理 23 5.3 会员分组管理 23 5.4 新到书籍编目 24 5.5 书籍资料维护 25 5.6 办理会员卡 26 5.7 会员信息维护 26 5.8 借阅和归还 26 5.9 查询信息 28 5.10 关于本系统 29第六章 总结 31第七章 参考文献 31书店管理系统摘 要 时代在发展，人的求知欲也在不断的增长，我们需要不断的提升自己的竞争力，书籍成了我们帮助我们提高自身能力的有效也是很普遍的工具。书籍每时每刻都在推陈出新，信息量的更新很庞大。 信息时代高速发展的今天，书店的信息化管理却没有得到很好的普及和发展，特别是很多小型的书店出于成本增加等原因而没有为自己的书店建立一个电脑记录的信息管理，殊不知投入了更大的人员方面的投入，反而增加了一定的成本，又使工作人员陷入繁琐的数据中，出错的几率也因此增大，上述这些事实迫使我们必须适应时代的要求，利用电脑有序而高效地管理各项信息。为了优化书店管理模式，提高人力工作效率，我设计了这个书店管理系统，可以很方便书店管理员进行高效的书籍和会员等相关管理。系统将会提供各种权限供不同的用户群使用，书店管理员可以使用整套系统的所有功能，新增书籍入库，书籍信息维护，会员信息维护，书籍借阅记录等，都可以轻松实现。另外简约美观的界面会让我们的工作环境焕然一新，这在一定程度上也能提高管理人员的工作热情和工作效率。当然，还存在很多需要改进的地方，也需要用户在使用过程中对我提出改进意见。 关键词 数据库 课程设计 书店管理 Delphi Abstract The time is developing, human's intellectual curiosity also in the unceasing growth, we needed to promote own unceasingly competitive power, the books to become us to help us to sharpen own ability effectively also is the very universal tool.The books all are weeding through the old to bring forth the new every time, the information content renewal is very huge. The information age high speed development today, bookstore's informationization management has not obtained the very good popularization and the development actually, but very are specially many the small bookstore stemming from reasons and so on cost increase not to establish the information management for own bookstore which a computer records, had never realized invested the bigger personnel aspect investment, Instead increased certain cost, also causes the staff to fall into in the tedious data, makes a mistake therefore the probability also increases, the above these facts force us to have to adapt the time request, but manages each information highly effective using the computer order.In order to optimize the bookstore to manage the pattern, enhances the manpower working efficiency, I have designed this bookstore management system management system, may the very convenient bookstore managers carry on highly effective correlation management and so on the books and member.The system will be able to provide each jurisdiction for the different user group use, the bookstore manager may use the entire wrap systematic all functions, the additional books warehousing, the books information maintenance, The member information maintenance, the books borrow the record and so on, all may with ease realize.Moreover the brief artistic contact surface can let our working conditions be changed beyond recognition, this also can enhance administrative personnel's work enthusiasm and the working efficiency to a certain extent.Certainly, but also has the place which very many needs to improve, also needs the user to give the improvement comment in the use process to me.Key words database curriculum designs the bookstore to manage Delphi前言平时我们在学校附近的书店买书你就会发现，现在很多书店的信息管理依然比较滞后，一般都采用纸笔加计算器人工管理的方法。对于较小型的书店，这种原始的管理方式还能应付，但对于种类繁多、数量庞大的较大型书店来说，这种原始落后的管理已经远远不能满足，不但工作繁琐，出错的几率也是很大的，大大降低了工作效率。另外现在比较有先见之明的书店都慢慢发展自己的特色业务，比如会员制度，针对会员有免费借阅书籍的业务，要求是每月消费达到一定金额，据悉这种举措很受市场的欢迎，极大的带动了带动了书店的消费，为书店自身的发展积累了一定的资金和管理经验。除此之外还有各色名目繁多的会员活动等等，给读者一种心理上的优越感，刺激了消费。为了优化书店管理模式，我尝试开发了这个书店综合管理系统，让用户很方便的通过这套系统管理书店的日常事务和繁琐数据，让用户在整洁的环境下轻松的进行书店的日常业务的开展。 第一章 设计目标1.1 理论应用 运用数据库设计理论设计一个较完善的有实际意义的数据库结构 1.2 工具使用 掌握目前流行数据库管理系统工具和前端应用开发工具 1.3 应用开发 为数据库开发相应应用程序，构成完整的数据库应用系统 1.4 报告编写 使用计算机按照规定格式编写高质量的设计报告 第二章 系统设计说明2.1 系统简介 随着时代的飞速发展和电脑的普及应用，信息智能化的社会正在向我们迎面走来。相比以前靠纸笔记录信息的时代，电脑的智能化管理将给我们的生活带来极大的便利性。针对现今书店管理信息化的滞后，这次课设我设计了一款面向书店的综合管理系统，可供系统管理员和一般用户使用，可以十分便利的增加、记录、查询和修改书籍的各种信息：包括书号、书名、作者、出版社、定价和分类等，并在此基础上设计了现在书店广泛采用的VIP会员功能，会员可以注册成不同级别的VIP会员，享受不同的免费图书借阅的优惠，同时管理员也可以十分方便的新增、查询和修改会员信息。 2.2 数据库设计 2.2.1 实体联系图设计 在这个实体联系图设计中，主要有用户、客户、书籍三个实体，拥有各自的属性，三者之间，用户同时管理客户和图书的信息，具体的E-R图设计见图2-1所示。 2.2.2 关系定义（数据字典） 分别定义了字段名，数据类型，可否为空和相关说明等，具体见如下表2-1 表2-7。 2.3 应用程序设计 2.3.1 业务流程图 2.3.2 系统结构图 2.4 系统构架的选择 在系统构架上，我选择了C/S（Client/Server）形式，这是一种比较常见的形式。我选用Delphi作为集成开发环境，通过ADO数据库接口连接数据库，在Delphi 中用嵌入SQL 语言访问数据库。 2.5 界面设计 在界面的设计上，为了使界面更加美观，另外下载了两个Delphi的编写界面的控件，这个在实际的使用过程中比较麻烦，核心就是界面控件的正确安装，复杂又需要耐心。整个界面设计的思想是合并和拆分，把功能不相关的窗体分开，把相近功能的窗体用page形式整合在一起，使用时较为清晰，功能也较为完整，虽然还有一些不甚完善之处，但应该也算一个小小的尝试吧。 第三章 部分程序代码和实现功能3.1 登陆系统部分 /* procedure TEnter_Form.Enter_BtnClick(Sender: TObject); /登录系统 var DLYB_Q:TQuery; Password:string; begin DLYB_Q:=TQuery.Create(nil); DLYB_Q.DatabaseName:=DataPath; DLYB_Q.SQL.Clear; DLYB_Q.SQL.Add('Select MM,QXID From DLYB Where Name=:FName'); /SQL语言嵌入 DLYB_Q.ParamByName('FName').AsString:=XM_CB.Text; DLYB_Q.Open; if DLYB_Q.RecordCount>0 then begin Password:=DLYB_Q.FieldValues'MM' if MM_E.Text=Password then begin self.Hide; QS:=DLYB_Q.FieldValues'QXID' with TMainForm.Create(nil) do try showmodal; finally free; end; end else begin MessageBox(0,'密码错误请重新输入！','密码错误',MB_OK or MB_ICONERROR); MM_E.Text:='' /MM_E.SetFocus; end; end; DLYB_Q.Close; FreeAndNil(DLYB_Q); end; /* 3.2 书籍查询部分（含模糊查询） /* procedure TCX_F.KSCX_FBtnClick(Sender: TObject); /开始查询 begin if ASH_FRBtn.Checked then /按书号 if MHCX_FCB.Checked then begin TSXX_Q.Close; TSXX_Q.SQL.Clear; TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost From'); TSXX_Q.SQL.Add(' TSJBXX A,TSLB B Where (A.TSBH Like :TSBH) and A.Class=B.ClassID'); TSXX_Q.ParamByName('TSBH').AsString:='%'+GJZ_CB.Text+'%' TSJG_DS.DataSet:=TSXX_Q; /第二种数据库动态连接 TSJG_DG.Columns0.FieldName:='TSBH' TSJG_DG.Columns1.FieldName:='Name' TSJG_DG.Columns2.FieldName:='Auther' TSJG_DG.Columns3.FieldName:='ClassName' TSJG_DG.Columns4.FieldName:='CBS' TSJG_DG.Columns5.FieldName:='Cost' TSXX_Q.Open; TS_Lable.Caption:=Format('共 %d 条记录',TSXX_Q.RecordCount); end else begin TSXX_Q.Close; TSXX_Q.SQL.Clear; TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost'); TSXX_Q.SQL.Add(' From TSJBXX A,TSLB B Where (A.TSBH=:TSBH) and A.Class=B.ClassID'); TSXX_Q.ParamByName('TSBH').AsString:=GJZ_CB.Text; TSJG_DS.DataSet:=TSXX_Q; TSJG_DG.Columns0.FieldName:='TSBH' TSJG_DG.Columns1.FieldName:='Name' TSJG_DG.Columns2.FieldName:='Auther' TSJG_DG.Columns3.FieldName:='ClassName' TSJG_DG.Columns4.FieldName:='CBS' TSJG_DG.Columns5.FieldName:='Cost' TSXX_Q.Open; TS_Lable.Caption:=Format('共 %d 条记录',TSXX_Q.RecordCount); end; if ASM_FRBtn.Checked then /按书名 if MHCX_FCB.Checked then begin TSXX_Q.Close; TSXX_Q.SQL.Clear; TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost From'); TSXX_Q.SQL.Add(' TSJBXX A,TSLB B Where (A.Name Like :Name) and A.Class=B.ClassID'); TSXX_Q.ParamByName('Name').AsString:='%'+GJZ_CB.Text+'%' TSJG_DS.DataSet:=TSXX_Q; /第二种数据库动态连接 TSJG_DG.Columns0.FieldName:='TSBH' TSJG_DG.Columns1.FieldName:='Name' TSJG_DG.Columns2.FieldName:='Auther' TSJG_DG.Columns3.FieldName:='ClassName' TSJG_DG.Columns4.FieldName:='CBS' TSJG_DG.Columns5.FieldName:='Cost' TSXX_Q.Open; TS_Lable.Caption:=Format('共 %d 条记录',TSXX_Q.RecordCount); end else begin TSXX_Q.Close; TSXX_Q.SQL.Clear; TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost'); TSXX_Q.SQL.Add(' From TSJBXX A,TSLB B Where (A.Name=:Name) and A.Class=B.ClassID'); TSXX_Q.ParamByName('Name').AsString:=GJZ_CB.Text; TSJG_DS.DataSet:=TSXX_Q; TSJG_DG.Columns0.FieldName:='TSBH' TSJG_DG.Columns1.FieldName:='Name' TSJG_DG.Columns2.FieldName:='Auther' TSJG_DG.Columns3.FieldName:='ClassName' TSJG_DG.Columns4.FieldName:='CBS' TSJG_DG.Columns5.FieldName:='Cost' TSXX_Q.Open; TS_Lable.Caption:=Format('共 %d 条记录',TSXX_Q.RecordCount); end; if AZZ_FRBtn.Checked then /按作者 if MHCX_FCB.Checked then begin TSXX_Q.Close; TSXX_Q.SQL.Clear; TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost From'); TSXX_Q.SQL.Add(' TSJBXX A,TSLB B Where (A.Auther Like :Auther) and A.Class=B.ClassID'); TSXX_Q.ParamByName('Auther').AsString:='%'+GJZ_CB.Text+'%' TSJG_DS.DataSet:=TSXX_Q; /第二种数据库动态连接 TSJG_DG.Columns0.FieldName:='TSBH' TSJG_DG.Columns1.FieldName:='Name' TSJG_DG.Columns2.FieldName:='Auther' TSJG_DG.Columns3.FieldName:='ClassName' TSJG_DG.Columns4.FieldName:='CBS' TSJG_DG.Columns5.FieldName:='Cost' TSXX_Q.Open; TS_Lable.Caption:=Format('共 %d 条记录',TSXX_Q.RecordCount); end else begin TSXX_Q.Close; TSXX_Q.SQL.Clear; TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost'); TSXX_Q.SQL.Add(' From TSJBXX A,TSLB B Where (A.Auther=:Auther) and A.Class=B.ClassID'); TSXX_Q.ParamByName('Auther').AsString:=GJZ_CB.Text; TSJG_DS.DataSet:=TSXX_Q; TSJG_DG.Columns0.FieldName:='TSBH' TSJG_DG.Columns1.FieldName:='Name' TSJG_DG.Columns2.FieldName:='Auther' TSJG_DG.Columns3.FieldName:='ClassName' TSJG_DG.Columns4.FieldName:='CBS' TSJG_DG.Columns5.FieldName:='Cost' TSXX_Q.Open; TS_Lable.Caption:=Format('共 %d 条记录',TSXX_Q.RecordCount); end; if ACBS_FRBtn.Checked then /按出版社 if MHCX_FCB.Checked then begin TSXX_Q.Close; TSXX_Q.SQL.Clear; TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost From'); TSXX_Q.SQL.Add(' TSJBXX A,TSLB B Where (A.CBS Like :CBS) and A.Class=B.ClassID'); TSXX_Q.ParamByName('CBS').AsString:='%'+GJZ_CB.Text+'%' TSJG_DS.DataSet:=TSXX_Q; /第二种数据库动态连接 TSJG_DG.Columns0.FieldName:='TSBH' TSJG_DG.Columns1.FieldName:='Name' TSJG_DG.Columns2.FieldName:='Auther' TSJG_DG.Columns3.FieldName:='ClassName' TSJG_DG.Columns4.FieldName:='CBS' TSJG_DG.Columns5.FieldName:='Cost' TSXX_Q.Open; TS_Lable.Caption:=Format('共 %d 条记录',TSXX_Q.RecordCount); end else begin TSXX_Q.Close; TSXX_Q.SQL.Clear; TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost'); TSXX_Q.SQL.Add(' From TSJBXX A,TSLB B Where (A.CBS=:CBS) and A.Class=B.ClassID'); TSXX_Q.ParamByName('CBS').AsString:=GJZ_CB.Text; TSJG_DS.DataSet:=TSXX_Q; TSJG_DG.Columns0.FieldName:='TSBH' TSJG_DG.Columns1.FieldName:='Name' TSJG_DG.Columns2.FieldName:='Auther' TSJG_DG.Columns3.FieldName:='ClassName' TSJG_DG.Columns4.FieldName:='CBS' TSJG_DG.Columns5.FieldName:='Cost' TSXX_Q.Open; TS_Lable.Caption:=Format('共 %d 条记录',TSXX_Q.RecordCount); end; if ALB_FRBtn.Checked then /按类别 if MHCX_FCB.Checked then begin TSXX_Q.Close; TSXX_Q.SQL.Clear; TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost From'); TSXX_Q.SQL.Add(' TSJBXX A,TSLB B Where (B.ClassName Like :ClassName) and A.Class=B.ClassID'); TSXX_Q.ParamByName('ClassName').AsString:='%'+GJZ_CB.Text+'%' TSJG_DS.DataSet:=TSXX_Q; /第二种数据库动态连接 TSJG_DG.Columns0.FieldName:='TSBH' TSJG_DG.Columns1.FieldName:='Name' TSJG_DG.Columns2.FieldName:='Auther' TSJG_DG.Columns3.FieldName:='ClassName' TSJG_DG.Columns4.FieldName:='CBS' TSJG_DG.Columns5.FieldName:='Cost' TSXX_Q.Open; TS_Lable.Caption:=Format('共 %d 条记录',TSXX_Q.RecordCount); end else begin TSXX_Q.Close; TSXX_Q.SQL.Clear; TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost'); TSXX_Q.SQL.Add(' From TSJBXX A,TSLB B Where (B.ClassName=:ClassName) and A.Class=B.ClassID'); TSXX_Q.ParamByName('ClassName').AsString:=GJZ_CB.Text; TSJG_DS.DataSet:=TSXX_Q; TSJG_DG.Columns0.FieldName:='TSBH' TSJG_DG.Columns1.FieldName:='Name' TSJG_DG.Columns2.FieldName:='Auther' TSJG_DG.Columns3.FieldName:='ClassName' TSJG_DG.Columns4.FieldName:='CBS' TSJG_DG.Columns5.FieldName:='Cost' TSXX_Q.Open; TS_Lable.Caption:=Format('共 %d 条记录',TSXX_Q.RecordCount); end; end; /* procedure TCX_F.MHCX_FCBClick(Sender: TObject); /选中书籍模糊查询 begin TSXX_Q.Close; TS_Lable.Caption:='共有 0 条记录' end; /*第四章 数据库相关在Delphi自带的Database Desktop平台下，我们可以很方便的查看并修改相关的数据内容，下面贴出其运行时的部分截图。包含用户及其权限，客户及其组名书籍及其分类等等。如图4-1和图4-2。 图4-1 Database Desktop平台数据图a 图4-2 Database Desktop平台数据图b 第五章 最终应用程序运行说明5.1 系统登陆 不用的用户登陆系统将会拥有不同的使用权限（登陆的用户不可以涉及的信息管理方面将会使灰色显示，点击无反应），在下拉框中可以选择（如图5-1），如果用户输入密码错误将会有错误提示（如图5-2），点击确定后继续新一次输入，正常登陆后，如果有会员借阅书籍过期，系统自动弹出提示窗
