Oracle10g数据库应用教程图书借阅管理系统

1、Oracle 10g数据库应用教程 授课教师：职务：第12章 图书借阅管理系统课程描述很多学校和单位都有自己的图书馆或阅览室，需要管理大量的图书和期刊杂志。图书借阅管理系统可以有效地管理图书资源，控制图书借阅的流程，对图书馆或阅览室的管理有很大的益处。本章将讲述如何使用Visual Basic + Oracle开发图书借阅管理系统。此实例具有很强的实用性，可以帮助读者更方便地了解开发Oracle数据库应用程序的过程。本章知识点图书借阅管理系统总体设计图书借阅管理系统各模块详细设计开发Visual Basic + Oracle数据库应用系统的完整过程12.1 系统总体设计系统功能描述创立数据库用

2、户数据库表结构设计系统功能描述创立数据库用户 - 创立用户 CREATE USER BOOKMAN IDENTIFIED BY BOOKMAN DEFAULT TABLESPACE USERS TEMPORARY TABLESPACE TEMP;- 设置角色权限 GRANT CONNECT TO BOOKMAN;GRANT RESOURCE TO BOOKMAN;- 设置系统权限 GRANT UNLIMITED TABLESPACE TO BOOKMAN;数据库表结构设计表BookType- 创立表BookType CREATE TABLE BOOKMAN.BookType (TypeIdNu

3、mber Primary Key, TypeName Varchar2(50) NOT NULL, Describe Varchar2(400), UpperIdNumber );编号字段名称数据结构说 明1TypeIdNumber分类编号2TypeNameVarchar2 50分类名称3DescribeVarchar2 400描述信息4UpperIdNumber上级分类的编号数据库表结构设计表BookInfo - 创立表BookInfoCREATE TABLE BOOKMAN.BookInfo (BookNoVarchar2(50) Primary Key, BookNameVarchar2

4、(50) NOT NULL, AuthorVarchar2(50) NOT NULL, PublisherVarchar2(50), PtimesVarchar2(50), BpriceNumber(8,2), BtypeNumber, TotalNumNumber, );编号字段名称数据结构说 明1BookNoVarchar2 50书号2BookNameVarchar2 50图书名称3AuthorVarchar2 50作者4PublisherVarchar2 50出版社5PtimesVarchar2 50版次6BpriceNumber( 8, 2)价格7BtypeNumber图书分类8Tot

5、alNumNumber当前库存数据库表结构设计表StoreIn- 创立表StoreInCREATE TABLE BOOKMAN.StoreIn (StoreIdVarchar2(50) Primary Key, BookNoVarchar2(50) NOT NULL, BookNumNumber NOT NULL, StorePosVarchar2(200), EmpNameVarchar2(50), OptDateChar(10) );编号字段名称数据结构说 明1StoreIdVarchar2 50入库编号2BookNoVarchar2 50书号3BookNumNumber入库数量4Stor

6、ePosVarchar2 200图书存放位置5EmpNameVarchar2 50经办人6OptDateChar 10入库日期数据库表结构设计表Books- 创立表BooksCREATE TABLE BOOKMAN.Books (BookNoVarchar2(50) Primary Key, BookNumNumber NOT NULL, CountNumNumber, EmpNameVarchar2(50), CountDateChar(10) );编号字段名称数据结构说 明1BookNoVarchar2 50书号2BookNumNumber图书原始数量3CountNumNumber图书盘点

7、数量4EmpNameVarchar2 50盘点人5CountDateChar 10盘点日期数据库表结构设计表Cards- 创立表CardsCREATE TABLE BOOKMAN.Cards (CardnoVarchar2(50) Primary Key, DepName Varchar2(50) NOT NULL, EmpNameVarchar2(50), IdcardVarchar2(50), CreateDateChar(10), FlagNumber(1) );编号字段名称数据结构说 明1CardnoVarchar2 50借阅证编号2DepNameVarchar2 50所属部门3Emp

