【正文】 2003年12月[4]. 網(wǎng)絡(luò)數(shù)據(jù)庫實(shí)用教程 SQL server2000 /張登宏，梁曉宏主編 –北京：北京交通大學(xué)出版社，[5].管理信息系統(tǒng) 薛華成 清華大學(xué)出版社 1999年[6]. 管理信息系統(tǒng) /趙暉主編 –北京：交通大學(xué)出版社，[7]. 周黎,錢瑛, ,2008[8]. 李玉林. VISUAL ,2008[9]. 王興晶,趙萬軍. VISUAL ,2005[10]. 黃明,梁旭,石興民. VISUAL ,2006[11]. 鄒曉,曹來成,謬成斌,徐志剛. VISUAL ,2009[12]. 李俊民,許波. VISUAL ,2009[13]. 王永毅等編著．管理信息系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)．清華大學(xué)出版社，2003[14]. ，2000.[15].《Visual Basic 程序設(shè)計(jì)教程》，林卓然，電子工業(yè)出版社[16].《Visual Basic 程序設(shè)計(jì)基礎(chǔ)》，李群先，李耀偉，江學(xué)鋒，喬曉林，人民郵電出版社。 劉舫出版社： 電子工業(yè)出版社 作者： 他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他細(xì)心而又耐心的輔導(dǎo)。 50致謝致謝在本次畢業(yè)論文中，我從指導(dǎo)老師老師身上學(xué)到了很多東西。結(jié)束語經(jīng)過老師細(xì)心的指導(dǎo)，以及同學(xué)之間的相互交流，同時翻閱了大量的資料(包括網(wǎng)上資料，書本及學(xué)校的一些相關(guān)資料)經(jīng)過近一段時間的努力，使我對Visual Basic 有了更深程度的認(rèn)識和了解，也使我對數(shù)據(jù)庫的開發(fā)有所了解，為以后從事數(shù)據(jù)庫開發(fā)工作打下了良好的基礎(chǔ)。隨著網(wǎng)絡(luò)技術(shù)的飛速發(fā)展，基于網(wǎng)絡(luò)的應(yīng)用軟件正迅速發(fā)展。 If QueryData(strF1) Then = (userid).Value End IfEnd SubPrivate Sub Form_Load()txtClsEnd SubPrivate Sub txtCls() = = End Sub第4章 調(diào)試與分析采用各模塊獨(dú)立調(diào)試，整體合成測試的方法。 amp。Call getRS(rs, strSql)End SubPrivate Sub Form_Load()Call CnToDB = = End Sub當(dāng)單擊系統(tǒng)設(shè)置－添加管理員菜單時，窗體如下代碼如下：Private Sub Command1_Click()On Error GoTo error If MsgBox(確實(shí)要添加嗎？, vbYesNo + vbQuestion, 提示) = vbYes Then Call upD1 MsgBox 添加成功 End If Unload Me Exit Suberror: MsgBox 用戶名已存在或者輸入錯誤！, vbOKOnly + vbCritical, 提示End SubPrivate Sub Form_Load() = = On Error GoTo fmerr If QueryData(select * from yh) = True Then Else MsgBox 查詢失?。? End If Exit Subfmerr: If = True And = True Then MsgBox 沒有任何記錄！ End IfEnd SubPrivate Sub upD1() (0).Value = (1).Value = (2).Value = 1 End Sub當(dāng)單擊系統(tǒng)設(shè)置－刪除管理員菜單時，窗體如下代碼如下：Private Sub Command1_Click() If = True And = True Then MsgBox 沒有數(shù)據(jù)！ Else If Or Then MsgBox 沒有數(shù)據(jù) Call txtCls End If Unload Me End IfEnd SubPrivate Sub Command2_Click()Dim strF1 As String strF1 = select * from yh where userid like 39。 amp。 (strSql)MsgBox 還書成功ElseMsgBox 沒有該書借閱記錄End IfEnd SubPrivate Sub Command2_Click()strSql = select * from book where bookid=39。 amp。 where bookid=39。 (strSql)strSql = update book set bookstate=39。 amp。 where bookid=39。 Now amp。Call getRS(rs, strSql)If = 1 ThenstrSql = update booktran set returndate=39。 and bookstate=39。 amp。Call getRS(rs, strSql)If = 0 Then MsgBox 沒有該圖書 Exit SubEnd IfstrSql = select bookstate from book where bookid=39。 amp。Call getRS(rs, strSql)End SubPrivate Sub Form_Load()Call CnToDB = = End Sub當(dāng)單擊借還操作－歸還書籍菜單時，窗體如下代碼如下：Private strSql As StringPrivate rs As Private Sub Command1_Click()strSql = select * from book where bookid=39。 amp。 (strSql)MsgBox 借閱成功ElseMsgBox 該圖書已經(jīng)借出End IfEnd SubPrivate Sub Command2_Click()strSql = select * from book where bookid=39。 amp。 where bookid=39。) (strSql)strSql = update book set bookstate=39。 Now amp。,39。 amp。,39。 amp。Call getRS(rs, strSql)If = 1 ThenstrSql = insert into booktran(readerid,bookid,BorrowDate) values(39。 and bookstate=39。 amp。Call getRS(rs, strSql)If = 0 Then MsgBox 沒有該圖書 Exit SubEnd IfstrSql = select bookstate from book where bookid=39。 amp。If QueryData(strF) Then Set = rstEnd IfEnd IfEnd SubPrivate Sub Form_Load() = 讀者編號 圖書編號 借閱日期 歸還日期If CnToDB = False Then MsgBox 網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù)器沒有物理連接或數(shù)據(jù)庫不在指向的服務(wù)器上！, vbCritical + vbOKOnly, Connecting ErrorEnd IfOn Error GoTo fmerr If QueryData(select * from booktran) = True Then Set = rst Else MsgBox 查詢失??！ End If Exit Subfmerr: If = True And = True Then MsgBox 沒有任何記錄！ End IfEnd Sub當(dāng)單擊借還操作－借閱書籍菜單時，窗體如下代碼為：Private strSql As StringPrivate rs As Private Sub Command1_Click()strSql = select * from book where bookid=39。 amp。If QueryData(strF) Then Set = rstEnd IfEnd IfIf = 歸還日期 Then strF = select * from booktran where returndate like 39。 amp。If QueryData(strF) Then Set = rstEnd IfEnd IfIf = 借閱日期 ThenstrF = select *f