




已閱讀5頁,還剩47頁未讀, 繼續(xù)免費閱讀
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
代寫:各專業(yè)專、本、碩、博畢業(yè)論文,職稱論文;代發(fā):省級、國家級、核心期刊、CSSCI來源核心期刊論文。QQ:757518360電話:01087832641.圖書管理系統(tǒng)論文(VB+SQL)目 錄內(nèi)容摘要2引言.2第一章 課題簡介.3第二章 需求分析.42.1圖書管理現(xiàn)狀.42.2數(shù)據(jù)流程圖. 5第三章 系統(tǒng)邏輯和物理設(shè)計.83.1數(shù)據(jù)庫的設(shè)計.83.2功能模塊的實現(xiàn).9第四章 調(diào)試與分析.504.1存在問題及解決方案.504.2進一步改進設(shè)想.50第五章 用戶操作說明505.1軟硬件環(huán)境.505.2應(yīng)用系統(tǒng)安裝.505.3操作手冊.50小結(jié).51參考文獻.52內(nèi)容摘要圖書管理系統(tǒng)是采用Visual Basic6.0開發(fā)的一個數(shù)據(jù)庫管理系統(tǒng)。開發(fā)本系統(tǒng)的基本步驟:需求分析、系統(tǒng)概念設(shè)計、系統(tǒng)邏輯和物理設(shè)計、系統(tǒng)實現(xiàn)和維護。在系統(tǒng)分析中先后用數(shù)據(jù)字典、數(shù)據(jù)流程、系統(tǒng)的功能結(jié)構(gòu)圖、ER圖分析了系統(tǒng)所需的各種數(shù)據(jù)。在系統(tǒng)的設(shè)計過程中,我們采用了模塊獨立設(shè)計法,比較詳細的展現(xiàn)了各個模塊的功能。在庫和表的設(shè)計當(dāng)中, 我們力求層次清晰,設(shè)計簡單實用。在系統(tǒng)具體實行階段中,我們精心細致的畫出了各個窗體并給出了相應(yīng)的事件和代碼,以實現(xiàn)各個窗體的作用。本系統(tǒng)雖然設(shè)計簡單,但有一定的實用性。系統(tǒng)的功能較為全面,使用簡單,基本上可以作為一般大中小學(xué)的圖書管理系統(tǒng)。關(guān)鍵字:數(shù)據(jù)庫 SQL 語言 Visual Basic6.0 圖書 圖書管理 窗體 引言當(dāng)今時代是飛速發(fā)展的的信息時代。在各行各業(yè)中離不開信息處理,這正是計算機被廣泛應(yīng)用于信息管理系統(tǒng)的原因。計算機的最大好處在于利用它能夠進行信息管理。使用計算機進行信息控制,不僅提高了工作效率,而且大大的提高了其安全性。尤其對于復(fù)雜的信息管理,計算機能夠充分發(fā)揮它的優(yōu)越性。計算機進行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān),系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理好圖書館信息而設(shè)計的。圖書館作為一種信息資源的集散地,圖書和用戶借閱資料繁多,包含很多的信息數(shù)據(jù)的管理,現(xiàn)今,有很多的圖書館都是初步開始使用,甚至尚未使用計算機進行信息管理。根據(jù)調(diào)查得知,他們以前對信息管理的主要方式是基于文本,表格等紙介質(zhì)的手工處理,對于圖書借閱情況(如借書天數(shù),超過限定借書時間的天數(shù))的統(tǒng)計和核實等往往采用對借書卡的人工檢查進行,對借閱者的借閱權(quán)限,以及借閱天數(shù)等用人工計算,手抄進行。數(shù)據(jù)處理工作量大,容易出錯。由于數(shù)據(jù)繁多,容易丟失,且不易查找??偟膩碚f,缺乏系統(tǒng)規(guī)范的信息管理手段。盡管有的圖書館有計算機,但是尚未用于信息管理,沒有發(fā)揮它的效力,資源閑置比較突出,這就是管理信息系統(tǒng)的開發(fā)的基于環(huán)境?;谶@個問題,我認為有必要建立一個圖書管理系統(tǒng),使圖書管理工作規(guī)范化,系統(tǒng)化,程序化,避免圖書管理的隨意性,提高信息處理的速度和準(zhǔn)確性,能夠及時,準(zhǔn)確,有效的查詢和修改圖書情況。第一章 課題簡介課題:圖書管理系統(tǒng)。任務(wù):針對各大中專院校的圖書管理現(xiàn)狀,設(shè)計出適合一般學(xué)校的計算機輔助圖書管理系統(tǒng)。實現(xiàn)對圖書基本信息、讀者基本信息進行計算機輔助管理,完成借書和還書有關(guān)信息的記錄、修改、查詢、刪除等一系列任務(wù)的計算機管理與實現(xiàn).。開發(fā)環(huán)境:本圖書管理開發(fā)系統(tǒng)是在Pentyum 4 以上機型的計算機上進行開發(fā)并獲得通過的,同時方便系統(tǒng)開發(fā),減少開發(fā)過程的難度,我們是基于以下的軟件環(huán)境。以Windows 98為操作系統(tǒng)以Visual Basic6.0為開發(fā)工具以Microsoft SQL Server作為后臺數(shù)據(jù)庫功能概述:該系統(tǒng)界面完好,操作簡便,能完成添加圖書信息,修改圖書信息,查詢圖書信息,添加讀者類別,修改讀者類別,查詢讀者信息,修改讀者信息,添加刪除管理員等一系列圖書管理功能,開發(fā)本系統(tǒng)的總體任務(wù)是實現(xiàn)圖書管理的系統(tǒng)化和自動化,幫助管理人員更好更高效地完成圖書管理工作。本著實用性和介紹性的原則,整個系統(tǒng)由五大模塊組成,每個大的模塊又包括三至四個小的模塊。一、 圖書管理部分:包括圖書信息管理和類別管理,其功能是實現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容進行添加、修改、查詢等操作。二、 借閱管理部分:包括借書管理和還書管理,其功能是實現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加和查詢等操作。三、 讀者管理部分:包括讀者信息管理和讀者類別管理,其功能是實現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加和修改等操作。四、 系統(tǒng)管理部分:包括修改系統(tǒng)用戶密碼和增加新用戶兩項功能。 五、 幫助部分:顯示關(guān)于信息。系統(tǒng)具有高效、易操作、易維護等特點,并且系統(tǒng)結(jié)構(gòu)清晰、界面友好,功能較為齊全,能有效地協(xié)助管理人員進行圖書管工作。如果想真正把它用到圖書館的圖書自動化管理中,還需要讀者對該系統(tǒng)進行一步的完善工作。第二章 需求分析需求分析階段確定的系統(tǒng)邏輯模型是以后設(shè)計和實現(xiàn)目標(biāo)系統(tǒng)的基礎(chǔ),因此必須準(zhǔn)確完整地體現(xiàn)用戶的要求。在這一章里,我將給出系統(tǒng)的數(shù)據(jù)流圖,功能結(jié)構(gòu)圖,數(shù)據(jù)字典,為系統(tǒng)的設(shè)計奠定基礎(chǔ)。2.1圖書管理現(xiàn)狀隨著計算機技術(shù)的飛速發(fā)展,其應(yīng)用方面已滲透到社會生活的各個領(lǐng)域。它已經(jīng)成為我們學(xué)習(xí)和工作的得力助手。在學(xué)校,尤其是在一些高校,圖書是學(xué)校的一項重要資源,圖書的管理也是學(xué)校的一項常規(guī)性的重要工作。而長期以來,學(xué)生圖書管理都是依賴人工進行的?,F(xiàn)今,有很多的學(xué)校都已經(jīng)開始使用計算機進行圖書信息管理,并且起得良好的效果。近年來我校招生情況越來越好,所以圖書管理工作越來越繁重,但由于種種原因,管理人員并沒有增加,因此原有的人工管理工作已不能適應(yīng)現(xiàn)行的工作需要。同時,陳舊的人工管理也不利于推廣計算機應(yīng)用。為使圖書管理工作科學(xué)化、規(guī)范化,就必須采用計算機輔助管理。2.2 數(shù)據(jù)流程圖數(shù)據(jù)流程圖(Data Flow DFD)是描述實際業(yè)務(wù)管理系統(tǒng)工作流程的一種圖形表示法。它描繪系統(tǒng)的邏輯模型圖,其中沒有任何具體的物理元素,只是描繪信息在系統(tǒng)中流動和處理的情況。因為數(shù)據(jù)流程圖是邏輯系統(tǒng)的圖形表示,即使不是專業(yè)的計算機技術(shù)人員也容易理解,所以是極好的通信工具。此外,設(shè)計數(shù)據(jù)流程圖只需考慮系統(tǒng)必須完成的基本邏輯功能,完全不需要考慮如何具體地實現(xiàn)這些功能,所以它也是軟件設(shè)計的很好的出發(fā)點。圖書管理系統(tǒng)主要是為了對圖書、讀者基本信息等進行計算機管理。下面就是功能模塊的流程分析:2.2.1 圖書管管理系統(tǒng)基本信息流程流程分析:圖書基本信息的流動首先是以圖書編號為流動方向的依據(jù),來達到添加、修改、記錄、刪除圖書記錄。為了數(shù)據(jù)的一致性,進行這些操作的同時,也對數(shù)據(jù)庫中的記錄進行檢查,檢查是否有重復(fù)的記錄。如有則不能進行添加。2.2.2 讀者信息管理基本信息流程圖流程圖分析:讀者基本信息的流動首先是以讀者的編號為依據(jù),來達到添加、修改、查詢、刪除讀者信息的記錄。同時,也對數(shù)據(jù)庫中的讀者信息表的編號進行檢查。 2.2.3借書管理基本信息流程圖 流程圖分析:借書管理基本信息的流動首先是以借閱編號為流動方向的依據(jù),來達到添加、查詢借書記錄。為了數(shù)據(jù)的一致性,進行這些操作的同時,也對數(shù)據(jù)庫中的記錄進行檢查,檢查是否有重復(fù)的記錄。如沒有則可進行添加。2.2.4 還書管理基本信息流程圖流程圖分析:借閱管理部分是實現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加和查詢操作,在借閱信息中包括圖書編號、讀者編號,系統(tǒng)對借書日期進行自動添加。并通過添加功能來達到借閱信息表的數(shù)據(jù)的更新,通過查詢功能可使管理員很快地了解借閱信息,從而避免書籍的丟失現(xiàn)象產(chǎn)生。通過上面對各個模塊流程的分析,那么我們就不難對整個系統(tǒng)的大致流程有一個全面的認識。設(shè)計時采用了常用的自頂向下的瀑布式結(jié)構(gòu)化設(shè)計方法。這樣系統(tǒng)做起來后就便于用戶操作。綜合上面各個模塊的分析,其總體流程圖如下: 啟動界面登錄 連接數(shù)據(jù)庫, 驗證管理員密碼進入主畫面數(shù)據(jù)管理 記錄瀏覽 借還操作 系統(tǒng)設(shè)置 幫助 顯示 關(guān)于信息 讀者 借閱 借閱 歸還 添加 刪除記錄 記錄 書籍 書籍 管理員 管理員添 修 刪加 改 除第三章 系統(tǒng)邏輯和物理設(shè)計3.1數(shù)據(jù)庫的設(shè)計根據(jù)上面的結(jié)構(gòu)圖,現(xiàn)在需要將數(shù)據(jù)庫結(jié)構(gòu)轉(zhuǎn)化為SQL Server2000數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型,也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。形成數(shù)據(jù)庫中的表格以及各個表格之間的關(guān)系。圖書管理信息系統(tǒng)數(shù)據(jù)庫中各個表格的設(shè)計結(jié)果如下面的幾個表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。3.1.1圖書信息表字段名數(shù)據(jù)類型說明圖書編號文本主鍵,字段大小4書名文本字段大小10類別文本字段大小10價格貨幣類型無出版社文本字段大小40入庫日期日期/時間無是否借出文本字段大小43.1.2事務(wù)信息表字段名數(shù)據(jù)類型說明借閱編號自動編號無讀者編號文本字段大小50圖書編號文本字段大小50歸還日期日期/時間無出借日期日期/時間無3.1.3讀者信息表字段名數(shù)據(jù)類型說明讀者姓名文本字段大小10讀者編號文本主鍵,字段大小4年齡數(shù)字無家庭住址文本字段大小103.2功能模塊的實現(xiàn)按結(jié)構(gòu)化的程序設(shè)計思想,在完成了系統(tǒng)分析、系統(tǒng)設(shè)計后,就可以進行系統(tǒng)實現(xiàn)階段了,系統(tǒng)實現(xiàn)是每指把系統(tǒng)的物理模型轉(zhuǎn)換成實際運行系統(tǒng)的全過程。在打開數(shù)據(jù)表之前應(yīng)該先打開數(shù)據(jù)庫,系統(tǒng)中創(chuàng)建了一個模塊,該模塊的作用是連接數(shù)據(jù)庫以及數(shù)據(jù)庫中數(shù)據(jù)的提取,因為系統(tǒng)需要頻繁的使用數(shù)據(jù)庫中的數(shù)據(jù),建立模塊可以使程序簡單化,模塊的代碼如下:Public cn As ADODB.Connection定義連接以及取記錄的對象Public rst As ADODB.Recordset Public Function CnToDB() As BooleanOn Error GoTo My_Debug設(shè)定錯誤機制,當(dāng)連接錯誤時轉(zhuǎn)到My_Debug Set cn = New ADODB.Connection With cn設(shè)定訪問數(shù)據(jù)庫的參數(shù),對象SQLserver,數(shù)據(jù)庫booksys .ConnectionString = provider=sqloledb;uid=sa;pwd=;server=. .ConnectionTimeout = 5 .CursorLocation = adUseClient .Open .DefaultDatabase = booksys End With CnToDB = True Exit FunctionMy_Debug:當(dāng)出錯時,取消連接數(shù)據(jù)庫 Set con = Nothing CnToDB = FalseEnd FunctionPublic Function QueryData(ByVal strSql As String) As Boolean On Error GoTo My_Debug If CnToDB = True Then當(dāng)連接到數(shù)據(jù)庫后才能取得記錄 Set rst = New ADODB.Recordset With rst定義取記錄的參數(shù) .Source = strSql .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open End With QueryData = True End If Exit Function My_Debug: Set rst = Nothing QueryData = FalseEnd FunctionPublic Function getRS(ByRef rst As ADODB.Recordset, ByVal strSql As String) As BooleanOn Error GoTo rsErr Set rst = New ADODB.Recordset With rst .Source = strSql .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open End With If rst.State Then getRS = True Exit Function End IfrsErr: getRS = False MsgBox Err.Number & Err.Description, vbCritical + vbOKOnly, 錯誤信息End Function注意:當(dāng)程序不再使用數(shù)據(jù)庫時,應(yīng)該調(diào)用Connection對象的Close方法將其關(guān)閉,但此時它還會占用一定的系統(tǒng)資源,完全將資源釋放給系統(tǒng)的方法是使用下面的語句:Set con=Nothing.不過,這兩個步驟往往會被省略,因為當(dāng)程序關(guān)閉時,程序所打開的數(shù)據(jù)也會隨之關(guān)閉,Connection對象所占用的系統(tǒng)資源也會自動釋放給系統(tǒng).登錄窗體的實現(xiàn)其代碼如下:Private Sub Command1_Click()Dim uid定義用戶名變量Dim pwd定義密碼的變量 Dim strFu As String定義查找用戶名的變量 Dim strFp As String定義查找密碼的變量 strFu = select * from yh where userid= & Text1.Text & 查找與輸入的用戶名一致的用戶名If QueryData(strFu) Then如果找到了用戶名,則保存記錄符合記錄的條數(shù)uid = rst.RecordCountEnd If strFp = select * from yh where pwd= & Text2.Text & If QueryData(strFp) Thenpwd = rst.RecordCountEnd IfIf pwd = 1 And uid = 1 Then用戶名與密碼數(shù)據(jù)表里都有則顯示主畫面MDIForm1.ShowUnload Me關(guān)閉本窗口Else MsgBox 您輸入的用戶名或密碼有錯誤!, vbInformation + vbOKOnly, 登錄失敗End IfEnd SubPrivate Sub Command2_Click()取消按鈕的點擊事件Unload MeEnd SubPrivate Sub Form_Load()如果沒有連上數(shù)據(jù)庫,則顯示相應(yīng)信息If CnToDB = False Then MsgBox 網(wǎng)絡(luò)未響應(yīng)!出現(xiàn)此情況可能是與服務(wù)器沒有物理連接或數(shù)據(jù)庫不在指向的服務(wù)器上!, vbCritical + vbOKOnly, Connecting ErrorEnd IfText1.Text = 加載窗體時清空text1與text2的內(nèi)容Text2.Text = End Sub注意:工程屬性對話框中的”啟動選項”用來選取擇運行VB時顯示的第一個窗體,或者Sub Main.主窗體中的代碼不多,基本上都是實現(xiàn)單擊某個菜單選項即彈出相應(yīng)窗體的語句,這些語句將分別在各個窗體中介紹。單擊“幫助” “關(guān)于”菜單,系統(tǒng)代碼如下:Private Sub mun_help_about_Click()about.ShowEnd Sub系統(tǒng)主窗體的實現(xiàn)其代碼如下:Private rs As ADODB.RecordsetPrivate rs1 As ADODB.RecordsetPrivate rs2 As ADODB.RecordsetPrivate strSql As StringPrivate Sub Command1_Click()borrow.ShowEnd SubPrivate Sub Command2_Click()reback.ShowEnd SubPrivate Sub Command4_Click()Text2.Text = 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 book) = True Then Set DataGrid1.DataSource = rst Else MsgBox 查詢失??! End If Exit Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 沒有任何記錄! End IfEnd SubPrivate Sub Command5_Click()delbook.ShowEnd SubPrivate Sub Image1_Click()Dim strF As String搜索按鈕 strF = select * from book where bookname like % & Text2.Text & %If QueryData(strF) Then Set DataGrid1.DataSource = rstEnd IfEnd SubPrivate Sub MDIForm_Load()Text2.Text = 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 book) = True Then Set DataGrid1.DataSource = rst Else MsgBox 查詢失?。?End If Exit Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 沒有任何記錄! End If End SubPrivate Sub mun_add_data_recstu_Click()addreader.ShowEnd SubPrivate Sub mun_borr_giv_Click()reback.ShowEnd SubPrivate Sub mun_borr_ow_Click()borrow.ShowEnd SubPrivate Sub mun_data_add_recbook_Click()addbook.ShowEnd SubPrivate Sub mun_del_book_Click()delbook.ShowEnd SubPrivate Sub mun_del_stu_Click()delreader.ShowEnd SubPrivate Sub mun_exp_borrow_Click()booktran.ShowEnd SubPrivate Sub mun_exp_stu_Click()reader.ShowEnd SubPrivate Sub mun_help_about_Click()about.ShowEnd SubPrivate Sub mun_rework_book_Click()reworkbook.ShowEnd SubPrivate Sub mun_rework_stu_Click()reworkreader.ShowEnd SubPrivate Sub mun_sys_admin_Click()addmange.ShowEnd SubPrivate Sub mun_sys_sys_Click()delmange.ShowEnd Sub數(shù)據(jù)管理的實現(xiàn)當(dāng)單擊數(shù)據(jù)管理添加書籍記錄菜單時,窗體如下:代碼如下:Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()On Error GoTo nore If MsgBox(確實要添加嗎?, vbYesNo + vbQuestion, 提示) = vbYes Then Call upD rst.Update MsgBox 添加成功 End If Exit Subnore: MsgBox 圖書編號重復(fù)或者輸入錯誤!, vbOKOnly + vbCritical, 提示End SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = On Error GoTo fmerr If QueryData(select * from book) = True Then Else MsgBox 查詢失?。?End If Exit Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 沒有任何記錄! End IfEnd SubPrivate Sub upD() rst.AddNew rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text7.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text5.Text rst.UpdateEnd Sub當(dāng)單擊數(shù)據(jù)管理添加讀者記錄菜單時,彈出如下代碼:添加讀者的窗體代碼如下:Private Sub Command1_Click()On Error GoTo error If MsgBox(確實要添加嗎?, vbYesNo + vbQuestion, 提示) = vbYes Then Call upD1 rst.Update MsgBox 添加成功 End If Exit Suberror: MsgBox 讀者編號重復(fù)或者輸入錯誤!, vbOKOnly + vbCritical, 提示End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = On Error GoTo fmerr If QueryData(select * from reader) = True Then Else MsgBox 查詢失??! End If Exit Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 沒有任何記錄! End IfEnd SubPrivate Sub upD1() rst.AddNew rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.UpdateEnd Sub當(dāng)單擊數(shù)據(jù)管理修改更改書籍菜單時,窗體如下:代碼如下:Private Sub Command2_Click()On Error GoTo no Call upD2 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Subno: MsgBox 修改成功End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command5_Click()Dim strF As String strF = select * from book where bookid like % & Text1.Text & %If QueryData(strF) Then Text2.Text = rst.Fields(bookname).Value Text3.Text = rst.Fields(booktype).Value Text4.Text = rst.Fields(bookprice).Value Text5.Text = rst.Fields(bookstate).Value Text6.Text = rst.Fields(bookpublish).Value Text7.Text = rst.Fields(bookintime).Value End IfEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End SubPrivate Sub upD2() rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text7.TextEnd Sub當(dāng)單擊數(shù)據(jù)管理修改更改讀者菜單時,窗體如下代碼如下:Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command4_Click()On Error GoTo no Call upD3 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Subno: MsgBox 修改成功End SubPrivate Sub Command5_Click()Dim strF1 As String strF1 = select * from reader where readerid like % & Text1.Text & % If QueryData(strF1) Then Text2.Text = rst.Fields(readername).Value Text3.Text = rst.Fields(readerage).Value Text4.Text = rst.Fields(readercity).Value Text5.Text = rst.Fields(email).Value End IfEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate Sub upD3() rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.TextEnd Sub當(dāng)單擊數(shù)據(jù)管理刪除刪除書籍菜單時,窗體如下代碼如下:Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()On Error GoTo no Call upD2 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Subno: MsgBox 修改成功End SubPrivate Sub Command4_Click() If rst.EOF = True And rst.BOF = True Then MsgBox 沒有數(shù)據(jù)! Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 沒有數(shù)據(jù) Call txtCls End If Call showDB End IfEnd SubPrivate Sub Command5_Click()Dim strF As String strF = select * from book where bookid like % & Text1.Text & %If QueryData(strF) Then Text2.Text = rst.Fields(bookname).Value Text3.Text = rst.Fields(booktype).Value Text4.Text = rst.Fields(bookprice).Value Text5.Text = rst.Fields(bookstate).Value Text6.Text = rst.Fields(bookpublish).Value Text7.Text = rst.Fields(bookintime).ValueEnd IfEnd SubPrivate Sub Form_Load() Call txtClsEnd SubPrivate Sub upD2() rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text7.TextEnd SubPrivate Sub txtCls() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End SubPrivate Sub showDB() Text1.Text = rst.Fields(0).Value Text2.Text = rst.Fields(1).Value Text3.Text = rst.Fields(2).Value Text4.Text = rst.Fields(3).Value Text5.Text = rst.Fields(4).Value Text6.Text = rst.Fields(5).Value Text7.Text = rst.Fields(6).ValueEnd Sub當(dāng)單擊數(shù)據(jù)管理刪除刪除讀者菜單時,窗體如下代碼如下:Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click() If rst.EOF = True And rst.BOF = True Then MsgBox 沒有數(shù)據(jù)! Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 沒有數(shù)據(jù) Call txtCls End If Call showDB End IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command5_Click()Dim strF1 As String strF1 = select * from reader where readerid like % & Text1.Text & % If QueryData(strF1) Then Text2.Text = rst.Fields(readername).Value Text3.Text = rst.Fields(readerage).Value Text4.Text = rst.Fields(readercity).Value Text5.Text = rst.Fields(email).Value End IfEnd SubPrivate Sub Form_Load()txtClsEnd SubPrivate Sub txtCls() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate Sub showDB() Text1.Text = rst.Fields(0).Value Text2.Text = rst.Fields(1).Value Text3.Text = rst.Fields(2).Value Text4.Text = rst.Fields(3).Value Text5.Text = rst.Fields(4).Value End Sub當(dāng)單擊記錄瀏覽讀者記錄菜單時,窗體如下代碼如下:Private Sub Command1_Click()Dim strF As StringIf Combo1.Text = 編號 Then strF = select * from reader where readerid like % & Text1.Text & %If Qu
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025年中國中型載貨車未來趨勢預(yù)測分析及投資規(guī)劃研究建議報告
- 傳媒行業(yè)市場深度分析及發(fā)展前景預(yù)測報告
- 2025-2030年中國產(chǎn)銷包裝裝潢行業(yè)深度研究分析報告
- 直管進水裝置行業(yè)深度研究報告
- 2025年中國氚在線測量儀行業(yè)市場深度研究及投資規(guī)劃建議報告
- 2025年中國美容噴霧機行業(yè)發(fā)展監(jiān)測及投資戰(zhàn)略咨詢報告
- 中國水楊酸酯行業(yè)市場深度分析及投資戰(zhàn)略規(guī)劃建議報告
- 防洪工程質(zhì)量檢測報告
- 2025年老驥伏櫪表座項目投資可行性研究分析報告
- 2025年中國粉晶吊墜行業(yè)市場發(fā)展前景及發(fā)展趨勢與投資戰(zhàn)略研究報告
- 第12課 實現(xiàn)人生價值-【中職專用】2024年中職思想政治《哲學(xué)與人生》金牌課件(高教版2023·基礎(chǔ)模塊)
- HG∕T 3792-2014 交聯(lián)型氟樹脂涂料
- 中國大豆加工發(fā)展現(xiàn)狀簡析
- 2024年海南省高考物理試卷(含答案)
- GJB5765-2006 軍用機場場道工程質(zhì)量評定標(biāo)準(zhǔn)
- JJG 705-2014液相色譜儀行業(yè)標(biāo)準(zhǔn)
- 公司合作計劃書
- 2016-2023年南京信息職業(yè)技術(shù)學(xué)院高職單招(英語/數(shù)學(xué)/語文)筆試歷年參考題庫含答案解析
- 跨領(lǐng)域聯(lián)合診療(MDT)管理法規(guī)
- 光伏電站運維安全風(fēng)險管控清單
- 保安員考核評分標(biāo)準(zhǔn)與細則
評論
0/150
提交評論