【文章內(nèi)容簡介】 發(fā)過程。1．新聞發(fā)布新聞管理窗體的設(shè)計結(jié)果如圖6所示。圖6 新聞發(fā)布設(shè)計圖（1）新建1個窗體，設(shè)置窗體的“名稱”屬性為frmNews_issue、Caption屬性為“新聞發(fā)布”，MaxButton屬性為False。（2）在窗體中添加4個Label控件、2個Combo控件、3個ADO控件、2個TextBox控件和2個CommandButton控件。（3）添加DTPicker控件，該控件屬于ActiveX控件，在使用之前必須從“部件”對話框中添加到工具箱中。添加方法為：在“工程”/“部件”對話框中勾選“Microsoft Windows Common Controls ”列表項，添加DTPicker控件后，其名稱為默認(rèn)的DTPicker1。（4）程序代碼。新聞發(fā)布就是將要發(fā)布的新聞按部門、職員和新聞數(shù)據(jù)存儲到tbOA_news數(shù)據(jù)表中。在【發(fā)布新聞】按鈕的Click事件下添加如下代碼：Private Sub cmdSave_Click() (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = 0 (6).Value = MsgBox 通知發(fā)布成功！, vbInformationEnd SubForm窗體載入時，主要實現(xiàn)以下功能：（1）建立adoNews控件和adoDept控件數(shù)據(jù)庫連接。（2）為Combo1控件中添加部門名稱數(shù)據(jù)。（3）獲取系統(tǒng)操作職員姓名，并通過Text2控件顯示出來。（4）使DTPicker1控件顯示系統(tǒng)當(dāng)前日期。Form窗體的Load事件過程中的代碼如下：Private Sub Form_Load() = PublicStr ‘建立數(shù)據(jù)庫連接 = select * from tbOA_news ‘檢索數(shù)據(jù)表數(shù)據(jù) = PublicStr = select * from tbOA_dept For i = 0 To – 1 ‘將所有部門名稱添加到Combo1中 (1).Value Next i = Mid((1).Text, 6, Len((1).Text) 5) ‘獲取操作員姓名 = Date ‘顯示系統(tǒng)當(dāng)前日期End Sub在Combo1控件中選擇不同的部門，檢索該部門的所有員工并將其添加到Combo2控件中。Combo1控件Click事件的代碼如下：Private Sub Combo1_Click() = PublicStr = select * from tbOA_employee For i = 0 To 1 (1).Value Next iEnd Sub2．新聞接收新聞接收窗體的設(shè)計結(jié)果如圖7所示。圖7 新聞接收設(shè)計圖（1）新建一個窗體，設(shè)置窗體的“名稱”屬性為frmNews_incept、Caption屬性為“新聞接收”、MaxButton屬性為False。（2）添加4個ComandButton控件和1個Adodc控件。（3）添加2個DTPicker控件，名稱分別為DTPicker1和DTPicker2。（4）添加DataGrid控件，使用默認(rèn)名稱。（5）程序代碼。在窗體裝載過程中，將adoNews控件查詢的數(shù)據(jù)通過DataGrid控件顯示，代碼如下：Private Sub Form_Load() = PublicStr ‘建立數(shù)據(jù)庫連接‘?dāng)?shù)據(jù)庫查詢（以日期為標(biāo)準(zhǔn)降序 查詢） = select * from tbOA_news where news_acceptPerson=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。order by news_date desc Set = adoNews ‘將數(shù)據(jù)源綁定到DataGrid表格中 Call setDataGrid_CaptionEnd Sub通過鼠標(biāo)選擇DataGrid表格中數(shù)據(jù)，然后單擊【刪除】按鈕，將選中的數(shù)據(jù)刪除，代碼如下：Private Sub cmdDel_Click() On Error Resume Next End Sub在日期輸入框輸入開始日期和截止日期后，單擊【查詢】按鈕，將在DataGrid控件中顯示相應(yīng)查詢結(jié)果，代碼如下：Private Sub cmdFind_Click() = PublicStr = select * from tbOA_news where news_date between 39。 amp。 amp。 39。 and 39。 amp。 amp。 39。 and news_acceptPerson=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。order by news_date desc Set = adoNews Call setDataGrid_Caption ‘調(diào)用自定義過程End Sub單擊【顯示所有新聞】按鈕后，顯示系統(tǒng)操作職員接收到的所有新聞，代碼如下：Private Sub Command1_Click() = PublicStr = select * from tbOA_news where news_acceptPerson=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。order by news_date desc Set = adoNews Call setDataGrid_CaptionEnd Sub由于本系統(tǒng)數(shù)據(jù)表中的字段都是英文字段，因此將ADO Data控件綁定到DataGrid控件后，DataGrid控件的列標(biāo)題都為英文字段名稱，為方便用戶使用，筆者在此建立了setDataGrid_Caption()過程，該過程主要用于設(shè)置DataGrid控件的列標(biāo)題和列寬，代碼如下：Sub setDataGrid_Caption() (0).Caption = 序號 (1).Caption = 通日期 (2).Caption = 發(fā)布新聞人 (3).Caption = 接收部門 (4).Caption = 接收人 (5).Visible = False (6).Caption = 新聞內(nèi)容 (0).Width = 600 (1).Width = 1000 (2).Width = 1000 (3).Width = 2000 (4).Width = 1000 (6).Width = 4000End Sub3．已發(fā)新聞已發(fā)新聞窗體的設(shè)計結(jié)果如圖8所示。圖8 已發(fā)新聞窗體設(shè)計圖（1）新建1個窗體，將窗體的“名稱”屬性設(shè)置為frmNews_toNews，設(shè)置Caption屬性為“已發(fā)布新聞”，設(shè)置MaxButton屬性為False。（2）添加ADO控件，設(shè)置“名稱”屬性為adoNews，設(shè)置Visible屬性為False；添加DataGrid控件 “名稱”屬性為默認(rèn)名稱DataGrid1；添加CommandButton控件名稱為默認(rèn)名稱、其Caption屬性為“退出”。（3）程序代碼。在窗體裝載過程中，將adoNews控件查詢的數(shù)據(jù)通過DataGrid控件顯示，代碼如下：Private Sub Form_Load() = PublicStr = select * from tbOA_news where news_person=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 Set = adoNews Call setDataGrid_CaptionEnd Sub39。此處代碼，請參見光盤 傳送文件文件傳送在OA辦公自動化系統(tǒng)中占據(jù)很重要的位置，本系統(tǒng)文件傳送可以傳送多種類型的文件（如EXE，BAT，RAR，F(xiàn)RM，DOC等等）。傳送文件窗體的設(shè)計結(jié)果如圖9所示。圖9 傳送文件窗體設(shè)計結(jié)果1．窗體設(shè)計（1）新建1個窗體，設(shè)置窗體“名稱”屬性為frmFile、Caption屬性為“文件傳送”、MaxButton屬性為False。（2）添加2個Combo控件、4個TextBox控件、3個CommandButton控件。（3）添加2個ADO控件，名稱分別為adoDept和adoEmployee，其Visible屬性均為False。（4）添加1個DTPicker控件，默認(rèn)名稱為DTPicker1。（5）添加CommonDialog控件，默認(rèn)名稱CommonDialog1。CommonDialog控件為ActiveX控件，在使用之前必須從“部件”對話框中添加到工具箱中。添加方法為：在“工程”/“部件”對話框中勾選“Microsoft Common Dialog ”列表項。2．程序代碼設(shè)計在Form窗體裝載中，主要實現(xiàn)以下功能：（1）建立adoDept控件數(shù)據(jù)庫連接。（2）為Combo1控件中添加部門名稱數(shù)據(jù)。（3）獲取系統(tǒng)操作職員姓名，并通過txtName控件顯示出來。（4）使DTPicker1控件顯示系統(tǒng)當(dāng)前日期。在Form窗體的Load事件添加如下代碼：Private Sub Form_Load() = PublicStr = select * from tbOA_dept For i = 0 To 1 (1).Value Next i = Mid((1).Text, 6, Len((1).Text) 5) = DateEnd Sub單擊【傳送文件】按鈕，將相應(yīng)的文件數(shù)據(jù)保存到數(shù)據(jù)庫中，代碼如下：Private Sub cmdSave_Click()Dim As , rs As , mst As = 11 Set = New = Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=db_OA。Data Source=MRZYT