数据库图书借阅管理系统_毕业设计.docVIP

目录 （1）设计目的 （2） （2）设计要求 设计和实验报告要求 （2） （3）设计方法 系统功能 （3） （4）总体设计 模块功能说明和源程序 （3） （5）调试与测试 （14） 调试方法，测试结果的分析与讨论，测试过程中遇到的主要问题及采取的解决措施 （6）实验总结 （15） 1.设计目的： 1、目的： （1）要求学生达到熟练掌握SQL数据库的基本知识和技能； （2）基本掌握数据库程序设计的基本思路和方法； （3）能够利用所学的基本知识和技能，解决简单的程序设计问题。 2. 设计要求： 1、模块化程序设计 2、锯齿型书写格式 3、必须上机调试通过 实验报告要求： 1、程序设计组成框图、流程图 2、模块功能说明 3、调试与测试：调试方法，测试结果的分析与讨论，测试过程中遇到的主要问题及 4、采取的解决措施 5、源程序清单和执行结果（附盘）：清单中应有足够的注释 3. 设计方法 图书借阅管理系统 功能：设计一个图书借阅管理系统。实现下列功能： １． 图书信息的维护（包括录入，修改和删除）； ２． 读者信息的维护（包括录入，修改和删除）； ３． 借阅（借，还）信息的维护（包括借，还信息录 入，修改和删除）； 4.总体设计 1、程序设计组成框图 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.