【文章內(nèi)容簡(jiǎn)介】 ：Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case 139。 設(shè)置“CancelError”為 True = TrueOn Error GoTo errHandle 39。 如果為真則轉(zhuǎn)到errhandler 處，執(zhí)行exit sub 語(yǔ)句39。 設(shè)置標(biāo)志，標(biāo)題欄 = cdlOFNHideReadOnly39。 設(shè)置過(guò)濾器 = 所有文件 (*.*)|*.*|文本文件 (*.txt)|*.txt|Word 文檔 (*.doc)|*.doc|可執(zhí)行文件 (*.exe)|*.exe|所有圖片 (*.BMP,*.GIF,*,PNG,*.JPEG)|*.BMP,*.GIF,*,PNG,*.JPEG39。 指定缺省的過(guò)濾器 = 2Shell , FileProtocolHandler + , vbNormalFocusExit SuberrHandle:39。 用戶(hù)按了“取消”按鈕Exit SubCase 2 Case 3 Case 4Case 5 Unload Me End SelectEnd Sub。 通知管理 通知管理包含3個(gè)部分：發(fā)布通知、接收通知、已發(fā)通知。其中，發(fā)布通知用來(lái)將通知發(fā)布給某部門(mén)某人，接收用來(lái)接收其他職員發(fā)布的通知，已發(fā)通知是用來(lái)查看發(fā)布給其他職員的通知。1 發(fā)布通知部分代碼如下： 窗體裝載事件代碼如下：Private Sub Form_Load() = For i = 0 To 1 (0).ValueNext i39。顯示用戶(hù)For i = 0 To 1 (0).ValueNext i39。設(shè)置通知人 = 39。顯示日期 = NowEnd Sub“發(fā)布通知”按鈕的Click事件代碼如下：Private Sub Command1_Click()If = Then MsgBox 請(qǐng)選擇接收通知的部門(mén)！, vbInformation, 提示： Exit SubElseIf = Then MsgBox 請(qǐng)選擇接收通知的人！, vbInformation, 提示： Exit SubElseIf = Then MsgBox 請(qǐng)輸入通知內(nèi)容！, vbInformation, 提示： Exit SubEnd If(1).Value = (2).Value = (3).Value = (4).Value = (5).Value = 0(6).Value = MsgBox 您的通知已經(jīng)發(fā)送成功！, vbInformation, 提示： = = = End Sub 2 接收通知 “接收通知”：“查詢(xún)”按鈕的代碼如下：Private Sub cmdFind_Click() = pstr = select * from tboa_notice where notice_date between 39。 + str() + 39。and 39。 + str() + 39。and notice_acceptperson=39。 + + 39。order by notice_date descSet = adoNoticeCall setDataGrid_CaptionEnd Sub“顯示所有通知”按鈕代碼如下：Private Sub cmdshow_Click() = pstr = select * from tboa_notice where notice_acceptperson =39。 + + 39。 order by notice_date descSet = adoNoticeCall setDataGrid_CaptionEnd Sub 3 已發(fā)通知 “已發(fā)通知”：主要代碼如下：Private Sub Form_Load() = pstr = select notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice where notice_person=39。 amp。 amp。 39。 order by notice_dateSet = adoNoticeCall setNotice_CaptionEnd Sub 新聞管理 新聞管理包含3個(gè)部分：新聞發(fā)布、新聞接收、已發(fā)新聞。其中，新聞發(fā)布用來(lái)將新聞發(fā)布給某部門(mén)中的某人，新聞接收用來(lái)接收其他職員發(fā)布的新聞，已發(fā)新聞?dòng)脕?lái)瀏覽發(fā)布給其他職員的新聞。下面介紹新聞發(fā)布、新聞接收和已發(fā)新聞的開(kāi)發(fā)過(guò)程。1 新聞發(fā)布： 1）在窗體中添加4個(gè)“Label”控件、兩個(gè)“Combo”控件、3個(gè)“ADO”控件、兩個(gè)“TextBox”控件和兩個(gè)“CommandButton”控件，屬性設(shè)置如圖所示：2）添加“DTPicker”控件。該控件屬于“ActiveX”控件，在使用之前必須從“部件”對(duì)話(huà)框中添加工具箱中，添加方法為：在“部件”對(duì)話(huà)框中選中“Microsoft Windows Common Controls2 ”列表項(xiàng)。3）程序代碼類(lèi)似于“發(fā)布通知”窗體的代碼類(lèi)似這里就不再贅述了。2 新聞接收1）添加4個(gè)“CommandButton”和一個(gè)“ADO”控件。2）添加2個(gè)“DTPicker”控件，名稱(chēng)分別為“DTPicker1”和“DTPicker2”。3）添加“DataGrid”控件，使用默認(rèn)名稱(chēng)?！靶侣劷邮铡保?） 程序代碼與“接收通知”類(lèi)似，這里就不再贅述了。3 已發(fā)新聞“已發(fā)新聞”：添加“ADO”控件，名稱(chēng)為“adoNews”，設(shè)置其“Visible”屬性為“False”。添加“DataGrid”控件，名稱(chēng)為默認(rèn)名稱(chēng)“DataGrid1”程序代碼與“接收新聞”中的代碼設(shè)計(jì)類(lèi)似，這里就不再贅述了。 文件管理 1. 文件傳送文件傳送在OA辦公自動(dòng)化系統(tǒng)中占據(jù)很重要的位置，本系統(tǒng)的文件傳送可以傳送多種類(lèi)型的文件（如：exe\bat\rar\frm\doc等）?！拔募魉汀保?）在該窗體中用到“CommonDialog”控件，該控件是“ActiveX”控件，在使用之前必須從“部件”對(duì)話(huà)框中添加到工具箱中，在“部件”對(duì)話(huà)框中選中“Microsoft Common Dialog ”列表項(xiàng)。其它控件設(shè)置，在這里就不再贅述了。2)代碼設(shè)計(jì)在“Form”窗體裝載時(shí)，主要實(shí)現(xiàn)以下功能。* 建立“adoDept”控件的數(shù)據(jù)庫(kù)連接。* 為“Commbo1”控件添加部門(mén)名稱(chēng)數(shù)據(jù)。* 獲取系統(tǒng)操作員的姓名，并通過(guò)“txtName”控件顯示出來(lái)。* 使“DTPicker1”控件顯示當(dāng)前日期。 在“Form”窗體的“Load”事件中添加如下代碼：Private Sub Form_Load() = 39。設(shè)置bo1 = pstr = select * from tboa_deptFor i = 0 To 1 (0).ValueNext i 39。設(shè)置bo2 = pstr = select user_name from dboa_userFor i = 0 To 1 (0).ValueNext i39。設(shè)置發(fā)布人 = Mid((1).Text, 6, Len((1).Text) 5) = DateEnd Sub單擊“傳送文件”按鈕，將相應(yīng)文件數(shù)據(jù)保存到數(shù)據(jù)庫(kù)中，代碼如下：Private Sub cmdSend_Click()Dim As , rs As , st As Stream = 11 39。設(shè)置鼠標(biāo)的形狀，沙漏型的Set = New = pstrSet rs = New select * from tboa_file, , adOpenStatic, adLockOptimisticSet st = New = adTypeBinary (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = Now(7).Value = (8).Value = 39。只顯示文件名 = 0MsgBox 文件傳送成功！, vbInformation = = = = = End Sub單擊“瀏覽文件”按鈕，選擇將要傳送的文件，代碼如下：Private Sub cmdFile_Click()39。 設(shè)置“CancelError”為 True = TrueOn Error GoTo errHandler 39。 如果為真則轉(zhuǎn)到errhandler 處，執(zhí)行exit sub 語(yǔ)句39。 設(shè)置標(biāo)志，標(biāo)題欄 = cdlOFNHideReadOnly39。 設(shè)置過(guò)濾器 = All Files (*.*)|*.*|Text Files amp。 (*.txt)|*.txt|Batch Files (*.bat)|*.bat39。 指定缺省的過(guò)濾器 = 239。文本框顯示文件路徑 = Exit SuberrHandler:39。 用戶(hù)按了“取消”按鈕Exit Sub 39。End Sub2. 文件接收1）窗體設(shè)計(jì)文件接收”窗體主要用來(lái)接收其他員工傳送來(lái)的文件，并且將文件下載保存到本機(jī)中。 本窗體主要實(shí)現(xiàn)的功能為：以日期 為標(biāo)準(zhǔn)，查詢(xún)接收文件、下載接收文件、刪除接收文件、顯示所有的接收文件?！拔募邮铡保?）代碼設(shè)計(jì)本窗體中聲明變量，代碼如下：Public filePath As StringDim As , rs As , st As 通過(guò)鼠標(biāo)選擇“DataGrid”表格中數(shù)據(jù)，然后單擊“刪除文件記錄”按鈕，將選中的文件數(shù)據(jù)刪除。下面是“刪除文件記錄”按鈕的“Click”事件代碼：Private Sub cmddel_Click()On Error Resume Next 39。當(dāng)數(shù)據(jù)表中沒(méi)有數(shù)據(jù)時(shí)，進(jìn)行錯(cuò)誤處理End SubPrivate Sub cmdexit_Click()Unload MeEnd SubPrivate Sub cmdFind_Click() = pstr = select * from tboa_file where file_acceptperson=39。 amp。 amp。 39。 and file_date between 39。 amp。 str() amp。 39。 and 39。 amp。 str() amp。 39。 order by file_date desc Call setDataGrid_CaptionEnd Sub在日期輸入框中輸入開(kāi)始日期和截止日期后，“查詢(xún)”按鈕，將查詢(xún)結(jié)果顯示在DataGrid控件中，代碼如下：Private Sub cmdFind_Click() = pstr = select * from tboa_file where file_acceptperson=39。 amp。 amp。 39。 and file_date between 39。 amp。 str() amp。 39。 and 39。 amp。 str() amp。 39。 order by file_date desc End Sub單擊“顯示所有文件”按鈕的事件代碼如下 ：Private Sub cmdshow_Click() = pstr = select * from tboa_file where file_acceptperson =39。 amp。 amp。 39。 order by file_date desc End Sub雙擊“DataGrid”表格中的一行，可以下載文件的事件代碼如下：Private Sub DataGrid1_DblClick()On Error GoTo UNEXIf MsgBox(是否接收 amp。 (3).Text amp。 傳送來(lái)的【 amp。 (1).Text amp。 】嗎？, vbQuestion + vbYesNo) = vbYes Then = (8).Text39。 設(shè)置“CancelError”為 True = TrueOn Error GoTo errHandler 39。 如果為真則轉(zhuǎn)到errhandler 處，執(zhí)行exit sub 語(yǔ)句filePath = = 11Set = New = pstrSet rs = New select * from tboa_file where file_id = 39。 amp。 (0).Value amp。 39。, , adOpenStatic, adLockOptimisticSet st = New = adTypeBinary (7).Value filePath, adSaveCreateOverWrite 39。保存文件,adSaveCreateOve