【導讀】圖書信息的輸入、修改、刪除操作。還書時自動判斷圖書借閱是否超期并進行。若圖書丟失則進行相應處理并進行罰款。詢、盡量避免用鍵盤輸入數(shù)據(jù)的查詢，提高查詢效率。。分類統(tǒng)計、罰款統(tǒng)計。功能，包括：添加用戶、刪除用戶、修改用戶信息等。要求通過菜單調(diào)用各項操作，對于使用頻繁的操作，應設計工具欄按鈕。程序設計完成的時間等信息。[1]《SQLServer數(shù)據(jù)庫管理與開發(fā)教程與實訓》，杜兆將，北京大學出版社，[2]《程序設計實用教程》,童愛紅，清華大學出版社,2020年10月；[3]《數(shù)據(jù)庫編程》，石志國，清華大學出版社，2020年51月。從而使人們有更多時間來獲取信息、了解信息、掌握信息。采用SQLServer2020數(shù)據(jù)庫作為后臺數(shù)據(jù)庫、Microsoft. 面的需要，達到了設計要求。

　　

【正文】 rsex,read,typenofromreaders+_leftjoinreadertype on = where =39。 + + 39。 Dim mydata As =New () Dim reader As = (sql) If Then = reader(readerno).ToString().Trim() = reader(readername).ToString().Trim() = reader(readersex).ToString().Trim() = reader(typeno).ToString().Trim() =reader(address).ToString().Trim() = reader(readertel).ToString().Trim() = reader(readerdep).ToString().Trim() = reader().ToString().Trim() = reader(readermemo).ToString().Trim() = reader(checkdate).ToString().Trim() Else (沒有找到符合要求的數(shù)據(jù) !, 提示 ) End If End If End Sub Private Sub bnaviClose_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub txtReaderName_KeyDown(ByVal sender As , ByVal e As ) Handles If = Then Dim sql As String = select ,ltrim(rtrim(readersex)) as readersex ,,typenofrom readers+_leftjoinreadertypeon = where =39。 + + 39。 Dim mydata As = New () Dim reader As = (sql) If Then = reader(readerno).ToString().Trim() = reader(readername).ToString().Trim() = reader(readersex).ToString().Trim() = reader(typeno).ToString().Trim() = reader(address).ToString().Trim() = reader(readertel).ToString().Trim() = reader(readerdep).ToString().Trim() = reader().ToString().Trim() = reader(readermemo).ToString().Trim() = reader(checkdate).ToString().Trim() Else (沒有找到 符合要求的數(shù)據(jù) !, 提示 ) End If End If End Sub Private Sub bnaviSave_Click(ByVal sender As , ByVal e As ) Handles Dim Sql As String = update readers set readername=39。 + + 39。, readersex=39。 + + 39。,readertype=39。 + + 39。,readerdep=39。 + + _39。,address=39。 + + 39。,readertel=39。 + + 39。,=39。 + + 39。,checkdate=39。 + _ + 39。,readermemo=39。 + + 39。 where readerno=39。 + + 39。 Dim mydata As = New () 39。Sql = sql1 + Sql Try (Sql) (修改成功 1, 提示 ) Catch ex As Exception () End Try End Sub Private Sub bnaviModi_Click(ByVal sender As , ByVal e As ) Handles = True = True = True = True = True = True = True = True = True = True = True End Sub Private Sub bnaviDele_Click(ByVal sender As , ByVal e As ) Handles Dim sql As String = delete readers where readerno=39。 + + 39。 Dim mydata As = New () Try (Sql) (刪除成功 1, 提示 ) Catch ex As Exception () End Try End Sub 第五章 查詢模塊設計 查詢所有書籍 功能描述 此窗體名為查詢所有書籍信息，為管理員提供查詢所有書籍信息的界面，實現(xiàn)查詢所有書籍信息的功能。 查詢所有書籍代碼 Private Sub frmBooksQuery_Load(ByVal sender As , ByVal e As ) Handles 39。拼 SQL DimsqlAsString=SELECTbookid,booktype,bookname,bookauthor,bookpub,bookpubdate,bookISBN,bookcejia,bookindate,putup,bookmemo,bookpic FROM books 39。數(shù)據(jù)庫連接對象實例 Dim mydata As = New () Dim ds As DataSet = (sql) = (0).DefaultView End Sub 查詢所有讀者信息 功能描述 此窗體名為查詢所有讀者信息，為管理員提供查詢所有讀者信息的界面，實現(xiàn)查詢讀者書籍信息的功能。 查詢所有書籍代碼 Private Sub frmreaderQuery_Load(ByVal sender As , ByVal e As ) Handles DimsqlAsString=SELECTreaderno,readername,readersex,readertype,readerdep,address,readertel,,checkdate,readermemo FROM readers 39。數(shù)據(jù)庫連接對 象實例 Dim mydata As = New () Dim ds As DataSet = (sql) = (0).DefaultView End Sub 致 謝 白駒過隙，三年的大學生活即將拉下帷幕。在這畢業(yè)論 文落筆之際，我想用最樸實的筆來表達我最真最純的感謝！ 首先，感謝學校給了我一個鍛煉發(fā)展的平臺，使我各方面的能力得到了很大提升。 然后感謝學院領導和老師對我的悉心教導，不僅傳授了知識給我， 更讓我學會了做人，我將受益終生。尤其是我論文的指導老師 —— 胡 老師。在程序設計期間，我受到了他細心的指導，多次詢問我的設計進程。胡老師嚴謹求實的工作態(tài)度，勤奮樸實的工作作風，讓我受益匪淺。還有感謝湯老師對我畢業(yè)設計的指導，在我迷茫不知措之際，他給予我指導，讓我重新理清思路找準方向。同時感謝我的同學對我的幫助。在大家的幫助下，我 的設計得以順利的完成。 最后感謝在百忙之中抽空評閱論文的指導老師。 在這離別之際，我忠心祝愿母校 越辦越好，祝愿各位老師工作順利，萬事如意，祝愿各位同學前程似錦！ 參考文獻 [1] 《 SQL Server 數(shù)據(jù)庫管理與開發(fā)教程與實訓》，杜兆將，北京大學出版社，2020 年 1 月； [2] 《 程序設計實用教程》 , 童愛紅， 清華大學出版社 ,2020 年 10 月 ； [3] 《 數(shù)據(jù)庫編程 》， 石志國 ， 清華大學出版社 ， 2020年 51 月。