数据库图书借阅管理系统本科论文.docx
《数据库图书借阅管理系统本科论文.docx》由会员分享,可在线阅读,更多相关《数据库图书借阅管理系统本科论文.docx(34页珍藏版)》请在冰豆网上搜索。
数据库图书借阅管理系统本科论文
目录
(1)设计目的
(2)
(2)设计要求
设计和实验报告要求
(2)
(3)设计方法
系统功能(3)
(4)总体设计
模块功能说明和源程序(3)
(5)调试与测试(14)
调试方法,测试结果的分析与讨论,测试过程中遇到的主要问题及采取的解决措施
(6)实验总结(15)
1.设计目的:
1、目的:
(1)要求学生达到熟练掌握SQL数据库的基本知识和技能;
(2)基本掌握数据库程序设计的基本思路和方法;
(3)能够利用所学的基本知识和技能,解决简单的程序设计问题。
2.设计要求:
1、模块化程序设计
2、锯齿型书写格式
3、必须上机调试通过
实验报告要求:
1、程序设计组成框图、流程图
2、模块功能说明
3、调试与测试:
调试方法,测试结果的分析与讨论,测试过程中遇到的主要问题及
4、采取的解决措施
5、源程序清单和执行结果(附盘):
清单中应有足够的注释
3.设计方法
图书借阅管理系统
功能:
设计一个图书借阅管理系统。
实现下列功能:
1.图书信息的维护(包括录入,修改和删除);
2.读者信息的维护(包括录入,修改和删除);
3.借阅(借,还)信息的维护(包括借,还信息录入,修改和删除);
4.总体设计
1、程序设计组成框图
2、程序设计流程图
3、模块功能说明
1、frmStar登录界面
OptionExplicit
DimTimesAsInteger
DimADOLoginAsNewADODB.Recordset
PrivateSubbtnCancle_Click()
End
EndSub
PrivateSubbtnOK_Click()
IfLogin(Trim(txtUser.Text),Trim(txtPwd.Text))=TrueThen
UnloadMe
Else
IfMsgBox("输入的用户名称或者口令非法,请重新输入!
",vbInformation+vbYesNo,"非法的操作员口令")=vbYesThen
txtUser.Text=""
txtPwd.Text=""
txtUser.SetFocus
Times=Times+1
Else
End
EndIf
EndIf
EndSub
PrivateSubForm_Load()
ADOLogin.Open"Login",ADOCon,adOpenDynamic,adLockOptimistic,-1
EndSub
PrivateSubForm_Unload(CancelAsInteger)
ADOLogin.Close
EndSub
PrivateSubTimer1_Timer()
IfTimes=3ThenEnd
EndSub
PrivateSubtxtUser_Change()
btnOK.Enabled=True
EndSub
PrivateSubtxtPwd_Change()
btnOK.Enabled=True
EndSub
PrivateFunctionLogin(ByValstrUSERAsString,ByValstrPWDAsString)AsBoolean
IfstrUSER="Administrator"Then
IfstrPWD="Administrator"Then
User="Administrator"
UserPermission="Administrator"
Login=True
ExitFunction
Else
Login=False
EndIf
Else
ADOLogin.MoveFirst
DoUntilADOLogin.EOF
IfstrUSER=ADOLogin.Fields(0).ValueAndstrPWD=ADOLogin.Fields
(2).ValueThen
User=ADOLogin.Fields(0).Value
UserPermission=ADOLogin.Fields
(1).Value
Login=True
ExitFunction
Else
ADOLogin.MoveNext
EndIf
Loop
Login=False
EndIf
EndFunction
2、MDIMain主菜单页面
OptionExplicit
PrivateSubMDIForm_Load()
sbrMain.Panels
(1).Text="当前登陆用户:
"&User&""&"权限:
"&UserPermission
UserPower(UserPermission)
frmReader.AddReader=False
EndSub
PrivateSubmnuAddBook_Click()
frmAddBook.Show
EndSub
PrivateSubmnuBorrowBook_Click()
frmBorrowBook.Show
EndSub
PrivateSubmnuBorrower_Click()
frmBorrower.Show
EndSub
PrivateSubmnuBrowse_Click()
frmBrowse.Show
EndSub
PrivateSubmnuManager_Click()
'MsgBox"Hello"
EndSub
PrivateSubmnuReader_Click()
frmReader.Show
EndSub
PrivateSubmnuReload_Click()
frmLogin.ShowvbModal
sbrMain.Panels
(1).Text="当前登陆用户:
"&User&""&"权限:
"&UserPermission
UserPower(UserPermission)
EndSub
PrivateSubmnuReturnBook_Click()
frmReturnBook.Show
EndSub
PrivateSubmnuShutdomn_Click()
End
EndSub
PrivateSubmnuUserManager_Click()
frmUser.Show
EndSub
PrivateSubtbrMain_ButtonClick(ByValButtonIndexAsInteger,ByValButtonKeyAsString)
SelectCaseButtonKey
Case"BrowseBooks"
frmBrowse.Show
Case"AddBooks"
frmAddBook.Show
Case"BorrowBooks"
frmBorrowBook.Show
Case"ReturnBooks"
frmReturnBook.Show
Case"Reader"
frmReader.Show
Case"Borrower"
frmBorrower.Show
Case"SystemUser"
frmUser.Show
Case"Reload"
frmLogin.ShowvbModal
sbrMain.Panels
(1).Text="当前登陆用户:
"&User&""&"权限:
"&UserPermission
UserPower(UserPermission)
Case"ShutDown"
End
EndSelect
EndSub
PrivateSubUserPower(ByValstrUserPowerAsString)
SelectCasestrUserPower
Case"User"
tbrMain.ButtonEnabled
(2)=False
tbrMain.ButtonEnabled(6)=False
tbrMain.ButtonEnabled(9)=False
mnuAddBook.Enabled=False
mnuUserManager.Enabled=False
mnuReader.Enabled=False
Case"Administrator"
tbrMain.ButtonEnabled
(2)=True
tbrMain.ButtonEnabled(6)=True
tbrMain.ButtonEnabled(9)=True
mnuAddBook.Enabled=True
mnuUserManager.Enabled=True
mnuReader.Enabled=True
CaseElse
tbrMain.ButtonEnabled
(2)=False
tbrMain.ButtonEnabled(6)=False
tbrMain.ButtonEnabled(9)=False
mnuAddBook.Enabled=False
mnuUserManager.Enabled=False
mnuReader.Enabled=False
EndSelect
EndSub
PrivateSubTimer1_Timer()
DimTitleAsString
StaticLAsInteger
Title="图书借阅管理系统"
IfL>Len(Title)ThenL=0
MDIMain.Caption=Mid(Title,1,L)
L=L+1
EndSub
3、frmAddBook添加图书界面
OptionExplicit
PublicADOAddAsNewADODB.Recordset
PrivateSubbtnAdd_Click()
OnErrorGoToLabErr
txtBookID.Enabled=True
txtBookName.Enabled=True
txtBookAuthor.Enabled=True
txtBookConcern.Enabled=True
txtBookPrice.Enabled=True
txtBookDate.Enabled=True
txtBookClass.Enabled=True
txtbookContain.Enabled=True
cmbBookStatus.Enabled=True
txtBookID.BackColor=vbWhite
txtBookName.BackColor=vbWhite
txtBookAuthor.BackColor=vbWhite
txtBookConcern.BackColor=vbWhite
txtBookPrice.BackColor=vbWhite
txtBookDate.BackColor=vbWhite
txtBookClass.BackColor=vbWhite
txtbookContain.BackColor=vbWhite
cmbBookStatus.BackColor=vbWhite
txtBookID.Text=""
txtBookName.Text=""
txtBookAuthor.Text=""
txtBookConcern.Text=""
txtBookPrice.Text=""
txtBookDate.Text=""
txtBookClass.Text=""
txtbookContain.Text=""
'ADOAdd.AddNew
btnSave.Enabled=True
btnAdd.Enabled=False
ExitSub
LabErr:
MsgBox"错误编号:
"&Err.Number&"错误描述:
"&Err.Description,vbCritical+vbOKOnly,"错误提示"
EndSub
PrivateSubbtnClose_Click()
UnloadMe
EndSub
PrivateSubbtnSave_Click()
OnErrorGoToLabErr
IftxtBookID.Text<>""Then
IftxtBookName.Text<>""Then
IftxtBookAuthor.Text<>""Then
IftxtBookConcern.Text<>""Then
IftxtBookPrice.Text<>""Then
IftxtBookDate.Text<>""Then
IftxtBookClass.Text<>""Then
IftxtbookContain.Text<>""Then
IfcmbBookStatus.Text<>""Then
ADOAdd.AddNew
ADOAdd.Fields(0).Value=Trim(txtBookID.Text)
ADOAdd.Fields
(1).Value=Trim(txtBookName.Text)
ADOAdd.Fields
(2).Value=Trim(txtBookAuthor.Text)
ADOAdd.Fields(3).Value=Trim(txtBookConcern.Text)
ADOAdd.Fields(4).Value=Trim(txtBookPrice.Text)
ADOAdd.Fields(5).Value=Trim(txtBookDate.Text)
ADOAdd.Fields(6).Value=Trim(txtBookClass.Text)
ADOAdd.Fields(7).Value=Trim(txtbookContain.Text)
ADOAdd.Fields(8).Value=Trim(cmbBookStatus.Text)
ADOAdd.Update
CallSynData
txtBookID.Text=""
txtBookName.Text=""
txtBookAuthor.Text=""
txtBookConcern.Text=""
txtBookPrice.Text=""
txtBookDate.Text=""
txtBookClass.Text=""
txtbookContain.Text=""
txtBookID.BackColor=vbScrollBars
txtBookName.BackColor=vbScrollBars
txtBookAuthor.BackColor=vbScrollBars
txtBookConcern.BackColor=vbScrollBars
txtBookPrice.BackColor=vbScrollBars
txtBookDate.BackColor=vbScrollBars
txtBookClass.BackColor=vbScrollBars
txtbookContain.BackColor=vbScrollBars
cmbBookStatus.BackColor=vbScrollBars
txtBookID.Enabled=False
txtBookName.Enabled=False
txtBookAuthor.Enabled=False
txtBookConcern.Enabled=False
txtBookPrice.Enabled=False
txtBookDate.Enabled=False
txtBookClass.Enabled=False
txtbookContain.Enabled=False
cmbBookStatus.Enabled=False
btnSave.Enabled=False
btnAdd.Enabled=True
Else
MsgBox"请选择图书的当前状态为:
IN",vbInformation+vbOKOnly,"信息不完整"
cmbBookStatus.SetFocus
EndIf
Else
MsgBox"请输入简单图书描述信息",vbInformation+vbOKOnly,"信息不完整"
txtbookContain.SetFocus
EndIf
Else
MsgBox"清输入图书的类别信息",vbInformation+vbOKOnly,"信息不完整"
txtBookClass.SetFocus
EndIf
Else
MsgBox"请按年-月-日格式输入图书购买的时间信息",vbInformation+vbOKOnly,"信息不完整"
txtBookDate.SetFocus
EndIf
Else
MsgBox"请输入图书的价格",vbInformation+vbOKOnly,"信息不完整"
txtBookPrice.SetFocus
EndIf
Else
MsgBox"请输入图书的出版社",vbInformation+vbOKOnly,"信息不完整"
txtBookConcern.SetFocus
EndIf
Else
MsgBox"请输入图书的作者名称",vbInformation+vbOKOnly,"信息不完整"
txtBookAuthor.SetFocus
EndIf
Else
MsgBox"请输入图书的名称",vbInformation+vbOKOnly,"信息不完整"
txtBookName.SetFocus
EndIf
Else
MsgBox"请输入图书编号(唯一标识)",vbInformation+vbOKOnly,"信息不完整"
txtBookID.SetFocus
EndIf
ExitSub
LabErr:
MsgBox"错误编号:
"&Err.Number&"错误描述:
"&Err.Description,vbCritical+vbOKOnly,"错误提示"
txtBookID.Text=""
txtBookID.SetFocus
EndSub
PrivateSubForm_Load()
SetADOAdd=Nothing
ADOAdd.Open"Books",ADOCon,adOpenDynamic,adLockOptimistic,-1
SetFlex.DataSource=ADOAdd
Callinitial
frmAddBookLoad=True
EndSub
PrivateSubForm_Unload(CancelAsInteger)
IfbtnAdd.Enabled=TrueThen
ADOAdd.Close
EndIf
frmAddBookLoad=False
EndSub
PrivateSubinitial()
Flex.ColWidth(0)=100
Flex.ColWidth
(1)=800
Flex.ColWidth
(2)=2000
Flex.ColWidth(3)=900
Flex.ColWidth(4)=2000
Flex.ColWidth(5)=800
Flex.ColWidth(6)=900
Flex.ColWidth(7)=1000
Flex.ColWidth(8)=2000
Flex.ColWidth(9)=800
Flex.Col=1
Flex.Sort=1
cmbBookStatus.AddItem"IN"
cmbBookStatus.AddItem"OUT"
EndSub
4、frmBorrower借阅者信息界面
OptionExplicit
PublicADOBbkAsNewADODB.Recordset
PrivateSubinitial()
Flex.ColWidth(0)=100
Flex.ColWidth
(1)=1000
Flex.ColWidth
(2)=1000
Flex.ColWidth(3)=1000
Flex.ColWidth(4)=2000
Flex.ColWidth(5)=1200
Flex.ColWidth(6)=1000
Flex.ColWidth(7)=1500
Flex.Col=1
Flex.Sort=1
EndSub
PrivateSubbtnClose_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
IffrmReturnBookLoad=FalseAndfrmBorrowBookLoad=FalseThen
SetADOBbk=Nothing
ADOBbk.Open"BorrowBook",ADOCon,adOpenDynamic,adLockOptimistic,-1
SetFlex.DataSource=ADOBbk
Else
SetFlex.DataSource=ADOBbk
EndIf
Callinitial
frmBorrowerLoad=True
EndSub
PrivateSubForm_Unload(CancelAsInteger)
IffrmBorrowBookLoad=FalseAndfrmReturnBookLoad=FalseThen
ADOBbk.Close
EndIf
frmBorrowerLoad=False
EndSub
5、frmBorrowBook查找信息管理
Option