【文章內(nèi)容簡介】 “發(fā)布通知”按鈕的Click事件代碼如下：Private Sub Command1_Click()If = Then MsgBox 請選擇接收通知的部門！, vbInformation, 提示： Exit SubElseIf = Then MsgBox 請選擇接收通知的人！, vbInformation, 提示： Exit SubElseIf = Then MsgBox 請輸入通知內(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 接收通知 “接收通知”：“查詢”按鈕的代碼如下：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ā)布用來將新聞發(fā)布給某部門中的某人，新聞接收用來接收其他職員發(fā)布的新聞，已發(fā)新聞?dòng)脕頌g覽發(fā)布給其他職員的新聞。下面介紹新聞發(fā)布、新聞接收和已發(fā)新聞的開發(fā)過程。1 新聞發(fā)布： 1）在窗體中添加4個(gè)“Label”控件、兩個(gè)“Combo”控件、3個(gè)“ADO”控件、兩個(gè)“TextBox”控件和兩個(gè)“CommandButton”控件，屬性設(shè)置如圖所示：2）添加“DTPicker”控件。該控件屬于“ActiveX”控件，在使用之前必須從“部件”對話框中添加工具箱中，添加方法為：在“部件”對話框中選中“Microsoft Windows Common Controls2 ”列表項(xiàng)。3）程序代碼類似于“發(fā)布通知”窗體的代碼類似這里就不再贅述了。2 新聞接收1）添加4個(gè)“CommandButton”和一個(gè)“ADO”控件。2）添加2個(gè)“DTPicker”控件，名稱分別為“DTPicker1”和“DTPicker2”。3）添加“DataGrid”控件，使用默認(rèn)名稱?！靶侣劷邮铡保?） 程序代碼與“接收通知”類似，這里就不再贅述了。3 已發(fā)新聞“已發(fā)新聞”：添加“ADO”控件，名稱為“adoNews”，設(shè)置其“Visible”屬性為“False”。添加“DataGrid”控件，名稱為默認(rèn)名稱“DataGrid1”程序代碼與“接收新聞”中的代碼設(shè)計(jì)類似，這里就不再贅述了。 文件管理 1. 文件傳送文件傳送在OA辦公自動(dòng)化系統(tǒng)中占據(jù)很重要的位置，本系統(tǒng)的文件傳送可以傳送多種類型的文件（如：exe\bat\rar\frm\doc等）。“文件傳送”：1）在該窗體中用到“CommonDialog”控件，該控件是“ActiveX”控件，在使用之前必須從“部件”對話框中添加到工具箱中，在“部件”對話框中選中“Microsoft Common Dialog ”列表項(xiàng)。其它控件設(shè)置，在這里就不再贅述了。2)代碼設(shè)計(jì)在“Form”窗體裝載時(shí)，主要實(shí)現(xiàn)以下功能。* 建立“adoDept”控件的數(shù)據(jù)庫連接。* 為“Commbo1”控件添加部門名稱數(shù)據(jù)。* 獲取系統(tǒng)操作員的姓名，并通過“txtName”控件顯示出來。* 使“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ù)庫中，代碼如下：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 語句39。 設(shè)置標(biāo)志，標(biāo)題欄 = cdlOFNHideReadOnly39。 設(shè)置過濾器 = All Files (*.*)|*.*|Text Files amp。 (*.txt)|*.txt|Batch Files (*.bat)|*.bat39。 指定缺省的過濾器 = 239。文本框顯示文件路徑 = Exit SuberrHandler:39。 用戶按了“取消”按鈕Exit Sub 39。End Sub2. 文件接收1）窗體設(shè)計(jì)文件接收”窗體主要用來接收其他員工傳送來的文件，并且將文件下載保存到本機(jī)中。 本窗體主要實(shí)現(xiàn)的功能為：以日期 為標(biāo)準(zhǔn)，查詢接收文件、下載接收文件、刪除接收文件、顯示所有的接收文件?！拔募邮铡保?）代碼設(shè)計(jì)本窗體中聲明變量，代碼如下：Public filePath As StringDim As , rs As , st As 通過鼠標(biāo)選擇“DataGrid”表格中數(shù)據(jù)，然后單擊“刪除文件記錄”按鈕，將選中的文件數(shù)據(jù)刪除。下面是“刪除文件記錄”按鈕的“Click”事件代碼：Private Sub cmddel_Click()On Error Resume Next 39。當(dāng)數(shù)據(jù)表中沒有數(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在日期輸入框中輸入開始日期和截止日期后，“查詢”按鈕，將查詢結(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。 傳送來的【 amp。 (1).Text amp。 】嗎？, vbQuestion + vbYesNo) = vbYes Then = (8).Text39。 設(shè)置“CancelError”為 True = TrueOn Error GoTo errHandler 39。 如果為真則轉(zhuǎn)到errhandler 處，執(zhí)行exit sub 語句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。保存文件,adSaveCreateOverWrite 為覆蓋已存在的文件 = 0MsgBox 保存成功！ amp。 文件保存在： amp。 , vbInformation, 文件下載 End IfExit SuberrHandler: