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

　　

【正文】 對(duì)話框，對(duì)客戶信息進(jìn)行查詢。其代碼如下： procedure (Sender: TObject)。 begin := true。 //使“取消”按鈕為可用狀態(tài) – 22 – (TFRM_KHXX_CX, FRM_KHXX_CX)。 //調(diào)用查詢對(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)信息不為空且鍵值為回車鍵時(shí) 。 //光標(biāo)移到 dbbobox1組件上 end。 發(fā)送郵件模塊 發(fā)送郵件模塊主要是向客戶發(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 屬性為“ 查詢聯(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ā)件人地址： ”、“ 用戶名稱： ”、“ 密碼： ”、“ 收件人地址： ”、“ 郵件主題： ”、“ 郵件服務(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)證 := 。 //保存用戶名 := 。 //保存密碼 := 。 //保存郵件服務(wù)器主機(jī)名稱 try ()。 //連接郵件服務(wù)器 try (idmessage1)。 //發(fā)送郵件 showmessage(39。Email已發(fā)送成功。 39。)。 finally 。 //斷開(kāi)郵件服務(wù)器 end。 except on e:exception do begin showmessage(39。Email發(fā)送失?。?39。+)。 end。 end。 end。 end。 – 26 – 附錄 A 參考文獻(xiàn) 1． JSP 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)完全手冊(cè) 人民郵電出版社 2020 年 3 月 2． Delphi 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)完全手冊(cè) 人民郵電出版社 2020 年 3 月 3． Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)完全手冊(cè) 人民郵電出版社 2020 年 3 月 4． Visual C++數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)完全手冊(cè) 人民郵電出版社 2020 年 3 月 5． JSP 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 王國(guó)輝、牛強(qiáng)、李南南等 2020 年 7 月 6． Visual Basic 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 宋坤、趙智勇、劉強(qiáng)等 2020 年 7 月 7． SQL Server 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 宋昆、李嚴(yán)等 2020 年 1 月 8． Access 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 李俊民、高春燕等 2020 年 1 月 9． Visual Basic 精彩編程 200 例 機(jī)械工業(yè)出版社 賽奎春、高春艷等 2020 年 1 月 10． ASP 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 李嚴(yán)、于亞芳、王國(guó)輝 2020 年 12 月 11． Delphi 工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 宋坤、趙智勇等 2020 年 1 月 12． Visual Basic 工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 高春 艷、李俊民等