《实验图书管理系统》由会员分享，可在线阅读，更多相关《实验图书管理系统（24页珍藏版）》请在金锄头文库上搜索。
1、中原工学院信息商务学院学生实践环节报告专用纸 第 24 页 实验 图书管理系统一 实验目的（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字数（
3、千字）IntegerYsePublisherID出版社IDChar4YseNumber印刷册数CharYsePrice定价MoneyYseKeyword关键字Char30YseAbstract摘要Varchar400Yse表2 certificateinfo字段名意义数据类型宽度NullPrimaryKeyCert_id借书证书IDChar5NoCert_name证件名称Char10YesCert_value证件号码Char18YesName姓名Char8YesDepart所在部门Char20Yesflag标记TinyintYes表3 LOAN表4 SET1创建菜单创建一个菜单，菜单名为cai
4、dan,所有窗口在菜单中实现。2创建窗口对象登陆界面（1）主界面：创建一个新的弹出式窗口对象,Title为“图书管理系统”关联菜单“caidan”界面如下：（2）图书管理：a.新书录入界面：创建一个新的弹出式窗口对象， （1）布置窗口中的静态文本控件窗口中只有一个标题使用静态文本控件，在窗口控件下拉列表工具栏图标中选择静态文 本控件，然后在窗口上单击，生成静态文本控件。在Text属性栏中输入“新书录入”。 （2）布置窗口中的单行编辑框控件 在窗口控件下拉列表工具栏图标中选择单行编辑框控件，然后在窗口上单击，生成单行编辑框控件。使用 Ctrl和 T组合键进行外观复制生成 5个单行编辑框。 单行编
5、辑框的名称控件名称说明字段Sle_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(缺少数据,请输入图书编号)
7、 str_BookId=trim(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)
8、I_Words=long(sle_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_
9、BookId, : str_ISBN, : 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_keyw
10、ord.text=mle_abstract.text=sle_words.text=sle_price.text= sle_bookid.setfocus()（3）关联新书录入窗口 m到菜单中打开创建主菜单选择新书录入菜单，添加事件的脚本为：open(m) (4)具体界面如下： b.旧书销毁界面：创建一个新的弹出式窗口对象 （1）布置窗口中的静态文本控件窗口中只有一个标题使用静态文本控件，在窗口控件下拉列表工具栏图标中选择静态文 本控件，然后在窗口上单击，生成静态文本控件。在Text属性栏中输入“旧书销毁”。 （2） 按书号检索 按书号查询的数据窗口对象是一个条件查询的数据窗口，其设计步骤为：
11、 l）单击New图标按钮，弹出“New”对话框；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下拉
12、列表框中选择 String，单击“OK”按钮，对话框关闭： 6）在 Select画板的 Table Layout子窗口中的表框中列出了 student表的全部字段的名称，每单击一个字段，该字段就变为蓝底白字，表示选中，同时，会在上面的“Selection List：”区域中排列出该宇段。如果单击选中的字段，就会变为不被选中，该字段从上面的排列中消失。单击每一个字段，将全部字段选中；7）在 Select画板的 Where子窗口中单击 Colunm栏，右边出现一个“”符号，单击“”按钮，弹出student表的所有字段，选择“student”.“name”，在右边的Value栏中，单击右键，选择弹出
13、菜单中的“Arguments.”，弹出一个小窗口，内部有刚才定义的变量“：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子窗口中。可以在Value栏中输人一个姓名后按“OK”键进行检索，也可以按“Cancel”键不进行检索，然后进入数据窗口对象画板。 9）在数据窗口对象画板中，将字段名称改为中文，调整字段的位置和大小，设置文字颜色、背景颜色和字段边框； 10）选择菜单EditSelectSelect Colunms，将所有字段全部选中，然后在Properties属性卡中选择 Edit页，选中“Display Only”复选框，不选中“Auto Selection”复选框；11）保存数据窗口对象名称为 d1。（4） 编写脚本：在“查询”按钮的Clicked事件脚本为；
