VB+Access设计图书管理系统

• 
  　　rs_add.Fields(1) = Text2.Text
  
  　　rs_add.Fields(2) = Combo1.Text
  
  　　rs_add.Update
  
  　　rs_add.Close
  
  　　下面是返回成功信息对话框的代码:
  
  　　MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
  
  　　Unload Me
  
  　　End If
  
  　　End If
  
  　　End Sub
  
  　　(3) 修改密码子窗体代码
  
  　　修改密码子窗体是用来修改用户密码的。其运行效果如图38所示。
  
  　　
  
  　　图38 修改密码子窗体运行效果
  
  　　在“确定”按钮的Click事件中添加如下代码:
  
  　　Private Sub Command1_Click()
  
  　　Dim rs_chang As New ADODB.Recordset
  
  　　Dim sql As String
  
  　　If Trim(Text1.Text) <> Trim(Text2.Text) Then
  
  　　MsgBox "密码不一致!", vbOKOnly + vbExclamation, ""
  
  　　Text1.SetFocus
  
  　　Text1.Text = ""
  
  　　Text2.Text = ""
  
  　　Else
  
  　　sql = "select * from 系统管理 where 用户名='" & userID & "'"
  
  　　rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic
  
  　　rs_chang.Fields(1) = Text1.Text
  
  　　rs_chang.Update
  
  　　rs_chang.Close
  
  　　MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
  
  　　Unload Me
  
  　　End If
  
  　　End Sub
  
  
  
  　　在上述代码中，首先比较两个表中的数据是否一致，然后用rs_chang.Fields(1) = Text1.Text语句把代码输入到数据库中。最后，用MsgBox "密码修改成功", vbOKOnly + vbExclamation，""语句弹出一个信息框，告诉修改成功，如图39所示。
  
  　　显示目录
  
  　　(4) 库房管理子窗体代码
  
  　　库房管理子窗体是用来管理图书资料的。其运行效果如图40所示。
  
  　　
  
  　　图40 库房管理子窗体
  
  　　实际上，设计库房管理子窗体的程序代码与增加用户子窗体的代码在思路上是完全相同的。就是在DataGrid的文本框中显示图书进出的清单，最后把填写的明细存储到数据库中。
  
  　　检查代码如下:
  
  　　Option Explicit
  
  　　Dim rs_data2 As New ADODB.Recordset
  
• 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• VB+Access设计图书管理系统 相关文章：
• ·Vista系统实现自动关机技巧
• ·Illustrator传统风格名片设计实例
• ·Windows Vista系统调试外置麦克风技巧
• ·Vista操作系统中文件扩展名如何显示
• ·Vista系统无法开启打印机共享怎么办？
• ·Windows Vista系统如何用命令行运行系统还原
• ·Windows Vista系统存储优化完全手册
• ·企业选购指南：国内防火墙系统大比拼
• ·加快Windows Vista系统窗口打开速度的方法
• ·防范黑客攻击Oracle系统的八大常用方法
• VB+Access设计图书管理系统 相关软件
• ·公司企业网站管理系统模板功能强大版
• ·学校源码管理系统超靓版V2008
• ·暗影狂奔－Vista版免CD补丁+XP系统兼容补丁
• ·《雷神之锤4》v1.3到v1.4.2升级补丁（Windows系统专用）
• ·人脑及其操作系统(上、下)
• ·中国商训—传统生意经
• ·PSP自制系统IRSHELL最新3.62版
• ·本殖民统治台湾五十年史
• ·SOFTMAY田径运动会编排管理系统专业版v8.3
• ·《威权统治下的中国现状与前景》

上一篇:在GotFocus时快速选择文本

下一篇:智商商测试软件

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