|
導讀數據庫,簡而言之可視為電子化的文件柜——存儲電子文件的處所,用戶可以對文件中的數據進行新增、截取、更新、刪除等操作。所謂“數據庫”是以一定方式儲存在一起、能與多個用戶共享、具有盡可能小的冗余度、與應... 數據庫,簡而言之可視為電子化的文件柜——存儲電子文件的處所,用戶可以對文件中的數據進行新增、截取、更新、刪除等操作。所謂“數據庫”是以一定方式儲存在一起、能與多個用戶共享、具有盡可能小的冗余度、與應用程序彼此獨立的數據集合。 2.閱讀郵件
用戶信息在服務器上通過驗證以后,一個有效的郵件會話就建立了,接下來要做的工作就是接發郵件。
PB用一個mailMessage對象來描述一封郵件,該對象封裝了郵件的主題、地址、消息體和附件等信息。圖1是郵件應用程序的閱讀界面,它列出了收件箱中的所有郵件,可選擇其中一封進行閱讀。主窗口Open事件的代碼為:
…… //連接到郵件服務器 MyMail.mailGetMessages() //用收件箱中的郵件填充MyMail對象 iNum=UpperBound(MyMail.MessageID[]) //獲取收件箱中的郵件數目 For i=1 To iNum //讀取收件箱中的每一封郵件,并將其主題添加到列表框中 MyMail.mailReadMessage(MyMail.MessageID[i],msg, mailEntireMessage!,True) tab—1.tabpage—1.plb—1.AddItem(msg.Subject,1) Next //msg為mailMessage類型的實例變量 在plb—1控件的SelectionChanged事件中加入下列代碼: MyMail.mailReadMessage(MyMail.MessageID[index],msg, mailEntireMessage!,True) sle—1.Text=msg.Subject //顯示當前郵件的主題 sle—2.Text=msg. Recipient[1].Address //顯示發件人地址 sle—3.Text=msg.DateReceived //顯示收件時間 mle—1.text=msg.NoteText //顯示郵件的消息體 iAttachmentFileNum=UpperBound(msg.AttachmentFile[]) //獲取當前郵件的附件數目 For i=1 To iAttachmentFileNum strAttFile= strAttFile +msg.AttachmentFile[i].PathName+″~r~n″ Next //strAttFile為String類型的實例變量 |
在“附件”按鈕的Clicked事件中加入下列代碼:
| MessageBox(″郵件附件″, strAttFile) //顯示當前郵件的附件及其在硬盤上存放的位置 |
全新的路由器不僅讓你更穩定快速地連接無線網絡,更可以讓家中的智能設備連接在一起。
|