vb图书管理系统课程设计

上传人:ni****g 文档编号:563397155 上传时间:2023-08-09 格式:DOC 页数:11 大小:460.50KB
返回 下载 相关 举报
vb图书管理系统课程设计_第1页
第1页 / 共11页
vb图书管理系统课程设计_第2页
第2页 / 共11页
vb图书管理系统课程设计_第3页
第3页 / 共11页
vb图书管理系统课程设计_第4页
第4页 / 共11页
vb图书管理系统课程设计_第5页
第5页 / 共11页
点击查看更多>>
资源描述

《vb图书管理系统课程设计》由会员分享,可在线阅读,更多相关《vb图书管理系统课程设计(11页珍藏版)》请在金锄头文库上搜索。

1、VB课程设计报告题目:图书管理系统学院:信息工程学院专业:信息工程(信息安全方向)班级:1132101姓名:赖玉蕾学号:201130210102指导老师:魏树权摘要关键字一系统规划1.1系统功能描述1.2功能模块划分1. 3 E-R 图二系统界面的开发2. 1登录界面2. 2用户管理界面 三系统的详细设计3. 1登录界面代码3. 2各功能代码四心得体会及认识 致谢摘要随着人类社会的发展,人类对知识的需求也不断地增长。在这种形 势下,书籍就渐渐地成为人们获取并增长知识的主要途径,而图书馆就 自然而然地在人们的生活中占据了一定的位置。如何科学地管理图书馆 不但关系到读者求知的方便程度,也关系到绘本

2、馆的发展,因此,开发 一套完善的图书管理系统就必不可少了,图书管理系统是典型的信息管 理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程 序的开发两个方面。经过分析,使用Microsoft公司的Visual Basic6.0为开发工具,利用 其提供的各种面向对象的可视化开发平台作为开发工具,采用面向对象 技术,图形化的应用开发环境,尤其是它有一个功能极其强大的集成环 境提供给开发人员,使得开发人员可通过菜单、界面、图形浏览工具、 对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。开发过程 中不断修正和改进,直到形成用户满意的可行系统。本文介绍了在Visual Basic6

3、.0环境下釆用”自上而下地总体规划,自 下而上地应用开发“的策略开发本系统的详细过程,提出实现图书信息管 理、资源共享的基本目标,从而推动迈向数字化图书馆的步伐,并阐述 系统结构设计和功能设计,从图书的入库登记、借阅登记到查询浏览, 形成了一个整体自动化管理模式,从软件工程的角度进行了科学而严谨 的阐述。关键词:图书管理系统;借阅;浏览;编辑;Visual Basic 6.0一系统规划1.1主要功能录入、删除、修改及查询1.2模块结构划分此功能分为儿个模块读者种类信息: 读者基本信息书籍信息借书信息还书信息二系统界面的开发2.1用户登录用户登录界面1、输入账号与密码点击“登录”直接登录进入管理

4、界面。2、输入账号与密码,点击“注册”,获得新的账号和密码,然后点击“登录” 即可进入管理界面。2.2用户管理界面#编辑图书信息界面0痛第书信思图书编号书名书号类别柔软是否営岀录入L删除修改清空査询 d查询图书信息界面:请输入图书编号进行查洵book i dIbooklook Tisbrbook SaEIbook pricaI tontartio a6S486T4S37斜文E012/S/?OJ08轴a11C018682002/10/28OT09红檢梦11CO19782002/10/260310学1LC020数学岔2003/10/26423经須里23533 assise三系统的详细设计3.1登录

5、界面代码Private Sub Commandedick()Dim cn As New ADODB.ConnectionDim rs As New ADODB. RecordsetDim flag As BooleanDim cn_str As String, sql_str As Stringcn_str 二DRIVER二SQL SERVER) ;SERVER二WTOLSDRD7SHRABT;DATABASE二library cn. Open cn_strsql_str 二 select * from userinfo:rs. Open sql_str, cnWhile Not rs.EOF

