【導(dǎo)讀】隨著信息產(chǎn)業(yè)的飛速發(fā)展，信息化管理已經(jīng)引入并應(yīng)用到各行業(yè)管理領(lǐng)域，一個功能完善的信息管理系統(tǒng)軟件對于一個成功的企業(yè)來說是必不可少的。先根據(jù)需要畫出系統(tǒng)的流程圖，然后用VB創(chuàng)建了主界面和登錄界。最后根據(jù)兩大功能模塊，設(shè)計界面并進行編碼。本系統(tǒng)主要完成對石化企。業(yè)設(shè)備信息的管理，包括設(shè)備的檔案，設(shè)備的變動，設(shè)備的維護三個方面。可以實現(xiàn)對設(shè)備的各類信息進行瀏覽，查詢，添加，刪除，修改等功能。操作，完全實現(xiàn)計算機管理，可大大的提高生產(chǎn)效率。

　　

【正文】 ,敖春波 ,黃文君 .基于 FDT與 DD技術(shù)現(xiàn)場總線設(shè)備管理系統(tǒng)設(shè)計 [J]. 化工自動化及儀表 ， 2021,35(3)： 6770 [10] 朱建興 ,尹力 .設(shè)備管理系統(tǒng) [J].電腦編程技巧與維護 ， 2021(9)： 3943 [11] 張海藩 . 軟件工程導(dǎo)論 [M].北京： 清華大學(xué)出版社 ， 1987 [12] 蔣學(xué)鋒 .軟件工程 [M].重慶： 重慶大學(xué)出版社 ， 1997 [13] 李輝 .數(shù)據(jù)庫原理及應(yīng)用 [M].北京： 機械工業(yè)出版社 ， 2021 33 謝辭 通過本次畢業(yè)設(shè)計，使自己對四年來學(xué)習(xí)的各門功課有了更加深入的了解。對于各門課程之間的相互聯(lián)系有了更加深入的體會，同時也深深感到自己掌握的知識和實際需要還有很大的差距，在今后的學(xué)習(xí)和工作中我們應(yīng)該注重知識的學(xué)習(xí)和積累，鍛煉自己的動手能力，理論聯(lián)系實際，為自己今后的發(fā)展奠定堅實的理論和實踐基礎(chǔ)！這對我以后的工作和學(xué)習(xí)有著重要的意義和深遠(yuǎn)的影響。 在取得成績的背后離不開各位老師和同學(xué)的熱情幫助。在設(shè)計過程中，我得到了指導(dǎo)老師 馬君杰 的耐心講解和精心指導(dǎo)，本組同學(xué)也給我提出了許多 寶貴的意見和幫助，可以說沒有他們的指導(dǎo)和幫助我的設(shè)計就不會那么順利的完成。 再一次對精心指導(dǎo)和熱情幫助我的老師、同學(xué)表示深深的敬意和誠摯的謝意！ 34 附錄 系統(tǒng)登錄代碼 Public PasswordKey As String Public NameKey As String Public Try_times As Integer Private Sub Cmd_Cancel_Click() End End Sub Private Sub Cmd_OK_Click() Dim j As Single 39。數(shù)據(jù)有效性檢查 If txtUser = Then MsgBox 請輸入用戶名 Exit Sub End If If txtPwd = Then MsgBox 請輸入密碼 Exit Sub End If 35 NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。判斷用 戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 36 DBapi_Disconnect End Else Exit Sub End If End If 39。登錄 成功，將當(dāng)前用戶的信息保存在 CurUser中 () Unload Me End Sub Private Sub txtUser_Change() End Sub 設(shè)備檔案管理 操作代碼 ： 確定： Public Modify As Boolean 39。插入 =false,修改 =true Public OriId As Long 39。記錄編號 Public sDevNo As String 39。設(shè)備編號 Private Sub Check1_Click() If = 0 Then 37 = False Else = True End If End Sub Private Sub Check2_Click() If = 0 Then = False Else = True End If End Sub Private Sub Cmd_DeviceSel_Click() 1 39。設(shè)備選擇窗體 39。讀取指定對象信息 txtDevNo = Trim() 39。設(shè)備編號 () 39。設(shè)備 名稱 txtEnterprise = Trim() txtModel = Trim() 39。設(shè)備型號 () txtBranch = Trim() 39。生產(chǎn)廠家 38 txtPlace = Trim() 39。布放地點 End Sub Private Sub Cmd_Exit_Click() Unload Me End Sub Private Sub Cmd_OK_Click() 39。檢 查用戶錄入數(shù)據(jù)的有效性 If Len(Trim(txtDevNo)) = 0 Then MsgBox (請選擇設(shè)備 ) Exit Sub End If If Len(Trim(txtCheckPerson)) = 0 Then MsgBox 請輸入 設(shè)備編號 Exit Sub End If 39。把用戶錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫對象變量中 With MyCheck .DevNo = MakeStr(txtDevNo) .CheckDate = Format(, yyyymmdd) 39 .Comment = MakeStr(txtComment) .FindError = If = 1 Then .Reason = MakeStr(txtReason) Else .Reason = End If .ChangeAccessory = If = 1 Then .AccessoryList = MakeStr(txtAccessoryList) Else .AccessoryList = End If .Reason = MakeStr(txtReason) .CheckPerson = MakeStr(txtCheckPerson) .Amount = Val(txtAmount) 39。根據(jù)變量 Modify的值，決定 是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then .Insert Else .Update (OriId) 40 End If End With 39。關(guān)閉窗口 Unload Me End Sub Private Sub txtDevNo_Change() End Sub 登錄主界面 操作代碼 ： Private Sub Form_Load() 39。登錄界面 1 End Sub Private Sub mn_Branch_Click() End Sub Private Sub mn_ChangePwd_Click() 39。如果當(dāng)前用戶是普通用戶，則打開用戶編輯窗體，編輯自己的用戶信息 With FrmUserEdit .OriUser = .txtUserName = .txtPass = .txtPass2 = 41 .Modify = True .Show 1 End With End Sub Private Sub mn_Check_Click() 1 End Sub Private Sub mn_Exit_Click() 39。退出系統(tǒng) DBapi_Disconnect End End Sub Private Sub mn_Interprise_Click() = 2 = 設(shè)備變動管理 1 End Sub Private Sub mn_Mntenance_Click() 39。設(shè)備維護管理 1 End Sub 42 Private Sub mn_BaseInfo_Click() 39。設(shè)備檔案管理 1 End Sub Private Sub mn_Move_Click() 1 End Sub Private Sub mn_Types_Click() = 1 = 設(shè)備類型管理 1 End Sub Private Sub mn_Users_Click() 39。如果當(dāng)前用戶為 Admin，則打開用戶管理窗體 If Format(, ) = admin Then 1 Else MsgBox 沒有權(quán)限 End If End Sub 43 44 45 46