【文章內(nèi)容簡介】 ，先對(duì)密碼進(jìn)行 哈希 后再寫入數(shù)據(jù)庫中 ， 讓非法使用者不能識(shí)別 ，用戶密碼相對(duì)更為安全， 代碼入下： Public Shared Function MD5(ByVal Sourcein As String) As String Dim MD5CSP As = New Dim MD5Source() As Byte = (Sourcein) Dim MD5Out() As Byte = (MD5Source) Return (MD5Out) End Function 實(shí)現(xiàn)截圖： 圖 2 用戶 登錄 用戶注冊(cè)模塊 用 戶在注冊(cè)模塊主要是為新用戶提供注冊(cè)，新用戶在次填寫詳細(xì)信息進(jìn)行注冊(cè)，在注冊(cè)的時(shí)候自動(dòng)把權(quán)限設(shè)為普通用戶。 第 9 頁 共 21 頁 在用戶注冊(cè)的時(shí)候首先判斷用戶名是否存在，代碼如下： = select * from userlist where username=39。 + + 39。 objreader = If Then 39。存在 = False Session(username) = Else 39。不存在 = True End If () 在用戶注冊(cè)時(shí)，為了防止用戶粗心，在輸入密碼時(shí)不小心輸入錯(cuò)誤，因此在用戶輸入密碼后還需要用戶再一次輸入，通過判斷兩次輸入是否相同來判斷用戶是否輸入錯(cuò)誤，相 關(guān)代碼如下： If = Then 39。匹配 = True Else 39。不匹配 = False End If 當(dāng)所有的條件都滿足后才會(huì)向數(shù)據(jù)庫中寫入注冊(cè)信息，寫入數(shù)據(jù)庫的代碼如下： Dim conn As New Dim cmd As New Dim objreader As = (SERVER=(local)。USER ID=sa。PWD=。DATABASE=atai) () = conn If = Session(username) Then Else 第 10 頁 共 21 頁 If = Then Dim pwd As String = MD5() = insert into userlist values(39。 + + 39。,39。 + pwd + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 0 39。) () () End If End If () 實(shí)現(xiàn)截圖： 圖 3 用戶注冊(cè) 設(shè)備一覽模塊 設(shè)備一覽模塊主要是查看目前所擁有的設(shè)備。該模塊通過 DataList 控件來處理從數(shù)據(jù)源讀取的數(shù)據(jù)。 DataList 控件的分頁顯示則是通過先根據(jù)當(dāng)前頁號(hào)Session(“ CurrPage” )、分頁大小 PageSize 來計(jì)算要顯示的記錄號(hào)范圍，然后將數(shù)據(jù)集中需顯示的記錄存放到一個(gè)臨時(shí)表 tempbook 中，再將該臨時(shí)表綁定到 DataList 控件實(shí)現(xiàn)的，這樣就可以顯示指定頁號(hào)的各記錄。另外，為了在頁面間傳遞頁號(hào)值，使用了 Session 變量 CurrPage，當(dāng)用戶單擊“上一頁”時(shí)，將 Session(“ CurrPage” ) 減 1 ； 當(dāng) 用 戶 單 擊 “ 下 一 頁 ” 時(shí) ， 將Session(“ Currpage” ) 加 1 。在 nabledwhatbutton() 中編寫 Session（“ CurrPage”）的初值和結(jié)束處理。 在設(shè)備一覽頁面，可以通過單擊“添加設(shè)備”來增加新的設(shè)備。 在 DataList 控件中綁定列中，“設(shè)備名稱”采用超級(jí)連接，用戶單擊可以查看設(shè)備的詳細(xì)信息，通過單擊“修改”進(jìn)入修改設(shè)備詳細(xì)，在修改設(shè)備狀態(tài)時(shí)，如果設(shè)備狀態(tài)是維修則轉(zhuǎn)入維修設(shè)備添加頁面，如果是報(bào)廢，則進(jìn)入添 加第 11 頁 共 21 頁 報(bào)廢設(shè)備頁面，在添加的同時(shí)更改設(shè)備一覽中該設(shè)備的狀態(tài)為相應(yīng)狀態(tài)；單擊“刪除”刪除該設(shè)備的所有的信息。 DataList 控 件 的 分 頁 顯 示 是 通 過 先 根 據(jù) 當(dāng) 前 頁 號(hào)Session(“ CurrPage” )、分頁大小 PageSize 來計(jì)算要顯示的記錄號(hào)范圍，當(dāng)前頁號(hào) Session(“CurrPage”)的代碼如下： Sub enabledwhatbutton() If Session(currpage) = 1 Then = False = False Else = True = True End If If Session(currpage) = Session(totalpage) Then = False = False Else = True = True End If End Sub 而分頁大小 PageSzie的計(jì)算代碼如下： Dim totalrec As Integer = 39。計(jì)算總頁數(shù) Dim totalpage As Integer If totalrec pagesize Then totalpage = 1 Else If totalrec Mod pagesize 0 Then totalpage = totalrec \ pagesize + 1 Else totalpage = totalrec / pagesize End If End If 第 12 頁 共 21 頁 Session(totalpage) = totalpage 有了當(dāng)前頁號(hào) Session(“CurrPage”)和分頁大小 PageSize就可以計(jì)算出顯示的記錄號(hào)范圍，然后將數(shù)據(jù)集中需顯示的記錄存放到一個(gè)臨時(shí)表 tempbook中，再將該臨時(shí)表棒定到 DataList控件來實(shí)現(xiàn)，這樣就可以顯示指定頁號(hào)的個(gè)記錄，相關(guān)代碼如下： Dim tempequipmentlist As DataTable = () Dim i, j As Integer For i = (pageno 1) * pagesize To pageno * pagesize 1 If i 0 Or i 1 Then Exit For Dim row As DataRow = For j = 0 To 1 row((j).ColumnName) = (i).Item(j) Next (row) Next = tempequipmentlist () 為了在頁面間傳遞頁號(hào)值，使用了 Session 變量 CurrPage，當(dāng)用戶單擊“上一頁”時(shí)，將 Session(“CurrPage”) 減 1；當(dāng)用戶單擊“下一頁”時(shí)，將Session(“CurrPage”) 加 1。判斷代碼如下： Sub pagechange(ByVal sender As Object, ByVal e As CommandEventArgs) Select Case Case firstpage Session(currpage) = 1 Case prevpage If Session(currpage) 1 Then Session(currpage) = 1 Else Session(currpage) = 1 End If Case nextpage Session(currpage) += 1 Case lastpage 第 13 頁 共 21 頁 Session(currpage) = Session(totalpage) End Select enabledwhatbutton() bindlist(Session(currpage)) End Sub 實(shí)現(xiàn)截圖： 圖 4 設(shè)備一覽 設(shè)備調(diào)度模塊 設(shè)備調(diào)度模塊主要是查看所有處于調(diào)度中的設(shè)備，和調(diào)度設(shè)備的調(diào)度信息。該模塊通過 DataList 控件處理從數(shù)據(jù)源讀取的數(shù)據(jù)。綁定列中，“設(shè)備名稱”采用超級(jí)連接，用戶單擊可以查看設(shè)備的詳細(xì)調(diào)度信息，通過單擊“修改”進(jìn)行調(diào)度信息的修改；單擊“刪除”可以刪除該設(shè)備的調(diào)度信息。修改調(diào)度信息代碼如下： = insert into allot values(39。 + + 39。, 39。 + + 39。,39。 + + 39。, 39。 + + 39。, 39。 + + 39。,39。 + + 39。,39。 + + 39。) objreader = () = update equipmentlist set buyteam = 39。 + + 39。,usepeople = 39。 + + 39。where name = 39。 + + 39。 objreader = () = select * from allot where newteam = 39。 + + 39。 and newuse = 39。 + + 39。 objreader = If Then 第 14 頁 共 21 頁 = 添加成功 = = = = = = = Else = 添加失敗 End If 實(shí)現(xiàn)截圖： 圖 5 調(diào)度信息修改 設(shè)備維修模塊 設(shè)備維修模塊主要是查看所有處于維修中的設(shè)備，及其詳細(xì)信息。該模塊同樣采用了 DataList 控件來處理從數(shù)據(jù)源讀取的數(shù)據(jù)。綁 定列中，“設(shè)備名稱”采用超級(jí)連接，用戶單擊可以查看詳細(xì)的維修信息。通過單擊“修改”可以修改設(shè)備的維修信息；單擊“刪除“按鈕可以刪除該設(shè)備的維修信息。對(duì)設(shè)備維修信息的修改代碼如下： = conn = update badequipment set badtime = 39。 + + 39。,notation = 39。 + + 39。where name = 39。 + + 39。 () = select * from badequipment where name = 39。 + + 39。 and badtime = 39。 + + 39。 第 15 頁 共 21 頁 objreader = If Then = 修改成功 End If 維修信息的刪除代碼如下： Dim cmd As