【正文】 Set newxls = CreateObject() 39。創(chuàng)建excel應用程序,打開excel2003 Set newbook = 39。創(chuàng)建工作簿 Set newsheet = (1)　 39。創(chuàng)建工作表 If 0 Then = True For i = 0 To 1 (1, i + 1) = (i).Caption Next i 39。指定表格內容 Do Until r = For c = 0 To 1 (r + 1, c + 1) = (c) Next c Loop End If End SelectEnd Sub員工調動模塊實現了員工在部門及公司之間的調動、工種、職務、職稱的調動和員工信息查找等功能。其設計思路與人事信息管理模塊基本相同。其中一個窗體主要用于瀏覽、查找和打開“添加調動信息”窗體（子窗體）；子窗體則用于保存人員的調動信息。員工調動模塊中運行結果如圖17所示。圖17 員工調動窗體打開員工調動管理下的內部調動，彈出以下對話框。將內容填寫完整點擊確定完成信息的添加。單擊完成添加圖18 添加內部調動信息窗體外部調動圖19 添加外部調動信息窗體而將添加調動信息窗體中新修改／添加的員工調動信息添加到數據庫并表現在員工調動窗體里的代碼如下：Private Sub Command1_Click() ( update 人事表 set 部門= 39。 + Txt1 + 39。,工種=39。 + DataCombo1 + 39。,職務=39。 + DataCombo2 + 39。,職稱=39。 + DataCombo3 + 39。where 編號=39。 + (0) + 39。) With main_rsgl_rsbd (insert into 人事調動表 (職員編號,職員姓名,原部門,現部門,原工種,原職務,原職稱,現工種,現職務,現職稱,調動時間,登記人)values(39。 +.Text1(0) + 39。,39。 + .Text1(1) + 39。,39。 + .Text1(2) + 39。,39。 + Txt1 + 39。,39。 + .Text1(3) + 39。,39。 + .Text1(4) + 39。,39。 + .Text1(5) + 39。,39。 + DataCombo1 + 39。,39。 + DataCombo2 + 39。,39。 + DataCombo3 + 39。,39。 + str(Date) + 39。,39。 + czy + 39。)) . End WithEnd Sub若想對工資信息進行添加，首先應 “建立新月份工資”。當添加了新月份后，再選擇工資信息管理選項時，將會顯示新建立的月份工資的情況。工資信息管理模塊主要用于完成員工工資信息的修改、批量修改，顯示當前月份或所有月份的員工工資信息、查找和導出Excel等功能。為了方便用戶操作，系統(tǒng)將修改、批量修改與顯示當前月份或所有月份的員工工資信息、查找和導出Excel功能分別放在不同的子窗體中。其中父窗體主要完成瀏覽、查找、顯示當前月份或所有月份的員工工資信息，導出Excel和打開“工資信息修改”窗體（子窗體）、“批量修改”窗體（子窗體）；運行結果如圖所示。圖20 薪酬窗體圖21 工資信息修改窗體圖22 批量修改窗體在工資信息修改窗體中，當修改了某一項工資金額，點擊“計算”后，會重新計算員工的實發(fā)工資，“計算”按鈕的代碼為：Private Sub Command3_Click() Text1(14) = Val(Text1(3)) + Val(Text1(4)) + Val(Text1(5)) + Val(Text1(6)) + Val(Text1(7)) + Val(Text1(8)) + Val(Text1(9)) Text1(15) = Val(Text1(10)) + Val(Text1(11)) + Val(Text1(12)) + Val(Text1(13)) Text1(16) = Val(Text1(14)) Val(Text1(15))End Sub 總結本次的課程設計到現在已經結束了，通過這次的課程設計，我學到了多東西，也發(fā)現了自己很多的不足。這個過程當中，是我們運用學習成果，檢驗學習成果，運用學習成果的過程，把課堂上學到的系統(tǒng)花的知識，嘗試性的應用于時機設計工作中。從理論的高度對設計工作的現代化提出一些有針對性的建議和設想。檢驗學習 成果，看一看課堂學習與實際工作到底有多大距離，并通過綜合分析，找出學習中存在的不足，以便為完善學習計劃，改變學習內容與方法提供實踐依據。 對我們這個專業(yè)的學生來說，實際能力的培養(yǎng)至關重要，而這種實際能力的培養(yǎng)單靠課堂教學是遠遠不夠的，必須從課堂走向實踐。這次的課程設計給我們提供了一個很好的機會。在這次的課程設計中，我發(fā)現我的知識還是不夠扎實，有一些想法都不能夠很好的去實現，知識的銜接不夠緊密，通過這次的課程設計更加堅定了我學好科學知識的決心，沒有扎實的科學知識，要完成一項設計是非常難的，我們應該把握好現在的美好時光，努力學好我們的專業(yè)課。參考文獻1．高春艷，劉彬彬．Visual Basic控件參考大全．第1版．人民郵電出版社，2006：3493552．Christopher ，Lars Klander，Lingyang Tang．Visual Basic程序員實用例庫．第1版．電子工業(yè)出版社，1999：2042293．高春艷，李俊民，劉彬彬．Visual Basic數據庫系統(tǒng)開發(fā)案例精選．第1版．人民郵電出版社，2006：1822474．王晟．Visual Basic數據庫開發(fā)經典案例分析．第1版．清華大學出版社，2006：741245． Rod Stephens．Visual BasicTM高級技術．第1版．電子工業(yè)出版社，1998：2052236．Steven Roman．Visual Basic Win32 API編程．第1版．中國電力出版社，2001：4224347．Mike Gunderloy．Visual Basic開發(fā)指南—ADO篇．第1版．電子工業(yè)出版社，2000　921328． 賽奎春．SQL Server數據庫開發(fā)實例解析．第1版．機械工業(yè)出版社，1996：87107 9． 張水平．SQL Server 數據庫應用技術．第1版．西北工業(yè)大學出版社，2005：18720110． 楊志姝，李光海．SQL 應用與開發(fā)．第1版．清華大學出版社，2006：124