学士学位论文数据库图书借阅管理系统.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.设计方法
图书借阅管理系统
功能：
设计一个图书借阅管理系统。
实现下列功能：
１．图书信息的维护（包括录入，修改和删除）；
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查找信息管理
Optio
升级会员 