【正文】 : (6).Value = (7).Value = : (8).Value = fileName : = 0 MsgBox 文件傳送成功！, vbInformationEnd Sub在Combo1控件中選擇部門，將檢索該部門的所有員工，并將其添加到Combo2控件中。Combo1控件的Click事件下代碼如下：Private Sub Combo1_Click() = PublicStr = select * from tbOA_employee where e_dept=39。 amp。 amp。 39。 For i = 0 To 1 (1).Value Next iEnd Sub單擊【瀏覽文件】按鈕，選擇將要傳送的文件，代碼如下：Private Sub cmdFile_Click() = : fileName = End Sub 文件接收文件接收窗體主要用來接收其他員工傳送來的文件，并且將文件下載保存到本機(jī)器中。本窗體主要實現(xiàn)的功能為：以日期為標(biāo)準(zhǔn)查詢接收文件、下載接收文件、刪除接收文件、顯示所有接收文件。文件接收窗體的設(shè)計結(jié)果如圖10所示。圖10 文件接收窗體設(shè)計結(jié)果1．窗體設(shè)計（1）新建一個窗體，設(shè)置窗體“名稱”屬性為frmFile_incept，Caption屬性為“文件接收”，MaxButton屬性為False。（2）添加4個CommandButton按鈕控件，名稱分別為cmdFind、cmdDel、CommandCommand2，其Caption屬性為“查詢”、“刪除文件記錄”、“顯示所有文件”和“退出”。（3）添加ADO控件和DataGrid控件，設(shè)置名稱分別為adoFile和DataGrid1。（4）添加2個DTPicker控件名稱分別為DTPicker1和DTPicker2。2．程序代碼設(shè)計在本窗體中聲明變量，代碼如下：Public filePath As StringDim As , rs As , mst As 在窗體的裝載過程中，查詢系統(tǒng)操作職員接收的所有文件，并通過DataGrid控件顯示，代碼如下：Private Sub Form_Load() = PublicStr = select * from tbOA_file where file_name=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。order by file_date desc Set = adoFile ‘將數(shù)據(jù)源綁定到DataGrid表格上 Call setDataGrid_CaptionEnd Sub通過鼠標(biāo)選擇DataGrid表格中數(shù)據(jù)，然后單擊【刪除文件記錄】按鈕，將選中的文件數(shù)據(jù)刪除。下面是【刪除】按鈕的Click事件代碼：Private Sub cmdDel_Click() On Error Resume Next ‘當(dāng)數(shù)據(jù)表中沒有數(shù)據(jù)時，進(jìn)行錯誤處理 End Sub在日期輸入框輸入開始日期和截止日期后，單擊【查詢】按鈕，將查詢結(jié)果顯示在DataGrid控件中，代碼如下：Private Sub cmdFind_Click() = select * from tbOA_file where file_name=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。and file_date between 39。 amp。 amp。 39。 and 39。 amp。 amp。 39。 Call setDataGrid_CaptionEnd SubPrivate Sub Command1_Click() = PublicStr = select * from tbOA_file where file_name=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。order by file_date desc Set = adoFile Call setDataGrid_CaptionEnd Sub39。在DataGrid控件中選擇文件記錄，然后雙擊鼠標(biāo)左鍵，下載接收文件Private Sub DataGrid1_DblClick() If MsgBox(是否接收【 amp。 (3).Text amp。 】傳送來的『 amp。 (1).Text amp。 』嗎？, vbQuestion + vbYesNo) = vbYes Then = (8).Text filePath = = 11 Set = New = PublicStr Set rs = New select * from tbOA_file where file_id=39。 amp。 (0).Value amp。 39。, , adOpenStatic, adLockOptimistic Set mst = New = adTypeBinary (7).Value filePath, adSaveCreateOverWrite 39。保存文件，adSaveCreateOverWrite為覆蓋以存在文件 = 0 MsgBox 現(xiàn)在成功！ amp。 文件保存在： amp。 , vbInformation, 文件下載 End IfEnd Sub由于本系統(tǒng)數(shù)據(jù)表中的字段都是英文字段，因此將ADO Data控件綁定到DataGrid控件后，DataGrid控件的列標(biāo)題都為英文字段名稱，為方便用戶使用，筆者在此建立了setDataGrid_Caption()過程，該過程主要用于設(shè)置DataGrid控件的列標(biāo)題和列寬，代碼如下：Sub setDataGrid_Caption() s(0).Caption = 序號: (1).Caption = 主題 (2).Caption = 文件備注: (3).Caption = 傳送人 (4).Caption = 接收部門: (5).Caption = 接收人 (6).Caption = 傳送日期: (7).Visible = False (8).Caption = 文件標(biāo)題: (0).Width = 500 (1).Width = 2000: (2).Width = 3000 (3).Width = 1000: (4).Width = 1000 (5).Width = 1000: (6).Width = 1000 (8).Width = 2000End Sub 投票活動管理投票活動管理主要添加投票活動、刪除投票活動、清除投票記錄，列表形式統(tǒng)計票數(shù)及圖表統(tǒng)計票數(shù)。投票活動管理窗體的設(shè)計結(jié)果如圖11所示。圖11 活動投票管理窗體設(shè)計圖1．窗體設(shè)計（1）新建一個窗體，將窗體的“名稱”屬性設(shè)置為frmSys_vote，設(shè)置Caption屬性為“活動投票管理”，設(shè)置MaxButton屬性為False。（2）添加2個Label標(biāo)簽控件、2個TextBox文本框控件及4個CommandButton按鈕控件。（3）添加Ado控件和DataGrid控件，設(shè)置其名稱為adoVote和DataGrid2。（4）添加MSChart圖表控件，其名稱為默認(rèn)名稱。由于MSChart控件為ActiveX控件，在使用之前必須從“部件”對話框中添加到工具箱中。添加方法為：在“工程”/“部件”對話框中勾選“Microsoft Chart Controls （OLEDB）”列表項。2．程序代碼設(shè)計在窗體裝載過程中，根據(jù)投票數(shù)量進(jìn)行投票排行，并通過表格或圖表顯示出來。窗體的Load事件代碼如下：Private Sub Form_Load() 39。///投票活動設(shè)置 = PublicStr = select * from tbOA_vote order by vote_qty desc Set = adoVote (0).Caption = 序號: (1).Caption = 活動名稱 (2).Caption = 活動描述: (3).Caption = 活動票數(shù)End Sub單擊【顯示圖表】按鈕，可以切換通過圖表顯示投票結(jié)果或列表顯示投票結(jié)果?！撅@示圖表】按鈕的Click事件下添加代碼如下：Private Sub cmdChar_Click() If = 顯示圖表 Then = 顯示列表 = True = False = select vote_subject as 活動名稱,vote_qty as 投票數(shù)量 from tbOA_vote Set = adoVote ElseIf = 顯示列表 Then = 顯示圖表 = False: = True = select * from tbOA_vote order by vote_qty desc (0).Caption = 序號: (1).Caption = 活動名稱 (2).Caption = 活動描述: (3).Caption = 活動票數(shù) End IfEnd Sub單擊【添加】按鈕，添加相關(guān)投票活動。【添加】按鈕的Click下代碼如下：Private Sub cmdVoteAdd_Click() = select * from tbOA_vote order by vote_qty desc If = Then MsgBox 活動名稱不能為空！, vbInformation: