《实验图书管理系统(共24页).doc》由会员分享，可在线阅读，更多相关《实验图书管理系统(共24页).doc（24页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精选优质文档-倾情为你奉上实验 图书管理系统一 实验目的（1）培养综合应用PowerBuilder进行应用程序设计和解决实际问题的能力；（2）加深对PowerBuilder编程环境和编程方法的理解；（3）发挥各人的想像能力和分析能力，拓展思维空间；（4）掌握应用程序设计的基本方法；（5）巩固已经学到的编程技术，学会在编程中学习编程。二 实验要求（1）图书信息的录入和删除，出版社信息管理等；（2）图书的检索（包括按作者姓名、出版时间、出版社名称、图书类别、书名、关键宇等）；（3）图书的租借（包括借书登记、限借数量控制、还书登记、过期罚款计算等）；（4）借书证件的管理（包括办新证件，挂失、注销等）
2、（5）系统设置（主要是不同类型证件的可借书的总量和借书时间等） 三 实验内容详细步骤：数据库的设计：创建数据库，数据库名user,在数据库里建表1表4，表1 Bookinfo为存放图书信息表，表2 certificateinfo证件表为证件表，表3 LOAN 图书租借表，表4 SET系统设置表，表如下：表1 Bookinfo字段名意义数据类型宽度NullPrimaryKeyBookID图书编号Char8NoISBNISBN书号Char30YseTitle书名Char40YsePublish出版日期CharYseAuthor作者Char30YseWords字数（千字）IntegerYsePubl
3、isherID出版社IDChar4YseNumber印刷册数CharYsePrice定价MoneyYseKeyword关键字Char30YseAbstract摘要Varchar400Yse表2 certificateinfo字段名意义数据类型宽度NullPrimaryKeyCert_id借书证书IDChar5NoCert_name证件名称Char10YesCert_value证件号码Char18YesName姓名Char8YesDepart所在部门Char20Yesflag标记TinyintYes表3 LOAN表4 SET1创建菜单创建一个菜单，菜单名为caidan,所有窗口在菜单中实现。2创
4、建窗口对象登陆界面（1）主界面：创建一个新的弹出式窗口对象,Title为“图书管理系统”关联菜单“caidan”界面如下：（2）图书管理：a.新书录入界面：创建一个新的弹出式窗口对象， （1）布置窗口中的静态文本控件窗口中只有一个标题使用静态文本控件，在窗口控件下拉列表工具栏图标中选择静态文 本控件，然后在窗口上单击，生成静态文本控件。在Text属性栏中输入“新书录入”。 （2）布置窗口中的单行编辑框控件 在窗口控件下拉列表工具栏图标中选择单行编辑框控件，然后在窗口上单击，生成单行编辑框控件。使用 Ctrl和 T组合键进行外观复制生成 5个单行编辑框。 单行编辑框的名称控件名称说明字段Sle_
5、bookid图书编号Sle_isbnISBN书号Sle_publish书名Sle_author作者Sle_words字数Sle_publisberid出版社IDSle_number印刷册数Sle_price定价Sle_keyword关键字Sle_abstract摘要（3）布置窗口中的多行编辑框控件在窗口控件下拉列表工具栏图标中选择多行编辑框控件，然后在窗口上单击，生成多行编辑框控件。其名称Name为“dw_abstract”，选中Hscrollbar和Vscrollbar。多行编辑框控件用于输入摘要。 （4）布置窗口中的“确定”按钮控件在窗口控件下拉列表工具栏图标中选择命令按钮控件，然后在窗口
6、上单击，生成命令按钮控件。窗口中共有两个命令按钮控件，设置一个按钮的Text属性为“确定”，名称为cb_ok选中 default属性。“确定”按钮的Clicked事件脚本为；string str_BookId,str_ISBN,str_Title,str_Author,str_PublisherID,str_Keyword,str_Abstractlong I_Words,I_price,i,I_Number,Flag1date str_Publishif sle_bookid.text=then return messagebox(缺少数据,请输入图书编号) str_BookId=trim(
7、sle_bookid.text) str_ISBN=trim(sle_isbn.text)str_Title=trim(sle_title.text)str_Publish=date(sle_publish.text)str_Author=trim(sle_author.text)str_PublisherID=trim(sle_publisherid.text)I_Number=long(sle_number.text)str_Keyword=trim(sle_keyword.text)str_Abstract=trim(mle_abstract.text)I_Words=long(sle_
8、words.text)I_Price=long(sle_price.text)Flag1=0 select BookID into :i from BookInfo where BookID=:str_BookId; if i0 then messagebox(书号重复,书号重复，请重新输入！) INSERT INTO BookInfo (BookID, ISBN, Title, Publish, Author, Words, PublisherID, Number, Keyword, Abstract, Price, Flag) VALUES (: str_BookId, : str_ISB
9、N, : str_Title, : str_Publish, : str_Author, : I_Words, : str_PublisherID, : I_Number, : str_Keyword, : str_Abstract, : I_Price, : Flag1); sle_bookid.text=sle_isbn.text=sle_title.text=sle_publish.text=sle_author.text=sle_publisherid.text=sle_number.text=sle_publisherid.text=sle_keyword.text=mle_abst
10、ract.text=sle_words.text=sle_price.text= sle_bookid.setfocus()（3）关联新书录入窗口 m到菜单中打开创建主菜单选择新书录入菜单，添加事件的脚本为：open(m) (4)具体界面如下： b.旧书销毁界面：创建一个新的弹出式窗口对象 （1）布置窗口中的静态文本控件窗口中只有一个标题使用静态文本控件，在窗口控件下拉列表工具栏图标中选择静态文 本控件，然后在窗口上单击，生成静态文本控件。在Text属性栏中输入“旧书销毁”。 （2） 按书号检索 按书号查询的数据窗口对象是一个条件查询的数据窗口，其设计步骤为： l）单击New图标按钮，弹出“N
11、ew”对话框；2）选择DataWindow选项页，双击FreeForm图标，弹出“Choose Data Source for FreeForm DataWindow”对话框； 3）选择“SQL Select”数据源方式，单击“Next”按钮，弹出“Select Table”对话框；4)在 Table列表框中选择 student表，单击“Open”按钮，这时弹出 Select 画板；5）单击菜单DesignRetrieval Arguments弹出Specify Retrieval Arguments”对话框，在 Name栏中输入ls_name，在Type下拉列表框中选择 String，单击“
12、OK”按钮，对话框关闭： 6）在 Select画板的 Table Layout子窗口中的表框中列出了 student表的全部字段的名称，每单击一个字段，该字段就变为蓝底白字，表示选中，同时，会在上面的“Selection List：”区域中排列出该宇段。如果单击选中的字段，就会变为不被选中，该字段从上面的排列中消失。单击每一个字段，将全部字段选中；7）在 Select画板的 Where子窗口中单击 Colunm栏，右边出现一个“”符号，单击“”按钮，弹出student表的所有字段，选择“student”.“name”，在右边的Value栏中，单击右键，选择弹出菜单中的“Arguments.”，
13、弹出一个小窗口，内部有刚才定义的变量“：Is_name”，单击选中它，单击“Paste”按钮，“：ls_name”就出现在Value栏中。 8）单击“Return”图标按钮，弹出“Select Colorl Border Settings”对话枢，单击“Next”按钮，弹出“Ready to Create FreeForm DataWindow”对话框。，该对话框对数据窗口对象的主要属性进行了小结。单击“Finish”按钮，弹出“Specify Retrieval Arguments”对话框，要求对检索变量ls_name进行赋值，以便对数据库进行数据检索，并将检索结果放到Preview子窗口中
14、。可以在Value栏中输人一个姓名后按“OK”键进行检索，也可以按“Cancel”键不进行检索，然后进入数据窗口对象画板。 9）在数据窗口对象画板中，将字段名称改为中文，调整字段的位置和大小，设置文字颜色、背景颜色和字段边框； 10）选择菜单EditSelectSelect Colunms，将所有字段全部选中，然后在Properties属性卡中选择 Edit页，选中“Display Only”复选框，不选中“Auto Selection”复选框；11）保存数据窗口对象名称为 d1。（4） 编写脚本：在“查询”按钮的Clicked事件脚本为；string str_bookidstr_bookid
15、=trim(sle_bookid.text)if not str_bookid= then dw_bookid.retrieve(str_bookid) else MessageBOX(数据不全,请输入待删除的书名。) end if sle_bookid.setFocus()在“确定销毁”按钮的Clicked事件脚本为；string str_bookidlong istr_bookid=trim(sle_bookid.text)delete from BookInfowhere BookID=:str_bookid;dw_bookid.retrieve(str_bookid)select Bo
16、okIDinto :ifrom BookInfowhere BookID=:str_bookid;if i=0 then messagebox(提示,string(str_bookid)+的信息已经不存在)sle_bookid.text= （5）关联新书录入窗口 n到菜单中打开创建主菜单选择旧书销毁菜单中，添加事件的脚本为：open(n)(6)具体界面如下：（4）图书查询：图书查询包括两个查询：按书名查询，按日期查询。（这里只写按书名查询详细步骤，按日期查询和按书名查询功能一样，略之）1） 设计步骤如下：创建一个新的弹出式窗口对象。数据窗口对象选择Grid风格。增加一个检索参数 Retriev
17、al Argument为 ls_author，在 Select画板的 Where子窗口中设计的条件为： bookinfo.authorlike:ls_author 保存数据窗口对象 （2）布置一个静态文本控件，其Text为“按书名查询”，一个单行编辑框，为Name 为“sle_author ”；一个命令按钮， Text属性为“查询”，选中“Default”复选框；还有一个数据窗口控件，其Name为dw_author”；DataObject为d5,选中HScrollBar和VScrollBar复选框。保存所做的工作。 （3）编写脚本：在“确定”按钮的Clicked事件脚本为；string str
18、_titlestr_title=trim(sle_title.text)if not str_title= then dw_title.retrieve(str_title) else MessageBOX(数据不全,请输入书名（可以不全）！) end if sle_title.setFocus()在a窗口的Open事件中，再增加数据窗口 dwauthor使用数据库的事物对象和初始化的代码: dw_author.SetTransObject(SQLCA)（4）关联新书录入窗口m到菜单中打开创建主菜单选择按作者查询菜单，添加事件的脚本为：open(a)两个界面如下： 按书名查询按日期查询 （5）
19、证件管理： a. 办新证件创建一个新的弹出式窗口对象，窗口名“student”。 （1）布置窗口中的静态文本控件窗口中只有一个标题使用静态文本控件，在窗口控件下拉列表工具栏图标中选择静态文 本控件，然后在窗口上单击，生成静态文本控件。在Text属性栏中输入“办新证件”。 2）布置窗口中的单行编辑框控件 在窗口控件下拉列表工具栏图标中选择单行编辑框控件，然 后在窗口上单击，生成单行编辑框控件。使用 Ctrl和 T组合键进行外观复制生成 5个单行编辑框。 单行编辑框的名称控件名称说明字段Sle_cert_id借书证IDSle_cert_value证件号码Sle_departy所在部门（3）布置窗口
20、中的单选钮和组合框控件 窗口中共有两组单选钮，一组为性别选择，另一组为党团员选择。性别选择单选钮的设计方法为：在窗口控件下拉列表工具栏图标中选择组合框控件，然后在窗口上单击，生成组合框控件、再选择单选钮控件，在组合框中单击，生成单选钮控件。设置其名称为rb_zero，Text为“0”，选中Checked属性；同样再在组合框中放置一个单选钮控件，设置其名称为rb_first，Text为“1”，不选中Checked属性；rb_two，Text为“2”，不选中Checked属性。（说明：标记中的0是合法用户能借阅书籍，1是该证已挂失，2是该用户已经在黑名单里。） （4）布置窗口中的下拉列表框控件在窗
21、口控件下拉列表工具栏图标中选择下拉列表框控件，然后在窗口上单击，生成下拉列表框控件。输入下拉列表框控件名称为ddlb_cert_name，不选中Sorted属性，选中Vscrollbar属性。单击下拉列表框控件后拖动下边框，调整下拉列表框展开后的长度。同样输入下拉列表框控件名称为ddlb_departy，不选中Sorted属性，选中Vscrollbar属性。单击下拉列表框控件后拖动下边框。 （5）布置窗口中的命令按钮控件在窗口控件下拉列表工具栏图标中选择命令按钮控件，然后在窗口上单击，生成命令按钮控件。窗口中共有两个命令按钮控件，设置一个按钮的Text属性为“提交”，名称为cb_ok选中 de
22、fault属性；设置一个按钮的 Text属件为“退出”，名称为 cb_exit，选中 Cancel属性。（6）编写脚本：单击选中证件名称下拉列表框控件，选择右键弹出菜单中的Script菜单项，进人SCript子窗口，选择事件下拉列表框中的Constructor事件，输人以下脚本：this.additem(教师) this.additem（学生） 同时在所在部门下拉列表框控件，选择右键弹出菜单中的Script菜单项，进人SCript子窗口，选择事件下拉列表框中的Constructor事件，输人以下脚本： this.additem(计算机科学系)this.additem(英语系) this.add
23、item(工商管理系)this.additem(经济系) this.additem(信息管理系)this.additem(艺术系)this.additem(机械系)this.additem(建筑系)在“确定”按钮的Clicked事件脚本为；string ID,depart,name,Cname,Cvalue,Ctype,flagint iID=trim(sle_cert_id.text)select Cert_id into : i from CertificateInfo where Cert_id=: ID;if i0 then messagebox(重复,借书证ID重复，请重新输入！)s
24、le_cert_id.text=sle_cert_id.setfocus()returnend ifif sle_cert_id.text=then messagebox(缺少数据,请输入借书证ID) sle_cert_id.setfocus() return elseif sle_name.text=then messagebox(缺少数据,请输入姓名)sle_name.setfocus()returnend ifif sle_cert_value.text= thenmessagebox(缺少数据,请输入证件号)return elseif sle_depart.text= thenmess
25、agebox(缺少数据,请输入系别或部门) return end ifif ddlb_cert_type.text= then messagebox(缺少数据,请选择借书证类型)returnelseif ddlb_cert_name.text=then messagebox(缺少数据,请输入证件名称)returnend ifname=trim(sle_name.text)Cvalue=trim(sle_cert_value.text)Cname=trim(ddlb_cert_name.text)depart=trim(sle_depart.text)Ctype=trim(ddlb_cert_t
26、ype.text)flag=0;insert into CertificateInfo(Cert_id, Name, Cert_name, Cert_value, Depart, Cert_type, flag)values(:ID, :name, :Cname, :Cvalue, :depart, :Ctype, :flag);sle_cert_id.text=sle_name.text=ddlb_cert_name.text=sle_cert_value.text=sle_depart.text=ddlb_cert_type.text=sle_cert_id.setfocus()在“退出”
27、按钮的Clicked事件脚本为；close(book_jszzhuce)（7）关联新书录入窗口student到菜单中打开创建主菜单到办新证件菜单中，添加事件的脚本为：open(student)(8)具体界面如下：b. 证件管理创建一个新的弹出式窗口对象，窗口名“lose”。设计步骤如下：1）首先按借书证ID进行检索，显示出这个人的证件信息，之后设置四个按钮：确定、挂失、解锁、销毁，之后在每个按钮里输入脚本。2）编写脚本：在“确定”按钮的Clicked事件脚本为；string IDID=trim(sle_ID.text)if not sle_ID.text= thendw_ID.retrieve
28、(ID)else messagebox(错误,请输入借书证号)end if在“挂失”按钮的Clicked事件脚本为；string IDlong iID=trim(sle_ID.text)update CertificateInfoset flag=1where Cert_id=:ID;if not sle_ID.text= thendw_ID.retrieve(ID)elsemessagebox(错误,请输入借书证ID)end if在“解锁”按钮的Clicked事件脚本为；string IDlong iID=trim(sle_ID.text)update CertificateInfoset
29、flag=0where Cert_id=:ID;if not sle_ID.text= thendw_ID.retrieve(ID)elsemessagebox(错误,请输入借书证ID)end if在“销毁”按钮的Clicked事件脚本为；string IDlong iID=trim(sle_ID.text)delete from CertificateInfowhere Cert_id=:ID;if not sle_ID.text= thendw_ID.retrieve(ID)elsemessagebox(错误,请输入借书证ID)end if在lose窗口的Open事件中，再增加数据窗口 d
30、wcert_id使用数据库的事物对象和初始化的代码: dw_cert_id.SetTransObject(SQLCA)（3）关联新书录入窗口lose到菜单中打开创建主菜单到证件挂失菜单中，添加事件的脚本为：open(lose)(4) 具体界面如下： c. 借书证注销创建一个新的弹出式窗口对象设计步骤如下：1）首先按借书证ID进行检索，显示出这个人的证件信息，之后设置两个按钮：确定，退出，之后在每个按钮里输入脚本。2）编写脚本：在“确定”按钮的Clicked事件脚本为；string ID,depart,name,Cname,Cvalue,Ctype,flagint iID=trim(sle_ce
31、rt_id.text)select Cert_id into : i from CertificateInfo where Cert_id=: ID;if i0 then messagebox(重复,借书证ID重复，请重新输入！)sle_cert_id.text=sle_cert_id.setfocus()returnend ifif sle_cert_id.text=then messagebox(缺少数据,请输入借书证ID) sle_cert_id.setfocus() return elseif sle_name.text=then messagebox(缺少数据,请输入姓名)sle_n
32、ame.setfocus()returnend ifif sle_cert_value.text= thenmessagebox(缺少数据,请输入证件号)return elseif sle_depart.text= thenmessagebox(缺少数据,请输入系别或部门) return end ifif ddlb_cert_type.text= then messagebox(缺少数据,请选择借书证类型)returnelseif ddlb_cert_name.text=then messagebox(缺少数据,请输入证件名称)returnend ifname=trim(sle_name.te
33、xt)Cvalue=trim(sle_cert_value.text)Cname=trim(ddlb_cert_name.text)depart=trim(sle_depart.text)Ctype=trim(ddlb_cert_type.text)flag=0;insert into CertificateInfo(Cert_id, Name, Cert_name, Cert_value, Depart, Cert_type, flag)values(:ID, :name, :Cname, :Cvalue, :depart, :Ctype, :flag);sle_cert_id.text=s
34、le_name.text=ddlb_cert_name.text=sle_cert_value.text=sle_depart.text=ddlb_cert_type.text=sle_cert_id.setfocus()在“退出”按钮的Clicked事件脚本为；close(book_jszzhuce)在del窗口的Open事件中，再增加数据窗口 dwcert_id使用数据库的事物对象和初始化的代码: dw_cert_id.SetTransObject(SQLCA)3）关联新书录入窗口del到菜单中打开创建主菜单到证件注销菜单中，添加事件的脚本为：open(del)4）具体界面：6）证件租借：
35、a.借书登记:创建一个新的弹出式窗口对象，窗口名“bollow”。设计步骤如下：1) 首先根据借书证ID验证借书者是否存在，还是已经挂失，或在黑名单里，如果存在，点击验证按钮将会在借书人的姓名里，显示出该人的姓名，如果不存在将出来对话框显示不存在该信息或挂失或黑名单。2) 根据图书编号检索要借的书的全部信息，同时显示出该借书证ID所借的书数量，之后方可借书。3） 编写脚本：在“查询借书情况”按钮的Clicked事件脚本为；string certidcertid=trim(sle_certid.text)if sle_certid.text= thenmessagebox(缺少数据,请输入借书证
36、号)sle_certid.setfocus()returnend ifdw_jieshu.retrieve(certid) 在“借书”按钮的Clicked事件脚本为；string certid,bookidint Flag,i,j,m,ni=2j=2datetime ld_loandates,ld_returndatesld_loandates=datetime(today(),now()ld_returndates=datetime(relativedate(today(),30)certid=trim(sle_certid.text)bookid=trim(sle_bookid.text)
37、Flag=1if sle_certid.text= thenmessagebox(缺少数据,请输入借书证号)sle_certid.setfocus()returnelseif sle_bookid.text= thenmessagebox(缺少数据,请输入图书编号)sle_bookid.setfocus()returnend ifselect flaginto :ifrom CertificateInfowhere Cert_id=:certid;if i=1 then messagebox(警告,该借书证已经挂失，暂时无法使用！)returnelseif i=2 then messagebo
38、x(无效,没有该借书证信息！) returnend ifselect flaginto :jfrom BookInfowhere BookID=:bookid;if j=1 then messagebox(警告,该书已经被借出！)returnelseif j=2 then messagebox(无效,没有该图书编号信息！) returnend ifselect count(BookID)into :mfrom Loanwhere Cert_id=:certid and flag=1;select Set.Numberinto :nfrom Set,CertificateInfowhere Ce
39、rtificateInfo.Cert_id=:certid and CertificateInfo.Cert_type=Set.Cert_type;if m=n thenmessagebox(提示,超出了借书总数)returnend ifinsert into Loan(BookID, Cert_id, Loandates, Returndates, flag)values(:bookid, :certid, :ld_loandates, :ld_returndates, :Flag);update BookInfoset flag=1where BookID=:bookid;sle_cert
40、id.text=sle_bookid.text=dw_jieshu.retrieve(certid)messagebox(警告,借书成功)在bollow窗口的Open事件中，再增加数据窗口 dwcert_id使用数据库的事物对象和初始化的代码: dw_cert_id.SetTransObject(SQLCA)4）关联新书录入窗口bollow到菜单中打开创建主菜单到借书登记菜单中，添加事件的脚本为：open(bollow)5)具体界面：b.还书:创建一个新的弹出式窗口对象，窗口名“led”。设计步骤如下：1)根据图书编号验证是否存在该图书，如果存在光标移到图书名称的时候将显示图书名称，如果没有该
41、图书信息将出来对话框显示没有该图书信息。2）根据图书编号检索出该图书被借出情况，并显示该借书证ID所借出的数量和是否罚款3）编写脚本：在“还书”按钮的Clicked事件脚本为；string bookiddatetime Rtime,timesdouble i,j,mm=2Rtime=datetime(today(),now()if sle_bookid.text= thenmessagebox(缺少数据,请输入图书编号)sle_bookid.setfocus()returnend ifbookid=trim(sle_bookid.text)select Flaginto :mfrom Book
42、Infowhere BookID=:bookid;if m=0 then messagebox(提示,该书已经归还)returnelseif m=2 thenmessagebox(提示,不存在该借书信息)returnend ifselect Returndatesinto :timesfrom Loanwhere BookID=:bookid;i=daysafter(date(Rtime),date(times)if i0 then messagebox(提示,超过借书时限，应该罚款) returnend ifupdate Loanset flag=0where BookID=:bookid and flag=1;update Book