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