【正文】 前又有一個界面。 在開發(fā)過程中，對很多課本之外的我們還未接觸的領域的知識點的認識，我才發(fā) 現單獨嫻熟的掌握一種程序設計語言是不夠的。 但對于這個應用系統，自己并不是很滿意，和當初設想的設計一個程序簡潔，各個界面友好且好用還是有一定的距離的。自己也從這次畢業(yè)設計的過程對兩年多來的學習情況有一個清楚的認識，前面的路還很長這，我還應該繼續(xù)努力。 劉世峰：《 VISUAL BASIC 程序設計實驗》，中央電大出版社， 2020 年 7月第 1 版 。 + txt_userid(0) + 39。 張洪明：《 VISUAL BASIC 程序設計基礎教程》，科學出版社， 2020年 。 55 【 參考文獻 】 劉世峰：《數據庫基礎與應用》，中央電大出版社 。 所以我想我還要經過不斷的對系統進行后期的維護才能找到更多的讓自己可以學到更多東西的問題。同時， 我對 辦公自動化系統 的概念有了一定的了解。第三，為了能對整個系統有一個整體的管理又設計了一個該系統的菜單，以便于用戶對自己的信息進行更改等。 Check1(i 3).Value = 0 txt_bookid(i) = txt_bookid(i 3) = txt_bookid(i 3).Locked = False txt_bookid(i 3).ForeColor = vbBlack txt_bookid(i 3).BackColor = vbWhite lbl_msg(0) = lbl_msg(1) = End If Next i = True End Sub 49 完成后的圖書歸還的畫面： (七 ). 各模塊調 試及運行結果 1．操作員登錄 50 2． 圖書館管理員圖書 查詢 3． 圖書館管理員 注冊 51 圖書登記 讀者查詢 52 讀者 信息修改及登記 53 54 六 . 小結、自我評價 經過幾個月的調研，取材，磨合，對整個系統的開發(fā)先進行需求分析，然后將其結果反映成結構圖，再到設計數據庫，再到邏輯設計，并對上個階段的分析結果進行適當的優(yōu)化，再到數據庫的物理設計利用計算機，利用數據庫系統的開發(fā) 工具進行具體的實施。 AND BOOK_ID=39。 46 控件 屬性 設定值 Form Name frmbook_borrow Caption 圖書借閱 Label Name Label7 Caption 圖書編號 1 AutoSize False Label Name Label9 Caption 圖書編號 2 AutoSize False Label Name Label10 Caption 圖書編號 3 AutoSize False Label Name Label11 Caption 借閱日期 AutoSize False CommandButtom Name cmdgh_clear Caption 清除 47 CommandButtom Name cmdgh_exit Caption 退出 CommandButtom Name cmdgh_search Caption 查詢 CommandButtom Name Cmdguihuan Caption 歸還 TextBox Name txt_bookid(5) Text TextBox Name txt_bookid(6) Text TextBox Name txt_userid(0) Text TextBox Name txt_bookid(1) Text SSTab Name SSTab1 Caption 歸還 自動生成代碼如下： （查詢） Private Sub Cmdgh_search_Click() txt_userid(0) = txt_userid(1) Call Cmdjy_search_Click End Sub 自動生成代碼如下： （歸還） Private Sub Cmdguihuan_Click() If txt_userid(1) = Then: MsgBox 請 輸 入 讀 者 編 號 : txt_userid(1).SetFocus: Exit Sub If txt_userid(0) = Then Call Cmdgh_search_Click Dim i As Integer For i = 4 To 6 If txt_bookid(i) And Check1(i 3).Value = 1 Then 48 If = adStateOpen Then SELECT 借閱信息 .BOOK_ID, 圖書信息 .BOOK_NAME FROM 借閱 信息 INNER JOIN 圖 書信 息 ON 借閱信 息 .BOOK_ID= 圖書信息 .BOOK_ID where 圖書信息 .BOOK_NAME=39。能方面查找讀者的姓名，圖書名稱，借閱時間。 + txt_bookid(i).Text + 39。 + txt_bookid(i) + 39。, myconn, adOpenKeyset, adLockOptimistic, 1 havenum = .Fields(0) If havenum = 3 Then lbl_msg(0) = 該讀者的借閱數量已滿，請歸還后再借 lbl_msg(1) = lbl_msg(0) .Close = False Call search_book = 1 ElseIf havenum = 0 Then lbl_msg(0) = 該讀者已借閱數量 = amp。 37 控件 屬性 設定值 Form Name frmbook_borrow Caption 圖書借閱 Label Name Label1 Caption 借閱日期 AutoSize False Label Name Label2 Caption 圖書編號 1 AutoSize False Label Name Label3 Caption 圖書編號 2 AutoSize False Label Name Label4 Caption 圖書編號 3 AutoSize False Label Name Label6 38 Caption 讀者編號 AutoSize False CommandButtom Name Cmdjieyue Caption 借閱 CommandButtom Name cmdjy_clear Caption 清除 CommandButtom Name cmdjy_exit Caption 退出 CommandButtom Name Cmdjy_search Caption 查詢 TextBox Name txt_bookid(1) Text TextBox Name txt_bookid(2) Text TextBox Name txt_bookid(3) Text TextBox Name txt_bookid(4) Text SSTab Name SSTab1 Caption 借閱 自動生成代碼如下：（查詢） Private Sub Cmdjy_search_Click() Dim i As Integer Dim rds_jycount As Recordset Set rds_jycount = New Recordset If txt_userid(0) = Then: MsgBox 請 輸 入 讀 者 編 號 : txt_userid(0).SetFocus: Exit Sub With rds_jycount 39 If .State = adStateOpen Then .Close .Open select USER_ID from 讀 者 信 息 where USER_ID=39。 + txt_user(0) + 39。O) CommandButtom Name Cmd_Ucheck_exit Caption 退出 (amp。 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. 借閱者登錄功能的實現 這個功能的實現與工作人員和管理人員登錄功能實現的方法大致一樣，并且還要簡單。 本滿足條件 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。, myconn, adOpenKeyset, adLockOptimistic, 1 End If Set = rds_book Call MSHGridset (3) = 共有圖書 amp。 , myconn, adOpenKeyset, adLockOptimistic, 1 Else select * from 圖書信息 where amp。 search_item amp。 If = 出版日期 Then search_item = BOOK_DATE between If = 價格范圍 Then search_item = BOOK_PRICE like 39。S) CommandButtom Name Cmd_BS_exit Caption 退出 (amp。 (五 ).借閱者服務模塊的實現 借閱者服務窗體的功能主要是圖書的查詢，個人借閱情況查看及個人部分信息的修改。 + txt_ManagerPass + 39。 控件 屬性 設定值 Form Name frmstartup Caption Form1 Timer Enabled True Interval 1000 自動生成代碼如下： Private Sub Form_Click() Unload Me End Sub Private Sub Timer1_Timer() i = i + 1 If i = 2 Then Unload Me End If End Sub 完成操作后的啟動畫面的界面： 19 (三 ).用戶登錄窗體的的實現 本窗體是為三種不同的用戶（一般用戶， 普通管理員 ， 超級 管理員）提供選擇以進入不同的模塊，滿足不同用戶的需求。 (5)在數據表結構設計器對話框中，建立數據表的結構，其結構如下： 密碼表的結構 字段名稱 字段類型 字段大小 索 引 忽略空值 密碼 Text 20 主要的、惟一的