算机毕业论文论文源代码程序开提报告(编辑修改稿)

算机毕业论文论文源代码程序开提报告(编辑修改稿)内容摘要：

画 面： 22 (四 ).用户密码认证窗体 的实现 创建一个系统主控界面 的窗体程序，运行界面如下： 创建过程如下： 23 （ 1）添加一个新窗体为 Form 窗体。 （ 2） 窗体 及各控件属性设置如下 ： 属性设置 对象 属性 设 定 值 Form Name(名称 ) Form Caption 建平图书馆管理系统 MaxButton True MinButton True ControlBox True BorderStyle 2Sizable StartUpPosition 2屏幕中心 WindowsState 0Normal Height 6000 Width 8000 （ 3）选择菜单栏中“工具” — “菜单编辑器”选项，即进入菜单编辑器 菜单编制过程代码： Private Sub mnu_user_search_Click() End Sub Private Sub mnu_book_check_Click() = check vbModal 24 End Sub Private Sub mnu_book_search_Click() End Sub Private Sub mnu_book_borrow_Click() vbModal End Sub Private Sub mnu_about_Click() vbModal End Sub Private Sub mnu_exit_Click() End End Sub 本窗体是为了让工作人员或图书馆管理员按照用户名和密码进行登录，并且跟据用户名检查 Keyer 表中的 “ 权限 ” 字段，以分 辩进入图书馆管理人员模块还是进入工作人员模块。 (五 ).借阅者服务模块的实现 借阅者服务窗体的功能主要是图书的查询，个人借阅情况查看及个人部分信息的修改。 1. 图书查询功能的实现 在本系统中，任何人都有权限使用查询功能，不做任何限制。 由于实现的查询功能有多种，如按图书编号、图书名称等字段进行完全体配查找和部分体配的模糊查找，还有按多个条件进行逻辑与或是逻辑或的多条件查找。 25 控件 属性 设定值 Form Name frmbook_search Caption 图书查询 Label Name Label1 Caption 关键字 AutoSize False Label Name Label2 Caption 选项 AutoSize False CommandButtom Name Cmd_Book_clear Caption 重置 CommandButtom Name Cmd_Book_del Caption 删除 CommandButtom Name Cmd_Book_search Caption 查询 (amp。 S) CommandButtom Name Cmd_BS_exit Caption 退出 (amp。 E) 26 自动生成代码如下：（查询） Private Sub Cmd_Book_search_Click() Dim search_item As String = False If And Text1 = 关键字 Or Text1 = Then MsgBox 请输入关键字 = 0 = Len(Combo1) Exit Sub End If If = 请选择„„ Then MsgBox 请选择查询选项 Exit Sub Else If = 图书编号 Then search_item = BOOK_ID like 39。 If = 图书名称 Then search_item = BOOK_NAME like 39。 If = 图书类别 Then search_item = BOOK_SORT like 39。 If = 出版日期 Then search_item = BOOK_DATE between If = 价格范围 Then search_item = BOOK_PRICE like 39。 If = 作者 Then search_item = BOOK_WRITER like 39。 If = 出版社 Then search_item = BOOK_CONCERN like 39。 27 If = 登记日期 Then search_item = BOOK_CHECK_DATE between End If Call MSHGridset If InStr(1, Text1, *) 0 Then MsgBox 通配符 请用 %表示 : : Exit Sub If InStr(1, Text1, ?) 0 Then MsgBox 通配符 请用 %表示 : : Exit Sub If = adStateOpen Then If = 出版日期 Or = 登记日期 Then select * from 图书信息 where amp。 search_item amp。 amp。 and amp。 amp。 , myconn, adOpenKeyset, adLockOptimistic, 1 Else select * from 图书信息 where amp。 search_item amp。 Text1 amp。 %39。 , myconn, adOpenKeyset, adLockOptimistic, 1 End If Set = rds_book Call MSHGridset (3) = 共有图书 amp。 1 amp。 本满足条件 End Sub Private Sub Cmd_Book_clear_Click() Call renew If = adStateOpen Then 28 select * from 图书信息 , myconn, adOpenKeyset, adLockOptimistic, 1 Set = rds_book Call MSHGridset (3) = 共有图书 amp。 1 amp。 本满足条件 End Sub 自动生成代码如下：（重置） Private Sub Cmd_Book_clear_Click() Call renew If = adStateOpen Then select * from 图书信息 , myconn, adOpenKeyset, adLockOptimistic, 1 Set = rds_book Call MSHGridset (3) = 共有图书 amp。 1 amp。 本满足条 件 End Sub 自动生成代码如下：（删除） Private Sub Cmd_Book_del_Click() Dim bid As String bid = BOOK_ID=39。 + (, 0) + 39。 If = adStateOpen Then select * from 借阅信息 where + bid, myconn, adOpenKeyset, adLockOptimistic, 1 If 0 Then If MsgBox(此图书尚末归还，确认要删除吗 + vbCrLf + vbCrLf + 确认 删除 + vbCrLf + 否 取消 , vbInformation + vbYesNo, 图书删除 29 ) = vbNo Then Exit Sub End If If MsgBox(确认真的要删除该图书吗 , vbCritical + vbYesNo, 删除 ) = vbYes Then delete * from 图书信息 where + bid MsgBox 删除成功 Call Cmd_Book_clear_Click End If End Sub 自动生成代码如下：（退出） Private Sub Cmd_BS_exit_Click() Call renew Unload Me (3) = End Sub 完成后的图书查询的画面： 30 2. 借阅者登录功能的实现 这个功能的实现与工作人员和管理人员登录功能实现的方法大致一样，并且还要简单。 是从 User 表中查到到借阅证号与密码，看与用户输入的是否一致。 如果一致，那么用户就可查看自已的借阅情况并维护自己的部分信息。 控件 属性 设定值 Form Name frmuser_check Caption 读者登记 Label Name lbl_CHECK_DATE Caption 202011 AutoSize False Label Name lbl_user(0) Caption 读者编号 AutoSize False Label Name lbl_user(1) Caption 读者姓名 AutoSize False Label Name lbl_user(2) Caption 读者性别 AutoSize False 31 Label Name lbl_user(3) Caption 身份证号 AutoSize False Label Name lbl_user(4) Caption 读者电话 AutoSize False Label Name lbl_user(5) Caption 读者地址 AutoSize False OptionButton Name Option1(0) Caption 男 OptionButton Name Option1(1) Caption 女 TextBox Name txt_user(0) Text TextBox Name txt_user(1) Text TextBox Name txt_user(3) Text TextBox Name txt_user(4) Text TextBox Name txt_user(5) Text CommandButtom Name Cmd_User_Check Caption 确认 (amp。 O) CommandButtom Name Cmd_Ucheck_exit Caption 退出 (amp。 E) 自动生成代码如下： Private Sub Cmd_User_Check_Click() 32 Dim str_sex As String, str_photo As String Dim i As Integer For i = 0 To 5 If i 2 Then If txt_user(i) = Then MsgBox 请输入 + lbl_user(i): txt_user(i).SetFocus: Exit Sub End If Next i If Option1(0) = True Then str_sex = 男 Else: str_sex = 女 If Not IsNumeric((txt_user(3))) Then MsgBox 请输入正确的身份证号 txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3)) Exit Sub End If If Not (Len(txt_user(3)) = 15 Or Len(txt_user(3)) = 18) Then MsgBox 请输入正确的身份证号 txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3)) Exit Sub ElseIf Len(txt_user(3)) = 18 Then If Not IsNumeric((txt_user(3))) And Not ((txt_user(3)) = x Or (txt_user(3)。