【導(dǎo)讀】節(jié)薀螂膆蒞螅蚈膅蕆薈羇膄膇莁羃膃荿蚆衿膂蒁葿螅膂膁蚅蟻膁芃蕆罿芀莆蚃裊艿蒈蒆螁羋膈蟻蚇芇莀蒄肆芆蒂蝿芆薄薂袈芅芄螈螄袁莆薁蝕袀葿螆羈罿膈蕿襖罿芁螄螀羈蒃薇螆羇薅蒀肅羆芅蚅羈羅莇蒈袇羄蒀蚄螃羄腿蒆蠆肅節(jié)螞羇肂莄蒅袃肁薆蝕衿肀芆薃螅聿莈蝿蟻肈蒀薁羀肈膀螇袆?wù)毓?jié)薀螂膆蒞螅蚈膅蕆薈羇膄膇莁羃膃荿蚆衿膂蒁葿螅膂膁蚅蟻膁芃蕆罿芀莆蚃裊艿蒈蒆螁羋膈蟻蚇芇莀蒄肆芆蒂蝿芆薄薂袈芅芄螈螄袁莆薁蝕袀葿螆羈罿膈蕿襖罿芁螄螀羈蒃薇螆羇薅蒀肅羆芅蚅羈羅莇蒈袇羄蒀蚄螃羄腿蒆蠆肅節(jié)螞羇肂莄蒅袃肁薆蝕衿肀芆薃螅聿莈蝿蟻肈蒀薁羀肈膀螇袆?wù)毓?jié)薀螂膆蒞螅蚈膅蕆薈羇膄膇莁羃膃荿蚆衿膂蒁葿螅膂膁蚅蟻膁芃蕆罿芀莆蚃裊艿蒈蒆螁羋膈蟻蚇芇莀蒄肆芆蒂蝿芆薄薂袈芅芄螈螄袁莆薁蝕袀葿螆羈罿膈蕿襖罿芁螄螀羈蒃薇螆羇薅蒀肅羆芅蚅羈羅

　　

