基于vb的設(shè)備管理信息系統(tǒng)-資料下載頁(yè)

【導(dǎo)讀】查詢等操作，這樣就使辦公人員可以輕松快捷地完成設(shè)備信息管理工作。我結(jié)合企業(yè)信息管理的要求，采用VisualBasic作為。數(shù)據(jù)庫(kù)的一系列操作。主要完成對(duì)企業(yè)設(shè)備管理系統(tǒng)的需求分析、功能模塊劃分、數(shù)據(jù)。庫(kù)模式分析，并由此設(shè)計(jì)了數(shù)據(jù)庫(kù)結(jié)構(gòu)和應(yīng)用程序。數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)的目標(biāo)是建立。一個(gè)滿足用戶長(zhǎng)期需求的產(chǎn)品。滿足企業(yè)對(duì)設(shè)備信息化管理的需要。

　　

【正文】 strSQL = strSQL amp。 AND RejectDate= amp。 RejectDateto amp。 Else strSQL = RejectDate= amp。 RejectDateto amp。 End If End If End If 按照 設(shè)備名稱進(jìn)行 查詢 考慮設(shè)備名稱的查詢條件。首先判斷用戶是否選擇了設(shè)備名稱這個(gè)查詢類型，并設(shè)置了相應(yīng)的查詢條件。若選擇則寫入相應(yīng)的 SQL 語(yǔ)句。這部分代碼如下： If Len(DeviceName) 0 Then If Len(strSQL) 0 Then strSQL = strSQL amp。 AND DeviceName LIKE 39。% amp。 DeviceName amp。 %39。 Else strSQL = DeviceName LIKE 39。% amp。 DeviceName amp。 %39。 End If End If 考慮設(shè)備型號(hào)的查詢條件。首先判斷用戶是否選擇了設(shè)備類型這個(gè)查詢類型，并設(shè)置了相應(yīng)的查詢條件。若選擇則寫入相應(yīng)的 SQL 語(yǔ)句。這部分代碼如下 ： If Len(DeviceModel) 0 Then If Len(strSQL) 0 Then strSQL = strSQL amp。 AND DeviceModel LIKE 39。% amp。 DeviceModel amp。 %39。 Else strSQL = DeviceModel LIKE 39。% amp。 DeviceModel amp。 %39。 End If End If 最后把所有的 SQL 語(yǔ)句合 成一句，并在查詢窗體上顯示結(jié)果。這部分代碼如下： If Len(strSQL) 0 Then strSQL = SELECT a.*, FROM (tblDevice AS A INNER JOIN tblDepartment AS B ON =) INNER JOIN tblTypeInfo C ON = WHERE amp。 strSQL amp。 ORDER BY DESC Else strSQL = SELECT a.*, FROM (tblDevice AS A INNER JOIN tblDepartment AS B ON =) INNER JOIN tblTypeInfo C ON = ORDER BY DESC End If = 臨沂師范學(xué)院 2020屆本科畢業(yè)論文 22 fillDeviceGrid grdQuery, strSQL End Sub 創(chuàng)建 用戶 管理模塊 “ 用戶管理模塊 ”中的包括“ 新增用戶 ”、“ 刪除用戶 ” ，用戶又分為“普通用戶”、“數(shù)據(jù)操作員”和“系統(tǒng)管理員”。如圖 18 所示 。 圖 18 “用戶管理模塊” “用戶管理模塊”的 代碼如下： Private Sub cmdDelete_Click() () isUpdate = True End Sub Private Function saveData() As Boolean Dim UserName As String Dim Password As String Dim Level As Integer saveData = False UserName = Trim() Password = If Len(UserName) = 0 Then MsgBox 請(qǐng)輸入用 戶名！ Exit Function End If If Len(Password) = 0 Then MsgBox 請(qǐng)輸入密碼！ 臨沂師范學(xué)院 2020屆本科畢業(yè)論文 23 Exit Function End If With theUser .UserName = UserName .Password = Password Select Case Case 1 .Level = 1 Case 2 .Level = 1 Case Else .Level = 0 End Select If .uid = 0 Then saveData = .addData Else saveData = .saveData End If If saveData = False Then MsgBox 保存不成功，請(qǐng)檢查用戶名是否唯一！ End With End Function Private Sub cmdSave_Click() If saveData() = True Then isUpdate = True End If End Sub Private Sub Form_Load() With cboLevel .AddItem 普通用戶 .AddItem 數(shù)據(jù)操作員 .AddItem 系統(tǒng)管理員 .ListIndex = 0 End With isUpdate = False End Sub Public Sub loadUser(uid As String) 39。顯示用戶數(shù)據(jù) With theUser .loadDataByID uid = .UserName = .Password Select Case .Level Case 1 39。數(shù)據(jù)操作員 臨沂師范學(xué)院 2020屆本科畢業(yè)論文 24 = 1 Case 1 39。系統(tǒng)管理員 = 2 Case Else 39。普通用戶 = 0 End Select End With End Sub 創(chuàng)建 系統(tǒng)管理模塊 在“系統(tǒng)管理”模塊中包括“修改密碼”、“退出系統(tǒng)”、“數(shù)據(jù)備份”、“數(shù)據(jù)整理”和“數(shù)據(jù)清理”功能。如圖 19 所示。 圖 19 “系統(tǒng)管理”模塊 “修改密碼”功能 “修改密碼”的代碼如下： Private Sub cmdPass_Click() Dim oldPass As String Dim newPass1 As String Dim newPass2 As String oldPass = InputBox(請(qǐng)輸入舊密碼 :, 密碼修改 ) If Len(oldPass) 0 Then If oldPass Then MsgBox 輸入密碼不正確 ! Exit Sub End If newPass1 = InputBox(請(qǐng)輸入新密碼 :, 密碼修改 ) If Len(newPass1) = 0 Then MsgBox 密碼修改不成功 ! Exit Sub 臨沂師范學(xué)院 2020屆本科畢業(yè)論文 25 Else newPass2 = InputBox(請(qǐng)?jiān)俅屋斎胄旅艽a確認(rèn) :, 密碼修改 ) If Len(newPass2) = 0 Then MsgBox 密碼修改不成功 ! Exit Sub ElseIf newPass1 = newPass2 Then If (newPass1) = False Then MsgBox 數(shù)據(jù)操作錯(cuò)誤 ,密碼修改不成功 ! Else MsgBox 密 碼成功修改 !請(qǐng)保存好你的密碼 ! End If Exit Sub Else MsgBox 兩次輸入的新密碼不一樣 ,修改失敗 ! Exit Sub End If End If Else MsgBox 密碼修改不成功 ! Exit Sub End If End Sub “退出系統(tǒng)”功能 “退出系統(tǒng)” 功能 的代碼 如下： Private Sub cmdExit_Click() If MsgBox(是否真的要退出系統(tǒng)嗎 ?, vbYesNo) = vbYes Then Unload Me End If End Sub “數(shù)據(jù)備份”功能 “數(shù)據(jù)備份” 功能 的代碼如下： Private Sub cmdBackup_Click() Dim newPath As String newPath = amp。 \database\DeviceMIScopy amp。 FormatDateTime(Date, vbShortDate) amp。 ( amp。 Right(Rnd(100), 1) amp。 ).mdb On Error GoTo err_handle FileCopy amp。 \database\, newPath MsgBox 數(shù)據(jù)備份成功 ,備份文件在 : amp。 newPath Exit Sub err_handle: MsgBox MsgBox 備份不成功 ! 臨沂師范學(xué)院 2020屆本科畢業(yè)論文 26 End Sub “數(shù)據(jù)整理”功能 “數(shù)據(jù)整理”功能的代碼如下 ： Private Sub cmdPack_Click() If MsgBox(你是否真的要整理數(shù)據(jù)庫(kù)嗎 ?這個(gè)操作將會(huì)刪除所有記錄 !, vbOKCancel + vbDefaultButton2) = vbOK Then delete from tbldevice delete from tbluser delete from tbllend insert into tbluser (login,pwd,level) values (39。admin39。,39。88839。,1) MsgBox 整理數(shù)據(jù)庫(kù)成功 !管理系統(tǒng)將退出 !!! Unload Me End If End Sub “數(shù)據(jù)清理”功能 “