【正文】 vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 讀者姓名不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 讀者編號不能為空 , vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 讀者信息 where 讀者編號 =? amp。 ? sql, conn, adOpenKeyset, adLockPessimistic If Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = 否 MsgBox 添加書籍信息成功！ , vbOKOnly, lse MsgBox 圖書編號重復(fù)！ , vbOKOnly + vbExclamation, = Exit Sub End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 36 Dim rs_leibie As New Dim sql As String sql = select * from 圖書類別 sql, conn, adOpenKeyset, adLockPessimistic Do While Not (0) Loop End Sub 圖書類別： Private Sub Command1_Click() Dim rs_bookstyle As New Dim sql As String If Trim() = Then MsgBox 圖書種類不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 種類編號不能為空 , vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 圖書類別 where 類別名稱 =? amp。！ 另外，與我用樣使用 VB SQL Server2021 的同學(xué)們更是無私的給予了我許多幫助，并給我提出了許多有益的建議，真心的感謝他們的幫助與建議！ 再次感謝我的老師、我的同學(xué)以及相關(guān)網(wǎng)站給予我的 幫助 附錄： 主窗體： Private Sub add_admin_Click() End Sub Private Sub add_back_book_Click() End Sub Private Sub add_book_info_Click() End Sub Private Sub add_book_style_Click() End Sub 33 Private Sub add_lend_book_Click() End Sub Private Sub add_reader_info_Click() End Sub Private Sub add_reader_style_Click() End Sub Private Sub change_pwd_Click() End Sub Private Sub del_book_info_Click() End Sub Private Sub del_book_style_Click() End Sub Private Sub del_reader_info_Click() End Sub Private Sub del_reader_style_Click() End Sub Private Sub exit_sys_Click() End End Sub Private Sub find_book_info_Click() End Sub Private Sub find_lend_book_Click() End Sub 34 Private Sub find_reader_info_Click() End Sub Private Sub gu_Click() End Sub Private Sub H_Click() End Sub Private Sub modify_book_info_Click() End Sub Private Sub modify_book_style_Click() End Sub Private Sub modify_reader_info_Click() End Sub Private Sub modify_reader_style_Click() End Sub 添加圖書信息： Private Sub Command1_Click() Dim rs_addbook As New Dim sql As String If Trim() = Then MsgBox 請選擇圖書種類 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 圖書編號不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then 35 MsgBox 書名不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate() Then MsgBox 請按照 yyyymmdd 格式輸入日期 , vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate() Then MsgBox 請按照 yyyymmdd 格式輸入日期 , vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 書籍信息 where 書籍編號 =? amp。 在設(shè)計(jì)的整個(gè)過程中，對新軟件的使用、程序的編寫、數(shù)據(jù)庫 的構(gòu)建等一系列問題，胡老師都給予了我大力的支持和耐心的指導(dǎo)。同時(shí)，也使我認(rèn)識到自己所學(xué)的知識還很膚淺，這也正是我今后要努力提高的。它具有的可視化的編程環(huán)境和連接數(shù)據(jù)庫的便捷性，為數(shù)據(jù)庫的連接提供了多種方法。另外，合理的數(shù)據(jù)結(jié)構(gòu)將非常有利于程序的實(shí)現(xiàn)。 前臺開發(fā)涉及到整個(gè)圖書管理系統(tǒng)功能的實(shí)現(xiàn)，及實(shí)現(xiàn)的效率。前臺是應(yīng)用程序的開發(fā)：功能模塊設(shè)計(jì)、源代碼開發(fā)?；蛘咭部梢岳靡呀?jīng)設(shè)置好的快捷鍵進(jìn)行操作。 6 用戶操作說明 運(yùn)行環(huán)境說明 軟硬件環(huán)境 硬件配置： 586以上檔次的計(jì)算機(jī)，彩色顯示器， 操作方法 1．直接啟動應(yīng)用系統(tǒng) 2．在登錄窗體中輸入用戶名及密碼就可以直接進(jìn)入主界面。 2. 進(jìn)一步改進(jìn)設(shè)想 31 隨著網(wǎng)絡(luò)技術(shù)的飛速發(fā)展，基于網(wǎng)絡(luò)的應(yīng)用軟件正迅速發(fā)展。 ? sql, conn, adOpenKeyset, adLockPessimistic If Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = 否 MsgBox 添加書籍信息成功！ , vbOKOnly, Else MsgBox 圖書編號重復(fù)！ , vbOKOnly + vbExclamation, 30 = Exit Sub End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim rs_leibie As New Dim sql As String sql = select * from 圖書類別 sql, conn, adOpenKeyset, adLockPessimistic Do While Not (0) Loop End Sub 5 調(diào)試與分析 系統(tǒng)集成 系統(tǒng)調(diào)試 1. 采用各模塊獨(dú)立調(diào)試，整體合成測試的方法 。 運(yùn)行時(shí)的窗體如下： 當(dāng)單擊 “圖書管理 /圖書信息管理 /添加圖書信息 ”菜單時(shí)，彈出如 下代碼： Private Sub Command1_Click() Dim rs_addbook As New Dim sql As String If Trim() = Then MsgBox 請選擇圖書種類 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 圖書編號不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 書名不能為空 , vbOKOnly + vbExclamation, 29 Exit Sub End If If Not IsDate() Then MsgBox 請按照 yyyymmdd 格式輸入日期 , vbOKO