【正文】 管理員添 修 刪加 改 除第3章 詳細設(shè)計圖 31 圖書信息表字段名數(shù)據(jù)類型說明圖書編號文本主鍵，字段大小4書名文本字段大小10類別文本字段大小10價格貨幣類型無出版社文本字段大小40入庫日期日期/時間無是否借出文本字段大小4圖 32 事務(wù)信息表字段名數(shù)據(jù)類型說明借閱編號自動編號無讀者編號文本字段大小50圖書編號文本字段大小50歸還日期日期/時間無出借日期日期/時間無 圖 33讀者信息表字段名數(shù)據(jù)類型說明讀者姓名文本字段大小10讀者編號文本主鍵，字段大小4年齡數(shù)字無家庭住址文本字段大小10在打開數(shù)據(jù)表之前應(yīng)該先打開數(shù)據(jù)庫，系統(tǒng)中創(chuàng)建了一個模塊，該模塊的作用是連接數(shù)據(jù)庫以及數(shù)據(jù)庫中數(shù)據(jù)的提取，因為系統(tǒng)需要頻繁的使用數(shù)據(jù)庫中的數(shù)據(jù)，建立模塊可以使程序簡單化，模塊的代碼如下：Public As Public rst As Public Function CnToDB() As BooleanOn Error GoTo Debug設(shè)定錯誤機制，當(dāng)連接錯誤時轉(zhuǎn)到Debug Set = New With 設(shè)定訪問數(shù)據(jù)庫的參數(shù)，對象SQL－server .ConnectionString = provider=sqloledb。uid=sa。pwd=。server=. .ConnectionTimeout = 5 .CursorLocation = adUseClient .Open .DefaultDatabase = booksys End With CnToDB = True Exit FunctionDebug:當(dāng)出錯時，取消連接數(shù)據(jù)庫 Set con = Nothing CnToDB = FalseEnd FunctionPublic Function QueryData(ByVal strSql As String) As Boolean On Error GoTo Debug If CnToDB = True Then當(dāng)連接到數(shù)據(jù)庫后才能取得記錄 Set rst = New With rst定義取記錄的參數(shù) .Source = strSql .ActiveConnection = .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open End With QueryData = True End If Exit Function Debug: Set rst = Nothing QueryData = FalseEnd FunctionPublic Function getRS(ByRef rst As , ByVal strSql As String) As BooleanOn Error GoTo rsErr Set rst = New With rst .Source = strSql .ActiveConnection = .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open End With If Then getRS = True Exit Function End IfrsErr: getRS = False MsgBox amp。 , vbCritical + vbOKOnly, 錯誤信息End Function圖34 系統(tǒng)登錄界面如果使用系統(tǒng)就必須先登錄到系統(tǒng)，用戶使用登錄模塊登錄系統(tǒng)。單擊“登錄”按鈕的處理代碼如下：string str_name。 string str_password。 string str_sql。 //獲取用戶輸入的登錄用戶名和密碼 str_name = ().Trim()。 //去除用戶名兩邊的空格 str_password = ((), MD5)。 //查詢相應(yīng)的用戶名和密碼的SQL語句 str_sql = select ReaderName,ReaderLevel,readerID from tb_Reader where LibraryCardID=39。 + str_name + 39。and Readerpwd=39。 + str_password + 39。 OleDbDataReader dr = (str_sql)。 if (() == true) { //session變量記錄用戶名 Session[user] = dr[ReaderName].ToString().Trim()。 //session變量記錄管理員級別 Session[userlevel] = dr[ReaderLevel].ToString().Trim()。 //Session變量記錄讀者的ID號 Session[userID] = dr[readerID].ToString().Trim()。 //Session變量記錄讀者的借閱證號 Session[userCardID] = str_name。 //session變量記錄讀者的密碼 Session[userPwd] = str_password。/////////////////////// ()。 //返回跳轉(zhuǎn)的目的頁 string strweb = (Session[userlevel].ToString())。 (script language=javascript alert(39。登錄成功！即將跳轉(zhuǎn)！39。)。location=39。 + strweb + 39。/script)。 } else { ()。 = true。 = 您必須輸入有效的用戶名和密碼!。}提示登錄成功}圖35登錄成功提示登錄的用戶先彈出提示登錄成功并按用戶級別自動跳轉(zhuǎn)到相應(yīng)的功能頁面，判斷用戶級別的代碼在業(yè)務(wù)邏輯層，代碼如下：switch (strLevel) { case 系統(tǒng)管理員: strLevel = 。 break。 case 圖書管理員: strLevel = 。 break。 default: strLevel = 。 break。 } return strLevel。系統(tǒng)主窗體的實現(xiàn)圖 36 其代碼如下：Private rs As Private rs1 As Private rs2 As Private strSql As StringPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command4_Click() = 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 = rst Else MsgBox 查詢失?。? End If Exit Subfmerr: If = True And = True Then MsgBox 沒有任何記錄！ End IfE