用VB编写一个简单的图书管理系统

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