一種保險(xiǎn)業(yè)客戶資料的搜集方法及裝置的制造方法
【技術(shù)領(lǐng)域】
[0001] 本發(fā)明涉及一種保險(xiǎn)業(yè)客戶資料的搜集方法及裝置，屬于保險(xiǎn)行業(yè)市場(chǎng)宣傳營(yíng)銷 領(lǐng)域。
【背景技術(shù)】
[0002] 作為傳統(tǒng)產(chǎn)業(yè)的保險(xiǎn)行業(yè)，其保險(xiǎn)產(chǎn)品的銷售一直沿襲著人員推銷為主的銷售模 式。其中客戶資料特別是潛在客戶信息的搜集是拓展市場(chǎng)占有率的一個(gè)非常重要的方面， 過去一直依賴保險(xiǎn)業(yè)務(wù)人員上門主動(dòng)搜集為主的方式進(jìn)行，但這種方式效率不高，成本也 比較大。

【發(fā)明內(nèi)容】

[0003] 本發(fā)明所要解決的問題是：將客戶信息特別是潛在客戶信息的搜集從保險(xiǎn)業(yè)務(wù)人 員上門搜集為主變?yōu)轭櫩碗S時(shí)隨地都可主動(dòng)"上門"登記的搜集方式。該發(fā)明可以大大提 高保險(xiǎn)客戶信息的搜集效率，并降低企業(yè)宣傳營(yíng)銷成本。
[0005] 實(shí)現(xiàn)以上的功能，我們可以利用互聯(lián)網(wǎng)或移動(dòng)互聯(lián)網(wǎng)建立保險(xiǎn)企業(yè)網(wǎng)站平臺(tái)及數(shù) 據(jù)庫(kù)系統(tǒng)，在平臺(tái)中設(shè)置客戶注冊(cè)登記功能模塊并將網(wǎng)站正式發(fā)布上網(wǎng)運(yùn)行，利用該模塊 將保險(xiǎn)客戶登記資料上傳至網(wǎng)站數(shù)據(jù)庫(kù)，從而達(dá)到便捷地搜集客戶資料的目的，同時(shí)配以 相應(yīng)的促銷策略與活動(dòng)，吸引潛在客戶群關(guān)注本網(wǎng)站、訪問本網(wǎng)站游覽本網(wǎng)站的網(wǎng)頁(yè)并進(jìn) 而注冊(cè)成為本網(wǎng)站會(huì)員以享受保險(xiǎn)企業(yè)提供的優(yōu)質(zhì)保險(xiǎn)服務(wù)。該方法由互聯(lián)網(wǎng)、移動(dòng)互聯(lián) 網(wǎng)的網(wǎng)絡(luò)系統(tǒng)+網(wǎng)站平臺(tái)服務(wù)器及數(shù)據(jù)庫(kù)系統(tǒng)+保險(xiǎn)公司管理客戶端+顧客用戶端+軟件 系統(tǒng)+保險(xiǎn)公司營(yíng)銷策略及活動(dòng)組成，其原理如圖1所示。
【附圖說(shuō)明】
[0076] 圖1是本方法及裝置的原理圖；
[0008] 圖2是保險(xiǎn)企業(yè)網(wǎng)站頁(yè)面上的保險(xiǎn)個(gè)人客戶資料搜集界面示意圖；
[0009] 圖3是保險(xiǎn)企業(yè)網(wǎng)站頁(yè)面上的保險(xiǎn)團(tuán)體客戶資料搜集界面示意圖。
[0010] 圖4是保險(xiǎn)企業(yè)網(wǎng)站數(shù)據(jù)庫(kù)中記錄客戶信息的數(shù)據(jù)表結(jié)構(gòu)示意圖。
【具體實(shí)施方式】
[0011] 以下是本發(fā)明的具體實(shí)施例并結(jié)合附圖對(duì)本發(fā)明的技術(shù)方案作進(jìn)一步的描述，為 了使敘述簡(jiǎn)明易懂，以下描述中省略了對(duì)本領(lǐng)域技術(shù)人員的公知功能和結(jié)構(gòu)的描述。在保 險(xiǎn)企業(yè)的技術(shù)創(chuàng)新領(lǐng)域中，我們開發(fā)一款與業(yè)務(wù)改進(jìn)配套的軟件可以有許多種計(jì)算機(jī)語(yǔ)言 與開發(fā)平臺(tái)的選項(xiàng)可供選擇，本實(shí)施例以VB+Dreamweaver+ASP. NET+HTML+數(shù)據(jù)庫(kù)SQL2000 為例加以說(shuō)明，但本發(fā)明并不限于這些實(shí)施例。
[0012] 實(shí)施例
[0013] 首先為了使我們利用互聯(lián)網(wǎng)、移動(dòng)互聯(lián)網(wǎng)網(wǎng)站平臺(tái)搜集客戶資料起到應(yīng)有的效 果，我們可以對(duì)整個(gè)項(xiàng)目安排一些配套性措施，如可以在企業(yè)的宣傳或業(yè)務(wù)廣告上加上企 業(yè)網(wǎng)站的域名或訪問方式方面的內(nèi)容，讓大眾潛在客戶群知曉本網(wǎng)站的訪問方式，并吸引 引導(dǎo)他們?cè)L問本網(wǎng)站。
[0014] 第二步在確保網(wǎng)站與數(shù)據(jù)庫(kù)硬軟件建設(shè)到位并與數(shù)據(jù)庫(kù)建立有效聯(lián)接的情況下， 在網(wǎng)站平臺(tái)中設(shè)置客戶注冊(cè)登記功能模塊。在設(shè)計(jì)功能模塊之前我們應(yīng)在網(wǎng)站的數(shù)據(jù)庫(kù) 中添加一張名為customer(客戶）的表用于記錄客戶資料信息，在表中我們?cè)O(shè)置以下字 段：userid、name、fuse、sex、addr、code、tel、email、profession、educational、cname、 usercodename、usercode、Pass、whypass、passa、flag 等等字段，其中 userid 用于記錄 客戶登錄帳號(hào)，name用于記錄客戶姓名或團(tuán)體客戶單位名稱，fuse用于記錄客戶屬性分 為個(gè)人客戶、團(tuán)體客戶兩類，sex用于記錄個(gè)人客戶性別，addr用于記錄客戶地址信息， code用于記錄客戶郵政編碼，tel用于記錄客戶聯(lián)系電話，email用于記錄客戶郵箱地址， profession用于記錄個(gè)人客戶職業(yè)類別信息，educational用于記錄個(gè)人客戶最高學(xué)歷信 息，cname用于記錄團(tuán)體客戶的聯(lián)系人姓名，usercodename用于記錄客戶有效證件名稱， usercode用于記錄客戶有效證件號(hào)碼信息，Pass用于記錄客戶登錄密碼信息，whypass用 于記錄客戶找回密碼的提示問題，passa用于記錄客戶找回密碼的提示問題的答案，flag 用于記錄網(wǎng)站管理標(biāo)識(shí)信息，表結(jié)構(gòu)如圖4所示，其中userid號(hào)已設(shè)置為數(shù)據(jù)提交時(shí)自動(dòng) 產(chǎn)生的顧客登錄帳號(hào)。
[0015] 第三步在企業(yè)網(wǎng)站的相關(guān)頁(yè)面中設(shè)計(jì)資料搜集界面。首先在頁(yè)面中插入一張一列 三行的表格，在第一行中插入界面標(biāo)題如"我的保險(xiǎn)客戶資料"關(guān)居中排列，在第二行中插 入客戶屬性類別提示如"個(gè)人會(huì)員注冊(cè)"，在第三行中再插入一張二列數(shù)行的表格用于布置 信息錄入界面，在第二張格中分別插入相應(yīng)的文字提示和服務(wù)器信息錄入控件與服務(wù)器驗(yàn) 證控件，然后在最后一行中插入一信息提交按鈕控件，用于將登記的數(shù)據(jù)提交至網(wǎng)站服務(wù) 器并存儲(chǔ)至數(shù)據(jù)庫(kù)的customer表中，其中所有表格的邊框與間距均設(shè)置為0,其運(yùn)行界面 效果如圖2所示。
[0016] 第四步編寫代碼實(shí)現(xiàn)提交按鈕的信息提交功能。此處要求將顧客登記的相關(guān)信息 通過提交按鈕的點(diǎn)擊事件來(lái)實(shí)現(xiàn)上傳，其事件的關(guān)鍵代碼如下： Sub click_tj(Sender As Object，E As EventArgs) Dim Cnn As sqlConnection Dim Cmd As sqlCommand Dim StrCnn As String Dim StrSql As String Dim ErrStr As String StrCnn = System. Configuration. ConfigurationSettings. AppSettings( " MM-CONNECTION- STRING-famiIyc onn") cnn = new sqlConnection(StrCnn) Cnn. open () Cmd = new sqlCommand(StrSql，Cnn) try StrSql = " Insert into customer (name，sex，addr，code，tel，email，profession， educational，Pass，fuse) '' StrSql = StrSql+" values (" StrSql = StrSql+" " ' +TextBoxname. Text. ToString+ !! ' , ,f ' &Trim(Sex. selecteditem. Text. ToString)&,/ '，" StrSql = StrSql+" " ' +TextBoxaddr. Text. ToString+"'，" StrSql = StrSql+" " ' +TextBoxcode. Text. ToString+"'，" StrSql = StrSql+" " ' +TextBoxtel. Text. ToString+"'，" StrSql = StrSql+" " ' +TextBoxemail. Text. ToString+"'，" StrSql = StrSql+" " ' +TextBox7. Text. ToString+"'，" StrSql = StrSql+" +TextBox8. Text. ToString+"'，" StrSql = StrSql+" +thePass. Text. ToString+"'，'個(gè)人會(huì)員' Cmd = new sqlCommand(strSql，Cnn) Cmd. ExecuteNonQuery () Cnn. Close () Response. Redirect (" d2. aspx") catch ex As Exception ErrStr ="出現(xiàn)意外，數(shù)據(jù)上傳失敗， ToString， "/"，"http://") Lblerr.text = Trim(ErrStr) Cnn. Close () Exit Sub End try end sub
[0017] 顧客在實(shí)際操作時(shí)，資料登記完畢點(diǎn)擊"提交"按鈕提交后頁(yè)面將自動(dòng)跳轉(zhuǎn)到名為 d2的下一頁(yè)至此客戶資料搜集已經(jīng)完成，在d2頁(yè)面中可以安排告知客戶他已注冊(cè)成功，以 及其用于登錄用的id號(hào)與登錄密碼，或者其它一些功能。上述個(gè)人客戶資料搜集提交的主 要代碼展示如下： <%@ Page Language=nVB" ContentType="text/htmr %> <!D0CTYPE html PUBLIC n-/AV3C//DTD XHTML 1.0 Transitional//EN" '' http://www.w3.org/TR/xhtmll/DTD/xhtmll-transitional.dtd''> <html xmlns-'http7/www.w3.org/1999/xhtmr> <%@ Import Namespace-'System.Data" %> <%@ Import Namespace-'System.Data.SqlClient" %> <script runat-"server"> Sub click_tj(Sender As ObjectjE As EventArgs) Dim Cnn As sqlConnection Dim Cmd As sqlCommand Dim StrCnn As String Dim StrSq] As String Dim ErrStr As String StrCnn = System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_familyc onn") cnn - new sqlConnection(StrCnn) Cnn.openO Cmd = new sqlCommand(StrSql,Cnn) try StrSql = "Insert into customer(name，sex，addr，code，tel，email，profession，educational，Pass，fuse)'' StrSql = StrSql + "values(" StrSql = StrSql + TextBoxname.Text.ToString + "'/" & Trim(Sex.selecteditem.Text.ToString) & Ml Il ? StrSql = StrSql + TextBoxaddr.Text.ToString + "V' StrSql = StrSql + TextBoxcode.Text.ToString + m，" StrSql = StrSql + TextBoxtel.Text.ToString + StrSql = StrSql +,n" + TextBoxemail.Text.ToString + StrSql = StrSql + "丨" + TextBoxlText.ToString + StrSql = StrSql + ""' + TextBox8.Text.ToString + '"," StrSql = StrSql + thePass.Text.ToString + "V 個(gè)人會(huì)員')" Cmd = new sqlCommand(strSql ,Cnn) Cmd.ExecuteNonQueryO Cnn.CloseO Response.Re direct(Md2.aspx") catch ex As Exception ErrStr =，'出現(xiàn)意外，數(shù)據(jù)丨:傳失敗，請(qǐng)重試!n & Heplace(ex.Message.ToString，n/'·，"http://"） Lblerr.text = Trim(ErrStr) Cnn. CloseO Exit Sub End try end sub </script> <head> <meta http-equiv="Content'TypeM content-'text/ht