【正文】 錄 用戶注冊模塊 用 戶在注冊模塊主要是為新用戶提供注冊，新用戶在次填寫詳細信息進行注冊，在注冊的時候自動把權(quán)限設(shè)為普通用戶。 + + 39。存在 = False Session(username) = Else 39。匹配 = True Else 39。USER ID=sa。DATABASE=atai) () = conn If = Session(username) Then Else 第 10 頁 共 21 頁 If = Then Dim pwd As String = MD5() = insert into userlist values(39。,39。,39。,39。,39。,39。) () () End If End If () 實現(xiàn)截圖： 圖 3 用戶注冊 設(shè)備一覽模塊 設(shè)備一覽模塊主要是查看目前所擁有的設(shè)備。 DataList 控件的分頁顯示則是通過先根據(jù)當(dāng)前頁號Session(“ CurrPage” )、分頁大小 PageSize 來計算要顯示的記錄號范圍，然后將數(shù)據(jù)集中需顯示的記錄存放到一個臨時表 tempbook 中，再將該臨時表綁定到 DataList 控件實現(xiàn)的，這樣就可以顯示指定頁號的各記錄。在 nabledwhatbutton() 中編寫 Session（“ CurrPage”）的初值和結(jié)束處理。 在 DataList 控件中綁定列中，“設(shè)備名稱”采用超級連接，用戶單擊可以查看設(shè)備的詳細信息，通過單擊“修改”進入修改設(shè)備詳細，在修改設(shè)備狀態(tài)時，如果設(shè)備狀態(tài)是維修則轉(zhuǎn)入維修設(shè)備添加頁面，如果是報廢，則進入添 加第 11 頁 共 21 頁 報廢設(shè)備頁面，在添加的同時更改設(shè)備一覽中該設(shè)備的狀態(tài)為相應(yīng)狀態(tài)；單擊“刪除”刪除該設(shè)備的所有的信息。計算總頁數(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)前頁號 Session(“CurrPage”)和分頁大小 PageSize就可以計算出顯示的記錄號范圍，然后將數(shù)據(jù)集中需顯示的記錄存放到一個臨時表 tempbook中，再將該臨時表棒定到 DataList控件來實現(xiàn)，這樣就可以顯示指定頁號的個記錄，相關(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 () 為了在頁面間傳遞頁號值，使用了 Session 變量 CurrPage，當(dāng)用戶單擊“上一頁”時，將 Session(“CurrPage”) 減 1；當(dāng)用戶單擊“下一頁”時，將Session(“CurrPage”) 加 1。該模塊通過 DataList 控件處理從數(shù)據(jù)源讀取的數(shù)據(jù)。修改調(diào)度信息代碼如下： = insert into allot values(39。, 39。,39。, 39。, 39。,39。,39。) objreader = () = update equipmentlist set buyteam = 39。,usepeople = 39。where name = 39。 objreader = () = select * from allot where newteam = 39。 and newuse = 39。 objreader = If Then 第 14 頁 共 21 頁 = 添加成功 = = = = = = = Else = 添加失敗 End If 實現(xiàn)截圖： 圖 5 調(diào)度信息修改 設(shè)備維修模塊 設(shè)備維修模塊主要是查看所有處于維修中的設(shè)備，及其詳細信息。綁 定列中，“設(shè)備名稱”采用超級連接，用戶單擊可以查看詳細的維修信息。對設(shè)備維修信息的修改代碼如下： = conn = update badequipment set badtime = 39。,notation = 39。where name = 39。 () = select * from badequipment where name = 39。 and badtime = 39。 第 15 頁 共 21 頁 objreader = If Then = 修改成功 End If 維修信息的刪除代碼如下： Dim cmd As New = delet * from badequipment where name=39。 () 實現(xiàn)截圖： 圖 6 設(shè)備 維護 信息修改 設(shè)備報廢 模塊 設(shè)備報廢模塊主要是查看所有的報廢了的設(shè)備，及其詳細信息。綁定列中，“設(shè)備名稱“采用了超級連接，用戶單擊可以查看詳細信息。對報廢設(shè)備信息的修改代碼如下： = update badequipment set badtime = 39。,notation = 39。where name = 39。 () 第 16 頁 共 21 頁 = select * from badequipment where name = 39。 and badtime = 39。 objreader = If Then = 修改成功 End If 實現(xiàn)截圖 圖 7 報廢信息修改 用戶信息模塊 用戶信息模塊主要是用戶查看自己的詳細資料。在用戶 登錄 的時候就首先把用戶的信息進行綁定，代碼如下： = select * from userlist where username=39。 and pwd=39。 objreader = If Then Session(name) = () = select * from userlist where username =39。 Dim objadpt As New (cmd) Dim ds As New DataSet (ds, userlist) Dim userlist As DataTable = (userlist) Session(sex) = (0).Item(2) Session(position) = (0).Item(3) Session(telephone) = (0).Item(4) Session(power) = (0).Item(5) 在用戶查看自己的信息時，把綁定的用戶信息顯示出來，代碼如下： = Session(name) = Session(sex) = Session(position) = Session(telephone) 實現(xiàn)截圖 ： 圖 8 用戶信息 資料修改模塊 資料修改模塊主要是用戶用來修改自己的資料。資料修改模塊為用戶提供該功能。 + + 39。 + + 39。 + + 39。 + + 39。 + Session(name) + 39。點擊運行，也基本達到預(yù)期的效果。 由于能力和時間的關(guān)系，總是覺得有很多不盡人意的地方，譬如功能不全、外觀粗糙、底層代碼的不合理 ?? 數(shù)不勝數(shù)。 參考文獻 [1] 吉根林 ,崔海源 . [M].北京 :電子工業(yè)出版社 ,。 [3] 陳惠珍 ,陳俊榮 . [M].北京 :中國鐵道出版社 ,2020。 [5] 金雪云 . 簡明教程 [M].北京 :清華大學(xué)出版社 ,2020。 [7] 熊松明主 . [M].北京 :航空工業(yè)出版社 ,2020。 致 謝 本文是在王敏老師的熱情關(guān)心和指導(dǎo)下完成的，他淵博的知識和嚴(yán)謹(jǐn)?shù)闹螌W(xué)作風(fēng)使我受益匪淺，對順利完成本課題起到了極大的作用。文中除了特別加以標(biāo)注地方外，不包含他人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲得 成都信息工程學(xué)院或其他教學(xué)機構(gòu)的學(xué)位或證書而使用過的材料。 關(guān)于學(xué)位論文使用權(quán)和研究成果知識產(chǎn)權(quán)的說明： 本人完全了解成都信息工程學(xué)院有關(guān)保管使用學(xué)位論文的規(guī)定，其中包括： （ 1）學(xué)校有權(quán)保管并向有關(guān)部門遞交學(xué)位論文的原件與復(fù)印件。 （ 3）學(xué)?？梢詫W(xué)術(shù)交流為目的復(fù)制、贈送和交換學(xué)位論文。 （ 5）學(xué)校可以公布學(xué)位論文的全部或部分內(nèi)容（保密學(xué)位論文在解密后遵守此規(guī)定）。 特此聲明！ 第 2 頁 共 55 頁 畢業(yè)設(shè)計 ( 論文 ) 儀器設(shè)備管理系統(tǒng)設(shè)計與實現(xiàn) 論文作者姓名： 申請學(xué)位專業(yè)： 申請學(xué)位類別： 指導(dǎo)教師姓名（職稱）： 論文提交日期： 儀器設(shè)備管理系統(tǒng)設(shè)計與實現(xiàn) 摘 要 文 中 以某 中小型企業(yè)的 設(shè)備管理為例，對設(shè)備管理系統(tǒng)的設(shè)計與應(yīng)用進行研究，旨在通過設(shè)備管 理系統(tǒng)提高內(nèi)部設(shè)備的利用率及實現(xiàn)其最大的經(jīng)濟效益。其次針 對 所需要設(shè)備信息 ，分析 設(shè)備管理系統(tǒng) 流程，設(shè)計 并開發(fā)一套 設(shè)備管理系統(tǒng)。 文中詳細闡述了各子模塊的功能和實現(xiàn)過程，并對系統(tǒng)的核心技術(shù)作了特別講解。 關(guān)鍵詞 ： 設(shè)備管理 ； 儀器設(shè)備；管理系統(tǒng) Design and Implementation of the Equipment Management System Abstract Take equipment management of middle and small sized enterprises as example, this paper researches on the design and implementation of equipm