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