【正文】 。在上面的實體以及實體之間關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫中的表格以及各個表格之間的關(guān)系。每個表格表示在數(shù)據(jù)庫中的一個表。字段名數(shù)據(jù)類型說明借閱編號自動編號無讀者編號文本字段大小50讀者姓名文本字段大小50圖書編號文本字段大小50圖書名稱文本字段大小50出借日期日期/時間無 字段名數(shù)據(jù)類型說明種類名稱文本必添字段“是”，允許空字符為“否”借書數(shù)量數(shù)字無借書期限數(shù)字無有限期限數(shù)字無 由于應(yīng)用環(huán)境不斷變化，數(shù)據(jù)庫運行過和中物理存儲也會不斷變化，對數(shù)據(jù)庫設(shè)計進行調(diào)整，修改等維護工作是設(shè)計工作的繼續(xù)和提高。 數(shù)據(jù)庫的轉(zhuǎn)儲和恢復針對不同的應(yīng)用要求制定不同的轉(zhuǎn)儲計劃，保證一旦發(fā)生故障能盡快將數(shù)據(jù)庫恢復到某種一致的狀態(tài)，盡可能減少對數(shù)據(jù)庫的破壞。 數(shù)據(jù)庫的安全性、完整性控制在數(shù)據(jù)庫運行過程中由于應(yīng)用環(huán)境的變化，對安全性的要求也會發(fā)生變化，如原來機密的數(shù)據(jù)現(xiàn)在可以公開查詢了，新加入的數(shù)據(jù)又可能是機密的了。這都需要根據(jù)實際情況修改原有的安全性控制，可以設(shè)置數(shù)據(jù)庫密碼及用戶權(quán)限。3.4.使數(shù)據(jù)庫的物理存儲情況變壞，降低了數(shù)據(jù)的存取效率，數(shù)據(jù)庫性能下降，這時DBA要對數(shù)據(jù)庫進行重組織，或部分重組織（只對頻繁增、刪的表進行重組織），可以利用Microsoft SQL Server2000專門提供的數(shù)據(jù)重組織實用程序操作，按原設(shè)計要求重新安排存儲位置、回收垃圾、減少指針鏈等，提高系統(tǒng)性能?！?shù)據(jù)庫設(shè)計　　這里的數(shù)據(jù)庫采用Access，用ADO作為連接數(shù)據(jù)對象?！　∈褂贸绦蛟O(shè)計器建立系統(tǒng)需要的表格如下。　　　　　 圖4 圖書登記表　　圖書借閱表，如圖5所示。系統(tǒng)管理表，如圖7所示?！　　　∵B接數(shù)據(jù)　　在Visual Basic環(huán)境下，選擇“工程”→“引用”命令，在隨后出現(xiàn)的對話框中選擇“Microsoft ActiveX Data Objects Library”，然后單擊“確定”按鈕，如圖8所示。語句如下:　　Public conn As New ’ 標記連接對象　　然后在子程序中，用如下的語句即可打開數(shù)據(jù)庫:　　Dim connectionstring As String　　connectionstring = provider=。_　　data source=　　 connectionstring　　設(shè)置ODBC　　VB的ADO對象是通過ODBC來訪問數(shù)據(jù)庫，所以還要建立ODBC數(shù)據(jù)引擎接口?！　　D9DBC對話框　　單擊“添加”按鈕，出現(xiàn)“創(chuàng)建新數(shù)據(jù)源”對話框，如圖10?！　D11置連接數(shù)據(jù)源　　在“數(shù)據(jù)源名”文本框中添加一個名字，單擊“確定”按鈕完成系統(tǒng)默認連接設(shè)置。界面設(shè)計　　　設(shè)計好的界面(兩種界面選一)如圖12所示。MDI 應(yīng)用程序中常有包含子菜單的“窗體”選項，用于在窗體或文檔之間進行切換?！　?chuàng)建主窗體　　首先創(chuàng)建一個工程，命名為圖書管理系統(tǒng)，選擇“工程”→“添加MDI窗體”命令，則在項目中添加了主窗體?！　”? 主窗體的屬性屬 性值Caption圖書管理系統(tǒng)NameMainMenuMainmenu1WindowstateMaxsize　Windowstate的值為Maxsize，即程序啟動之后自動最大化。創(chuàng)建一個 Text 屬性設(shè)置為“文件”的頂級菜單項，且?guī)в忻麨椤瓣P(guān)閉”的子菜單項?！　”? 菜 單 項 表菜 單 名 稱Text屬性功 能 描 述MenuItem1圖書管理頂級菜單，包含子菜單MenuItem2圖書類別調(diào)出圖書登記窗體MenuItem3圖書信息調(diào)出圖書借閱窗體MenuItem4圖書資料頂級菜單，包含子菜單MenuItem5查詢輸出調(diào)出查詢輸出窗體MenuItem6系統(tǒng)管理頂級菜單，包含子菜單MenuItem7增加用戶調(diào)出用戶窗體MenuItem8修改密碼調(diào)出密碼窗體MenuItem9退出系統(tǒng)退出　　創(chuàng)建各子窗體　　選擇“工程”→“添加窗體”命令，添加子窗體?！　≡谶@個項目中，要創(chuàng)建的子窗體如表3所示。(1) 圖書登記子窗體控件如表4所示。(2) 增加用戶子窗體如圖13所示，其控件如表5所示。圖14 修改密碼子窗體（4) 用戶登錄子窗體如圖15所示?！　　　D16建立公共模塊　　顯示目錄　　建立公共模塊可以提高代碼的效率，同時使得修改和維護代碼都很方便?！　?2) 選擇模塊圖標后，單擊“打開”按鈕，則模塊已經(jīng)添加到項目中了?！　　　D17 模塊對話框(3) 在模塊中定義整個項目的公共變量。主窗體代碼　　在本項目中，子菜單事件都是Click事件，這里先給出主窗體部分的代碼。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 Form_Load()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) 圖書登記子窗體代碼　　本窗體用來填寫圖書登記的信息，用ADO來連接數(shù)據(jù)庫，是本窗體的重點?！　　D18 圖書登記子窗體　　按鈕控件要求先填寫基本信息，然后與數(shù)據(jù)庫信息比較。 amp。 39?！　　D19 圖書借閱子窗體運行效果　 　　(2) 增加用戶子窗體代碼　　增加用戶子窗體是用來增加用戶的用戶名、密碼和權(quán)限的?！　　　D20 增加用戶子窗體運行效果 信息框　　窗體部分代碼的思路是，收集輸入的表中的字符串，然后與數(shù)據(jù)庫中的系統(tǒng)的用戶數(shù)據(jù)比較，如果不存在，則允許添加?！　　D21修改密碼子窗體運行效果　　在“確定”按鈕的Click事件中添加如下代碼:　　Private Sub Command1_Click()　　Dim rs_chang As New 　　Dim sql As String　　If Trim() Trim() Then　　MsgBox 密碼不一致!, vbOKOnly + vbExclamation, 　　　　 = 　　 = 　　Else　　sql = select * from 系統(tǒng)管理 where 用戶名=’ amp。 ’　　 sql, conn, adOpenKeyset, adLockPessimistic　　(1) = 　　　　　　MsgBox 密碼修改成功, vbOKOnly + vbExclamation, 　　Unload Me　　End If　　End Sub圖22　　在上述代碼中，首先比較兩個表中的數(shù)據(jù)是否一致，(1) = 。　　　　(4) 查詢子窗體代碼　　查詢子窗體是用來查詢庫房中圖書資料明細的。　　　圖23 查詢子窗體運行效果　　　　Option ExplicitDi