圖書管理系統mis的設計與實現畢業論文-資料下載頁

　　

【正文】 tClose()。 ()。 MessageBox(辦理借閱證成功！,辦理借閱證)。 CPersonInfoDlg m_dlg。 =m_strProofID。 ()。 }第五章 各功能模塊的設計與實現:3. 借閱信息表:4. 書籍信息表::: 系統的設計與實現 系統的主界面的設計與實現主界面代碼:Private Sub add_admin_Click()End SubPrivate Sub add_back_book_Click()End SubPrivate Sub add_book_info_Click()End SubPrivate Sub add_book_style_Click()End SubPrivate Sub add_lend_book_Click()End SubPrivate Sub add_reader_info_Click()End SubPrivate Sub add_reader_style_Click()End SubPrivate Sub change_pwd_Click()End SubPrivate Sub del_book_info_Click()End SubPrivate Sub del_book_style_Click()End SubPrivate Sub del_reader_info_Click()End SubPrivate Sub del_reader_style_Click()End SubPrivate Sub exit_sys_Click()EndEnd SubPrivate Sub find_book_info_Click()End SubPrivate Sub find_lend_book_Click()End SubPrivate Sub find_reader_info_Click()End SubPrivate Sub modify_book_info_Click()End SubPrivate Sub modify_book_style_Click()End SubPrivate Sub modify_reader_info_Click()End SubPrivate Sub modify_reader_style_Click()End Sub 圖書管理模塊的設計與實現圖書管理模塊主要由:圖書類別管理,圖書信息管理.圖書類別管理又分別由以下幾個界面構成:1. 添加圖書類別添加圖書類別代碼:Private Sub Command1_Click()Dim rs_bookstyle As New Dim sql As StringIf Trim() = Then MsgBox 圖書種類不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 種類編號不能為空, vbOKOnly + vbExclamation, Exit SubEnd Ifsql = select * from 圖書類別 where 類別名稱=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticIf Then (0) = Trim() (1) = Trim() MsgBox 添加圖書類別成功！, vbOKOnly, Else MsgBox 讀者類別重復！, vbOKOnly + vbExclamation, = Exit SubEnd IfEnd Sub2. 修改圖書類別:修改圖書類別代碼:Private Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 圖書類別 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開數據庫 = False39。設定datagrid控件屬性 = False 39。不可增加 = False 39。不可刪除 = FalseIf userpow = guest Then 39。權限相關 = FalseEnd IfSet = rs_readerExit Subloaderror: MsgBox End Sub 讀者管理模塊的設計與實現:Private Sub Command1_Click()Dim sql As StringIf Trim() = Then MsgBox 讀者種類不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 借書數量不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 借書期限不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 有限期限不能為空, vbOKOnly + vbExclamation, Exit SubEnd Ifsql = select * from 讀者類別 where 種類名稱=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticIf Then (0) = Trim() (1) = CInt() (2) = CInt() (3) = CInt() MsgBox 添加讀者類別成功！, vbOKOnly, Else MsgBox 讀者類別重復！, vbOKOnly + vbExclamation, = Exit SubEnd IfEnd Sub3. 查詢讀者信息代碼分析:Private Sub Command1_Click()Dim rs_findreader As New Dim sql As StringIf = vbChecked Then sql = 讀者編號=39。 amp。 Trim( amp。 ) amp。 39。End IfIf = vbChecked Then If Trim(sql) = Then sql = 讀者姓名=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 讀者姓名=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 讀者類別=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 讀者類別=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd Ifsql = select * from 讀者信息 where amp。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = FalseSet = rs_findreader39。End Sub代碼實現:Private Sub Command1_Click()Dim sql As StringDim rs_find As New If = True Then sql = select * from 書籍信息 where 是否被借出=39。是39。End IfIf = True Then sql = select * from 書籍信息 where 是否被借出=39。否39。End IfIf = True Then sql = select * from 借閱信息 where 讀者姓名=39。 amp。 amp。 39。End If = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False Set = rs_findEnd SubPrivate Sub Command1_Click()Dim sql As StringDim rs_add As New If Trim() = Then MsgBox 用戶名不能為空, vbOKOnly + vbExclamation, Exit Sub Else sql = select * from 系統管理 sql, conn, adOpenKeyset, adLockPessimistic While ( = False) If Trim((0)) = Trim() Then MsgBox 已有這個用戶, vbOKOnly + vbExclamation, = = = = Exit Sub Else End If Wend If Trim() Trim() Then MsgBox 兩次密碼不一致, vbOKOnly + vbExclamation, = = Exit Sub ElseIf Trim() system And Trim() guest Then MsgBox 請選擇正確的用戶權限, vbOKOnly + vbExclamation, = Exit Sub Else (0) = (1) = (2) = MsgBox 添加用戶成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd Sub第六章．系統測試與維護本系統采用VB編程工具,Access數據庫，因此本系統運行需要的軟件環境比較平常,易于操作。（一）系統測試系統測試：采用人工測試方法進行系統的測試，先從程序調試開始，因為軟件的設計需要編出很多的代碼，其錯誤的頻率相當的高，如果沒有錯誤，則進行子系統的測試，子系統是各個模塊的分支，通過測試之后，再與模塊相連接，看總體的設計是否合理。剛開始測試時不必按真實情況下的數據量進行，可以采用一些精心設計的數據量作為測試用例，這樣不僅可以使處理工作量大大減少，而且更容易發現錯誤和確定錯誤所在范圍。對測試對象的功能測試應側重于所有可直接追蹤到用例或業務功能的測試需求。這種測試的目標是核實數據的接受、處理和檢索是否正確。此類測試基于黑盒技術，該技術通過圖形用戶界面 (GUI)與應用程序進行交互，并對交互的輸出或結果進行分析，以此來核實應用程序及其內部進程。下邊主要采用黑箱測試法來對系統部分模塊進行測試。1．還書功能測試（黑箱測試法）：測試用例【輸 入】借過書的讀者編號和被借出已經過期了的圖書圖51還書界面【期望輸出】不能正常還書【實際輸出】確定之后 圖52還書界面2．借書功能測試（黑箱測試法）： 測試用例1 【輸入】讀者借書，輸入讀者編號借書界面【期望輸出】正常借書【實際輸出】此人有圖書到期，已列入黑名單，不能借書。借書登記測試用例2【輸入】繼