Else
MsgBox "你所输入的口令不对，请重新输入！", vbOKOnly, "口令错误"
UserPassTxt.SetFocus
End If
Else
MsgBox " 请选择用户名称！ ", vbInformation + vbOKOnly, "错误信息"
Exit Sub
End If
Exit Sub
l: MsgBox err.Description
End Sub
致 谢
本系统在选题、系统分析、资料收集、设计调试过程中得到了系领导、多位老师的亲切指导.所以在此向帮助过我们的系领导和付出劳动的所有老师、同学们表示我们诚挚的谢意!
参考文献
张洪林. Visual Basic 6.0编程实例.北京：人民邮电出版社，1999
曾琦. Visual basic 6.0编程实例与技巧.中国水利水电出版社，2001
韩润春，佟志臣，王汉新.管理信息系统..河北人民出版社，2003
温贤发.Visual Basic 6数据库程序设计高手.北京：科学出版社，2001
黎连业.管理信息系统设计与实施.北京：清华大学出版社，1999
刘海峰. Visual Basic 数据库开发实例. 北京：机械工业出版社.2001
安忠，吴洪波.管理信息系统.第2版.中国铁道出版社，2002
张洪林. Visual basic 6.0编程实例.第2版.北京：人民邮电出版社，2001
陈俊源等.Visual Basic 6.x 程序设计-数据库应用.中国铁道出版社,2002
张显库.VB实用编程技术----从基础到开发.大连理工大学出版社，2001
鸿志创作组.VISUAL BASIC 6.0中文版应用与开发.第2版.北京：科学技术出版社，2002
知寒工作室.中文VISUAL BASIC 6.0简明案例教程.机械工业出版社，1999
[美]Wdward Jones & Jarel M.Jones.中文ACCESS 2000疑难解析.北京：机械工业出版社，2000
石连栓，张涛，李立宗.Visual Basic程序设计教程.清华大学出版社，2004
黄明，梁旭.Visual Basic 6.0信息系统设计与开发实例.机械工业出版社，2004
陈海涛.Visual Basic 6.0程序设计参考手册.人民邮电出版社，2003
刘萌.Visual Basic企业办公系统开发实例导航.人民邮电出版社，2003