实验图书管理系统.docx

资源描述

实验图书管理系统.docx

《实验图书管理系统.docx》由会员分享，可在线阅读，更多相关《实验图书管理系统.docx（35页珍藏版）》请在冰点文库上搜索。

实验图书管理系统.docx

实验图书管理系统

一实验目的

（1）培养综合应用PowerBuilder进行应用程序设计和解决实际问题的能力；

（2）加深对PowerBuilder编程环境和编程方法的理解；

（3）发挥各人的想像能力和分析能力，拓展思维空间；

（4）掌握应用程序设计的基本方法；

（5）巩固已经学到的编程技术，学会在编程中学习编程。

二实验要求

（1）图书信息的录入和删除，出版社信息管理等；

（2）图书的检索（包括按作者姓名、出版时间、出版社名称、图书类别、书名、关键宇等）；

（3）图书的租借（包括借书登记、限借数量控制、还书登记、过期罚款计算等）；

（4）借书证件的管理（包括办新证件，挂失、注销等）

（5）系统设置（主要是不同类型证件的可借书的总量和借书时间等）

三实验内容

详细步骤：

数据库的设计：

创建数据库，数据库名user,在数据库里建表1~表4，表1Bookinfo为存放图书信息表，表2certificateinfo证件表为证件表，表3LOAN图书租借表，表4SET系统设置表，表如下：

表1Bookinfo

字段名

意义

数据类型

宽度

Null

PrimaryKey

BookID

图书编号

Char

√

ISBN

ISBN书号

Char

Yse

Title

书名

Char

Yse

Publish

出版日期

Char

Yse

Author

作者

Char

Yse

Words

字数（千字）

Integer

Yse

PublisherID

出版社ID

Char

Yse

Number

印刷册数

Char

Yse

Price

定价

Money

Yse

Keyword

关键字

Char

Yse

Abstract

摘要

Varchar

400

Yse

表2certificateinfo

字段名

意义

数据类型

宽度

Null

PrimaryKey

Cert_id

借书证书ID

Char

√

Cert_name

证件名称

Char

Yes

Cert_value

证件号码

Char

Yes

Name

姓名

Char

Yes

Depart

所在部门

Char

Yes

flag

标记

Tinyint

Yes

表3LOAN

表4SET

1．创建菜单

创建一个菜单，菜单名为caidan,所有窗口在菜单中实现。

2．创建窗口对象

登陆界面

（1）主界面：

创建一个新的弹出式窗口对象,Title为“图书管理系统”关联菜单“caidan”

界面如下：

（2）图书管理：

a.新书录入界面：

创建一个新的弹出式窗口对象，

（1）布置窗口中的静态文本控件

窗口中只有一个标题使用静态文本控件，在窗口控件下拉列表工具栏图标中选择静态文本控件，然后在窗口上单击，生成静态文本控件。

在Text属性栏中输入“新书录入”。

（2）布置窗口中的单行编辑框控件

在窗口控件下拉列表工具栏图标中选择单行编辑框控件，然后在窗口上单击，生成单行编辑框控件。

使用Ctrl和T组合键进行外观复制生成5个单行编辑框。

单行编辑框的名称

控件名称

说明字段

Sle_bookid

图书编号

Sle_isbn

ISBN书号

Sle_publish

书名

Sle_author

作者

Sle_words

字数

Sle_publisberid

出版社ID

Sle_number

印刷册数

Sle_price

定价

Sle_keyword

关键字

Sle_abstract

摘要

（3）布置窗口中的多行编辑框控件

在窗口控件下拉列表工具栏图标中选择多行编辑框控件，然后在窗口上单击，生成多行编辑框控件。

其名称Name为“dw_abstract”，选中Hscrollbar和Vscrollbar。

多行编辑框控件用于输入摘要。

（4）布置窗口中的“确定”按钮控件

在窗口控件下拉列表工具栏图标中选择命令按钮控件，然后在窗口上单击，生成命令按钮控件。

窗口中共有两个命令按钮控件，设置一个按钮的Text属性为“确定”，名称为cb_ok．选中default属性。

“确定”按钮的Clicked事件脚本为；

