《VB实验3简易信息管理系统的设计与实现》由会员分享，可在线阅读，更多相关《VB实验3简易信息管理系统的设计与实现（7页珍藏版）》请在金锄头文库上搜索。
1、广州大学学生实验报告添加读者类别编辑读者类别、土/宀 H-t、土/宀 H-t 、土/宀 H-t读者信息 读者信息 读者信息读者类别信息开课学院及实验室：电子信息楼617日期：2013年12月19读者类别信息、土/亠读者信息号卄/亠白 址者信息、土 /亠亡 读者信息学院实验课程 名称 实验项目 名称机械与电气工程年级、专业、班VB实验电信112姓名孔志荣学号 1107400052D4读者类别D4读者类别D5读者信息成绩3.图书借阅管理模块实验三：简易信息管理系统的设计与实现。指导老师系统框架设计部分图书馆需要管理其各种人员和图书信息，希望实现办公的信息化，通过建立一个图书管理系统来 管理图书。其
2、完成的功能如下：(1) 可以实现图书的登记、借阅管理。(2) 可以实现对图书及读者的各种信息的查询，包括逐个浏览，以及对图书及读者信息的增加、 删除和编辑操作。系统设计部分；数据流图1.图书管理模块登陆信息管理员图书管理编辑加图书类别辑图书类别图书类别信息图书类别信D2图书类别D2图书类别D3书籍信息添加 书信息查询事务判.身份验证D1 F冃户表事务分析图书类别管理图书信息管理书信息图书信息书信息图书信息名字：登陆信息别名：使用地点与方式：输入内容描述:登陆信息二用户名+密码附加信息：名字：图书类别信息别名：使用地点与方式：输入，本 地选择内容描述：图书类别信息二 图书类别+类别 编号附加信息
3、：名字：图书信息名字：读者类别信息别名：别名：使用地点与方式：输入，本地选使用地点与方式：输入，本地选择择内容描述：图书信息二图书编号内容描述：读者类别信息一种类+书名+类别+作者名称+借书数量+借+出版社+出版日期+书期限+有限期限登记日期+是否被借附加信息：出附加信息：确定取消身份验证do/输入用户 名和密码名或密码错误用户完成操作名或密码正确用户图书管理系统do/选择功能k退名字：读者信息别名：使用地点与方式：输入，本地选 择内容描述：读者类别信息二读者 姓名+读者编号+性 别+读者类别+工作 单位+家庭住址+电 话号码+登记日期+ 已借书数量附加信息：名字：还书信息别名：使用地点与方式
4、：输入，本 地选择内容描述：借书信息=图书 编号I书名|读者 编号I读者姓名 附加信息：名字：借书信息别名：使用地点与方式：输入，本 地选择内容描述：借书信息=图书 编号|书名|类别| 作者|出版社 附加信息：系统设计部分;状态转换图主窗体代码在本项目中，子菜单事件都是Click事件Private Sub about_Click()Forml.ShowEnd SubEnd SubPrivate Sub tjjx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub tjts_Click() frmaddbookstyle.ShowEnd SubPriva
5、te Sub tjtx_Click() frmaddbookinfo.ShowEnd SubPrivate Sub xgdx_Click()frmmodifyreaderinfo.ShowEnd SubPrivate Sub xgdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub xgtu_Click() frmmodifystyle.ShowEnd SubPrivate Sub xgtx_Click() frmmodifybookinfo.ShowEnd Sub2、创建各子窗体在此只创建读者信息管理模块 添加读者信息模块：Privat
6、e Sub cxdz_Click() frmfindreaderinfo.ShowEnd SubPrivate Sub cxjx_Click()frmfindborrowinfo.ShowEnd SubPrivate Sub cxtx_Click() frmfindbookinfo.ShowEnd SubPrivate Sub exit_Click()Unload MeEnd SubPrivate Sub printinfor_Click() DataReportl.ShowEnd SubPrivate Sub scdx_Click() frmmodifyreaderinfo.ShowEnd
7、SubPrivate Sub scdz_Click() frmmodifyreaderstyle.ShowEnd SubPrivate Sub tjdx_Click() frmaddreaderinfo.ShowEnd SubPrivate Sub tjdz_Click() frmaddreaderstyle.ShowEnd SubPrivate Sub tjgy_Click() frmadduser.ShowEnd SubPrivate Sub tjhx_Click()frmbackbookinfo.ShowPrivate Sub commandl_Click()Dim rs_addread
8、er As New ADODB.RecordsetDim conn As New ADODB.ConnectionDim sql As StringIf Trim(Combol.Tex t) 二ThenMsgBox 请选择读者类别，vbOKOnly + vbExclama tion,Combo1.SetFocusExit SubEnd IfIf Trim(Textl .Text) 二ThenMsgBox 读者姓名不能为空，vbOKOnly + vbExclama tion,Textl .SetFocusExit SubEnd IfIf Trim(Tex t2.Tex t)二ThenMsgBox
9、 读者编号不能为空，vbOKOnly + vbExclama tion,Text2.SetFocusExit SubEnd IfIf Not IsDate(Text6.Text) ThenMsgBox 请按照 yyyy-mm-dd 格式输入登记日期，vbOKOnly + vbExclamation,Tex t6.Se tF ocusExit SubEnd IfIf Trim(Combo2.Text)二ThenMsgBox 请选读者性别，vbOKOnly + vbExclama tion,Combo2.SetFocusExit SubEnd Ifconn.Openprovider二Micros。
10、ft.Jet. OLEDB.4.O; data source二 &App.Path &da tabase.mdbsql = select * from 读者信息 where 读者编号二& Text2.Text & rs_addreader.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_addreader.EOF Thenrs_addreader.AddNewrs_addreader.Fields(0) = Trim(Tex tl .Tex t)rs_addreader.Fields(1) = Trim(Tex t2.Tex t)rs_
11、addreader.Fields(2) = Trim(Combo2.Tex t)rs_addreader.Fields(3) = Trim(Combo1.Tex t)rs_addreader.Fields(4) = Trim(Tex t3.Tex t)rs_addreader.Fields(5) = Trim(Tex t4 .Tex t)rs_addreader.Fields(6) = Trim(Tex t5.Tex t)rs_addreader.Fields(7) = Trim(Tex t6.Tex t)rs_addreader.Fields(8) = 0rs_addreader.Updat
12、eMsgBox 添加读者信息成功！，vbOKOnly,rs_addreader.CloseElseMsgBox 读者编号重复！，vbOKOnly + vbExclama tion,Text2.SetFocusrs_addreader.CloseExit SubEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim rs_leibie As New ADODB.RecordsetDim conn As New ADODB.ConnectionDim sql As StringProvi
13、der = Microsoft .Jet. OLEDB.3.5.1 ;Persist Security Info二false;data source=D:图书管理系统da tabase.mdbconn.Open provider二Micros。ft.Jet. 0LEDB.4.0; data source二 & App.Path & da tabase.mdbsql = select * from 读者类别rs_leibie.Open sql, conn, adOpenKeyset, adLockPessimisticrs_leibie.MoveFirstDo While Not rs_leib
14、ie.EOFCombol.Add Item rs_leibie.Fields(O)rs_leibie.MoveNex tLooprs_leibie.CloseCombo2.AddI tem 男Combo2.AddI tem 女End Sub查询读者信息模块：代码：Private Sub command1_Click()Dim rs_findreader As New ADODB.RecordsetDim conn As New ADODB.ConnectionDim sql As StringIf Checkl.Value = vbChecked Thensql =读者编号二& Trim(Tex tl .Te
