計企業(yè)客戶資源管理系統(tǒng)的設(shè)計與實(shí)現(xiàn)畢業(yè)論文-資料下載頁
2025-06-18 18:26本頁面
【正文】 在 ，提交后進(jìn)入 體下，顯示出編輯用戶的窗體，可對用戶的信息進(jìn)行添加操作。在，可以對已經(jīng)添加用戶的信息進(jìn)行修改操作。在 ，可以對已添加用戶的信息進(jìn)行刪除操作。’添加功能的實(shí)現(xiàn)Private Sub Cmd_Add_Click() 1 DataList1_ClickEnd Sub’用戶信息的實(shí)現(xiàn)Private Sub Cmd_OK_Click() If Trim(txtUserName) = Then MsgBox 請輸入用戶名 Exit Sub End If If Len(txtPass) 6 Then用戶管理添加用戶信息 修改用戶信息 刪除用戶信息16 MsgBox 密碼長度不能小于 6 = 0 = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認(rèn)密碼不相同，請重新輸入 = 0 = Len(txtPass2) Exit Sub End If With MyUser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(Trim(txtUserName)) = True Then MsgBox 用戶名已經(jīng)存在，請重新輸入 = 0 = Len(txtUserName) Exit Sub End If End If .UserName = MakeStr(txtUserName) .Pwd = MakeStr(txtPass) If Modify = False Then .Insert Else .Update (OriUser)17 End If If Admin Then = Trim(txtUserName) = Trim(txtPass) End If End With Unload MeEnd Sub’修改功能的實(shí)現(xiàn)Private Sub Cmd_Modi_Click() If = Then MsgBox 請選擇要修改的用戶 Exit Sub End If With FrmUserEdit .OriUser = .txtUserName = .txtPass = .txtPass2 = .Modify = True .Show 1 End With DataList1_ClickEnd Sub’刪除功能的實(shí)現(xiàn)Private Sub Cmd_Del_Click() If = Then18 MsgBox 請選擇要刪除的用戶 Exit Sub End If If = Admin Then MsgBox 此用戶不能刪除 Exit Sub End If 39。確認(rèn)刪除 If MsgBox(是否刪除當(dāng)前用戶, vbYesNo, 請選擇) = vbYes Then () DataList1_Click End IfEnd Sub5 結(jié)束語 經(jīng)過兩個月的開發(fā)和設(shè)計，由我負(fù)責(zé)的客戶管理、商業(yè)交往、用戶管理這些模塊的功能基本實(shí)現(xiàn)，其基本功能符合整個系統(tǒng)開發(fā)要求。開發(fā)過程中小組成員多次商討研究，共同努力，最終開發(fā)出了企業(yè)客戶資源管理系統(tǒng)。其基本功能能夠?qū)崿F(xiàn)客戶管理、客戶名錄、地域管理、商業(yè)交往、結(jié)構(gòu)管理以及用戶管理功能的實(shí)現(xiàn)。但是由于畢業(yè)設(shè)計時間較短，相信該系統(tǒng)還有許多不盡如人意的地方，有待進(jìn)一步改善，在以后的測試應(yīng)用中將逐步完善。實(shí)踐證明，在高科技突飛猛進(jìn)的時代，光靠課堂所學(xué)的知識是遠(yuǎn)遠(yuǎn)不夠的，必須依靠實(shí)踐去不斷的深化認(rèn)識，尤其是計算機(jī)科學(xué)，操作性和實(shí)踐性很強(qiáng)，只有加強(qiáng)實(shí)際的動手能力，才能更好的掌握這一現(xiàn)代化工具。這次設(shè)計，無論是從技術(shù)上還是對環(huán)境的適應(yīng)能力上講，對我今后步入社會都打下了一個良好的基礎(chǔ)。在設(shè)計與實(shí)現(xiàn)的過程中，我也遇到了一些困難，主要表現(xiàn)了技術(shù)和經(jīng)19驗(yàn)的欠缺，但通過努力，最終得到解決。致謝在本次畢業(yè)設(shè)計過程中，我得到了 XXX老師的精心指導(dǎo)，X 老師認(rèn)真負(fù)責(zé)的工作態(tài)度、嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。使我的專業(yè)水平和實(shí)踐能力都有了很大的提高。這對于我以后的工作和學(xué)習(xí)都是一種巨大的幫助。在此我要衷心地感謝我的指導(dǎo)老師于海清老師。參考文獻(xiàn)[1] Basic : ,9. [2] 劉韜，駱娟. Visual Basic :, 8.[3] 李勇帆. Visual Basic :, 3.[4] 劉韜. SQL Server 2022 :, 5
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1