学士学位论文_数据库图书借阅管理系统.docVIP

目录 （1）设计目的 （2） （2）设计要求 设计和实验报告要求 （2） （3）设计方法 系统功能 （3） （4）总体设计 模块功能说明和源程序 （3） （5）调试与测试 （14） 调试方法，测试结果的分析与讨论，测试过程中遇到的主要问题及采取的解决措施 （6）实验总结 （15） 1.设计目的： 1、目的： （1）要求学生达到熟练掌握的基本知识和技能； （2）基本掌握程序设计的基本思路和方法； （3）能够利用所学的基本知识和技能，解决简单的程序设计问题。功能 2、程序设计流程图 3、模块功能说明 1、frmStar 登录界面 Option Explicit Dim Times As Integer Dim ADOLogin As New ADODB.Recordset Private Sub btnCancle_Click() End End Sub Private Sub btnOK_Click() If Login(Trim(txtUser.Text), Trim(txtPwd.Text)) = True Then Unload Me Else If MsgBox(输入的用户名称或者口令非法,请重新输入!, vbInformation + vbYesNo, 非法的操作员口令) = vbYes Then txtUser.Text = txtPwd.Text = txtUser.SetFocus Times = Times + 1 Else End End If End If End Sub Private Sub Form_Load() ADOLogin.Open Login, ADOCon, adOpenDynamic, adLockOptimistic, -1 End Sub Private Sub Form_Unload(Cancel As Integer) ADOLogin.Close End Sub Private Sub Timer1_Timer() If Times = 3 Then End End Sub Private Sub txtUser_Change() btnOK.Enabled = True End Sub Private Sub txtPwd_Change() btnOK.Enabled = True End Sub Private Function Login(ByVal strUSER As String, ByVal strPWD As String) As Boolean If strUSER = Administrator Then If strPWD = Administrator Then User = Administrator UserPermission = Administrator Login = True Exit Function Else Login = False End If Else ADOLogin.MoveFirst Do Until ADOLogin.EOF If strUSER = ADOLogin.Fields(0).Value And strPWD = ADOLogin.Fields(2).Value Then User = ADOLogin.Fields(0).Value UserPermission = ADOLogin.Fields(1).Value Login = True Exit Function Else ADOLogin.MoveNext End If Loop