8、NameVarchar2 50员工姓名4IdcardVarchar2 50有效证件号码5CreateDateChar 10发证日期6FlagNumber 1挂失标记数据库表结构设计表Cards- 创立表BorrowCREATE TABLE BOOKMAN.Borrow (BidNumber Primary Key, BookNoVarchar2(50) NOT NULL, CardnoVarchar2(50) NOT NULL, BdateChar(10), RdateChar(10), RRdateChar(10), ForfeitNumber(8,2), FlagNumber(1) );编

9、号字段名称数据结构说 明1BidNumber编号2BookNoVarchar2 50书号3CardnoVarchar2 50借阅证编号4BdateChar 10借出日期5RdateChar 10应归还日期6RRDateChar 10实际归还日期 / 挂失日期7ForfeitNumber (8,2)超期罚款金额8FlagNumber(1)借阅标记（0-借阅，1-续借，2-归还，3-挂失）数据库表结构设计表Users- 创立表UsersCREATE TABLE BOOKMAN.Users ( UserNameVarchar2(50) Primary Key, UserPwdVarchar2(50)

10、 NOT NULL );INSERT INTO BOOKMAN.Users VALUES(Admin, Admin)编号字段名称数据结构说 明1UserNameVarchar2 50用户名2UserPwdVarchar2 50密码12.2 设计工程框架创立工程添加模块添加类模块创立工程首先需要创立工程存储的目录。运行Visual Basic 12.0主程序，并选择新建“标准EXE工程。新建工程后，在Visual Basic窗口中有一个缺省的窗体Form1，在此根底上设计系统的主界面。选择“工程菜单中的“工程1属性命令，在“工程属性对话框中，将工程名设置为Books。单击“保存按钮，将工程存储为

11、Books.vbp，将Form1窗体保存为FrmMain.frx。添加模块Const 用来管理工程中的常量；DbFunc 用来管理工程中与数据库操作相关的声明、变量和函数；GeneralFunc 用来管理工程中一些通用的自定义函数；Variable 用来管理工程中的全局变量。添加类模块BookType类的成员函数函数名具体说明Init初始化成员变量Delete删除指定的图书分类记录。参数TmpId表示要删除的图书类型编号GetId根据指定的图书分类名称，读取图书分类编号。参数TmpName表示指定的分类名称GetInfo读取指定的图书分类记录。参数TmpId表示要读取的图书分类编号GetNam

12、e根据指定的图书分类编号，读取图书分类名称。参数TmpId表示指定的图书分类编号GetNewId生成新记录的图书分类编号HaveSon判断指定的图书分类是否存在下一级分类。参数TmpUpperId表示指定的图书分类编号In_DB判断指定的图书分类名称是否已经在数据库中。参数TypeName表示指定的分类名称Insert插入新的图书分类记录Load_by_Upper读取指定图书分类的所有子分类。参数UpperId表示指定的图书分类的编号Update修改指定的图书分类记录。参数TmpId表示要修改的图书分类的编号表12.8 BookType类的成员函数添加类模块 BookInfo类的成员函数函数名

13、具体说明Init初始化成员变量Delete删除指定的图书信息记录。参数TmpBookNo表示要删除的图书信息编号GetInfo读取指定的图书信息记录。参数TmpBookNo表示要读取的图书信息编号GetName根据指定的图书编号，读取图书信息名称。参数TmpBookNo表示指定的图书信息编号GetNo根据指定的图书名称，读取图书信息编号。参数TmpName表示指定的图书名称GetTotalNum返回指定图书的库存数量In_DB判断指定的图书名称是否已经在数据库中。参数TmpBookName表示指定的图书名称Insert插入新的图书信息记录Update修改指定的图书信息记录。参数OriBookN

