VB实验3简易信息管理系统的设计与实现

广州大学学生实验报告开课学院及实验室：电子信息楼617日期：2013年12月19学院机械与电气工程年级、专业、班电信112姓名孔志荣学号1107400052实验课程名称VB实验成绩实验项目名称实验三：简易信息管理系统的设计与实现。指导老师系统框架设计部分图书馆需要管理其各种人员和图书信息，希望实现办公的信息化，通过建立一个图书管理系统来管理图书。其完成的功能如下:(1)可以实现图书的登记、借阅管理。(2)可以实现对图书及读者的各种信息的查询，包括逐个浏览，以及对图书及读者信息的增加、删除和编辑操作。系统设计部分；数据流图1．图书管理模块登陆信息事务管理员身份验证事务分析图书管理D1用户表图书类别管理图书信息管理添加编辑查询添加图书类别编辑图书类别图书信息图书信息图书信息图书类别信息图书类别信息图书信息图书信息图书信息D2图书类别D2图书类别D3书籍信息2．读者管理模块登陆信息事务管理员身份验证事务分析读者管理D1用户表读者类别管理读者信息管理添加编辑查询添加读者类别编辑读者类别读者信息读者信息读者信息读者类别信息读者类别信息读者信息读者信息读者信息D4读者类别D4读者类别D5读者信息3．图书借阅管理模块登陆信息事务管理员身份验证事务分析图书借阅管理D1用户表借书管理还书管理添加添加借书信息查询借书信息还书信息还书信息还书信息借书信息借书信息借书信息借书信息借书信息还书信息D6借阅信息D3书籍信息D5读者信息名字：登陆信息别名：使用地点与方式：输入内容描述：登陆信息＝用户名＋密码附加信息：名字：图书类别信息别名：使用地点与方式：输入，本地选择内容描述：图书类别信息＝图书类别＋类别编号附加信息：状态转换图系统设计部分；主窗体代码在本项目中，子菜单事件都是Click事件PrivateSubabout_Click()Form1.ShowEndSub确定身份验证do/输入用户名和密码取消名或密码错误用户名或密码正确用户图书管理系统do/选择功能选择图书管理图书管理选择读者管理借阅管理选择图书读者管理图书借阅管理关于do/对图书信息进行操作do/对读者信息进行操作do/对图书借阅情况进行操作版本完成操作退出名字：图书信息别名：使用地点与方式：输入，本地选择内容描述：图书信息＝图书编号＋书名＋类别+作者+出版社+出版日期+登记日期+是否被借出附加信息：名字：读者类别信息别名：使用地点与方式：输入，本地选择内容描述：读者类别信息＝种类名称+借书数量+借书期限+有限期限附加信息：名字：读者信息别名：使用地点与方式：输入，本地选择内容描述：读者类别信息＝读者姓名+读者编号+性别+读者类别+工作单位+家庭住址+电话号码+登记日期+已借书数量附加信息：名字：借书信息别名：使用地点与方式：输入，本地选择内容描述：借书信息=[图书编号|书名|类别|作者|出版社]附加信息：名字：还书信息别名：使用地点与方式：输入，本地选择内容描述：借书信息=[图书编号|书名|读者编号|读者姓名]附加信息：PrivateSubcxdz_Click()frmfindreaderinfo.ShowEndSubPrivateSubcxjx_Click()frmfindborrowinfo.ShowEndSubPrivateSubcxtx_Click()frmfindbookinfo.ShowEndSubPrivateSubexit_Click()UnloadMeEndSubPrivateSubprintinfor_Click()DataReport1.ShowEndSubPrivateSubscdx_Click()frmmodifyreaderinfo.ShowEndSubPrivateSubscdz_Click()frmmodifyreaderstyle.ShowEndSubPrivateSubtjdx_Click()frmaddreaderinfo.ShowEndSubPrivateSubtjdz_Click()frmaddreaderstyle.ShowEndSubPrivateSubtjgy_Click()frmadduser.ShowEndSubPrivateSubtjhx_Click()frmbackbookinfo.ShowEndSubPrivateSubtjjx_Click()frmfindbookinfo.ShowEndSubPrivateSubtjts_Click()frmaddbookstyle.ShowEndSubPrivateSubtjtx_Click()frmaddbookinfo.ShowEndSubPrivateSubxgdx_Click()frmmodifyreaderinfo.ShowEndSubPrivateSubxgdz_Click()frmmodifyreaderstyle.ShowEndSubPrivateSubxgtu_Click()frmmodifystyle.ShowEndSubPrivateSubxgtx_Click()frmmodifybookinfo.ShowEndSub2、创建各子窗体在此只创建读者信息管理模块添加读者信息模块：PrivateSubcommand1_Click()Dimrs_addreaderAsNewADODB.RecordsetDimconnAsNewADODB.ConnectionDimsqlAsStringIfTrim(Combo1.Text)=ThenMsgBox请选择读者类别,vbOKOnly+vbExclamation,Combo1.SetFocusExitSubEndIfIfTrim(Text1.Text)=ThenMsgBox读者姓名不能为空,vbOKOnly+vbExclamation,Text1.SetFocusExitSubEndIfIfTrim(Text2.Text)=ThenMsgBox读者编号不能为空,vbOKOnly+vbExclamation,Text2.SetFocusExitSubEndIfIfNotIsDate(Text6.Text)ThenMsgBox请按照yyyy-mm-dd格式输入登记日期,vbOKOnly+vbExclamation,Text6.SetFocusExitSubEndIfIfTrim(Combo2.Text)=ThenMsgBox请选读者性别,vbOKOnly+vbExclamation,Combo2.SetFocusExitSubEndIfconn.Openprovider=Microsoft.Jet.OLEDB.4.0;datasource=&App.Path&\database.mdbsql=select*from读者信息where读者编号='&Text2.Text&'rs_addreader.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_addreader.EOFThenrs_addreader.AddNewrs_addreader.Fields(0)=Trim(Text1.Text)rs_addreader.Fields(1)=Trim(Text2.Text)rs_addreader.Fields(2)=Trim(Combo2.Text)rs_addreader.Fields(3)=Trim(Combo1.Text)rs_addreader.Fields(4)=Trim(Text3.Text)rs_addreader.Fields(5)=Trim(Text4.Text)rs_addreader.Fields(6)=Trim(Text5.Text)rs_addreader.Fields(7)=Trim(Text6.Text)rs_addreader.Fields(8)=0rs_addreader.UpdateMsgBox添加读者信息成功!,vbOKOnly,rs_addreader.CloseElseMsgBox读者编号重复!,vbOKOnly+vbExclamation,Text2.SetFocusrs_addreader.CloseExitSubEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Dimrs_leibieAsNewADODB.RecordsetDimconnAsNewADODB.ConnectionDimsqlAsStringProvider=Microsoft.Jet.OLEDB.3.5.1;PersistSecurityInfo=false;datasource=D:\图书管理系统\database.mdbconn.Openprovider=Microsoft.Jet.OLEDB.4.0;datasource=&App.Path&\database.mdbsql=select*from读者类别rs_leibie.Opensql,conn,adOpenKeyset,adLockPessimisticrs_leibie.MoveFirstDoWhileNotrs_leibie.EOFCombo1.AddItemrs_leibie.Fields(0)rs_leibie.MoveNextLooprs_leibie.CloseCombo2.AddItem男Combo2.AddItem女EndSub查询读者信息模块：代码：PrivateSubcommand1_Click()Dimrs_findreaderAsNewADODB.RecordsetDimconnAsNewADODB.ConnectionDimsqlAsStringIfCheck1.Value=vbCheckedThensql=读者编号='&Trim(Text1.Text&)&'EndIfIfCheck2.Value=vbCheckedThenIfTrim(sql)=Thensql=读者姓名='&Trim(Text2.Text&)&'Elsesql=sql&and类别='&Trim(Text2.Text&)&'EndIfEndIfIfCheck3.Value=vbCheckedThenIfTrim(sql)=Thensql=读者类别='&Trim(Combo1.Text&)&'Elsesql=sql&and读者类别='&Trim(Combo1.Text&)&'EndIfEndIfconn.Openprovider=Microsoft.Jet.OLEDB.4.0;datasource=&App.Path&\database.mdbIfTrim(sql)=ThenMsgBox请选择查询方式!,vbOKOnly+vbExclamationExitSubEndIfsql=select*from读者信息where&sqlrs_findreader.CursorLocation=adUseClientrs_findreader.Opensql,conn,adOpenKeyset,adLockPessimisticDataGrid1.AllowAddNew=FalseDataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=FalseIfrs_findreader.RecordCount=0ThenMsgBox查询不到该图书信息!,vbOKOnly+vbExclamationElseSetDataGrid1.DataSource=rs_findreaderEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Dimrs_findAsNewADODB.RecordsetDimconnAsNewADODB.ConnectionDimsqlAsStringsql=select*from读者类别conn