【正文】 管理員添 修 刪加 改 除第3章 詳細(xì)設(shè)計(jì)圖 31 圖書信息表字段名數(shù)據(jù)類型說明圖書編號(hào)文本主鍵，字段大小4書名文本字段大小10類別文本字段大小10價(jià)格貨幣類型無出版社文本字段大小40入庫日期日期/時(shí)間無是否借出文本字段大小4圖 32 事務(wù)信息表字段名數(shù)據(jù)類型說明借閱編號(hào)自動(dòng)編號(hào)無讀者編號(hào)文本字段大小50圖書編號(hào)文本字段大小50歸還日期日期/時(shí)間無出借日期日期/時(shí)間無 圖 33讀者信息表字段名數(shù)據(jù)類型說明讀者姓名文本字段大小10讀者編號(hào)文本主鍵，字段大小4年齡數(shù)字無家庭住址文本字段大小10在打開數(shù)據(jù)表之前應(yīng)該先打開數(shù)據(jù)庫，系統(tǒng)中創(chuàng)建了一個(gè)模塊，該模塊的作用是連接數(shù)據(jù)庫以及數(shù)據(jù)庫中數(shù)據(jù)的提取，因?yàn)橄到y(tǒng)需要頻繁的使用數(shù)據(jù)庫中的數(shù)據(jù)，建立模塊可以使程序簡單化，模塊的代碼如下：Public As Public rst As Public Function CnToDB() As BooleanOn Error GoTo Debug設(shè)定錯(cuò)誤機(jī)制，當(dāng)連接錯(cuò)誤時(shí)轉(zhuǎn)到Debug Set = New With 設(shè)定訪問數(shù)據(jù)庫的參數(shù)，對(duì)象SQL－server .ConnectionString = provider=sqloledb。uid=sa。pwd=。server=. .ConnectionTimeout = 5 .CursorLocation = adUseClient .Open .DefaultDatabase = booksys End With CnToDB = True Exit FunctionDebug:當(dāng)出錯(cuò)時(shí)，取消連接數(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, 錯(cuò)誤信息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變量記錄管理員級(jí)別 Session[userlevel] = dr[ReaderLevel].ToString().Trim()。 //Session變量記錄讀者的ID號(hào) Session[userID] = dr[readerID].ToString().Trim()。 //Session變量記錄讀者的借閱證號(hào) 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登錄成功提示登錄的用戶先彈出提示登錄成功并按用戶級(jí)別自動(dòng)跳轉(zhuǎn)到相應(yīng)的功能頁面，判斷用戶級(jí)別的代碼在業(yè)務(wù)邏輯層，代碼如下：switch (strLevel) { case 系統(tǒng)管理員: strLevel = 。 break。 case 圖書管理員: strLevel = 。 break。 default: strLevel = 。 break。 } return strLevel。系統(tǒng)主窗體的實(shí)現(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