【正文】 ate Sub cmdVoteAdd_Click() = select * from tbOA_vote order by vote_qty desc If = Then MsgBox 活動(dòng)名稱不能為空！, vbInformation: : 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通過(guò)鼠標(biāo)選擇DataGrid表格中數(shù)據(jù)，然后單擊【刪除】按鈕，將選中的數(shù)據(jù)刪除。下面是【刪除】按鈕的Click事件代碼：Private Sub cmdVoteDel_Click() On Error Resume Next ‘?dāng)?shù)據(jù)表沒(méi)有數(shù)據(jù)時(shí)，進(jìn)行錯(cuò)誤處理 (0).Caption = 序號(hào): (1).Caption = 活動(dòng)名稱 (2).Caption = 活動(dòng)描述: (3).Caption = 活動(dòng)票數(shù)End Sub單擊【清除投票記錄】按鈕，將活動(dòng)的所有投票結(jié)果刪除。下面是【清除投票記錄】按鈕的Click事件代碼：Private Sub cmdClear_Click() = select * from tbOA_vote If 0 Then For i = 0 To 1 (3).Value = 0 39。將投票數(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。清楚投票人記錄 MsgBox 數(shù)據(jù)清除成功！, vbInformation (0).Caption = 序號(hào): (1).Caption = 活動(dòng)名稱 (2).Caption = 活動(dòng)描述: (3).Caption = 活動(dòng)票數(shù)End Sub附錄A 參考文獻(xiàn)1．Visual basic數(shù)據(jù)庫(kù)開(kāi)發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 2004年5月2．Visual Basic 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 人民郵電出版社 2005年7月 3．Visual Basic精彩編程200例 機(jī)械工業(yè)出版社 賽奎春、高春艷等 2003年1月 4．Visual Basic數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 劉志銘、高春艷等 2003年8月 5．Delphi數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 賽奎春、鄭驍鵬等 2004年2月 6．PowerBuilder 精彩編程200例 機(jī)械工業(yè)出版社 張振坤、李文立等 2004年9月7．Visual FoxPro 精彩編程200例 機(jī)械工業(yè)出版社 王國(guó)輝、董韶華等 2004年9月8．ASP數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 李嚴(yán)、于亞芳、王國(guó)輝 2004年12月9．Delphi工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 宋坤、趙智勇等 2005年1月 10．Visual Basic工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 高春艷、李俊民等 2005年1月 11．Visual C＋＋工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 張雨、阮偉良等 5005年1月12．JSP工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 陳威、白偉明、李楠 2005年2月13．ASP工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 王國(guó)輝、牛強(qiáng)、李南南 2005年4月14．Visual Basic 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 高春艷、李俊民、張耀庭等 2005年7月15．ASP 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 王國(guó)輝、牛強(qiáng)、李南南等 2005年7月 16．Delphi 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 宋坤、趙智勇、劉強(qiáng)等 2005年7月 17．Visual foxpro數(shù)據(jù)庫(kù)開(kāi)發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 周桓、張雨、王國(guó)輝2004年5月18．PoweBuilder數(shù)據(jù)庫(kù)開(kāi)發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 劉志銘 張振坤 馮文萃 2004年5月19．Delphi數(shù)據(jù)庫(kù)開(kāi)發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 賽奎春 陳紫鴻 宋昆 2004年5月20．Visual FoxPro數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 王晶瑩、王國(guó)輝等 2003年9月 21．Visual C++ 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月 22．Power Builder數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 華傳銘、張振坤等 2003年9月23．PowerBuilder 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月 24．Visual FoxPro管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月 25．SQL Server數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 宋昆、李嚴(yán)等 2006年1月26．Access數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 李俊民、高春燕等 2006年1月附錄B 數(shù)據(jù)表結(jié)構(gòu) 文件數(shù)據(jù)表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度主鍵否描述file_idint主鍵IDfile_subjectvarchar30文件主題file_textvarchar50文件描述file_personvarchar16傳送人file_deptvarchar30接收部門file_namevarchar16接收人file_datedatetime8傳送日期file_fileimage16文件file_typevarchar20文件類型 意見(jiàn)表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度主鍵否描述idear_idint主鍵意見(jiàn)IDidear_subjectvarchar30意見(jiàn)主題idear_textvarchar50意見(jiàn)內(nèi)容 新聞表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度主鍵否描述news_idint主鍵新聞IDnews_datedatetime新聞發(fā)布時(shí)間news_personvarchar12發(fā)布人news_acceptDeptvarchar50新聞接收部門news_acceptPersonvarchar12接收人news_bitbit標(biāo)記new_textvarchar50備注 辦公通知表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度主鍵否描述notice_idint主鍵通知IDnotice_datedatetime通知時(shí)間notice_personvarchar12發(fā)布通知人notice_acceptDeptvarchar30通知部門notice_acceptPersonvarchar12通知人notice_bitbit1標(biāo)記notice_textvarchar500備注 系統(tǒng)用戶表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度主鍵否描述usernamevarchar20主鍵用戶名userpwdvarchar20密碼userbitbit權(quán)限標(biāo)記 公司活動(dòng)表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度主鍵否描述vote_idint主鍵活動(dòng)IDvote_subjectvarchar30活動(dòng)主題vote_memovarchar50活動(dòng)備注vote_qtyfloat投票數(shù)量 活動(dòng)投票記錄表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度主鍵否描述voteRecord_idint主鍵IDvoteRecord_namevarchar16投票人 部門信息表字段名數(shù)據(jù)類型長(zhǎng)度主鍵否描述dept_idint主鍵部門編號(hào)dept_namevarchar30部門名稱dept_describeText16描述信息 員工信息表字段名數(shù)據(jù)類型長(zhǎng)度主鍵否描述e_idvarchar10主鍵員工編號(hào)e_namevarchar20員工姓名e_sexvarchar6性別e_birthvarchar16出生日期e_deptvarchar30所屬部門e_dutyvarchar16職務(wù)e_studyvarchar16學(xué)歷e_govvarchar16政治面貌e_phonevarchar20聯(lián)系電話e_memotext16備注附錄C 文件架構(gòu)圖。 系統(tǒng)主文件架構(gòu)圖。 通知管理和新聞管理文件架構(gòu)圖。 文件傳送和交流管理文件架構(gòu)圖。 系統(tǒng)維護(hù)管理文件架構(gòu)– 25