cnt = 0 End Sub
Private Sub Cmdcancel_Click() End End Sub
Private Sub cmdOK_Click() Dim Sql As String Dim rs_add As New If Trim = \
MsgBox \用户名不能为空\注意\ Exit Sub Else
Sql = \ Sql, Sjk, adOpenKeyset, adLockPessimistic
If = True Then
MsgBox \没 \有这个用户\ Else
If Trim(1)) = Trim Then 'Unema = 'Uid = (2)
Unload Me Else
MsgBox \密码不正确\注意\ = \ End If
End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me
End If End Sub
Private Sub cmdOK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = \确定登录\‘只为增强动画效果，移动鼠标到cmdok按钮上时，显示的文字由原来的“确定”变为“确定登录” End Sub
2.5.7.2添加用户界面代码 Private Sub Form_Load() Dim Sjk As Dim Sj As \管理员\ \来宾用户\ Set Sjk = New Set Sj = New
= \ = 30
If = adStateOpen Then _
MsgBox \数据库加载成功，欢迎进入“添加管理员”界面！！\ End Sub
Private Sub Command1_Click()
Dim Sq1 As String '定义一个字符串变量 Dim Myjl As New '定义一个Recordset对象变量
If Trim = \首先检查用户名是否为空
MsgBox \用户名不能空\注意!\ Exit Sub Else
Sq1 = \
Sq1, Sjk, adOpenKeyset, adLockPessimistic While = False) If Trim(0)) = Trim Then
MsgBox \这个用户名已存在\注意!\ = \ = \ = \ = \ Exit Sub Else End If Wend
If Trim <> Trim Then
MsgBox \两次输入的密码不一致，请重新设置 \注意!\ = \ = \ Exit Sub Else (0) = (1) =
MsgBox \您已经成功添加\这个用户\注册成功!\ End If End If End Sub
Private Sub Command2_Click() Unload Me End Sub
2.5.7.3修改用户界面密码代码 Private Sub Command1_Click()
Dim Sq1 As String '定义一个字符串变量 Dim Myjl As New '定义一个Recordset对象变量
If Trim <> Trim Then
MsgBox \两次输入的密码不一致，请重新设置 \注意!\ = \ = \ Exit Sub Else
Sq1 = \ Sq1, Sjk, adOpenKeyset, adLockPessimistic If = True Then
MsgBox \没有\这个用户\ Else (1) =
MsgBox \密码修改成功\成功!\ Unload Me End If
End If End Sub
Private Sub Command2_Click() Unload Me End Sub
后记：经过指导教师徐哲鑫老师的指点，本人已经竭尽全力对本系统进行具体设计，现已趋向完善，
在此感谢老师的教导。
参考文献
[1] 谭浩强,薛淑斌,袁玫.Visual Basic程序设计.北京清华大学学研大厦:北京清华大学出版社.2004 [2] 林陈雷,郭安源,葛晓东.Visual Basic教育信息系统开发实例导航. 人民邮电出版社.2006 [3] 张小勤.一种改进的数据库连接的设计与实现[J].电脑知识与技术(学术交流).2006年05期 [4] 田君.数字图书馆管理平台系统的研究[D].天津工业大学.2004年
[5] 陈志泊.数据库系统原理与应用教程.北京市崇文区夕照寺街14号.人民邮电出版社.2011,72-1128
用VB编写一个简单的图书管理系统
