【正文】 參考文獻(xiàn) [1] 權(quán)明富，齊佳音，舒華英 .客戶價(jià)值評價(jià)指標(biāo)體系設(shè)計(jì) [J].南開管理評論， 2021， 7(3):1718. [2] 劉小洪，鄒鵬 . 商業(yè)銀行客戶關(guān)系價(jià)值管理模型研究 [J].管理科學(xué)， 2021， 18(3):5760. [3] 劉 展，馮宗憲 . [J].系統(tǒng)工程理論與實(shí)踐，2021(2):7682. [4] 李純青，徐寅峰，張洋 . 基于知識管理的動態(tài)客戶關(guān)系管理研究 [J].中國管理科學(xué)， 2021， 12(2): 8894. [5] 呂延杰，尹濤，王琦 . 客戶關(guān)系管理與主題分析 [M].北京，中國郵電出版社， 2021. [6] 秦壽康等 . 綜合評價(jià)原理與應(yīng)用 [M].北京：電子工業(yè)出版社， 2021. [7] 李捷等 ,Visual Basic 2021 程序設(shè)計(jì)教程 [M].機(jī)械工業(yè)出版社 . 小組成員分工說明： 系統(tǒng)分析： 劉睿 34 系統(tǒng)設(shè)計(jì)： 王銀柳 馬新蓮 實(shí)驗(yàn)報(bào)告 ： 王銀柳 。 盡 管系統(tǒng)已經(jīng)開發(fā)完成，但由于經(jīng)驗(yàn)不足和對實(shí)際生產(chǎn)生活不熟悉，在系統(tǒng)中仍然存在著許多的問題，還不能滿足實(shí)際需求，需要在功能方面繼續(xù)完善。 c = 員工 Then = 恭喜您，添加成功！ = True Else = 非常遺憾，添加失敗！ End If End Select End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class 33 員工管理系統(tǒng)中個(gè)人信息運(yùn)行結(jié)果 課程設(shè)計(jì)總結(jié)或結(jié)論 本系統(tǒng)在開發(fā)過程中，嘗試著包括運(yùn)用 VB等多種數(shù)據(jù)庫連接技術(shù)。 c = 經(jīng)理 Then = 恭喜您，添加成功！ = True Else = 非常遺憾，添加失?。? End If Case Is = 女 If a = 002 amp。 newpassword, + , 密碼修改成功 ) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class 系統(tǒng)管理中口令修改代碼運(yùn)行的結(jié)果 23 主界面中選擇系統(tǒng)管理中的用戶管理后出現(xiàn)的用戶管理界面，如圖： 24 系統(tǒng)管理中用戶管理代碼運(yùn)行的結(jié)果 主界面中選擇系統(tǒng)管理中的菜單編輯后出現(xiàn)的菜單編輯界面，如圖： 25 菜單編輯代碼 Public Class Form4 Private Sub Form4_Load(ByVal sender As , ByVal e As ) Handles (泡椒魚頭 100) (醬骨架 80) (米粉 20) (炒肉 50) (鵝肝 80) (填鴨 70) (米飯 10) End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim i, j As Integer Select Case DirectCast(sender, Button).Name Case For i = 0 To 1 If 0 Then For j = 0 To 1 (j, (i).ToString) 26 (i) Next End If Next If = 0 Then = False = False End If = True = True End Select End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim i, j As Integer Select Case DirectCast(sender, Button).Name Case For i = 0 To 1 ((i)) Next () = False = False = True = True End Select End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles Dim i, j As Integer Select Case DirectCast(sender, Button).Name Case 27 For i = 0 To 1 If 0 Then For j = 0 To 1 (j, (i).ToString) (i) Next End If Next If = 0 Then = True = True = False = False End If End Select End Sub Private Sub B