stringstr_BookId,str_ISBN,str_Title,str_Author,str_PublisherID,str_Keyword,str_Abstract

longI_Words,I_price,i,I_Number,Flag1

datestr_Publish

ifsle_bookid.text=""thenreturnmessagebox（"缺少数据","请输入图书编号"）

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）

I_Words=long（sle_words.text）

I_Price=long（sle_price.text）

Flag1=0

selectBookID

into:

fromBookInfo

whereBookID=:

str_BookId;

ifi<>0thenmessagebox（"书号重复","书号重复，请重新输入！

"）

INSERTINTO"BookInfo"

（"BookID",

"ISBN",

"Title",

"Publish",

"Author",

"Words",

"PublisherID",

"Number",

"Keyword",

"Abstract",

"Price",

"Flag"）

VALUES

（:

str_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_keyword.text=""

mle_abstract.text=""

sle_words.text=""

sle_price.text=""

sle_bookid.setfocus（）

（3）关联新书录入窗口m到菜单中

打开创建主菜单选择新书录入菜单，添加事件的脚本为：

open（m）

（4）具体界面如下：

b.旧书销毁界面：

创建一个新的弹出式窗口对象

（1）布置窗口中的静态文本控件

窗口中只有一个标题使用静态文本控件，在窗口控件下拉列表工具栏图标中选择静态文本控件，然后在窗口上单击，生成静态文本控件。

在Text属性栏中输入“旧书销毁”。

（2）按书号检索

按书号查询的数据窗口对象是一个条件查询的数据窗口，其设计步骤为：

l）单击New图标按钮，弹出“New”对话框；

2）选择DataWindow选项页，双击FreeForm图标，弹出“ChooseDataSourceforFreeFormDataWindow”对话框；

3）选择“SQLSelect”数据源方式，单击“Next”按钮，弹出“SelectTable”对话框；

4）在Table列表框中选择student表，单击“Open”按钮，这时弹出Select画板；

5）单击菜单Design∣RetrievalArguments…弹出SpecifyRetrievalArguments”对话框，在Name栏中输入ls_name，在Type下拉列表框中选择String，单击“OK”按钮，对话框关闭：

6）在Select画板的TableLayout子窗口中的表框中列出了student表的全部字段的名称，每单击一个字段，该字段就变为蓝底白字，表示选中，同时，会在上面的“SelectionList：

”区域中排列出该宇段。

如果单击选中的字段，就会变为不被选中，该字段从上面的排列中消失。

单击每一个字段，将全部字段选中；

7）在Select画板的Where子窗口中单击Colunm栏，右边出现一个“▼”符号，单击“▼”按钮，弹出student表的所有字段，选择“student”.“name”，在右边的Value栏中，单击右键，选择弹出菜单中的“Arguments...”，弹出一个小窗口，内部有刚才定义的变量“：

Is_name”，单击选中它，单击“Paste”按钮，“：

ls_name”就出现在Value栏中。

8）单击“Return”图标按钮，弹出“SelectColorlBorderSettings”对话枢，单击“Next”按钮，弹出“ReadytoCreateFreeFormDataWindow”对话框。

，该对话框对数据窗口对象的主要属性进行了小结。

单击“Finish”按钮，弹出“SpecifyRetrievalArguments”对话框，要求对检索变量ls_name进行赋值，以便对数据库进行数据检索，并将检索结果放到Preview子窗口中。

可以在Value栏中输人一个姓名后按“OK”键进行检索，也可以按“Cancel”键不进行检索，然后进入数据窗口对象画板。

9）在数据窗口对象画板中，将字段名称改为中文，调整字段的位置和大小，设置文字颜色、背景颜色和字段边框；

10）选择菜单Edit∣Select∣SelectColunms，将所有字段全部选中，然后在Properties属性卡中选择Edit页，选中“DisplayOnly”复选框，不选中“AutoSelection”复选框；

11）保存数据窗口对象名称为d1。

（4）编写脚本：

在“查询”按钮的Clicked事件脚本为；

stringstr_bookid

str_bookid=trim（sle_bookid.text）

ifnotstr_bookid=""then

dw_bookid.retrieve（str_bookid）

else

MessageBOX（"数据不全","请输入待删除的书名。

