【正文】 dard”組件頁(yè)中點(diǎn)選“ TComboBox” 組件，添加到 GroupBox1 組件上。分別設(shè)置 Caption 的屬性為“ 發(fā)件人地址： ”、“ 用戶名稱： ”、“ 密碼： ”、“ 收件人地址： ”、“ 郵件主題： ”、“ 郵件服務(wù)器： ”、“ 附件： ”、“ 內(nèi)容 ”。 2．程序相關(guān)代碼 在窗體顯示時(shí)，打開郵件信息表并將聯(lián)系人字段的所有信息附加到 TboBox1 組件的 Items屬性中。 – 24 – begin ssp := 39。)。 //向 。 。 。 (39。 end。 //聯(lián)系人姓名 。 在【打開附件】按鈕的 OnClick 事件處理過(guò)程中，將附件的路徑賦給相關(guān)組件。 showmessage(39。 end。 begin if ( = 39。)or( = 39。)or( = 39。) or( = 39。 39。 //保存發(fā)件人的地址 := 。39。 //保存用戶名 。 //保存附件的路徑 := atlogin。 //保存郵件的內(nèi)容 := 。 end else begin 。) then begin showmessage(39。)or( = 39。) or( = 39。)or( = 39。 在【發(fā)送郵件】按鈕的 OnClick 事件處理過(guò)程中，通過(guò) TidMessage 組件將聯(lián)系人信息保存起來(lái)，再 由 TIdSMTP 組件進(jìn)行網(wǎng)絡(luò)的連接和發(fā)送郵件。 39。 begin if then := //將 附件的路徑賦給 Edit7組件 else begin := 39。 end。lxrxx_xm39。)。 with do //打開聯(lián)系人信息表 begin close。 。 。one39。 ini:=(39。 var ini : Tinifile。 （ 12）在“ Standard”組件頁(yè)中點(diǎn)選“ TMemo” 組件，添加到 TPanel 組件上，設(shè)置 ScrollBars屬性 為“ ssVertical”。 （ 9）在“ Standard”組件頁(yè)中點(diǎn)選“ TPanel” 組件，添加到窗體上，命名為“ Panel1”，設(shè)置Caption 屬性為空； BevelInner 屬性為“ bvRaised”； BevelOuter 屬性為“ bvLowered”，如圖 21 所示。 （ 5）在“ Standard”組件頁(yè)中點(diǎn)選“ TGroupBox” 組件，添加到窗體上，命名為“ GroupBox1”，設(shè)置 Caption 屬性為“ 查詢聯(lián)系人的郵件 ”。 圖 20 發(fā)送郵件模塊運(yùn)行結(jié)果 – 23 – 1．窗體設(shè)計(jì)步驟 （ 1）選擇“ File” /“ New” /“ Form”菜單項(xiàng)，新建一個(gè)窗體，命名窗體為“ FRM_FSYJ”，設(shè)置 Caption 屬性為“ 發(fā)送郵件 ”。) then //當(dāng)信息不為空且鍵值為回車鍵時(shí) 。 var Key: Word。 := true。 begin 。 //顯不對(duì)話框 。其代碼如下： procedure (Sender: TObject)。 open。 。 := false。其代碼如下： procedure (Sender: TObject)。 //斷開數(shù)據(jù)庫(kù) := true。 := false。)。39。39。39。39。39。39。39。 end。,39。 39。).AsString = 39。如果按是則刪除當(dāng)前記錄，否則刪除無(wú)效。 := true。其代碼如下： procedure (Sender: TObject)。 end。khxx_id39。).AsString,9,6))。+inttostr(i)。 //對(duì)添記錄進(jìn)行修改 (39。yyyymm39。 //打開數(shù)據(jù)庫(kù) end。 //清空 SQL語(yǔ)句 (39。 := false。 begin i := 1。 在【添加】按鈕的 OnClick 事件處理過(guò)程中，先清空所有組件上的信息，打開客戶信息表，如果有記錄，則在編號(hào)文本框中添加編號(hào)為最大記錄編號(hào)加 1，否則編號(hào)為第一條記錄。)。 with do //連接客戶信息表 begin close。csxx_sfmc39。)。 with do //省份 begin close。qylx_lxmc39。)。 with do //企業(yè)類型 begin close。khjb_jbmc39。)。 with do //客戶級(jí)別 begin close。qyzx_zxjb39。)。 with do //企業(yè)資信 begin close。qyxz_xzmc39。)。 with do //企業(yè)性質(zhì) begin close。 。one39。 ini:=(39。 var ini : Tinifile。 圖 19 為 TDBGrid 組件設(shè)置屬性 （ 5）重要組件的相關(guān)屬性設(shè)置，如表 2 所示。 在“ Data Controls”組件 頁(yè)中點(diǎn)選“ TDBComboBox”組件，在 Panel1 組件上添加 6 個(gè) 。 在“ Win32”組 – 16 – 件頁(yè)中點(diǎn)選“ TPageControl” 組件，添加到窗體上。在“ Standard” 組件頁(yè)中點(diǎn)選“ TPanel”組件，添加到窗體上?？蛻粜畔⒛K運(yùn)行結(jié)果如圖 16 所示。其代碼如下： procedure (Sender: TObject)。 //關(guān)閉本系統(tǒng) end。39。)。操作員名稱、密碼或操作員級(jí)別不正確 39。+yhmc。 end。user_name39。).Value := Trim()。b39。 (39。 。 在【確定】按鈕的 OnClick 事件處理過(guò)程中，連接操作員數(shù)據(jù)庫(kù)，并按操作員名稱、密碼和級(jí)別進(jìn)行查詢，如果有記錄則把操作員的權(quán)限賦給數(shù)組 a[]，然后通過(guò)變量 jj 來(lái)判斷是“登錄”還是“重新登錄”，如果是“登錄”只能登錄 3 次， 否則將無(wú)限制。 //清空 edit2組件 := 39。,datetimetostr(now),ssp)。c:\39。 := 39。重新登錄 39。 ssp : string。分別設(shè)置 Caption 屬性為“確定”、“取消”。將所有 TLabel 組件的 Transparent 屬性設(shè)為“ True”。 （ 7）在窗體上添加 TADOQuery 組件，設(shè)置它們的 Connection 屬性為“ ADOConnection1”。 （ 3）單擊 ADOConnection1 組件，在“ Object Inspector”窗口中，單擊 ConnectionString 屬性右側(cè)的 【 … 】按鈕，彈出對(duì)話框如圖 10 所示。數(shù)據(jù)模塊如圖 9 所示。其代碼如下： procedure (Sender: TObject)。退出系統(tǒng) 39。 if = 39。 then (sender)。聯(lián)系人信息 39。 if = 39。 then (sender)。企業(yè)資信設(shè)置 39。 if = 39。 then (sender)。 在 TtreeView 組件的 OnDblClick 事件處理過(guò)程中，調(diào)用各窗體菜單按鈕單擊事件的處理過(guò)程。 //釋放窗體 end else begin showmessage(39。True39。 //將動(dòng)態(tài)的時(shí)間賦給主界面的任務(wù)欄上 end。 TTimer 組件的 OnTimer 事件代碼如下： procedure (Sender: TObject)。+yhmc。 39。 表 1 組件的相關(guān)屬性設(shè)置 對(duì)象名 對(duì)象類型 屬性 值 FRM_CRM TForm Caption 客戶管理系統(tǒng) BorderStyle bsSizeable KeyPreview True Image1 TImage Align alTop Iimage2 alClient 2．程序相關(guān)代碼 在窗體顯示時(shí)，先調(diào)用登錄窗體，如果登錄成功則在主界面的任務(wù)欄上顯示操作員名稱及日期。 圖 7 菜單欄設(shè)置 2 （ 6）在“ Win32”組件頁(yè)中點(diǎn)選“ TStatusBar”組件，添加到窗體上，雙擊 TStatusBar 組件，在彈出的對(duì)話框 中單擊【 Add New】按鈕，添加面板。 （ 2）在“ Standard”組件頁(yè)中點(diǎn)選“ TmainMenu” 組件，添加到窗體上，雙擊該組件打開菜單編輯器，如圖 4 所示。 圖 2 數(shù)據(jù)表樹型結(jié)構(gòu)圖