九陽(yáng)售后管理系統(tǒng)實(shí)驗(yàn)報(bào)告(編輯修改稿)
2024-11-13 09:57 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 、更新和管理關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)。 后臺(tái)數(shù)據(jù)庫(kù)采用的是 Access2020 它 是 Microsoft Office2020辦公系列軟件的組件，基于關(guān)系數(shù)據(jù)模型的 DBMS，應(yīng)用廣泛操作簡(jiǎn)單。 這兩種開(kāi)發(fā)工具功能強(qiáng)大，有較好的接口，作為本系統(tǒng)開(kāi)發(fā)工具是可行的。 3． 2 登錄模塊設(shè)計(jì)與實(shí)現(xiàn) 登錄界面是進(jìn)入本系統(tǒng)遇到的第一個(gè)界面，是用戶的身份驗(yàn)證部分，主要用于用戶進(jìn)入系統(tǒng)的身份驗(yàn)證。 為了提高數(shù)據(jù)的安全性，系統(tǒng)設(shè)置了防止非法人員進(jìn)入系統(tǒng)的功能。系統(tǒng)在開(kāi)始運(yùn)行的時(shí)候，首先進(jìn)入用戶登錄界面，在由操作人員輸入用戶名和密碼后，系統(tǒng)進(jìn)行判定其進(jìn)入系統(tǒng)的合法身份，此后，方可正式進(jìn)入該系統(tǒng)。如果用戶名輸入有錯(cuò)，系統(tǒng)將顯示“用戶名不存在”提示，如果密碼輸入有錯(cuò)，系統(tǒng)將顯示“密碼錯(cuò)誤”提示 ，等待操作人員重新輸入用戶名或密碼。 圖 31 登錄界面 代碼如下： Dim As Dim rs As New Dim strsql As String 39。定義一個(gè)字符串變量 Private Sub Command1_Click() If = Then MsgBox 請(qǐng)選擇用戶類別！ , , 請(qǐng)重選擇 Exit Sub End If If Len(Trim()) = 0 Then 39。沒(méi)有輸入用戶名 MsgBox 請(qǐng)輸入用戶名！ , , 登陸信息 Exit Sub End If If Len(Trim()) 16 Then 39。用戶名過(guò)長(zhǎng) MsgBox 您輸入用戶 名過(guò)長(zhǎng)！ , , 登陸信息 Exit Sub End If User = Replace(Trim(), 39。, 39。39。) If Len(Trim()) = 0 Then 39。沒(méi)有輸入密碼 MsgBox 請(qǐng)輸入密碼！ , , 登陸信息 Exit Sub End If If Len(Trim()) 16 Then 39。密碼過(guò)長(zhǎng) MsgBox 您輸入密碼過(guò)長(zhǎng)！ , , 登陸信息 Exit Sub End If Set = New 39。連接數(shù)據(jù)庫(kù) Provider=。Data Source= amp。 amp。 / 九陽(yáng)售后 .mdb。Persist Security Info=False strsql = select * from 用戶信息表 where username = 39。 amp。 amp。 39。 39。and userpwd = 39。 amp。 amp。 39。and usertyp = 39。 amp。 amp。 39。 39。數(shù)據(jù)表連接字符串 strsql, , 2, 2 39。 39。打開(kāi)數(shù)據(jù)表 If = True Then 39。用戶名錯(cuò)誤 MsgBox 沒(méi)有這個(gè)用戶??！請(qǐng)重新輸入！ , 16, 錯(cuò)誤 ！ = = Set rs = Nothing Set db = Nothing Exit Sub Else If rs!UserName = And rs!usertyp Or rs!UserName And rs!usertyp = Then 39。用戶名與用戶類型不匹配 MsgBox 用戶類型與用戶名不匹配 , 16, 錯(cuò)誤！ = = Set rs = Nothing Set db = Nothing Exit Sub Else If Not rs!UserPwd = Then 39。用戶密碼錯(cuò)誤 MsgBox 用戶密碼錯(cuò)誤??！請(qǐng)檢查后重新輸入！ , 16, 錯(cuò)誤！ = Set rs = Nothing Set db = Nothing Exit Sub Else 39。用戶名，密碼都正確，進(jìn)入主窗口 If = 系統(tǒng)管理員 Then 主界面 .Show Unload Me ElseIf = 技術(shù)人員 Then 主界面 Unload Me ElseIf = 普通用戶 Then Unload Me 主界面 End If End If End If End If Set rs = Nothing Set db = Nothing End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = End Sub Private Sub bo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 39。如果按下的是回車(chē)鍵，則光標(biāo)落到文本框當(dāng)中 Else End If End Sub Private Sub Textuser_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 39。如果按下的是回車(chē)鍵，則光標(biāo)落到文本框當(dāng)中 Else End If End Sub Private Sub Textpwd_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 39。如果按下的是回車(chē)鍵，則光標(biāo)落到文本框當(dāng)中 Else End If End Sub 主界面模塊設(shè)計(jì)與實(shí)現(xiàn) 圖 42 主界面 代碼如下： Private Sub gyzz_Click() 關(guān)于作者 .Show End Sub Private Sub rjjs_Click() 幫助 .Show End Sub Private Sub sjgl_Click() 數(shù)據(jù)管理 .Show End Sub Private Sub tcxt_Click() Unload Me End Sub Private Sub wxjlbj_Click() 維修信息 .Show End Sub Private Sub xs5_Click() 用戶管理 .Show End Sub P
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1