【文章內(nèi)容簡介】 ，先對密碼進行 哈希 后再寫入數(shù)據(jù)庫中 ， 讓非法使用者不能識別 ，用戶密碼相對更為安全， 代碼入下： 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 實現(xiàn)截圖： 圖 2 用戶 登錄 用戶注冊模塊 用 戶在注冊模塊主要是為新用戶提供注冊，新用戶在次填寫詳細信息進行注冊，在注冊的時候自動把權限設為普通用戶。 第 9 頁 共 21 頁 在用戶注冊的時候首先判斷用戶名是否存在，代碼如下： = select * from userlist where username=39。 + + 39。 objreader = If Then 39。存在 = False Session(username) = Else 39。不存在 = True End If () 在用戶注冊時，為了防止用戶粗心，在輸入密碼時不小心輸入錯誤，因此在用戶輸入密碼后還需要用戶再一次輸入，通過判斷兩次輸入是否相同來判斷用戶是否輸入錯誤，相 關代碼如下： If = Then 39。匹配 = True Else 39。不匹配 = False End If 當所有的條件都滿足后才會向數(shù)據(jù)庫中寫入注冊信息，寫入數(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 () 實現(xiàn)截圖： 圖 3 用戶注冊 設備一覽模塊 設備一覽模塊主要是查看目前所擁有的設備。該模塊通過 DataList 控件來處理從數(shù)據(jù)源讀取的數(shù)據(jù)。 DataList 控件的分頁顯示則是通過先根據(jù)當前頁號Session(“ CurrPage” )、分頁大小 PageSize 來計算要顯示的記錄號范圍，然后將數(shù)據(jù)集中需顯示的記錄存放到一個臨時表 tempbook 中，再將該臨時表綁定到 DataList 控件實現(xiàn)的，這樣就可以顯示指定頁號的各記錄。另外，為了在頁面間傳遞頁號值，使用了 Session 變量 CurrPage，當用戶單擊“上一頁”時，將 Session(“ CurrPage” ) 減 1 ； 當 用 戶 單 擊 “ 下 一 頁 ” 時 ， 將Session(“ Currpage” ) 加 1 。在 nabledwhatbutton() 中編寫 Session（“ CurrPage”）的初值和結(jié)束處理。 在設備一覽頁面，可以通過單擊“添加設備”來增加新的設備。 在 DataList 控件中綁定列中，“設備名稱”采用超級連接，用戶單擊可以查看設備的詳細信息，通過單擊“修改”進入修改設備詳細，在修改設備狀態(tài)時，如果設備狀態(tài)是維修則轉(zhuǎn)入維修設備添加頁面，如果是報廢，則進入添 加第 11 頁 共 21 頁 報廢設備頁面，在添加的同時更改設備一覽中該設備的狀態(tài)為相應狀態(tài)；單擊“刪除”刪除該設備的所有的信息。 DataList 控 件 的 分 頁 顯 示 是 通 過 先 根 據(jù) 當 前 頁 號Session(“ CurrPage” )、分頁大小 PageSize 來計算要顯示的記錄號范圍，當前頁號 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的計算代碼如下： Dim totalrec As Integer = 39。計算總頁數(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 有了當前頁號 Session(“CurrPage”)和分頁大小 PageSize就可以計算出顯示的記錄號范圍，然后將數(shù)據(jù)集中需顯示的記錄存放到一個臨時表 tempbook中，再將該臨時表棒定到 DataList控件來實現(xià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 () 為了在頁面間傳遞頁號值，使用了 Session 變量 CurrPage，當用戶單擊“上一頁”時，將 Session(“CurrPage”) 減 1；當用戶單擊“下一頁”時，將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 實現(xiàn)截圖： 圖 4 設備一覽 設備調(diào)度模塊 設備調(diào)度模塊主要是查看所有處于調(diào)度中的設備，和調(diào)度設備的調(diào)度信息。該模塊通過 DataList 控件處理從數(shù)據(jù)源讀取的數(shù)據(jù)。綁定列中，“設備名稱”采用超級連接，用戶單擊可以查看設備的詳細調(diào)度信息，通過單擊“修改”進行調(diào)度信息的修改；單擊“刪除”可以刪除該設備的調(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 實現(xiàn)截圖： 圖 5 調(diào)度信息修改 設備維修模塊 設備維修模塊主要是查看所有處于維修中的設備，及其詳細信息。該模塊同樣采用了 DataList 控件來處理從數(shù)據(jù)源讀取的數(shù)據(jù)。綁 定列中，“設備名稱”采用超級連接，用戶單擊可以查看詳細的維修信息。通過單擊“修改”可以修改設備的維修信息；單擊“刪除“按鈕可以刪除該設備的維修信息。對設備維修信息的修改代碼如下： = 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