【正文】 動(dòng)已借書(shū)數(shù)量數(shù)字自動(dòng)自動(dòng)自動(dòng)：[職工信息] worker字段類(lèi)型字段大小必填字段允許空字符串管理人員文本50否是工號(hào)數(shù)字50是否姓名文本8否是性別文本2否是電話數(shù)字13否是住址：[借閱信息] reader字段類(lèi)型字段大小必填字段允許空字符串序號(hào)自動(dòng)編號(hào)（長(zhǎng)整型）主鍵工號(hào)文本250圖書(shū)編號(hào)文本250借閱時(shí)間日期/時(shí)間長(zhǎng)日期ADO中的數(shù)據(jù)對(duì)象通常保存的是查詢結(jié)果。Record Set保存的是一行行的記錄，并標(biāo)有一個(gè)當(dāng)前記錄。Set Record Set=(sqtStr)這條語(yǔ)句創(chuàng)建并打開(kāi)了對(duì)象Record Set，其中db是先前創(chuàng)建的鏈接對(duì)象，sqtStr是一個(gè)字串，代表一條標(biāo)準(zhǔn)的SQL語(yǔ)句。二、 計(jì)算機(jī)圖書(shū)管理系統(tǒng)數(shù)據(jù)（一） 數(shù)據(jù)庫(kù)與VB的連接當(dāng)數(shù)據(jù)設(shè)置好后就應(yīng)用VB當(dāng)中去，步驟:新建一個(gè)模塊命名“ Database “在Database 添加代碼, 數(shù)據(jù)庫(kù)與VB的連接代碼(由于代碼很長(zhǎng)見(jiàn)光盤(pán)code目錄下 “ ”)（二）關(guān)閉數(shù)據(jù)對(duì)象和鏈接對(duì)象在使用了ADO對(duì)象之后要關(guān)閉它，因?yàn)樗褂昧艘欢ǖ姆?wù)器資源。Record Set Record Set=Nothing/關(guān)閉創(chuàng)建的數(shù)據(jù)對(duì)象Set mConn=Nothing/關(guān)閉創(chuàng)建的鏈接對(duì)象（三）顯示數(shù)據(jù)庫(kù)中的內(nèi)容利用MSFLEGRID控件來(lái)顯示數(shù)據(jù)庫(kù)中的內(nèi)容，可以直接通過(guò)DATA控件來(lái)實(shí)現(xiàn)操作，也可以利用代碼來(lái)完成相關(guān)的操作。 amp。 39。圖書(shū)館管理系統(tǒng)能夠?yàn)橛脩魧?shí)現(xiàn)借閱圖書(shū)、期刊、試卷合訂本等，隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。這些優(yōu)點(diǎn)能夠極大地提高圖書(shū)館管理的效率,也是企業(yè)、學(xué)校的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件，因此，開(kāi)發(fā)這樣一套管理軟件是很有必要。1. 遐想遐想。開(kāi)發(fā)會(huì)遇到什么問(wèn)題，怎樣去解決.2. 繪圖即將遐想的，用圖象勾畫(huà)出來(lái)，呈現(xiàn)模擬系統(tǒng)的功能.3．準(zhǔn)備材料準(zhǔn)備事先制作好材料。代碼，軟件圖標(biāo)（Ico）頁(yè)面圖片(bmp,jpg).4. 開(kāi)發(fā)“糧草好了，就動(dòng)兵馬” 意思是現(xiàn)實(shí)開(kāi)發(fā)系統(tǒng)（如新建窗體，模塊等）.四、計(jì)算機(jī)圖書(shū)管理系統(tǒng)模塊設(shè)計(jì)（一）界面設(shè)計(jì)規(guī)范以及流程圖(詳細(xì)見(jiàn)頁(yè)面)主界面：菜單欄、工具條、工作區(qū)（本系統(tǒng)采用SSTab頁(yè)框）、狀態(tài)欄等。所有系統(tǒng)用戶擁有相似的主界面。代碼見(jiàn)code目錄下:主界面如代碼所示：Option Explicit39。定義查詢的字段窗體變量Dim sfield As String 39。查詢函數(shù)定義 39。按書(shū)名查詢則采用模糊查詢辦法Function open_seach(table_name As String, sfield As String, seachtext As String) As IntegerDim sqlstr As StringDim str As String 39。 + Data Source= + + \data\ + 。 查詢辦法選擇 If = True Then str = select * from amp。 where amp。 =39。 seachtext amp。 Else str = select * from amp。 where amp。 like 39。 Trim( % amp。 %) amp。 End If If = True Then str = select * from amp。 where amp。 =39。 seachtext amp。 Else str = select * from amp。 where amp。 like 39。 Trim( % amp。 %) amp。 End If str, con, adOpenDynamic, adLockOptimistic If 0 Then open_seach = 1 39。返回一個(gè)值0,代表沒(méi)有查詢結(jié)果 End If End FunctionPrivate Sub Check4_Click()39。后一記錄If = True Then = True = 已經(jīng)到達(dá)最后一條記錄了！Exit SubElseEnd IfEnd SubPrivate Sub DataGrid2_Click()Call connect_dbopen_connection (book) 39。如果只是普通用戶,無(wú)法查詢員工信息 = True = 對(duì)不起，您沒(méi)有查閱的權(quán)限！ Exit Sub End If open_connection (worker) 39。連接record表 tablename = record Set = rst End Sub Private Sub Command4_Click()Dim ret As IntegerIf = 查 詢 Then = 確 定Else If = False And = False And = False And = False Then = True = 請(qǐng)選擇查詢項(xiàng)! Exit Sub End If If = Then = True = 請(qǐng)輸入查詢內(nèi)容！ Exit Sub End If seachtext = Trim() ret = open_seach(tablename, sfield, seachtext) If ret = 0 Then = True = 對(duì)不起，沒(méi)有你要的記錄! = False = False = Set rst = Nothing Set = rst = False 39。連接book表 tablename = book If privilege = 1 Then 39。連接worker表 tablename = worker open_connection (record) 39。選擇查詢的字段Select Case Case 圖書(shū)信息瀏覽: sfield = [圖書(shū)名稱] Case 員工信息瀏覽: sfield = [姓名] Case 圖書(shū)借閱情況瀏覽: sfield = [工號(hào)]End SelectEnd SubPrivate Sub Option3_Click()39。選擇查詢的字段Select Case Case 圖書(shū)信息瀏覽: sfield = [作者]End SelectEnd SubPrivate Sub Text2_Change() = TimeEnd SubPrivate Sub TabStrip1_Click()Call connect_dbSelect Case Case 圖書(shū)信息瀏覽: open_connection (book) 39。如果只是普通用戶,無(wú)法查詢員工信息 = True = 對(duì)不起，您沒(méi)有查閱的權(quán)限！ Exit Sub End If open_connection (worker) 39。連接record表 = 書(shū)號(hào) = 工號(hào) tablename = record Set = rstEnd SelectEnd SubPrivate Sub Timer1_Timer() = NowEnd SubPrivate Sub xpcmdbutton1_Click()End SubPrivate Sub xpcmdbutton12_Click()End SubPrivate Sub xpcmdbutton13_Click()End SubPrivate Sub xpcmdbutton14_Click()Unload MeEnd SubPrivate Sub xpcmdbutton15_Click()open_connection readertablename = readerSet = rstEnd SubPrivate Sub xpcmdbutton2_Click()End SubPrivate Sub xpcmdbutton3_Click()End SubPrivate Sub xpcmdbutton4_Click()End SubPrivate Sub xpcmdbutton5_Click()open_connection (book)tablename = recordSet = rstEnd SubPrivate Sub xpcmdbutton6_Click()open_connection