【正文】 Text amp。Private Sub Command1_Click()On Error GoTo cmderrorDim find_date1 As StringDim find_date2 As StringIf = True Thensqlfind = select * from 圖書資料 where 編號 between 39。其運行效果如圖所示。 調用顯示Datagrid1子程序loaderror:If 0 ThenMsgBox End IfEnd Sub39。 修改狀態(tài)標志Private Sub cmdexit_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo loaderrorDim sql As Stringsql = select * from 圖書資料 = adUseClient sql, conn, adOpenKeyset, adLockPessimisticWhile Not (0)Wendfindok = Truemodify = False 39。檢查代碼如下:Option ExplicitDim rs_data2 As New Dim select_row As StringDim showgrid2 As BooleanDim rs_custom As New Dim jinchu As String 39。庫房管理子窗體實際上，設計庫房管理子窗體的程序代碼與增加用戶子窗體的代碼在思路上是完全相同的。 庫房管理子窗體是用來管理圖書資料的。 sql, conn, adOpenKeyset, adLockPessimistic(1) = MsgBox 密碼修改成功, vbOKOnly + vbExclamation, Unload MeEnd IfEnd Sub在上述代碼中，首先比較兩個表中的數(shù)據(jù)是否一致，(1) = 。 userID amp。 修改密碼子窗體運行效果在“確定”按鈕的Click事件中添加如下代碼:Private Sub Command1_Click()Dim rs_chang As New Dim sql As StringIf Trim() Trim() ThenMsgBox 密碼不一致!, vbOKOnly + vbExclamation, = = Elsesql = select * from 系統(tǒng)管理 where 用戶名=39。Private Sub Command1_Click()Dim sql As StringDim rs_add As New If Trim() = ThenMsgBox 用戶名不能為空, vbOKOnly + vbExclamation, Exit SubElsesql = select * from 系統(tǒng)管理 sql, conn, adOpenKeyset, adLockPessimisticWhile ( = False)If Trim((0)) = Trim() ThenMsgBox 已有這個用戶, vbOKOnly + vbExclamation, = = = = Exit SubElseEnd IfWendIf Trim() Trim() ThenMsgBox 兩次密碼不一致, vbOKOnly + vbExclamation, = = Exit SubElseIf Trim() system And Trim() guest ThenMsgBox 請選擇正確的用戶權限, vbOKOnly + vbExclamation, = Exit SubElse(0) = (1) = (2) = 下面是返回成功信息對話框的代碼:MsgBox 添加用戶成功, vbOKOnly + vbExclamation, Unload MeEnd IfEnd IfEnd Sub修改密碼子窗體是用來修改用戶密碼的。單擊“確定”按鈕后，還要返回一個信息框，提示成功信息，如圖所示。圖書借閱子窗體運行效果圖書賠償子窗體運行效果增加用戶子窗體是用來增加用戶的用戶名、密碼和權限的。圖書登記子窗體按鈕控件要求先填寫基本信息，然后與數(shù)據(jù)庫信息比較。、圖書登記子窗體代碼本窗體用來填寫圖書登記的信息，用ADO來連接數(shù)據(jù)庫，是本窗體的重點。Private Sub zhibanguanli_Click() 1End Sub下面是響應“投訴管理”子菜單Click事件，調出投訴管理窗體代碼。Private Sub borrow_Click()End Sub下面是響應“圖書賠償”子菜單Click事件，調出圖書賠償窗體代碼。Private Sub checkin_Click()End Sub下面是響應“修改密碼”子菜單Click事件，調出修改密碼窗體代碼。Private Sub chaxunshuchu_Click()End Sub下面是響應“退出”子菜單Click事件，調出退出窗體代碼。下面是響應“增加用戶”子菜單Click事件，調出增加用戶窗體代碼。 enter鍵的ASCII碼在主窗體添加完菜單之后，就要為各個子菜單創(chuàng)建事件處理程序。 標記查詢Public sqlfind As String 39。 標記當前用戶IDPublic userpow As String 39。Public conn As New 39。默認情況下名為Module1。創(chuàng)建公共模塊的步驟如下:(1) 在菜單中選擇“工程”→“添加模塊”命令，則出現(xiàn)模塊對話框，如圖所示。查詢子窗體表7 查詢子窗體控件控 件 類 別控件Name控件TextOptionButtonOption1按編號查詢Option2按購買日期查詢LabelLabel1從Label2到Label3從Label4年Label5月Label6日Label7到Label8年Label9月Label10日Combo(0) ComboBoxCombo1(空)Combo(1) ComboBoxCombo1(空)Comboy(0) ComboBoxComboy(空)Comboy(1) ComboBoxComboy(空)Combom(0) ComboBoxCombom(空)Combom(1) ComboBoxCombom(空)Combod(0) ComboBoxCombod(空)Combod(1) ComboBoxCombod(空)CommandButtonCommand1查詢Command2取消(6) 用戶登錄子窗體如圖29所示。庫房管理子窗體其控件如表6所示。增加用戶子窗體表5 增加用戶子窗體控件控 件 類 別控件Name控件TextLabelLabel1輸入用戶名Label2輸入密碼Label3確認密碼Label4選擇權限TextBoxText1(空)Text2(空)Text3(空)ComboBoxComb1(空)CommandButtonCommandl確定Command2取消(3) 修改密碼子窗體如圖所示。(1) 圖書登記子窗體如所示，其控件如表4所示。在這個項目中，要創(chuàng)建的子窗體如表3所示。圖21 主窗體創(chuàng)建各子窗體選擇“工程”→“添加窗體”命令，添加子窗體。類似地創(chuàng)建一些菜單項，如表2所示。將“菜單”組件從“工具箱”拖到窗體上。該窗體的一些屬性如表1所示。菜單應用程序中，有5個菜單選項，每個選項對應著ER圖的一個子項目。圖書管理系統(tǒng)界面這是一個多文檔界面(MDI)應用程序，可以同時顯示多個文檔，每個文檔顯示在各自的窗體中。：內容最低配置建議配置主機P/200PⅢ266以上內存256MB512MB以上硬盤20GB40GB以上顯示器VGA以上：操作系統(tǒng)：Windows 98中文版或Windows XP中文版編程軟件和數(shù)據(jù)庫：Visual +Access2000中文版對所有登錄本系統(tǒng)的使用用戶進行嚴格的用戶名和密碼的管理，如果不屬于系統(tǒng)事先設定好的合法用戶，則系統(tǒng)無法登錄，為了防止密碼外泄，本系統(tǒng)具備密碼修改功能。Set Record Set=(sqtStr)這條語句創(chuàng)建并打開了對象Record Set，其中db是先前創(chuàng)建的鏈接對象，sqtStr是一個字串，代表一條標準的SQL語句。Record Set保存的是一行行的記錄，并標有一個當前記錄。 MDB數(shù)據(jù)流程圖以及數(shù)據(jù)表圖書管理系統(tǒng)數(shù)據(jù)流程圖ADO中的數(shù)據(jù)對象通常保存的是查詢結果。設置連接數(shù)據(jù)源在“數(shù)據(jù)源名”文本框中添加一個名字，單擊“確定”按鈕完成系統(tǒng)默認連接設置。ODBC對話框單擊“添加”按鈕，出現(xiàn)“創(chuàng)建新數(shù)據(jù)源”對話框，如圖所示。_data source= connectionstring設置ODBCVB的ADO對象是通過ODBC來訪問數(shù)據(jù)庫，所以還要建立ODBC數(shù)據(jù)引擎接口。 標記連接對象然后在子程序中，用如下的語句即可打開數(shù)據(jù)庫:Dim connectionstring As Stringconnectionstring = provider=。連接數(shù)據(jù)在Visual Basic環(huán)境下，選擇“工程”→“引用”命令，在隨后出現(xiàn)的對話框中選擇“Microsoft ActiveX Data Objects Library”，然后單擊“確定”按鈕，引用ADO連接數(shù)據(jù)庫在程序設計的公共模塊中，先定義ADO連接對象。使用程序設計器建立系統(tǒng)需要的表格如下。這里的數(shù)據(jù)庫采用Access，用ADO作為連接數(shù)據(jù)對象。 利用DATA控件訪問數(shù)據(jù)庫該軟件是利用ACCESS數(shù)據(jù)庫，操作方便，簡單。業(yè)務規(guī)則是模式的一個重要部分，因為他們指定了無論什么數(shù)據(jù)變化到達DBMS引擎，允許的數(shù)據(jù)值必須滿足的允許空字符串。除了數(shù)據(jù)的物理必填字段外，還需要確定是否有些域對表來說是唯一的。域是一列可能擁有的值的集合。圖書館管理系統(tǒng)屬于事務型系統(tǒng)，其系統(tǒng)示意圖如下圖所示：圖書館管理系統(tǒng)結構圖系統(tǒng)功能圖如下：計算機管理系統(tǒng)圖書管理系統(tǒng)數(shù)據(jù)庫模式定義了數(shù)據(jù)庫的結構、表、關系、域和業(yè)務規(guī)則。圖書館管理系統(tǒng)包含圖書采編、讀者管理、流通、查詢等功能。下面以數(shù)據(jù)流圖和數(shù)據(jù)字典的方式來描述新系統(tǒng)的邏輯功能。2．系統(tǒng)概要設計對該圖書館進行初步調研的具體內容為：（1）圖書館的規(guī)模：現(xiàn)藏書冊數(shù)、種類；（2）圖書館的主要業(yè)務；（3）圖書館下高幾個部門；（4）圖書館職工人數(shù)；（5）職