論文-054-客戶關(guān)系管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)(參考版)
2024-11-20 16:38本頁面
【正文】 ACCESS。 。s relation management(CRM) is a kind of mercial mode es from regarding customer as the centre . It is the mechanism of management based on the work as platform ,aiming at improving the relation between the enterprise and customer. This text has introduced the system structure and key function， Using and ACCESS realizing the module. Keywords: .NET。 6 致謝詞 7 參考文獻(xiàn) [1]孟軍 ,王寶軍 . 精通 .人民郵電出版社 ,2020 [2]雄勇 ,劉燕 . . 人民郵電出版社 ,2020 [3] 張治洪 ,史忠植 . WWW與數(shù)據(jù)庫的連接 . 計(jì)算機(jī)研究 與發(fā)展 ,2020 [4]宣小平等 . ASP數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航 .機(jī)械工業(yè)出版社 ,2020 [5]汪曉平，張宏林 . .人民郵電出版社 ,2020 [6]薛元 . 網(wǎng)頁數(shù)據(jù)庫設(shè)計(jì)與技術(shù) . 清華大學(xué)出版社 ,2020 [7]吳勇強(qiáng) . VBScript開發(fā)實(shí)例 . 機(jī)械工業(yè)出版社 ,2020 [8]林凡 ,郭戈 . WWW與數(shù)據(jù)庫互連技術(shù)分析 . 機(jī)械工業(yè)出版社 ,2020 [9]黃敏如 . FrontPage 2020 中文版 . 清華大學(xué)出版社 ,2020 [10]薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 高等教 育出版社 ,2020 [11]劉文開等 . . 中國鐵道出版社 ,2020 Design and Realization of Customer39。 ASP的最大優(yōu)點(diǎn)并全力使其擴(kuò)大化的基礎(chǔ)上開發(fā)出來的，同時(shí)也修復(fù)了許多 ASP運(yùn)行時(shí)會(huì)發(fā)生的錯(cuò)誤。 ASP 的簡單升級(jí)，而是微軟公司推出的新一代 ActiveX Server Page。 Dim cmd1 As New Try With cmd1 .Connection = n1 .CommandText = str () .ExecuteNonQuery() () End With Catch ee As Exception = End Try Clear() = False 5 結(jié)束語 .NET是一項(xiàng)革命性的技術(shù)。 amp。 39。 39。 amp。, amp。 amp。 網(wǎng)址 =39。 39。 amp。, amp。 amp。 地址 =39。 39。 amp。, amp。 amp。 業(yè)務(wù)員 =39。 39。 amp。, amp。 amp。 經(jīng)營項(xiàng)目 =39。 39。 amp。, amp。 amp。 區(qū)域 =39。 39。 amp。, amp。 amp。 傳真 =39。 39。 amp。, amp。 amp。 稅號(hào) =39。 39。 amp。, amp。 amp。 客戶級(jí)別 =39。 39。 amp。, amp。 amp。 set 客戶姓名 =39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 Dim cmd1 As New Try With cmd1 .Connection = n1 .CommandText = str () .ExecuteNonQuery() () = 刪除成功 !!! = True End With Catch ee As Exception = = True End Try 添加功能如圖 411 所示 圖 411 客戶基本信息添加 添加成功時(shí)顯示 ”添加成功 ”,而當(dāng)要添加的客戶編號(hào)已存在時(shí)報(bào)錯(cuò) ,主要代碼實(shí)現(xiàn) : Dim leixingStr As String = Dim jibieStr As String = Dim str1 As String = insert into CuestInform amp。 amp。 39。 Dim cmd1 As New Try With cmd1 .Connection = n1 .CommandText = str () .ExecuteNonQuery() () End With Catch ee As Exception = End Try Dim dap1 As New (cmd1) (das1, CuestInform) = ((CuestInform)) () If (0). 0 Then = True Else = 此客戶編號(hào)不存在 = True End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim str As String = delete * from CuestInform amp。 amp。 39。 圖 49 客戶基本信息 查詢和刪除功能如圖 410所示 圖 410 客戶基本信息查詢與刪除 輸入要查詢的客戶編號(hào)后點(diǎn)擊查詢后 ,刪除按紐才可用 ,如果客戶編號(hào)為空或不存在就報(bào)錯(cuò) .主要代碼實(shí)現(xiàn) : Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = Then = 請(qǐng)輸入客戶編號(hào) = True Exit Sub End If Dim str As String = select * from CuestInform amp。 39。 amp。 , amp。 , amp。, amp。 amp。 39。 xiaxian amp。 39。 amp。 39。 amp。 RunSQLString(str) 添加 : Dim xiaxian As Integer = CInt() Dim shangxian As Integer = CInt() Dim pinlu As Integer = CInt() Dim str1 As String = insert into 客戶級(jí)別表 amp。 amp。 39。 RunSQLString(str) Clear() End Sub 其中 : Sub RunSQLString(ByVal Str) Dim cmd1 As New Try With cmd1 .Connection = n1 .CommandText = Str () .ExecuteNonQuery() () End With Catch ee As Exception = End Try End Sub 刪除 : Dim str As String = delete * from 客戶級(jí)別表 amp。 amp。 39。 39。 amp。, amp。 amp。 預(yù)定訪問頻率 =39。 39。 amp。, amp。 amp。 客戶累計(jì)交易額 =39。 39。 amp。, amp。 amp。 set 戰(zhàn)略價(jià)值和一般 =39。 39。 amp。 where 客戶級(jí)別編碼 = amp。= Data Source=e:\ = str1 Refresh() 39。圖 45顯示了客戶級(jí)
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1