【正文】 投票活動(dòng)“投票活動(dòng)”主要是對(duì)公司內(nèi)部的活動(dòng)進(jìn)行投票。保存文件,adSaveCreateOverWrite 為覆蓋已存在的文件 = 0MsgBox 保存成功！ amp。 39。 amp。 設(shè)置“CancelError”為 True = TrueOn Error GoTo errHandler 39。 (1).Text amp。 (3).Text amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。下面是“刪除文件記錄”按鈕的“Click”事件代碼：Private Sub cmddel_Click()On Error Resume Next 39。 本窗體主要實(shí)現(xiàn)的功能為：以日期 為標(biāo)準(zhǔn)，查詢接收文件、下載接收文件、刪除接收文件、顯示所有的接收文件。 用戶按了“取消”按鈕Exit Sub 39。 指定缺省的過濾器 = 239。 設(shè)置過濾器 = All Files (*.*)|*.*|Text Files amp。 如果為真則轉(zhuǎn)到errhandler 處，執(zhí)行exit sub 語句39。只顯示文件名 = 0MsgBox 文件傳送成功！, vbInformation = = = = = End Sub單擊“瀏覽文件”按鈕，選擇將要傳送的文件，代碼如下：Private Sub cmdFile_Click()39。設(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è)置bo1 = pstr = select * from tboa_deptFor i = 0 To 1 (0).ValueNext i 39。* 使“DTPicker1”控件顯示當(dāng)前日期。* 為“Commbo1”控件添加部門名稱數(shù)據(jù)。2)代碼設(shè)計(jì)在“Form”窗體裝載時(shí)，主要實(shí)現(xiàn)以下功能?！拔募魉汀保?）在該窗體中用到“CommonDialog”控件，該控件是“ActiveX”控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱中，在“部件”對(duì)話框中選中“Microsoft Common Dialog ”列表項(xiàng)。添加“DataGrid”控件，名稱為默認(rèn)名稱“DataGrid1”程序代碼與“接收新聞”中的代碼設(shè)計(jì)類似，這里就不再贅述了?！靶侣劷邮铡保?） 程序代碼與“接收通知”類似，這里就不再贅述了。2）添加2個(gè)“DTPicker”控件，名稱分別為“DTPicker1”和“DTPicker2”。3）程序代碼類似于“發(fā)布通知”窗體的代碼類似這里就不再贅述了。1 新聞發(fā)布： 1）在窗體中添加4個(gè)“Label”控件、兩個(gè)“Combo”控件、3個(gè)“ADO”控件、兩個(gè)“TextBox”控件和兩個(gè)“CommandButton”控件，屬性設(shè)置如圖所示：2）添加“DTPicker”控件。其中，新聞發(fā)布用來將新聞發(fā)布給某部門中的某人，新聞接收用來接收其他職員發(fā)布的新聞，已發(fā)新聞?dòng)脕頌g覽發(fā)布給其他職員的新聞。 39。 amp。 + + 39。 + + 39。 + str() + 39。 + str() + 39。設(shè)置通知人 = 39。1 發(fā)布通知部分代碼如下： 窗體裝載事件代碼如下：Private Sub Form_Load() = For i = 0 To 1 (0).ValueNext i39。 通知管理 通知管理包含3個(gè)部分：發(fā)布通知、接收通知、已發(fā)通知。 指定缺省的過濾器 = 2Shell , FileProtocolHandler + , vbNormalFocusExit SuberrHandle:39。 設(shè)置標(biāo)志，標(biāo)題欄 = cdlOFNHideReadOnly39。 設(shè)置“CancelError”為 True = TrueOn Error GoTo errHandle 39。Sub setNewsDataGrid_Caption()For i = 1 To (i, 0) = i Next (0, 0) = 序號(hào) (0, 1) = 發(fā)布日期 (0, 2) = 新聞內(nèi)容 (0) = 800 (1) = 2000 (2) = 6700End Sub窗體中的ToolBar控件為了方便用戶打開文件、聽音樂、查看幫助、退出。刷新新聞 = pstr = select top 8 news_date,news_text from tboa_news order by news_date descCall setNewsDataGrid_Caption39。在“Timer”控件的“Timer”事件下添加如下代碼。檢索最新的8條新聞 = select top 8 news_date,news_text from tboa_news order by news_date descSet = adoNewsCall setNewsDataGrid_Caption39。pwd=sa。Persist Security Info=False。設(shè)置新聞 = = pstr 39。key 返回設(shè)置字符串，在集合中唯一的標(biāo)識(shí)一個(gè)成員If = 發(fā)布通知 Then If = 接收通知 Then If = 已發(fā)通知 Then If = 新聞發(fā)布 Then If = 接收新聞 Then If = 已發(fā)新聞 Then If = 傳送文件 Then If = 接收文件 Then If = 已發(fā)文件 Then If = 意見箱 Then If = 投票活動(dòng) Then If = 投票管理 Then If = 意見箱管理 Then If = 添加用戶 Then If = 密碼修改 Then End Sub在“Form”窗體的裝載過程中，將最新的新聞和通知顯示在MSHFlexGrid表格中。在“TreeView”控件的NodeClick事件下添加如下代碼：39。激活窗體的Activate事件，Private Sub Form_Activate() For i = 1 To 39。主界面的運(yùn)行結(jié)果如下圖所示：2 代碼設(shè)計(jì) 當(dāng)窗體激活時(shí)，將“TreeView”控件中所有的節(jié)點(diǎn)展開。該控件屬于“ActiveX”控件，添加“ImaggeList”控件時(shí)已經(jīng)將該控件添加到工具箱中。為了使“ImageList”控件中的圖像能夠順利地顯示在“TreeView”控件的節(jié)點(diǎn)中，需將“ImageList”綁定到“TreeView”控件上，綁定方法為：在“TreeView”控件上單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性”命令，彈出“屬性頁”對(duì)話框，然后將圖像列表屬性設(shè)置為“ImageList1”4)添加“MSHFlexGrid”控件，該控件屬于Active控件，在使用之前必須將“MSHFlexGrid”控件添加到工具箱中，添加方法為：在“部件”對(duì)話框中選中“Microsoft Hierarchical FlexGrid Control ”列表項(xiàng)，添加兩個(gè)MSHFlexGrid控件，“MSHFlexgrid1”和“MSHFlexGrid2”控件。3）向窗體中添加“Treeview”控件，設(shè)置其“Appearance”屬性為“0ccfat”。該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中將其添加到工具箱中。1 窗體設(shè)計(jì)1）新建一個(gè)窗體，將窗體的“Caption”屬性設(shè)置為“OA辦公自動(dòng)化系統(tǒng)”,設(shè)置“BackColor”屬性為窗體選擇合適的背景顏色。 (2).Text = Format(Now, m/d/yy) Set n1 = (, tvwChild, 通知管理, 通知管理, 1) Set node1 = (n1, tvwChild, 發(fā)布通知, 發(fā)布通知, 1) Set node1 = (n1, tvwChild, 接收通知, 接收通知, 1) Set node1 = (n1, tvwChild, 已發(fā)通知, 已發(fā)通知, 1) Set n2 = (, tvwChild, 新聞管理, 新聞管理, 1) Set node2 = (n2, tvwChild, 新聞發(fā)布, 新聞發(fā)布, 1) Set node2 = (n2, tvwChild, 接收新聞, 接收新聞, 1) Set node2 = (n2, tvwChild, 已發(fā)新聞, 已發(fā)新聞, 1) Set n3 = (, tvwChild, 文件傳送, 文件傳送, 1) Set node3 = (n3, tvwChild, 傳送文件, 傳送文件, 1) Set node3 = (n3, tvwChild, 接收文件, 接收文件, 1) Set node3 = (n3, tvwChild, 已發(fā)文件, 已發(fā)文件, 1) Set n4 = (, tvwChild, 交流管理, 交流管理, 1) Set node4 = (n4, tvwChild, 意見箱, 意見箱, 1) Set node4 = (n4, tvwChild, 投票活動(dòng), 投票活動(dòng), 1) Set n5 = (, tvwChild, 系統(tǒng)維護(hù)管理, 系統(tǒng)維護(hù)管理, 1) Set node5 = (n5, tvwChild, 投票管理, 投票管理, 1) Set node5 = (n5, tvwChild, 意見箱管理, 意見箱管理, 1) Set node5 = (n5, tvwChild, 添加用戶, 添加用戶, 1) Set node5 = (n5, tvwChild, 密碼修改, 密碼修改, 1) End If Else39。設(shè)置treeview控件的樹狀菜單 Set n1 = (, tvwChild, 通知管理, 通知管理, 1) Set node1 = (n1, tvwChild, 發(fā)布通知, 發(fā)布通知, 1) Set node1 = (n1, tvwChild, 接收通知, 接收通知, 1) Set node1 = (n1, tvwChild, 已發(fā)通知, 已發(fā)通知, 1) Set n2 = (, tvwChild, 新聞管理, 新聞管理, 1) Set node2 = (n2, tvwChild, 新聞發(fā)布, 新聞發(fā)布, 1) Set node2 = (n2, tvwChild, 接收新聞, 接收新聞, 1) Set node2 = (n2, tvwChild, 已發(fā)新聞, 已發(fā)新聞, 1) Set n3 = (, tvwChild, 文件傳送, 文件傳送, 1) Set node3 = (n3, tvwChild, 傳送文件, 傳送文件, 1) Set node3 = (n3, tvwChild, 接收文件, 接收文件, 1) Set node3 = (n3, tvwChild, 已發(fā)文件, 已發(fā)文件, 1) Set n4 = (, tvwChild, 交流管理, 交流管理, 1) Set node4 = (n4, tvwChild, 意見箱, 意見箱, 1) Set node4 = (n4, tvwChild, 投票活動(dòng), 投票活動(dòng), 1) Else 39。 39。如果密碼正確，判斷用戶權(quán)限，如果用戶沒有管理權(quán)限則設(shè)置主界面的TreeView控件39。如果存在，判斷用戶輸入的密碼是否正確 Else If Trim(rs(user_pwd)) = Trim() Then 39。 mysql, con39。“系統(tǒng)登錄”窗體的設(shè)計(jì)結(jié)果如下圖所示：2. 代碼設(shè)計(jì)雙擊“登錄”按鈕（labLogin）添加如下事件代碼：Private Sub labLogin_Click()Set con = New Set rs = New = pstrmysql=select * from dbOA_user where user_name =39。添加兩個(gè)“TextBox”控件，設(shè)置其BorderStyle 屬性為“0None”。新建一個(gè)窗體，將窗體的BorderStyle 屬性設(shè)置為“0None”,設(shè)置Picture 屬性，為窗體添加圖片。調(diào)用frm_login窗口End Sub 登錄界面設(shè)計(jì)本系統(tǒng)屬于OA辦公自動(dòng)化系統(tǒng)，用戶權(quán)限分為系統(tǒng)管理員和普通用戶兩種。Initial Catalog=db_OA。User ID=sa。共享連接字符串pstr = Provider=。在以后的編程中，如果使用對(duì)象訪問數(shù)據(jù)庫或“ADO Data”控件訪問數(shù)據(jù)庫則可以直接將數(shù)據(jù)庫連字符串的值賦給相應(yīng)的“ ConnectionString ”屬性，從而避免了重復(fù)建立數(shù)據(jù)庫的麻煩，以防失去ADO+SQL的優(yōu)越