計企業(yè)客戶資源管理系統(tǒng)的設(shè)計與實(shí)現(xiàn)畢業(yè)論文-在線瀏覽
2025-08-05 18:26本頁面
【正文】 來類型、涉及金額、活動描述、經(jīng)辦人姓名等。字段名 類型 字段含義JobId Int 客戶職務(wù)編碼JobName Varchar(100) 客戶職務(wù)名稱SortId Int 排序編號TypeId Int 職務(wù)類別編號 表 客戶職務(wù)基本信息客戶單位基本信息表 CltOrg如表 ：該表列出客戶單位基本信息，如：客戶單位編碼、客戶單位名稱、所屬客戶類別編碼、通信地址、郵政編碼、所在地域編碼、刪除標(biāo)記等字段名 類型 字段含義OrgId Int 客戶單位編碼OrgName Varchar(200) 客戶單位名稱8TypeId Int 所屬客戶類別編碼Address Varchar(400) 通信地址Postcode Varchar(40) 郵政編碼AreaId Int 所在地域編碼Deleted Bit 刪除標(biāo)記表 客戶單位基本信息客戶類別基本信息 CltType如表 ：該表列出客戶類別基本信息，如：客戶類別編碼、客戶類別名稱、排序編號字段名 類型 字段含義TypeId Int 客戶類別編碼TypeName VARCHAR(100) 客戶類別名稱SortId Int 排序編號表 客戶類別基本信息客戶基本信息 Contact如表 ：該表列出客戶基本信息，如：客戶編碼、客戶單位名稱、聯(lián)系人姓名、性別、職位編碼、辦公室電話、移動電話、家庭電話、客戶等級、家庭住址、郵政編碼、身份證、刪除標(biāo)記、錄入時間、錄入日期等字段名 類型 字段含義CltId Int 客戶編碼OrgName Varchar(200) 客戶單位名稱TypeId Int 客戶類別編碼CltName Varchar(100) 聯(lián)系人姓名Sex Varchar(10) 性別JobId Int 職位編碼Office Varchar(100) 辦公室電話Mobile Varchar(30) 移動電話Home Varchar(30), 家庭電話Level TinyInt 客戶等級9Address Varchar(200) 家庭住址Postcode Varchar(20) 郵政編碼Id_Card Varchar(60), 身份證Deleted Bit 刪除標(biāo)記Input_date Varchar(40), 錄入時間Input_time Varchar(40) 錄入日期表 客戶基本信息用戶基本信息 Users如表 ： 該表列出用戶基本信息，如：用戶名、密碼字段名 類型 字段含義UserName Varchar(40) 用戶名Pwd Varchar(40) 密碼 表 用戶基本信息 系統(tǒng)流程圖 系統(tǒng)流程圖如圖 ：圖 3.圖 企業(yè)客戶資源管理系統(tǒng)身份驗(yàn)證界面客戶管理模塊 客戶名錄模塊 結(jié)構(gòu)管理模塊 商業(yè)交往模塊 地域管理模塊 用戶管理模塊添加 修改 刪除 還原 添加 修改 刪除104 功能模塊的設(shè)計與實(shí)現(xiàn) 客戶管理模塊的設(shè)計與實(shí)現(xiàn) 設(shè)計目的該模塊的主要功能是用來對客戶的基本信息進(jìn)行管理。 設(shè)計思想 在 ，提交后進(jìn)入 下，顯示出客戶單位編輯的信息，其中包括：所屬地域、客戶分類、客戶單位、通信地址、郵政編碼，可對客戶的信息進(jìn)行添加操作。在，可以對已經(jīng)添加的客戶信息進(jìn)行刪除操作。’添加功能的實(shí)現(xiàn)Private Sub Cmd_Add_Click() Dim TmpAreaId As Integer ’保存當(dāng)前 CurArea的對象客戶管理添加客戶單位信息 修改客戶單位信息 刪除客戶單位信息 查看客戶單位信息 單位回收站管理11 TmpAreaId = = False = If 0 Then = End If = 0 1 = TmpAreaId () Refresh_OrgEnd Sub’客戶單位編輯信息的實(shí)現(xiàn)Private Function Check() As Boolean If = 0 Then MsgBox 請選擇地域 Check = False Exit Function End If If Trim(txtOrg) = Then MsgBox 請輸入客戶單位 = 0 = Lench(Trim(txtOrg)) Check = False Exit Function End If If 0 Then MsgBox 請選擇客戶類型12 Check = False Exit Function End If’還原功能的實(shí)現(xiàn)Private Sub Cmd_Restore_Click() Dim TmpOrg As String Dim TmpOrgId As
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1