【正文】 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。 – 24 – begin ssp := 39。 var ini : Tinifile。 2．程序相關(guān)代碼 在窗體顯示時(shí)，打開郵件信息表并將聯(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é)果 – 23 – 1．窗體設(shè)計(jì)步驟 （ 1）選擇“ File” /“ New” /“ Form”菜單項(xiàng)，新建一個(gè)窗體，命名窗體為“ FRM_FSYJ”，設(shè)置 Caption 屬性為“ 發(fā)送郵件 ”。 發(fā)送郵件模塊 發(fā)送郵件模塊主要是向客戶發(fā)送郵件及群發(fā)。) then //當(dāng)信息不為空且鍵值為回車鍵時(shí) 。 begin if (key = vk_return)and( 39。 var Key: Word。 當(dāng) DBEdit2 組件的文本框 不為空且鍵值為〈 Enter〉鍵時(shí)，使光標(biāo)移到 dbbobox1 組件上 。 := true。 := false。 begin 。 在【第一條】按鈕的 OnClick 事件處理過程中，使指針指向第一條記錄，并將【第一條】、【上一條】按 鈕設(shè)為不可用，【下一條】、【末一條】按鈕可用。 //顯不對(duì)話框 。 //使“取消”按鈕為可用狀態(tài) – 22 – (TFRM_KHXX_CX, FRM_KHXX_CX)。其代碼如下： procedure (Sender: TObject)。 end。 open。select * from tb_khxx39。 。 := true。 := false。 //撤消對(duì)數(shù)據(jù)的添加、修改和查詢的操作 := false。其代碼如下： procedure (Sender: TObject)。 end。 //斷開數(shù)據(jù)庫 := true。 := true。 := false。 //保存“添加”或“修改”的信息 := false。)。有些客戶信息必須填寫。39。39。39。39。39。39。39。39。39。39。39。39。39。其代碼如下： procedure (Sender: TObject)。 end。,mb_yesno) = idyes then 。,39。 //彈出提示信息 end else begin if (39。 39。 then //判斷當(dāng)前記錄是不為空 begin showmessage(39。).AsString = 39。 begin if (39。如果按是則刪除當(dāng)前記錄，否則刪除無效。 //編輯當(dāng)前記錄 end。 := true。 := true。其代碼如下 ： procedure (Sender: TObject)。 //使光標(biāo)移到 dbedit2組件上 end。 end。00000039。khxx_id39。 //在記錄的尾部追加一條記錄 。).AsString,9,6))。 //將指針指向最后一條記錄 i := strtoint(copy((39。+inttostr(i)。).AsString := s+39。 //對(duì)添記錄進(jìn)行修改 (39。 if 1 then //如果記錄為空 begin 。yyyymm39。KH39。 //打開數(shù)據(jù)庫 end。)。 //清空 SQL語句 (39。 with do begin close。 := false。 := true。 begin i := 1。 var s : string。 在【添加】按鈕的 OnClick 事件處理過程中，先清空所有組件上的信息，打開客戶信息表，如果有記錄，則在編號(hào)文本框中添加編號(hào)為最大記錄編號(hào)加 1，否則編號(hào)為第一條記錄。 end。)。 (39。 with do //連接客戶信息表 begin close。 。csxx_sfmc39。 //打開數(shù)據(jù)庫 end。)。 //清空 SQL (39。 with do //省份 begin close。 。qylx_lxmc39。 //打開數(shù)據(jù)庫 end。)。 //清空 SQL (39。 with do //企業(yè)類型 begin close。 。khjb_jbmc39。 //打開數(shù)據(jù)庫 end。)。 //清空 SQL (39。 with do //客戶級(jí)別 begin close。 。qyzx_zxjb39。 //打開數(shù)據(jù)庫 – 18 – end。)。 //清空 SQL (39。 with do //企業(yè)資信 begin close。 。qyxz_xzmc39。 //打開數(shù)據(jù)庫 end。)。 //清空 SQL (39。 with do //企業(yè)性質(zhì) begin close。 。 。 //將當(dāng)前時(shí)間和窗體名稱賦給 。one39。)。 ini:=(39。 begin ssp := 39。 var ini : Tinifile。并將企業(yè)性質(zhì)、企業(yè)資信、客戶級(jí)別、企業(yè)類型和省份數(shù)據(jù)庫字段數(shù)據(jù)分別賦值給相對(duì)應(yīng)的 DBTComboBox 組件的 Items 屬性。 圖 19 為 TDBGrid 組件設(shè)置屬性 （ 5）重要組件的相關(guān)屬性設(shè)置，如表 2 所示。在“ Standard” 組件頁中點(diǎn)選“ TPanel”組件，添加到 TabSheet2 頁中 。 在“ Data Controls”組件 頁中點(diǎn)選“ TDBComboBox”組件，在 Panel1 組件上添加 6 個(gè) 。 圖 18 Panel1 屬性 （ 4）在“ Standard” 組件頁中點(diǎn)選“ TLabel”組件 ，在 Panel1 組件上添加 21 個(gè) 。 在“ Win32”組 – 16 – 件頁中