6、If Textl.Text 二 Trim(rs(0) And Text2.Text 二 Trim(rs(1) Thenflag = TrueForm2 ShowExit SubElsers. MoveNextflag = FalseEnd IfWendIf flag = False ThenMsgBox 输入有误,请输入正确的密码和账号! “, vbCritical + vbOKOnly, 错误rs. CloseEnd IfEnd SubPrivate Sub Command2_C1ick()Dim cn As New ADODB.ConnectionDim rs As New ADODB.

7、RecordsetDim flag As BooleanDim cn_str As String, sql_str As String cn_str 二DRIVER二SQL SERVER) ;SERVER二WTOLSDRD7SHRABT;DATABASE二libraryrs. Open sql_str, cn, adOpenDynamic, adLockOptimisticrs. AddNewrs(username )二 Trim (Textl Text)rs(userpassword) 二 Trim(Text2.Text)rs. Updaters. CloseMsgBox 注册成功! “,v

8、bExclamation + vbOKOnly,提示 End SubPrivate Sub LabellClick()End Sub3.2各功能代码 图书信息的编辑:Private Sub Conunandl_Click()Adodc 1 .Recordset. AddNewAdodcl.RefiesliMsgBox 录入信息成功!”, vbExclamation 十 vbOKOnly,提示 End SubPrivate Sub Coiiuiiand2_Click()Adodc l.Recoidset.DeleteAdodcl.RefiesliMsgBox ”删除信息成功!”, vbExcla

9、mation 十 vbOKOnly, ”提示” End SubPrivate Sub Conmiand3_Click()Adodc 1 .Recordset.UpdateAdodcl.RefieshMsgBox 修改信息成功!”, vbExclamation 十 vbOKOnly,提示”End SubPrivate Sub Conunand4_Click()Text 1.Text =Text2.Text = ”Text3.Text = ”Text4.Text = ”Text5.Text = ”Text6.Text = ”Text7.Text = ”TextS.Text = ”End Sub图书

10、信息的查询:Private Sub Conunandl_Click()Adodc 1 .RecoidSouice = u select * fiom bookinfo where book_id-n & Tnni(Textl) &n ftAdodc l.RefiesliEnd Sub借阅信息的编辑:Private Sub Conunandl_Click()Adodc 1 .Recordset. AddNewAdodc l.RefiesliMsgBox 录入信息成功!”, vbExclamation 十 vbOKOnly, ”提示”End SubPrivate Sub Conuiiand2_Cl

11、ick()Adodc 1 .Recoidset.UpdateAdodc l.RefiesliMsgBox 修改信息成功!”, vbExclamation 十 vbOKOnly, ”提示”End SubPrivate Sub Conunand3_Click()Adodc l.Recoidset.DeleteAdodc l.RefiesliMsgBox ”删除信息成功!”, vbExclamation 十 vbOKOnly, 提示”End SubPrivate Sub Conmiand4_Click()#text 1. Text = nText2.Text = ”Text3.Text =Text4

12、.Text =Text5.Text =Text6.Text =Text7.Text =TextS.Text =End Sub借阅信息的查询:Private Sub Conunand2_Click()Text 1.Text =Text2.Text =Text3.Text =Text4.Text =Text5.Text =Text6.Text =Text7.Text =TextS.Text =End SubPrivate Sub Conunand l_Click()Adodc 1 .RecordSouice = select * fiom personinfo where card_numbei-

13、 & Tnm(Textl) & ”Adodc l.RefieshEnd Sub还书信息的编辑:Private Sub Conunand l_Click()Adodc 1 .Recordset. AddNewAdodc l.RefieshMsgBox 登记信息成功!”, vbExclamation 十 vbOKOnly, 提示”End SubPrivate Sub Conunand2_Click()Text 1.Text =Text2.Text =Text3.Text =Text4.Text =Text5.Text =End Sub四心得体会及认识要想做出一个好的图书管理系统,我们首先具备的是扎实的专业知识,和较 强的逻辑思维,通过多多编写程序來增强自己的能力。在这次的课程设计中遇到 了很多困难。在学习的过程中要善于思考,学会发现问题并解决问题。Sql和vb 在我们编写程序时是不可分割的,要熟练的掌握数据库与vb的链接方法。Vb是 当今最流行的软件开发之一,他的主要特点是简单易学,开发效率高,开发周期 短。致谢老师的认真指导和热切帮助,在此表示感谢!#

展开阅读全文
相关资源
正为您匹配相似的精品文档
相关搜索

最新文档


当前位置:首页 > 办公文档 > 工作计划

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号