"）

endif

sle_bookid.setFocus（）

在“确定销毁”按钮的Clicked事件脚本为；

stringstr_bookid

longi

str_bookid=trim（sle_bookid.text）

delete

from"BookInfo"

whereBookID=:

str_bookid;

dw_bookid.retrieve（str_bookid）

selectBookID

into:

from"BookInfo"

whereBookID=:

str_bookid;

ifi=0thenmessagebox（"提示",string（str_bookid）+"的信息已经不存在"）

sle_bookid.text=""

（5）关联新书录入窗口n到菜单中

打开创建主菜单选择旧书销毁菜单中，添加事件的脚本为：

open（n）

（6）具体界面如下：

（4）图书查询：

图书查询包括两个查询：

按书名查询，按日期查询。

（这里只写按书名查询详细步骤，按日期查询和按书名查询功能一样，略之）

1）设计步骤如下：

创建一个新的弹出式窗口对象。

数据窗口对象选择Grid风格。

增加一个检索参数RetrievalArgument为ls_author，在Select画板的Where子窗口中设计的条件为：

"bookinfo"."author"like:

ls_author

保存数据窗口对象

（2）布置一个静态文本控件，其Text为“按书名查询”，一个单行编辑框，为Name为“sle_author”；一个命令按钮，Text属性为“查询”，选中“Default”复选框；还有一个数据窗口控件，其Name为dw_author”；DataObject为d5,选中HScrollBar和VScrollBar复选框。

保存所做的工作。

（3）编写脚本：

在“确定”按钮的Clicked事件脚本为；

stringstr_title

str_title=trim（sle_title.text）

ifnotstr_title=""then

dw_title.retrieve（str_title）

else

MessageBOX（"数据不全","请输入书名（可以不全）！

"）

endif

sle_title.setFocus（）

在a窗口的Open事件中，再增加数据窗口dw＿author使用数据库的事物对象和初始化的代码:

dw_author.SetTransObject（SQLCA）

（4）关联新书录入窗口m到菜单中

打开创建主菜单选择按作者查询菜单，添加事件的脚本为：

open（a）

两个界面如下：

按书名查询

按日期查询

（5）证件管理：

a.办新证件

创建一个新的弹出式窗口对象，窗口名“student”。

（1）布置窗口中的静态文本控件

窗口中只有一个标题使用静态文本控件，在窗口控件下拉列表工具栏图标中选择静态文本控件，然后在窗口上单击，生成静态文本控件。

在Text属性栏中输入“办新证件”。

2）布置窗口中的单行编辑框控件

在窗口控件下拉列表工具栏图标中选择单行编辑框控件，然后在窗口上单击，生成单行编辑框控件。

使用Ctrl和T组合键进行外观复制生成5个单行编辑框。

单行编辑框的名称

控件名称

说明字段

Sle_cert_id

借书证ID

Sle_cert_value

证件号码

Sle_departy

所在部门

（3）布置窗口中的单选钮和组合框控件

窗口中共有两组单选钮，一组为性别选择，另一组为党团员选择。

性别选择单选钮的设计方法为：

在窗口控件下拉列表工具栏图标中选择组合框控件，然后在窗口上单击，生成组合框控件、再选择单选钮控件，在组合框中单击，生成单选钮控件。

设置其名称为rb_zero，Text为“0”，选中Checked属性；同样再在组合框中放置一个单选钮控件，设置其名称为rb_first，Text为“1”，不选中Checked属性；rb_two，Text为“2”，不选中Checked属性。

（说明：

标记中的0是合法用户能借阅书籍，1是该证已挂失，2是该用户已经在黑名单里。

）

（4）布置窗口中的下拉列表框控件

在窗口控件下拉列表工具栏图标中选择下拉列表框控件，然后在窗口上单击，生成下拉列表框控件。

输入下拉列表框控件名称为ddlb_cert_name，不选中Sorted属性，选中Vscrollbar属性。

单击下拉列表框控件后拖动下边框，调整下拉列表框展开后的长度。

同样输入下拉列表框控件名称为ddlb_departy，不选中Sorted属性，选中Vscrollbar属性。

