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