- 相關(guān)推薦
用VB實(shí)現班主任工作的電子化
摘要：本文探討了如何利用VB，讀取數據庫中的數據，通過(guò)Microsoft MAPI Controls 6.0控件，利用Outlook Express，從而實(shí)現成績(jì)通知單以E-mail的形式自動(dòng)寄發(fā)。
關(guān)鍵字：VB，E-mail, MAPI,自動(dòng)寄發(fā)
一、問(wèn)題提出
每期期未，寄發(fā)學(xué)生成績(jì)通知單都是班主任的例行工作，然而，現在大多數人仍然還采用原始的平信寄發(fā)方式，并且由于平信很容易丟失而導致以前所做的工作（如抄錄學(xué)生期末成績(jì)、寫(xiě)出學(xué)生的學(xué)期鑒定，填寫(xiě)學(xué)生成績(jì)通知單和寫(xiě)、寫(xiě)信封、寄發(fā)通知書(shū)等）前功盡棄，同時(shí)由于許多學(xué)生放假后并沒(méi)有回家，如外去打工或因種種原因沒(méi)有回家而無(wú)法收到信件。隨著(zhù)INTERNET技術(shù)的不斷普及，電子郵件已經(jīng)開(kāi)始進(jìn)入尋常百姓家，它以快速、方便、可以異地查閱而逐漸代替普通的信件，如果你的學(xué)生（或家長(cháng)）都有E-mail，我們以E-mail來(lái)寄發(fā)學(xué)生的成績(jì)通知單了，這樣就可以減少上述弊端。但一個(gè)個(gè)填寫(xiě)每個(gè)學(xué)生的收件人地址和相關(guān)的數據（如各門(mén)功課的成績(jì)、評語(yǔ)），既枯燥又煩鎖，下面我們將探討如何利用VB來(lái)讀取學(xué)生成績(jì)數據庫中的數據，通過(guò)E-mail實(shí)現學(xué)生成績(jì)通知單的自動(dòng)寄發(fā)。
二、工作原理
學(xué)生成績(jì)通知單各學(xué)校雖然有所不同，但大都大同小異，通常包括：學(xué)生各學(xué)科的成績(jì)，操行分，班主任評語(yǔ)等內容（如上圖）。如果這些內容都在數據庫中，我們可以通過(guò)VB訪(fǎng)問(wèn)數據庫來(lái)讀取數據庫中用戶(hù)的E-mail地址、成績(jì)及評語(yǔ)，再通過(guò)VB的Microsoft MAPI Controls 6.0控件中的MAPI Session和MAPI Messages兩個(gè)控件進(jìn)行電子郵件的管理，利用OutlookExpress。就能實(shí)現同時(shí)給班上所有學(xué)生用E-mail的自動(dòng)發(fā)送通知書(shū)了。但由于各個(gè)學(xué)校成績(jì)科目及多少不同，因此數據庫中字段數就會(huì )不同，為使程序具有通用性，因此，在設計時(shí)我們使用了自動(dòng)讀取數據表中的字段個(gè)數和字段名，并自動(dòng)在窗體上自動(dòng)生成相對應的文本框和標簽。
三、程序設計
1、 啟動(dòng)VB后，新建一個(gè)標準的EXE工程
2、 在“工具”菜單中選“部件”，在“控件”選項卡中選“Microsoft MAPI Controls 6.0”，在控件工具箱中將郵件控件MAPIMessages和MAPISession兩個(gè)控件添加到窗體中。
2、添加兩個(gè)命令按鈕，將其CAPTION屬性設計為“全部發(fā)送”和“退出”。
3、添加一個(gè)數據控件(Data1)，并設置“Connect”、“DataBaseName”和“RecordSource”對應的屬性。
上述三個(gè)控件最好放在窗體的下方。
4.編寫(xiě)源程序代碼：將下面的代碼添加到代碼窗口中
Dim txtobject(20), lblObject(20)
Dim SendToText As String
Const M_Subject = "成績(jì)通知單"
Private Sub Command2_Click()
Unload Me
End Sub
'定義一個(gè)用來(lái)回復(發(fā)送郵件)的函數
Public Function StarSend(T1, T2, T3)
MAPIMessages1.MsgIndex = -1
MAPIMessages1.RecipDisplayName = T1
MAPIMessages1.MsgSubject = T2
MAPIMessages1.MsgNoteText = T3
MAPIMessages1.SessionID = MAPISession1.SessionID
'MAPIMessages1.AttachmentPathName = "e:\My Documents\注意事項.htm" ' 確定要發(fā)送的電子郵件的附件
MAPIMessages1.Send
End Function
Private Sub Command1_Click()
Data1.Recordset.MoveFirst
MAPISession1.SignOn
Do While Data1.Recordset.EOF = False
Sum = Sum 1
' SendToText指的是發(fā)送郵件的內容(郵件正文）
SendToText = txtobject(1).Text "同學(xué)" Chr(13) Chr(10) "你好！" Chr(13) Chr(10)
SendToText = SendToText "現將你的成績(jì)通知你，希望你在假期注意復習功課！" Chr(13) Chr(10)
'下面將自動(dòng)獲得各學(xué)科的名稱(chēng)和成績(jì)
For i = 3 To Data1.Recordset.RecordCount
SendToText = SendToText lblObject(i).Caption "：" txtobject(i).Text "分" Chr(13) Chr(10)
Next
SendToText = SendToText " 班主任: 劉友生 " Chr(13) Chr(10)
SendToText = SendToText "湖南省衡陽(yáng)經(jīng)濟貿易學(xué)校" Chr(13) Chr(10)
SendToText = SendToText "發(fā)信日期：" Data$ " 發(fā)信時(shí)間：" Time$
GetTxtName ’調用函數
Call StarSend(txtobject(2).Text, M_Subject, SendToText)
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
MsgBox Str(Sum) "個(gè)人員的成績(jì)通知單已經(jīng)發(fā)送完畢！", , " 發(fā) 送 郵 件"
End
End If
Loop
End Sub
Private Sub GetFieldNum()
Data1.Recordset.MoveFirst
'自動(dòng)獲得數據表中字段數并在窗體中自動(dòng)生成相應文本
【用VB實(shí)現班主任工作的電子化】相關(guān)文章：
用VB實(shí)現分布式光纖光柵傳感網(wǎng)絡(luò )的通道切換11-22
利用VB的MSComm控件實(shí)現GPS數據采集03-07
用VB構鍵Internet的應用03-18
用VB構鍵Internet的應用-03-18
VB5.0中數據庫查詢(xún)模塊的實(shí)現03-03