【正文】 文件傳送和交流管理文件架構(gòu)圖。 系統(tǒng)主文件架構(gòu)圖。將投票數(shù)量設(shè)置為 0 Next i End If Dim con As Dim rs As Set con = New = PublicStr Set rs = New Set rs = (DELETE FROM tbOA_voteRecord) 39。下面是【刪除】按鈕的Click事件代碼：Private Sub cmdVoteDel_Click() On Error Resume Next ‘?dāng)?shù)據(jù)表沒有數(shù)據(jù)時(shí)，進(jìn)行錯(cuò)誤處理 (0).Caption = 序號: (1).Caption = 活動名稱 (2).Caption = 活動描述: (3).Caption = 活動票數(shù)End Sub單擊【清除投票記錄】按鈕，將活動的所有投票結(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)投票活動。窗體的Load事件代碼如下：Private Sub Form_Load() 39。添加方法為：在“工程”/“部件”對話框中勾選“Microsoft Chart Controls （OLEDB）”列表項(xiàng)。（4）添加MSChart圖表控件，其名稱為默認(rèn)名稱。（2）添加2個(gè)Label標(biāo)簽控件、2個(gè)TextBox文本框控件及4個(gè)CommandButton按鈕控件。投票活動管理窗體的設(shè)計(jì)結(jié)果如圖11所示。 文件保存在： amp。, , adOpenStatic, adLockOptimistic Set mst = New = adTypeBinary (7).Value filePath, adSaveCreateOverWrite 39。 (0).Value amp。 』嗎？, vbQuestion + vbYesNo) = vbYes Then = (8).Text filePath = = 11 Set = New = PublicStr Set rs = New select * from tbOA_file where file_id=39。 】傳送來的『 amp。在DataGrid控件中選擇文件記錄，然后雙擊鼠標(biāo)左鍵，下載接收文件Private Sub DataGrid1_DblClick() If MsgBox(是否接收【 amp。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 39。 amp。 39。 amp。 + 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ù)刪除。2．程序代碼設(shè)計(jì)在本窗體中聲明變量，代碼如下：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。（3）添加ADO控件和DataGrid控件，設(shè)置名稱分別為adoFile和DataGrid1。圖10 文件接收窗體設(shè)計(jì)結(jié)果1．窗體設(shè)計(jì)（1）新建一個(gè)窗體，設(shè)置窗體“名稱”屬性為frmFile_incept，Caption屬性為“文件接收”，MaxButton屬性為False。本窗體主要實(shí)現(xiàn)的功能為：以日期為標(biāo)準(zhǔn)查詢接收文件、下載接收文件、刪除接收文件、顯示所有接收文件。 39。 amp。Data Source=MRZYT Set rs = New select * from tbOA_file, , adOpenStatic, adLockOptimistic Set mst = New = adTypeBinary (1).Value = : (2).Value = (3).Value = : (4).Value = (5).Value = : (6).Value = (7).Value = : (8).Value = fileName : = 0 MsgBox 文件傳送成功！, vbInformationEnd Sub在Combo1控件中選擇部門，將檢索該部門的所有員工，并將其添加到Combo2控件中。User ID=sa。在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=。（3）獲取系統(tǒng)操作職員姓名，并通過txtName控件顯示出來。2．程序代碼設(shè)計(jì)在Form窗體裝載中，主要實(shí)現(xiàn)以下功能：（1）建立adoDept控件數(shù)據(jù)庫連接。CommonDialog控件為ActiveX控件，在使用之前必須從“部件”對話框中添加到工具箱中。（4）添加1個(gè)DTPicker控件，默認(rèn)名稱為DTPicker1。（2）添加2個(gè)Combo控件、4個(gè)TextBox控件、3個(gè)CommandButton控件。傳送文件窗體的設(shè)計(jì)結(jié)果如圖9所示。 Set = adoNews Call setDataGrid_CaptionEnd Sub39。在窗體裝載過程中，將adoNews控件查詢的數(shù)據(jù)通過DataGrid控件顯示，代碼如下：Private Sub Form_Load() = PublicStr = select * from tbOA_news where news_person=39。（2）添加ADO控件，設(shè)置“名稱”屬性為adoNews，設(shè)置Visible屬性為False；添加DataGrid控件 “名稱”屬性為默認(rèn)名稱DataGrid1；添加CommandButton控件名稱為默認(rèn)名稱、其Caption屬性為“退出”。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è)計(jì)結(jié)果如圖8所示。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 whe