VB 图书管理系统 毕业设计论文

XXXXXXXXX学院毕业设计（论文）

图5.8账户管理窗口图

1. 增加账号

可以直接在空间里面填写信息，完成后直接点增加账号即可，首先验证用户名是否为空，然后验证是否已存在，最后检测权限范围是否是1到4之间。不出问题填写完成最后会提示是否添加。

图5.9提示窗口图

主要代码如下：

user.user_id = CStr(LTrim(Text1.Text)) user.pwd = CStr(LTrim(Text2.Text))

29

《小蚂蚁儿童绘本管》管理系统的设计与开发

user.right = LTrim(Text3.Text)

ans = Msgbox(\增加用户吗？\， vbOKCancel + vbInformation， \提示！\ If ans = vbOK Then rst.AddNew

rst![登录名] = user.user_id rst![密码] = user.pwd rst![权限] = user.right rst.Update Text1.Text = \ Text2.Text = \ Text3.Text = \

List1.AddItem rst![登录名] Command3.Enabled = True

2. 修改账号

首先系统会判断是否已选中要修改的记录。选中后，被选中信息会填充在左边的控件里，直接修改信息后点修改即可。

如果没有选中要修改的记录会弹出窗口如图所示：

图5.10友情提示窗口图

显示选中信息主要代码如下： Dim sql As String inx = List1.ListIndex

sql = \登录名] ='\rst.Close

rst.Open sql， con， adOpenDynamic， adLockOptimistic Text1.Text = rst![登录名]

30

XXXXXXXXX学院毕业设计（论文）

Text2.Text = rst![密码] Text3.Text = rst![权限] 修改信息主要代码如下：

sql = \ [登录名] ='\\登录名] = '\ con.BeginTrans '启动事务 con.Execute sql '执行查询

con.CommitTrans '保存所有更改并退出事务 ………….. 3. 删除账号

首先，判定是否有选中项，如果选中，则删除选中项。窗体初始化是定义一参数inx，并初始化为-1，单击右侧List1选中账号时赋值inx = List1.ListIndex。

图5.11友情提示窗口图

主要代码如下：

If inx = -1 Then frmMsg.Show

frmMsg.notice.Visible = True

frmMsg.Text1.Text = \请挑选要删除的项！\ ……….

List1.RemoveItem (inx) '索引显示删除 rst.Delete '删除表内记录

31

《小蚂蚁儿童绘本管》管理系统的设计与开发

第5章 结 论

经过将近三个月的设计和开发，绘本管图书馆管理系统基本开发完毕。其功能基本符合用户的需求，能够完成用户的图书信息管理，图书借阅管理，读者信息管理，系统维护等方面的功能，以及各种相关功能的扩展。但是由于毕业设计时间较短加上知识的有限，该系统还有许多不足的地方，源程序调试方面的问题还有好多，出错处理不够等方面问题。这些都有待于今后进一步的改善。在设计过程中，通过学习了解了数据库系统的开发原理和应用，基本掌握了开发工具Visual Basic6.0和Microsoft Access的使用，为今后的学习和开发打下了坚实的基础。

在本次毕业设计中，在没有做毕业设计以前觉得毕业设计只是对这几年来所学知识的单纯总结，但是通过这次做毕业设计发现自己的看法有点太片面。毕业设计不仅是对前面所学知识的一种检验，而且也是对自己能力的一种提高。通过这次毕业设计使我明白了自己原来知识还比较欠缺。自己要学习的东西还太多，以前老是觉得自己什么东西都会，什么东西都懂，有点眼高手低。通过这次毕业设计，我才明白学习是一个长期积累的过程，在以后的工作、生活中都应该不断的学习，努力提高自己知识和综合素质。我从指导老师那学到了好多东西。老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益非浅。在系统设计开发过程中杨华老师给予了很大的帮助，帮助解决了很多难题，使得系统能及时开发完成，在设计过程中，我通过查阅大量有关资料，与同学交流经验和自学，并向老师请教等方式，使自己学到了不少知识，也经历了不少艰辛，但收获同样巨大。在整个设计中我懂得了许多东西，也培养了我独立工作的能力，树立了对自己工作能力的信心，相信会对今后的学习工作生活有非常重要的影响。而且大大提高了动手的能力，使我充分体会到了在创造过程中探索的艰难和成功时的喜悦。虽然这个设计做的也不太好，但是在设计过程中所学到的东西是这次毕业设计的最大收获和财富，使我终身受益。

32