14、o表示要修改的图书编号UpdateStoreNum图书入库时，更改指定图书的基本库存数量。参数OriBookNo表示要修改的图书编号，addNum表示入库的图书数量UpdateTotalNum图书盘点时，更改指定图书的库存数量。参数OriBookNo表示要修改的图书编号，CountNum表示入库的图书数量添加类模块StoreIn类的成员函数函数名具体说明Init初始化成员变量HaveBook判断入库记录中是否包含指定的图书信息。参数TmpBookNo表示指定的图书编号GetInfo读取指定的入库记录。参数TmpStoreId表示要读取的入库记录编号Insert插入新的入库信息记录添加类模块Bo

15、ok类的成员函数函数名具体说明Init初始化成员变量Delete删除指定的库存图书记录。参数TmpNo表示要删除的图书编号GetNum读取指定图书的库存数量。参数TmpNo表示图书编号In_DB判断指定的图书是否已经在库存中。参数TmpNo表示图书编号Insert插入新的库存图书记录添加类模块 Cards类的成员函数函数名具体说明Init初始化成员变量Delete删除指定的借阅证记录。参数TmpNo表示要删除的借阅证编号GetFlag读取指定借阅证的挂失标记。参数TmpNo表示指定的借阅证编号GetInfo读取指定的借阅证记录。参数TmpNo表示要读取的借阅证编号Insert插入新的借阅证记录

16、Update修改指定的借阅证记录。参数TmpNo表示要修改的借阅证编号UpdateFlag更改借阅证的挂失状态。参数TmpNo表示要修改的借阅证编号，参数FlagNum表示挂失状态添加类模块Borrow类的成员函数函数名具体说明Init初始化成员变量Delete删除指定的借阅记录。参数TmpId表示要删除的借阅编号GetInfo读取指定的借阅记录。参数TmpId表示要读取的借阅编号GetNewId生成新记录的借阅信息编号Insert插入新的借阅记录Update修改指定的借阅记录。参数TmpId表示要删除的借阅编号UpdateFlag更新借阅标志。0表示借阅，1表示续借，2表示归还，3表示挂失U

17、pdateLost更新图书挂失罚款记录及日期UpdateReturn更新图书归还日期添加类模块Users类的成员函数函数名具体说明Init初始化成员变量Delete删除指定的用户记录。参数TmpUser表示要删除的用户名GetInfo读取指定的记录。参数TmpUser表示要读取数据的用户名In_DB判断指定的用户名是否已经在数据库中。参数TmpUsers表示用户名Insert插入新的用户记录Update修改指定的用户记录。参数TmpUser表示要修改的用户名12.3 系统主界面和登录模块设计设计主界面 设计登录模块主界面主界面窗体的属性窗体属性设置值具体说明名称FrmMain设置窗体名称Bor

18、derStyle1 Fixed Single设置窗体的边框属性Caption图书借阅管理系统窗体的标题条文本MaxButtonTrue取消最大化按钮MinButtonTrue激活最小化按钮PictureImgMain.jpg设置窗体背景StartUpPosition2 屏幕中心设置窗体弹出时，位置在屏幕中心登录窗体12.4 图书分类管理模块设计使用TreeView控件管理图书分类的方法设计图书分类信息编辑窗体设计图书分类信息管理窗体设计图书分类选择窗体添加控件 设计图书分类信息编辑窗体设计图书分类信息管理窗体 设计图书分类选择窗体窗体名为FrmBookTypeSel12.5 图书信息管理模块设计设计图书信息编辑窗体设计图书信息管理窗体设计图书选择窗体设计图书信息编辑窗体图书信息编辑窗体可以用来添加和修改图书的根本信息，窗体名称为FrmBookInfoEdit.设计图书信息管理窗体图书根本信息管理窗体的名称为FrmBookInfo。设计图书选择窗体在图书借阅时，需要选择图书，选择图书窗体的名称为FrmBookSel。12.6 图书库存管理模块设计设计图书库存编辑模块设计图书库存管理模块设计库存盘点编辑模块设计库存盘点管理模块设计图书库存编辑模块创立一个新窗体，窗