【正文】 。 begin if ( = 39。39。)or( = 39。39。)or( = 39。39。) or( = 39。39。)or( = 39。39。)or( = 39。39。) or( = 39。39。)or( = 39。39。) – 21 – or( = 39。39。)or( = 39。39。) or( = 39。39。)or( = 39。39。) or( = 39。39。) then begin showmessage(39。有些客戶(hù)信息必須填寫(xiě)。 39。)。 end else begin 。 //保存“添加”或“修改”的信息 := false。 := false。 := false。 := true。 := true。 := false。 //斷開(kāi)數(shù)據(jù)庫(kù) := true。 //連接數(shù)據(jù)庫(kù) end。 end。 在【取消】按鈕的 OnClick 事件處理過(guò)程中，撤消對(duì)數(shù)據(jù)的添加、修改和查詢(xún)操作，并使記錄返回到第一條。其代碼如下： procedure (Sender: TObject)。 begin 。 //撤消對(duì)數(shù)據(jù)的添加、修改和查詢(xún)的操作 := false。 := false。 := false。 := true。 := true。 with do begin close。 。 (39。select * from tb_khxx39。)。 open。 end。 end。 在【查詢(xún)】按鈕的 OnClick 事件處理過(guò)程中，調(diào)用查詢(xún)對(duì)話框，對(duì)客戶(hù)信息進(jìn)行查詢(xún)。其代碼如下： procedure (Sender: TObject)。 begin := true。 //使“取消”按鈕為可用狀態(tài) – 22 – (TFRM_KHXX_CX, FRM_KHXX_CX)。 //調(diào)用查詢(xún)對(duì)話框 。 //顯不對(duì)話框 。 //釋放該對(duì)話框 end。 在【第一條】按鈕的 OnClick 事件處理過(guò)程中，使指針指向第一條記錄，并將【第一條】、【上一條】按鈕設(shè)為不可用，【下一條】、【末一條】按鈕可用。代碼如下： procedure (Sender: TObject)。 begin 。 //使指針指向第一條記錄 := false。 := false。 := true。 := true。 end。 當(dāng) DBEdit2 組件的文本框 不為空且鍵值為〈 Enter〉鍵時(shí)，使光標(biāo)移到 dbbobox1 組件上 。DBEdit2 組件的 OnKeyDown 事件代碼如下： procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if (key = vk_return)and( 39。39。) then //當(dāng)信息不為空且鍵值為回車(chē)鍵時(shí) 。 //光標(biāo)移到 dbbobox1組件上 end。 發(fā)送郵件模塊 發(fā)送郵件模塊主要是向客戶(hù)發(fā)送郵件及群發(fā)。發(fā)送郵件模塊運(yùn)行結(jié)果如圖 20 所示。 圖 20 發(fā)送郵件模塊運(yùn)行結(jié)果 – 23 – 1．窗體設(shè)計(jì)步驟 （ 1）選擇“ File” /“ New” /“ Form”菜單項(xiàng)，新建一個(gè)窗體，命名窗體為“ FRM_FSYJ”，設(shè)置 Caption 屬性為“ 發(fā)送郵件 ”。 （ 2）在“ Indv Interceots”組 件頁(yè)中點(diǎn)選“ TIdSMTP” 組件，添加到窗體上。 （ 3）在“ Indy Misc”組件頁(yè)中點(diǎn)選“ TIdMessage” 組件，添加到窗體上。 （ 4）在“ Dialogs”組件頁(yè)中點(diǎn)選“ TOpenDialog” 組件，添加到窗體上。 （ 5）在“ Standard”組件頁(yè)中點(diǎn)選“ TGroupBox” 組件，添加到窗體上，命名為“ GroupBox1”，設(shè)置 Caption 屬性為“ 查詢(xún)聯(lián)系人的郵件 ”。 （ 6）在“ Standard”組件頁(yè)中點(diǎn)選“ Tlabel” 組件，添加到 GroupBox1 組件上，命名為“ Label1”，設(shè)置 Caption 屬性為“聯(lián)系人：”。 （ 7）在“ Standard”組件頁(yè)中點(diǎn)選“ TComboBox” 組件，添加到 GroupBox1 組件上。 （ 8）在“ Standard”組件頁(yè)中點(diǎn)選“ TButton” 組件，添加到 GroupBox1 組件上，命名為“ Button3”，設(shè)置 Caption 屬性為“群發(fā)”。 （ 9）在“ Standard”組件頁(yè)中點(diǎn)選“ TPanel” 組件，添加到窗體上，命名為“ Panel1”，設(shè)置Caption 屬性為空； BevelInner 屬性為“ bvRaised”； BevelOuter 屬性為“ bvLowered”，如圖 21 所示。 圖 21 Tmemo 組件的屬性設(shè)置 （ 10）在“ Standard”組件頁(yè)中點(diǎn)選“ TLabel” 組件，在窗體上添加 8 個(gè)， 默認(rèn)命名 。分別設(shè)置 Caption 的屬性為“ 發(fā)件人地址： ”、“ 用戶(hù)名稱(chēng)： ”、“ 密碼： ”、“ 收件人地址： ”、“ 郵件主題： ”、“ 郵件服務(wù)器： ”、“ 附件： ”、“ 內(nèi)容 ”。 （ 11）在“ Standard”組件頁(yè)中點(diǎn)選“ TEdit” 組件，在窗體上添加 7 個(gè)，默認(rèn)命名。 （ 12）在“ Standard”組件頁(yè)中點(diǎn)選“ TMemo” 組件，添加到 TPanel 組件上，設(shè)置 ScrollBars屬性 為“ ssVertical”。 （ 13）在“ Standard”組件頁(yè)中點(diǎn)選“ TButton” 組件，添加到 TPanel 組件上，分別命名為“ Button1”、“ Button2”，設(shè)置 Caption 屬性為“打開(kāi)附件”、“發(fā)送郵件”。 2．程序相關(guān)代碼 在窗體顯示時(shí)，打開(kāi)郵件信息表并將聯(lián)系人字段的所有信息附加到 TboBox1 組件的 Items屬性中。窗體的 OnShow 事件代碼如下： procedure (Sender: TObject)。 var ini : Tinifile。 ssp : string。 – 24 – begin ssp := 39。發(fā)送郵件 39。 ini:=(39。c:\39。)。 //在 C盤(pán)中創(chuàng)建 (39。one39。,datetimetostr(now),ssp)。 //向 。 。 。 。 。 。 。 。 。 。 with do //打開(kāi)聯(lián)系人信息表 begin close。 。 (39。select * from tb_Client_lxrxx39。)。 open。 end。 if 0 then begin while not do begin ((39。lxrxx_xm39。).AsString)。 //聯(lián)系人姓名 。 end。 end。 end。 在【打開(kāi)附件】按鈕的 OnClick 事件處理過(guò)程中，將附件的路徑賦給相關(guān)組件。代碼如下： procedure (Sender: TObject)。 begin if then := //將 附件的路徑賦給 Edit7組件 else begin := 39。39。 showmessage(39。還沒(méi)有附件。 39。)。 end。 – 25 – end。 在【發(fā)送郵件】按鈕的 OnClick 事件處理過(guò)程中，通過(guò) TidMessage 組件將聯(lián)系人信息保存起來(lái)，再 由 TIdSMTP 組件進(jìn)行網(wǎng)絡(luò)的連接和發(fā)送郵件。其 代碼如下： procedure (Sender: TObject)。 begin if ( = 39。39。)or( = 39。39。)or( = 39。39。) or( = 39。39。)or( = 39。39。)or( = 39。39。) or( = 39。39。) then begin showmessage(39。請(qǐng)?zhí)韺?xiě)全部信息。 39。)。 end else begin 。 //清除前一次郵件的內(nèi)容 := 。 //保存發(fā)件人的地址 := 。 //保存收件人的地址 ()。 //保存郵件的內(nèi)容 := 。 //保存郵件主題 if 39。39。 then //判斷是否有附件 (,)。 //保存附件的路徑 := atlogin。 //身份驗(yàn)證 := 。 //保存用戶(hù)名