【正文】 系統(tǒng)管理文件架構(gòu)圖– 33 –。 客戶信息維護(hù)文件架構(gòu)圖（4）客戶服務(wù)文件架構(gòu)圖。 主文件架構(gòu)圖（2）基礎(chǔ)信息維護(hù)文件架構(gòu)圖。 業(yè)務(wù)往來表結(jié)構(gòu)字段名數(shù)據(jù)類型長度主鍵否功能描述cpxs_idvarchar30客戶銷售編號cpxs_mcvarchar50銷售產(chǎn)品名稱cpxs_cpdjvarchar50產(chǎn)品單價cpxs_xsslvarchar30銷售數(shù)量cpxs_ywlvarchar50業(yè)務(wù)量cpxs_khmcdatatime8客戶名稱cpxs_xsrqdatatime8產(chǎn)品銷售日期cpxs_bztext2147483647備注信息附錄C 文件架構(gòu)圖（1）程序主文件架構(gòu)圖。 客戶信息表結(jié)構(gòu)字段名數(shù)據(jù)類型長度主鍵否功能描述khxx_idvarchar30客戶編號khxx_mcvarchar50是客戶名稱khxx_qyxzvarchar30企業(yè)性質(zhì)khxx_qylxvarchar30企業(yè)類型khxx_qyzxvarchar30企業(yè)資信khxx_qydzvarchar50企業(yè)地址khxx_szsfvarchar30所屬省份khxx_szcsvarchar30所屬城市khxx_gsybvarchar6公司郵編khxx_frdbvarchar20法人代表khxx_khyhvarchar50開戶銀行khxx_yhzhvarchar50銀行賬號khxx_nshvarchar50納稅號khxx_ICcardvarchar50客戶IC卡號khxx_gswzvarchar50公司網(wǎng)址khxx_gsdhvarchar20公司電話khxx_gsczvarchar20公司傳真khxx_lxrvarchar30主要聯(lián)系人khxx_lxrdhvarchar20聯(lián)系人電話khxx_khjbvarchar20客戶級別khxx_bzvarchar2147483647各注（16）tb_Client_khmyd（客戶滿意度表）客戶滿意度表主要保存客戶滿意度的信息。 滿意度統(tǒng)計(jì)表結(jié)構(gòu)字段名數(shù)據(jù)類型長度主鍵否功能描述khjb_idvarchar50客戶級別編號khjb_jbmcvarchar50是級別名稱khjb_zdywlvarchar50該級別每月的最低業(yè)務(wù)量khjb_bzvarchar2147483647備注信息（14）tb_client_lxrxx（聯(lián)系人信息表）聯(lián)系人信息表主要保存聯(lián)系人的詳細(xì)信息。 省份資源信息表字段名數(shù)據(jù)類型長度主鍵否功能描述sfzy_sfidvarchar30省份編號sfzy_sfmcvarchar50省份名稱sfzy_zymsvarchar2147483647省份資源描述（12）tb_user（用戶信息表）用戶信息表，用于記錄操作用戶的密碼和操作權(quán)限。 企業(yè)性質(zhì)信息表字段名數(shù)據(jù)類型長度主鍵否功能描述qyxz_idvarchar30企業(yè)性質(zhì)編號qyxz_xzmcvarchar50是性質(zhì)名稱qyxz_bzvarchar100備注信息（10）tb_Client_qyzx（企業(yè)資信信息表）企業(yè)資信信息表，用于記錄客戶的資信度信息。 企業(yè)類型信息表字段名數(shù)據(jù)類型長度主鍵否功能描述qylx_idvarchar30企業(yè)類型編號qylx_lxmcvarchar50類型名稱qylx_bzvarchar100備注信息（8）tb_Client_qyxx（區(qū)域信息表）區(qū)域信息表，用于記錄客戶的區(qū)域信息。 客戶反饋信息表字段名數(shù)據(jù)類型長度主鍵否功能描述khfk_idvarchar30客戶反饋編號khfk_fkbtvarchar50反饋標(biāo)題khfk_khmcvarchar50客戶名稱khfk_fknrvarchar50反饋內(nèi)容khfk_fkrqvarchar30反饋日期khfk_fkslrvarchar30反饋意見受理人khfk_khmydvarchar50反饋意見受理人khfk_bzvarchar100備注信息（6）tb_Client_khts（客戶投訴信息表）客戶投訴信息表，用于記錄客戶的投訴信息。 城市郵編信息表字段名數(shù)據(jù)類型長度主鍵否功能描述csxx_csjcvarchar6省份簡稱csxx_sfmcvarchar23省份名稱csxx_csmcvarchar25城市名稱csxx_ybvarchar10郵編csxx_dhqhvarchar10電話區(qū)號（4）tb_Client_gzbw（工作備忘信息表）工作備忘信息表，用于記錄工作中的備忘信息。 滿意度統(tǒng)計(jì)表字段名數(shù)據(jù)類型長度主鍵否功能描述mydtj_mydvarchar30滿意度名稱mydtj_slnumeric9滿意度數(shù)量（2）tb_bdwxx（本單位信息表）本單位信息表，用于顯示本單位的相關(guān)信息。end。 end。+)。 except on e:exception do begin showmessage(39。 finally 。39。 //發(fā)送郵件 showmessage(39。 //保存郵件服務(wù)器主機(jī)名稱 try ()。 //保存用戶名 := 。 //保存附件的路徑 := atlogin。39。 //保存郵件的內(nèi)容 := 。 //保存發(fā)件人的地址 := 。 end else begin 。39。) then begin showmessage(39。) or( = 39。)or( = 39。)or( = 39。) or( = 39。)or( = 39。)or( = 39。begin if ( = 39。在【發(fā)送郵件】按鈕的OnClick事件處理過程中，通過TidMessage組件將聯(lián)系人信息保存起來，再由TIdSMTP組件進(jìn)行網(wǎng)絡(luò)的連接和發(fā)送郵件。 end。39。 showmessage(39。begin if then := //將附件的路徑賦給Edit7組件 else begin := 39。在【打開附件】按鈕的OnClick事件處理過程中，將附件的路徑賦給相關(guān)組件。 end。 //聯(lián)系人姓名 。lxrxx_xm39。 end。)。 (39。 with do //打開聯(lián)系人信息表 begin close。 。 。 。 。 // 。one39。)。 ini:=(39。begin ssp := 39。var ini : Tinifile。2．程序相關(guān)代碼在窗體顯示時，打開郵件信息表并將聯(lián)系人字段的所有信息附加到TboBox1組件的Items屬性中。（12）在“Standard”組件頁中點(diǎn)選“TMemo”組件，添加到TPanel組件上，設(shè)置ScrollBars屬性為“ssVertical”。分別設(shè)置Caption的屬性為“發(fā)件人地址：”、“用戶名稱：”、“密碼：”、“收件人地址：”、“郵件主題：”、“郵件服務(wù)器：”、“附件：”、“內(nèi)容”。（9）在“Standard”組件頁中點(diǎn)選“TPanel”組件，添加到窗體上，命名為“Panel1”，設(shè)置Caption屬性為空；BevelInner屬性為“bvRaised”；BevelOuter屬性為“bvLowered”，如圖21所示。（7）在“Standard”組件頁中點(diǎn)選“TComboBox”組件，添加到GroupBox1組件上。（5）在“Standard”組件頁中點(diǎn)選“TGroupBox”組件，添加到窗體上，命名為“GroupBox1”，設(shè)置Caption屬性為“查詢聯(lián)系人的郵件”。（3）在“Indy Misc”組件頁中點(diǎn)選“TIdMessage”組件，添加到窗體上。圖20 發(fā)送郵件模塊運(yùn)行結(jié)果1．窗體設(shè)計(jì)步驟（1）選擇“File”/“New”/“Form”菜單項(xiàng)，新建一個窗體，命名窗體為“FRM_FSYJ”，設(shè)置Caption屬性為“發(fā)送郵件”。 發(fā)送郵件模塊發(fā)送郵件模塊主要是向客戶發(fā)送郵件及群發(fā)。) then //當(dāng)信息不為空且鍵值為回車鍵時 。begin if (key = vk_return)and( 39。 var Key: Word。當(dāng)DBEdit2組件的文本框不為空且鍵值為〈Enter〉鍵時，使光標(biāo)移到dbbobox1組件上。 := true。 := false。begin 。在【第一條】按鈕的OnClick事件處理過程中，使指針指向第一條記錄，并將【第一條】、【上一條】按鈕設(shè)為不可用，【下一條】、【末一條】按鈕可用。 //顯不對話框 。 //使“取消”按鈕為可用狀態(tài) (TFRM_KHXX_CX, FRM_KHXX_CX)。其代碼如下：procedure (Sender: TObject)。end。 open。select * from tb_khxx39。 。 := true。 := false。 //撤消對數(shù)據(jù)的添加、修改和查詢的操作 := false。其代碼如下：procedure (