【導讀】工作所取得的成果。盡我所知，除文中已經(jīng)注明引用內容和致謝的地方外，學位或其他用途使用過的成果。與我一同工作的同志對本研究所做的貢獻。均已在論文中做了明確的說明并表示了謝意。若有不實之處，本人愿意承擔相關法律責任。隨著便攜式筆記本電腦的普及，業(yè)務員出去尋找客戶，可。帶上筆記本，使用本系統(tǒng)，方便與客戶溝通，讓客戶圖文并茂更直觀的了解壽險業(yè)務，本系統(tǒng)主要包括客戶管理、談話管理、合同管理、壽險管理、工作提醒幾大模塊。擇所需的壽險模式。數(shù)據(jù)庫管理系統(tǒng)，使用ACCESS2020開發(fā)。的設計，同時也為今后的功能擴展預留了接口。本系統(tǒng)設置了嚴格的權限管理和安全防范，防止了對數(shù)據(jù)的任意訪問和任意修改。

　　

【正文】 king table of life insurance customer management Customer CustomerCallRec OrderSale CustInsur Customer_contact xxxx 大學專業(yè)學位碩士學位論文 23 4 系統(tǒng) 實現(xiàn) 該 壽 險業(yè)務員客戶管理系統(tǒng) 采用 Microsoft Access 2020 開發(fā)工具，開發(fā)語言為 VBA該系統(tǒng)大體上可以劃分為 六 大功能部分： 系統(tǒng) 的設置； 客戶管理 ； 談話記錄 ； 合同管理 ；壽險管理；工作提醒 ?，F(xiàn)將有關模塊的具體實現(xiàn)介紹如下： [1120] 系統(tǒng) 的設置 主要功能是設置 修改密碼 及登陸的判斷 功能 。 其中， 更改密碼 的代碼如下所示： 判斷密碼 不能為空 Private Sub Modi_Click() If IsNull() Or IsNull() Or IsNull() Then MsgBox 不能為空 ! Exit Sub End If 判斷舊密碼是否對 If DLookup(pass, pass) Then MsgBox 舊密碼錯誤 ! Exit Sub End If 新舊密碼不一樣 If Then MsgBox 新舊密碼不一樣 ! Exit Sub End If UPDATE Pass SET Pass=39。 amp。 amp。 39。 MsgBox OK acForm, PassModi End Sub Option Compare Database 人壽保險業(yè)務員客戶 管理系統(tǒng)的設計與實現(xiàn) 24 Option Explicit Private Sub EnterPro_Click() ?對登陸進行判斷 ，并設置有超級密碼，以便忘記密碼時恢復 If Not IsNull() Then If = 668899112233 Then UPDATE SysPara SET ParaValue=1234 WHERE ID=5 acForm, Logon Else If DLookup(ParaValue, SysPara, ID=5) Then MsgBox 密碼錯誤 ! Else acForm, Logon End If End If Else MsgBox PassWord is Null! End If End Sub 點退出，即全部退出程序 Private Sub ExitPro_Click() Quit End Sub 圖 修改密碼 xxxx 大學專業(yè)學位碩士學位論文 25 Fig password settings 圖 系統(tǒng) 登陸 Fig log in of system 客戶管理 該功能模塊 主要就是對客戶的詳細資料進行記錄，查詢等 。 主要功能包括 : 雙擊顯示客戶備注，新增客戶等。 并對一些常見錯誤進行了防呆處理。 主要代碼如下所示： Option Compare Database Option Explicit ?快速新增當前客戶的工作提醒 Private Sub AddSch1_Click() ScheduleEdit, acNormal, , , acFormAdd = End Sub ?禁止重名，以便將來查找 Private Sub AllName_LostFocus() If Then If Not IsNull(DLookup(AllName, customer, AllName=39。 amp。 amp。 39。)) Then MsgBox 客戶姓名重復，請在前面加上省或市區(qū)分一下 End If End If 人壽保險業(yè)務員客戶 管理系統(tǒng)的設計與實現(xiàn) 26 End Sub ?雙擊顯示客戶備注 Private Sub Remark_DblClick(Cancel As Integer) MsgBox End Sub ?顯示所選省對應的市 Private Sub City_Enter() = select CityName from City where ProvinceID= amp。 (1) End Sub ?判斷表單新增記錄時的一些操作 Private Sub Form_Current() If Then = False Else = = True End If End Sub 圖 客戶管理 Fig customer management xxxx 大學專業(yè)學位碩士學位論文 27 談話記錄 完成了客戶資料后，我們就可輸入與客戶的談話記錄 。 在查看方面重點做了一個批量顯示一個客戶按日期排序的所有談話記錄功能，方便使用者快速查看以往的歷史談話記錄。 主要代碼如下所示： Option Compare Database Option Explicit ?根據(jù) Private Sub CallRecID_DblClick(Cancel As Integer) CustomerCallRecEdit, acNormal, , CallRecID= amp。 End Sub ?雙擊談話內容，跳出窗口顯示談話內容 Private Sub ContactData_DblClick(Cancel As Integer) MsgBox End Sub ?雙擊客戶編號打開對應 客戶資料 Private Sub CustID_DblClick(Cancel As Integer) customer, acNormal, , CustID= amp。 = False Cancel = 1 End Sub ?雙擊表單增加客戶談話記錄 Private Sub Form_DblClick(Cancel As Integer) CustomerCallRecEdit, acNormal, , , acFormAdd End Sub ?雙擊客戶名稱增加對應的客戶談話記錄 Private Sub ShortName_DblClick(Cancel As Integer) CustomerCallRecEdit, acNormal, , , acFormAdd = Cancel = 1 End Sub Option Compare Database Option Explicit 人壽保險業(yè)務員客戶 管理系統(tǒng)的設計與實現(xiàn) 28 Dim ModifyStatus As Boolean, IsSave As Boolean Private Sub ContactData_AfterUpdate() ModifyStatus = True End Sub ?啟動表單時初始化相關參數(shù) Private Sub Form_Load() IsSave = True ModifyStatus = False End Sub ?退出表單執(zhí)行相關表單的刷新 Private Sub Form_Unload(Cancel As Integer) If IsSave = True Then If (CustomerCallRec).IsLoaded Then End If If (Customer).IsLoaded Then End If End If End Sub ?不保存退出，如果有修改，則給予提示是否保存 Private Sub NotSaveAndExit_Click() IsSave = False If ModifyStatus = True Then If MsgBox(你有 改動資料，確定要不保存關閉嗎？ , vbYesNo + vbDefaultButton1) = vbYes Then acForm, End If Else acForm, End If xxxx 大學專業(yè)學位碩士學位論文 29 End Sub ?保存并退出 Private Sub SaveAndExit_Click() SendKeys %{F4} End Sub ?快速查看客戶資料 Private Sub ViewCust_Click() If Not IsNull() Then If (customer).IsLoaded Then acForm, customer, acSaveYes End If customer, acNormal, , CustID= amp。 = False End If End Sub 圖 談話記錄 Fig conversation record 合同管理 和客戶所簽的合同，在此模塊中記錄，方便以后查找。 主要代碼如下所示： 人壽保險業(yè)務員客戶 管理系統(tǒng)的設計與實現(xiàn) 30 Option Compare Database Option Explicit ?雙擊客戶編號打開對應客戶資料 Private Sub CustID_DblClick(Cancel As Integer) customer, acNormal, , CustID= amp。 = False Cancel = 1 End Sub ?雙擊表單新增合同 Private Sub Form_DblClick(Cancel As Integer) OrderSaleEdit, acNormal, , , acFormAdd End Sub ?雙擊合同編號，打開對應的合同 Private Sub OrderSaleID_DblClick(Cancel As Integer) 39。 If = Then OrderSaleEdit, acNormal, , OrderSaleID= amp。 39。 Else 39。 MsgBox 不是你開的單，不能修改！ 39。 End If End Sub ?雙擊客戶名稱，自動增加當前客戶的新合同 Private Sub ShortName_DblClick(Cancel As Integer) OrderSaleEdit, acNormal, , , acFormAdd = End Sub Option Compare Database Option Explicit Dim ModifyStatus As Boolean, IsSave As Boolean ?在合同管理中快速增加工作提醒 Private Sub AddSch1_Click() ScheduleEdit, acNormal, , , acFormAdd xxxx 大學專業(yè)學位碩士學位論文 31 = End Sub Private Sub CustID_AfterUpdate() ModifyStatus = True End Sub Private Sub Finish_Click() = Date End Sub Private Sub Form_Load() IsSave = True ModifyStatus = False