【正文】 = 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 控件中。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 39。 （ 3）程序代碼。 （ 3）添加 2 個(gè) ADO 控件，名稱分別為 adoDept 和 adoEmployee，其 Visible屬性均為 False。 （ 4）使 DTPicker1 控件顯示系統(tǒng)當(dāng)前日期。 amp。 （ 4）添加 2個(gè) DTPicker 控件名稱分別為 DTPicker1 和 DTPicker2。 amp。order by file_date desc Set = adoFile Call setDataGrid_Caption End Sub 39。 39。 （ 3）添加 Ado 控件和 DataGrid 控件，設(shè)置其名稱為 adoVote 和 DataGrid2?！咎砑印堪粹o的 Click 下代碼如下： Private Sub cmdVoteAdd_Click() = select * from tbOA_vote order by vote_qty desc If = Then MsgBox 活動(dòng)名稱不能為空！ , vbInformation: : 河北科技大學(xué)?？飘厴I(yè)論文 25 Exit Sub (1).Value = (2).Value = MsgBox 添加成功 , vbInformation (0).Caption = 序號(hào) : (1).Caption = 活動(dòng)名稱 (2).Caption = 活動(dòng)描述 : (3).Caption = 活動(dòng)票數(shù) End Sub 通過鼠標(biāo)選擇 DataGrid 表格中數(shù)據(jù)，然后單擊【刪除】按鈕，將選中的數(shù)據(jù)刪除。 河北科技大學(xué)?？飘厴I(yè)論文 31 系 統(tǒng) 維 護(hù) 管 理意 見 箱 管 理f r m S y s _ i d e a r . f r m投 票 管 理f r m S y s _ v o t e . f r m人 事 管 理f r m S y s _ p e r s o n . f r m系 統(tǒng) 設(shè) 置f r m S y s _ s y s . f r m 圖 系統(tǒng)維護(hù)管理文件架構(gòu) 結(jié)束語 本設(shè)計(jì)在 黃波 老師的悉心指導(dǎo)和嚴(yán)格要求下業(yè)已完成，從課題選擇、方案論證到具體設(shè)計(jì)和調(diào)試，無不凝聚著 黃波 老師的心血和汗水，在 三 年的學(xué)習(xí)和生活期間，也始終感受著導(dǎo)師的精心指導(dǎo)和無私的關(guān)懷，我受益匪淺。希望這次的經(jīng)歷能讓我在以后學(xué)習(xí)中激勵(lì)我繼續(xù)進(jìn)步。但由于能力和時(shí)間的關(guān)系，總是覺得有很多不盡人意的地方，譬如功能不全、外觀粗糙、底層代碼的不合理 ?? 數(shù)不勝數(shù)。清楚投票人記錄 MsgBox 數(shù)據(jù)清除成功！ , vbInformation (0).Caption = 序號(hào) : (1).Caption = 活動(dòng)名稱 (2).Caption = 活動(dòng)描述 : (3).Caption = 活動(dòng)票數(shù) End Sub 河北科技大學(xué)?？飘厴I(yè)論文 26 附錄 A: 參考文獻(xiàn) 1． Visual basic數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 2020年 5月 2． Visual Basic 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 人民郵電出版社 2020年 7月 3． Visual Basic精彩編程 200例 機(jī)械工業(yè)出版社 賽奎春、高春艷 2020年 1月 4． Visual Basic數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 劉志銘 2020年 8月 5． Delphi數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 賽奎春、鄭驍鵬等 2020年 2月 6． PowerBuilder精彩編程 200例 機(jī)械工業(yè)出版社 張振坤、李文立等 2020年 9月 7． Visual FoxPro精彩編程 200例 機(jī)械工業(yè)出版社 王國輝、董韶華 2020年 9月 8． ASP數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 李嚴(yán)、于亞芳 2020年 12月 9． Delphi工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 宋坤、趙智勇等 2020年 1月 10． Visual Basic工程應(yīng)用與項(xiàng)目 實(shí)踐 機(jī)械工業(yè)出版社李俊民 2020年 1月 11． JSP工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 陳威、白偉明、李楠 2020年 2月 12． Visual Basic信息系統(tǒng)開發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 高春艷 2020年 7月 13． ASP信息系統(tǒng)開發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 王國輝、牛強(qiáng) 2020年 7月 14． Delphi 信息系統(tǒng)開發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 宋坤、趙智勇 2020年 7月 15． Visual foxpro數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 2020年 5月 16． PoweBuilder數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 劉志銘 2020年 5月 17． Delphi數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 賽奎春 2020年 5月 18． Visual FoxPro數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 王晶瑩 2020年 9月 19． Power Builder數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 華傳銘 2020年 9月 河北科技大學(xué)?？飘厴I(yè)論文 27 附錄 B： 數(shù)據(jù)表結(jié)構(gòu) 表 文件數(shù)據(jù)表的結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 file_id int 主鍵 ID file_subject varchar 30 文件主題 file_text varchar 50 文件描述 file_person varchar 16 傳送人 file_dept varchar 30 接收部門 file_name varchar 16 接收人 file_date datetime 8 傳送日期 file_file image 16 文件 file_type varchar 20 文件類型 表 意見表的結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 idear_id int 主鍵 意見 ID idear_subject varchar 30 意見主題 idear_text varchar 50 意見內(nèi)容 表 新聞表的結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 news_id int 主鍵 新聞 ID news_date datetime 新聞發(fā)布時(shí)間 news_person varchar 12 發(fā)布人 news_acceptDept varchar 50 新聞接收部門 news_acceptPerson varchar 12 接收人 news_bit bit 標(biāo)記 new_text varchar 50 備注 表 辦公通知表的結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 河北科技大學(xué)?？飘厴I(yè)論文 28 notice_id int 主鍵 通知 ID notice_date datetime 通知時(shí) 間 notice_person varchar 12 發(fā)布通知人 notice_acceptDept varchar 30 通知部門 notice_acceptPerson varchar 12 通知人 notice_bit bit 1 標(biāo)記 notice_text varchar 500 備注 表 系統(tǒng)用戶表的結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 username varchar 20 主鍵 用戶名 userpwd varchar 20 密碼 userbit bit 權(quán)限標(biāo)記 表 公司活動(dòng)表的結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 vote_id int 主鍵 活動(dòng) ID vote_subject varchar 30 活動(dòng)主題 vote_memo varchar 50 活動(dòng)備注 vote_qty float 投票數(shù)量 表 活動(dòng)投票記 錄表的結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 voteRecord_id int 主鍵 ID voteRecord_name varchar 16 投票人 表 部門信息表 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 dept_id int 主鍵 部門編號(hào) dept_name varchar 30 部門名稱 dept_describe Text 16 描述信息 河北科技大學(xué)?？飘厴I(yè)論文 29 表 員工信息表 字段名 數(shù)據(jù)類型 長度 主鍵否 描述 e_id varchar 10 主鍵 員工編號(hào) e_name varchar 20 員工姓名 e_sex varchar 6 性別 e_birth varchar 16 出生日期 e_dept varchar 30 所屬部門 e_duty varchar 16 職務(wù) e_study varchar 16 學(xué)歷 e_gov varchar 16 政治面貌 e_phone varchar 20 聯(lián)系電話 e_memo text 16 備注 河北科技大學(xué)?？飘厴I(yè)論文 30 附錄 C： 文件架構(gòu)圖 文件架構(gòu)如圖 所示。 程序代碼設(shè)計(jì) 在窗體裝載過程中，根據(jù)投票數(shù)量進(jìn)行投票排行，并通過表格或圖表顯示出來。 , vbInformation, 文件下載 End If End Sub 由于本系統(tǒng)數(shù)據(jù)表中的字段都 是英文字段，因此將 ADO Data 控件綁定到DataGrid 控件后， DataGrid 控件的列標(biāo)題都為英文字段名稱，為方便用戶使用，筆者在此建立了 setDataGrid_Caption()過程，該過程主要用于設(shè)置 DataGrid 控件的列標(biāo)題和列寬，代碼如下： Sub setDataGrid_Caption() s(0).Caption = 序號(hào) : (1).Caption = 主題 (2).Caption = 文件備注 : (3).Caption = 傳送人 (4).Caption = 接收部門 : (5).Caption = 接收人 (6).Caption = 傳送日期 : (7).Visible = False (8).Caption = 文件標(biāo)題 : (0).Width = 500 (1).Width = 2020: (2).Width = 3000 (3).Width = 1000: (4).Width = 1000 (5).Width = 1000: (6).Width = 1000 (8).Width = 2020 End Sub 投票活動(dòng)管理 投票活動(dòng)管理主要添加投票活動(dòng)、刪除投票活動(dòng)、清除投票記錄，列表形式統(tǒng)計(jì)票數(shù)及圖表統(tǒng)計(jì)票數(shù)。 (1).Text amp。 amp。下面是【刪除】按鈕的 Click 事件代碼： Private Sub cmdDel_Click() On Error Resume Next ‘ 當(dāng)數(shù)據(jù)表 中