单击下拉列表框控件后拖动下边框。

（5）布置窗口中的命令按钮控件

在窗口控件下拉列表工具栏图标中选择命令按钮控件，然后在窗口上单击，生成命令按钮控件。

窗口中共有两个命令按钮控件，设置一个按钮的Text属性为“提交”，名称为cb_ok．选中default属性；设置一个按钮的Text属件为“退出”，名称为cb_exit，选中Cancel属性。

（6）编写脚本：

单击选中证件名称下拉列表框控件，选择右键弹出菜单中的Script菜单项，进人SCript子窗口，选择事件下拉列表框中的Constructor事件，输人以下脚本：

this.additem（"教师"）

this.additem（"学生"）

同时在所在部门下拉列表框控件，选择右键弹出菜单中的Script菜单项，进人SCript子窗口，选择事件下拉列表框中的Constructor事件，输人以下脚本：

this.additem（"计算机科学系"）

this.additem（"英语系"）

this.additem（"工商管理系"）

this.additem（"经济系"）

this.additem（"信息管理系"）

this.additem（"艺术系"）

this.additem（"机械系"）

this.additem（"建筑系"）

在“确定”按钮的Clicked事件脚本为；

stringID,depart,name,Cname,Cvalue,Ctype,flag

inti

ID=trim（sle_cert_id.text）

selectCert_id

into:

fromCertificateInfo

whereCert_id=:

ID;

ifi<>0then

messagebox（"重复","借书证ID重复，请重新输入！

"）

sle_cert_id.text=""

sle_cert_id.setfocus（）

return

endif

ifsle_cert_id.text=""then

messagebox（"缺少数据","请输入借书证ID"）

sle_cert_id.setfocus（）

return

elseifsle_name.text=""then

messagebox（"缺少数据","请输入姓名"）

sle_name.setfocus（）

return

endif

ifsle_cert_value.text=""then

messagebox（"缺少数据","请输入证件号"）

return

elseifsle_depart.text=""then

messagebox（"缺少数据","请输入系别或部门"）

return

endif

ifddlb_cert_type.text=""then

messagebox（"缺少数据","请选择借书证类型"）

return

elseifddlb_cert_name.text=""then

messagebox（"缺少数据","请输入证件名称"）

return

endif

name=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_type.text）

flag="0";

insertinto"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（）

在“退出”按钮的Clicked事件脚本为；

close（book_jszzhuce）

（7）关联新书录入窗口student到菜单中

打开创建主菜单到办新证件菜单中，添加事件的脚本为：

open（student）

（8）具体界面如下：

b.证件管理

创建一个新的弹出式窗口对象，窗口名“lose”。

设计步骤如下：

1）首先按借书证ID进行检索，显示出这个人的证件信息，之后设置四个按钮：

确定、挂失、解锁、销毁，之后在每个按钮里输入脚本。

2）编写脚本：

在“确定”按钮的Clicked事件脚本为；

stringID

ID=trim（sle_ID.text）

ifnotsle_ID.text=""then

dw_ID.retrieve（ID）

else

messagebox（"错误","请输入借书证号"）

endif

在“挂失”按钮的Clicked事件脚本为；

stringID

longi

ID=trim（sle_ID.text）

update"CertificateInfo"

set"flag"=1

where"Cert_id"=:

ID;

ifnotsle_ID.text=""then

dw_ID.retrieve（ID）

else

messagebox（"错误","请输入借书证ID"）

endif

在“解锁”按钮的Clicked事件脚本为；

stringID

longi

ID=trim（sle_ID.text）

update"CertificateInfo"

set"flag"=0

where"Cert_id"=:

ID;

ifnotsle_ID.text=""then

dw_ID.retrieve（ID）

else

messagebox（"错误","请输入借书证ID"）

endif

在“销毁”按钮的Clicked事件脚本为；

stringID

longi

ID=trim（sle_ID.text）

delete

from"CertificateInfo"

where"Cert_id"=:

ID;

ifnotsle_ID.text=""then

dw_ID.retrieve（ID）

else

messagebox（"错误","请输入借书证ID"）

endif

在lose窗口的Open事件中，再增加数据窗口dw＿

展开阅读全文