【正文】 下邊主要采用黑箱測試法來對系統(tǒng)部分模塊進行測試。剛開始測試時不必按真實情況下的數(shù)據(jù)量進行，可以采用一些精心設(shè)計的數(shù)據(jù)量作為測試用例，這樣不僅可以使處理工作量大大減少，而且更容易發(fā)現(xiàn)錯誤和確定錯誤所在范圍。 amp。End IfIf = True Then sql = select * from 書籍信息 where 是否被借出=39。 End IfEnd Ifsql = select * from 讀者信息 where amp。 amp。 ) amp。 39。 and 讀者姓名=39。 Trim( amp。 ) amp。 39。不可刪除 = FalseIf userpow = guest Then 39。 sql, conn, adOpenKeyset, adLockPessimisticIf Then (0) = Trim() (1) = Trim() MsgBox 添加圖書類別成功！, vbOKOnly, Else MsgBox 讀者類別重復(fù)！, 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。 }第五章 各功能模塊的設(shè)計與實現(xiàn):3. 借閱信息表:4. 書籍信息表::: 系統(tǒng)的設(shè)計與實現(xiàn) 系統(tǒng)的主界面的設(shè)計與實現(xiàn)主界面代碼: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 圖書管理模塊的設(shè)計與實現(xiàn)圖書管理模塊主要由:圖書類別管理,圖書信息管理.圖書類別管理又分別由以下幾個界面構(gòu)成: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。 MessageBox(辦理借閱證成功！,辦理借閱證)。 m_psetUpdate()。 m_psetm_Tel_Number=m_strTel。(m_psetm_ID_Number),FALSE)。 m_psetSetFieldNull(amp。 CTime m_strBirthTime(m_year,m_month,m_day,10,5,6,1)。 m_psetm_Name=m_strName。(m_psetm_Proof_ID),FALSE)。 m_psetOpen(AFX_DB_USE_DEFAULT_TYPE,strSQL)。 m_month=atoi(m_strMonth)。 int m_year,m_month,m_day。 else if(m_iSex==IDC_RADIO_FEMALE) m_strSex=Female。 //沒有這個號碼，辦理借閱證，存入數(shù)據(jù)庫 if(m_strProofID==||m_strName==||m_strAddress== ||m_strID==||m_strTel==) { MessageBox(請認真填寫要求的數(shù)據(jù)!,辦理借閱證)。 ()。 m_psetOpen(AFX_DB_USE_DEFAULT_TYPE,strSQL)。 //察看是否已經(jīng)有該人，有將不予辦理！ CString strSQL。 } if(!()) { if(!(_T(Library))) { MessageBox(不能打開數(shù)據(jù)庫,辦理借閱證)。 ()。 m_pBookClose()。,m_strBookNo)。 sprintf(buf,%d%d%d %d:%d:%d,year, month,day, hour,minute, second)。 m_pBorrowGetFieldValue(2,strTemp)。 while(!m_pBorrowIsEOF()) { (i,buf)。 m_pBorrowMoveFirst()。 m_pBorrowClose()。 CBorrowSet *m_pBorrow=new CBorrowSet(amp。 m_pProofClose()。 m_pProofGetFieldValue(1,strTemp)。 m_pProofClose()。%s39。 CDBVariant varValue。 if(!()) { if(!(_T(Library))) { MessageBox(Cannot open database!,借書查詢)。 m_psetClose()。 m_psetm_Puni_Money=m_dblPunish。 m_psetm_Return_Date=curTime。(m_psetm_Borrow_Date),FALSE)。 m_psetSetFieldNull(amp。 } m_psetAddNew()。 CPunishSet *m_pset=new CPunishSet(amp。 m_dPrice=m_pBookm_Price。 m_pBookm_Total_Amount。 if(m_pBookGetRecordCount()==0) { MessageBox(查詢書籍信息出錯，將進行回退，請與館主聯(lián)系!,圖書掛失)。,m_strBookID)。 m_pProofRequery()。 return。 m_pProofOpen(AFX_DB_USE_DEFAULT_TYPE,strSQL)。m_database)。 //超期，予以罰款 if(m_timediff=60) { //60天為超時限制時間, m_dblPunish=m_dblPunish+(m_timediff60)*。 m_yeardiff=()()。 return。 m_pBorrowOpen(AFX_DB_USE_DEFAULT_TYPE,strSQL)。%s39。 CTime curTime,oriTime。 } if(!()) { if(!(_T(Library))) { MessageBox(Canot connect to the data source!,圖書掛失)。 RefreshData()。 m_pBorrowRequery()。(m_pBorrowm_Borrow_Date),FALSE)。(m_pBorrowm_Book_ID),FALSE)。 m_pBorrowSetFieldNull(amp。m_database)。 m_pBookRequery()。 return。 m_pBookOpen(AFX_DB_USE_DEFAULT_TYPE,strSQL)。%s39。 m_pProofUpdate()。 ()。 } CDBVariant varValue。 if(m_pProofGetRecordCount()==0) { MessageBox(數(shù)據(jù)庫中沒有這個人的信息,借書/還書,MB_ICONINFORMATION)。, m_strProofID)。 return。 ()。 } } 借書/還書只列出了借書的函數(shù)，還書函數(shù)OnButtonReturn() 與借書函數(shù)類似。 ()。 MessageBox(修改成功!,修改密碼,MB_OK|MB_ICONEXCLAMATION)。 } else { m_pLogsetEdit()。 ()。,m_strUserName,m_strPassword_old)。 (select * from Admin_Info where User_Name=39。 return。 ()。 } if(!()) { //連接數(shù)據(jù)源 if(!(_T(Library))) { MessageBox(連接數(shù)據(jù)庫失敗!,圖書管理系統(tǒng),MB_OK|MB_ICONINFORMATION)。 if(()) { MessageBox(請輸入用戶名!,登錄系統(tǒng),MB_OK|MB_ICONEXCLAMATION)。 m_psetClose()。(m_psetm_WorkID),FALSE)。 m_psetSetFieldNull(amp。 m_psetAddNew()。m_database)。 return 。 if(()==0||()==0) { MessageBox(請正確填寫所需數(shù)據(jù),增加用戶)。 =m_strProofID。 ()。 ()。,m_strProofID)。m_database)。 return。 i++。 (i,6,strTemp)。 (i,4,strTemp)。 m_psetGetFieldValue(3,varValue)。 m_psetGetFieldValue(1,strTemp)。 while(!m_psetIsEOF()) { int temp=0。 CDBVariant varValue。 UpdateData(FALSE)。 if(m_psetGetRecordCount()==0) { MessageBox(數(shù)據(jù)庫中沒有這個人的信息,借閱證查詢)。 (select * from Proof_Info where Proof_ID=39。 return。 }點擊查詢圖書信息，如圖：void CCheckProofDlg::OnButtonCheckProof() { // TODO: Add your control notification handler code here UpdateDa