【正文】 = “” = “” = “” = “” = “” = “”End If記錄查看可以讓你對已錄入的記錄進行各種符合條件的查找，顯示符合條件的記錄。 amp。 公寓為 amp。 39。值得注意的是，此處公寓與名稱都要人工輸入，所以在輸入的時候要注意不要有多余字符，否則會出錯刪除不掉的情況。 For Random As iFreefile Len = Len(goDiary)goDiarys (giCurrentRecord).fldDate = goDiarys(giCurrentRecord).fldMemo = goDiary = goDiarys(giCurrentRecord)Put iFreefile, giCurrentRecord, goDiaryReadData (giCurrentRecord)Close iFreefileModifyData = True刪除日記中的記錄：If txtDate = ThenMsgBox 請選擇記錄!, , 每日一記Exit SubEnd IfDim ResultIf giRecordCount = 0 Then Exit SubResult = MsgBox(確定刪除記錄嗎？不可恢復(fù), vbQuestion + vbYesNo, 電子日記本)If Result = vbYes ThenDeleteDatagbFirst = FalseIf giCurrentRecord 1 Then giCurrentRecord = giCurrentRecord 1Form_LoadEnd If 增加記錄①增加記錄效果圖如圖420所示。然后在用QuickCHM把所有的網(wǎng)頁添加進去，然后對QuickCHM進行各項設(shè)置，最后點擊編譯即可生成help文檔。正是因為導(dǎo)師的指導(dǎo)，審稿，校正，我才能夠在短時間內(nèi)順利的完成初稿部分。 datasource.CommandType = adCmdTable.RecordSource = .RefreshEnd With = = 039。要事第一創(chuàng)設(shè)遍及全美的事務(wù)公司的亨瑞。習(xí)慣1換位思考在人際的相處和溝通里，“換位思考”扮演著相當(dāng)重要的角色。善于傾聽，是一個高效能人士的一項最基本的素質(zhì)。注重準備工作一個善于做準備的人，是距離成功最近的人。善于集思廣益、博采眾議一件事物往往存在著多個方面，要想全面、客觀地了解一個事物，必須兼聽各方面的意見，只有集思廣益，博采眾長，才能了解一件事情的本來面目，才能采取最佳的處理方法。掌握工作與生活的平衡真正的高效能人士都不是工作狂，他們善于掌握工作與生活平衡。有效溝通人與人之間的交往需要溝通,在公司,一個高效能人士絕不會是一個性格孤僻的人,相反他應(yīng)當(dāng)是一個能設(shè)身處地為別人著想充分理解對方能夠與他人進行桌有成效的溝通的人。如果沒有了對手，缺陷也不會自動消失?！卑褑栴}想透徹把問題想透徹，是一種很好的思維品質(zhì)。 amp。感謝老師給我與我的幫助和支持，才讓我能更快更好的完成這次畢業(yè)論文。圖421 QuickCHM軟件的界面它屬于一個傻瓜型的制作軟件，利用它可以快速的制作出各種你所需要的幫助文檔。當(dāng)你寫完今天記錄后，在點擊增加時會提示你今日已寫完。 Trim() amp。and 寢室=39。選擇批量刪除后，在下面只有一個日期可以選擇，這樣將會把所選日期內(nèi)的所有記錄都將刪除掉，所以稱其為批量刪除。 Trim(s) amp。不足的是目前只做出了入庫管理，對于出庫記錄還沒有實現(xiàn)。其它操作同上面基本是一致的，對于違規(guī)在主界面的左側(cè)并沒有快速顯示操作，只可以用記錄查看里面的違規(guī)查看進行選擇查看。轉(zhuǎn)換代碼如附錄C。圖48 數(shù)據(jù)備份效果圖②功能實現(xiàn) 界面制作相對程序來說比較簡單，用到的是coolbar控件，點擊按鈕可以選擇備份路徑。刪除操作可以刪除掉當(dāng)前樹型顯示中的任何一個子節(jié)點，也就是這個樹型節(jié)點中的寢室名稱，注意的是，刪除后這個記錄只在qinshi表中刪除，其相關(guān)記錄不會被刪除掉的，如果想刪除，還需要人工操作。 = 修改End IfSet = Adodc1Set = Adodc5刪除公寓名稱If = ThenMsgBox 選擇所要刪除公寓的名稱, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除公寓名稱為 amp。要修改某條記錄時，要先對所要修改的記錄進行選擇，確認選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改公寓的名稱，此時即可輸入要修改的名字。刪除操作部分代碼：If = 1 Then = FalseEnd IfIf (MsgBox(你真的想刪除當(dāng)前記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK ThenEnd If編輯操作可以對當(dāng)前所選擇的用戶進行編輯，可以修改其用戶名與密碼。代碼見附錄B。其中第二個和第三部分為動態(tài)顯示的，它會顯示出每次用戶登錄名稱及其管理模式。主要代碼見附錄A。運行圖如圖37，圖38所示。主要完成：學(xué)生請假、學(xué)生違規(guī)、床位設(shè)置的功能。表25 資產(chǎn)數(shù)據(jù)結(jié)構(gòu)表字段名數(shù)據(jù)類型數(shù)據(jù)長度日期文本14公寓文本20名稱文本20數(shù)量文本4單價文本10總價文本10用途備注備注備注第3章 功能模塊設(shè)計 系統(tǒng)功能結(jié)構(gòu)圖如圖31所示。二是來源于網(wǎng)絡(luò)上的各種同類軟件，通過這些軟件可以看出一個公寓最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來十分麻煩、繁瑣，有些雖然簡單，但是功能上又不是十分完善，對這些軟件首先要進行取其精華，棄其糟粕，從而進行編寫。長期以來，使用傳統(tǒng)人工的方法管理高校公寓，這種管理方式存在著許多缺點，如：效率低。界面友好、操作簡單、功能齊全、具有較好的人機接口界面是本系統(tǒng)的最大優(yōu)點。學(xué)生公寓管理軟件是用Microsoft Visual Basic編寫完成。學(xué)生公寓管理信息系統(tǒng)摘 要隨著電腦的普及與使用，現(xiàn)在的管理也提升了一個檔次，漸漸實現(xiàn)了無紙化辦公，即從原來的人工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。由于Visual Basic率先采用了可視化（VISUAL）的程序設(shè)計方法。 VB6簡介 本軟件的開發(fā)工具為VISUAL BASIC，作為一種開發(fā)語言，VISUAL BASIC率先采用了可視化（VISUAL）的程序設(shè)計方法。而且時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新、維護都帶來了不少的困難。如圖11所示。圖31 系統(tǒng)功能結(jié)構(gòu)圖 系統(tǒng)功能結(jié)構(gòu)圖運行圖如圖32所示。運行圖如圖34所示。 圖37 記錄查看 圖38 記錄刪除運行圖它的功能主要是針對值班人員開發(fā)出來的，在這里可以讓值班人員對當(dāng)天值班情況進行一個小記，以便日后查看。 程序主界面程序主界面為本軟件的顯示的核心部分。第四部分為日期與時間的顯示。上一條與下一條的功能一目了然，它們可以對當(dāng)前表進行上一條記錄或下一條記錄依次查看。當(dāng)當(dāng)前用戶感覺自己用戶名稱或密碼有泄露時，可以進行修改。然后點擊更新就會完成此操作。 amp。實現(xiàn)的方法主要是對qinshi表操作，先對其進行查詢，查詢當(dāng)前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調(diào)用生成樹過程，把當(dāng)前寢室設(shè)置中的樹型結(jié)構(gòu)重新生成，更新記錄。然后點擊數(shù)據(jù)備份即可。學(xué)生請假與違規(guī)在一個公寓管理中是最常見的問題了，所以在此軟件中加上了這兩項功能。在這里所添寫的記錄也要全面一些，主要是為了以后查找更為方便，如果不全，系統(tǒng)會提示的！公寓衛(wèi)生可以說是一個公寓管理中最常見到的問題了。圖413 公寓資產(chǎn)添加效果圖日期的設(shè)置同上面一樣，只讀屬性。 39。全部即是把當(dāng)前表清空，全部刪除掉，建議使用此操作前對當(dāng)前數(shù)據(jù)庫進行備份處理，否則數(shù)據(jù)將不會恢復(fù)。 amp。 39。但是你可以對今日記錄進行編輯修改。但是如果想制作出如下圖所示的文檔，那么需要使用制作網(wǎng)頁的軟件把內(nèi)容先做成html形式，然后在用此軟件進行加載，最后生成chm文檔。同時也讓我了解到了自己的不足,我會繼續(xù)努力,完善自我,為社會主義現(xiàn)代化建設(shè)做貢獻到目前為止致 謝經(jīng)過幾個月的努力并在導(dǎo)師的幫助下終于完成了畢業(yè)設(shè)計和論文。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。蓋茨所説：“通向最高管理層的最迅捷的途徑，是主動承擔(dān)別人都不愿意接手的工作，并在其中展示你出眾的創(chuàng)造力和解決問題的能力。習(xí)慣1向競爭對手學(xué)習(xí)一位知名的企業(yè)家曾經(jīng)說過，“對手是一面鏡子，可以照見自己的缺陷。專注目標(biāo)美國明尼蘇達礦業(yè)制造公司(3M)的口號是:,對個人工作也有指導(dǎo)作用。學(xué)會正確地應(yīng)對壓力就成了高效能人士必備的一項習(xí)慣。一名高效能人士的好口才加上禮儀禮節(jié)，往往可以為自己的工作錦上添花，如果我們能夠巧妙運用語言藝術(shù)，對協(xié)調(diào)人際關(guān)系、提高工作效能都將大有裨益。在商業(yè)競爭中，對市場信息尤其是市場關(guān)鍵信息把握的及時性與準確性，對競爭的成敗有著特殊的意義。一位哲人曾經(jīng)説過：“好習(xí)慣是一個人在社交場合中所能穿著最佳服飾。身處激烈的競爭之中,一名高效能人士應(yīng)當(dāng)注意工作中的調(diào)節(jié)與休息,這不但于自己健康有益,對事業(yè)也是大有好處的。小部分的努力，可以獲得大的收獲；起關(guān)鍵作用的小部分，通常就能主宰整個組織的產(chǎn)出、盈虧和成敗。”富蘭克林將自己一生的成就歸功于對“在一定時期內(nèi)不遺余力地做一件事”這一信條的實踐。 datasource.CommandType = adCmdTable.RecordSource = yonghu.RefreshEnd With = False = FalseIf = 0 Then = False = False = False = FalseEnd If = Select Case Case 1 Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。由于本人知識有限，又缺乏經(jīng)驗，必定有不足和不周之處，希望各位老師給予指導(dǎo)，本人將繼續(xù)完善修改，使此系統(tǒng)能更好地發(fā)揮性能。QuickCHM軟件的界面及其使用如圖421所示。如果你今天值班，還沒有寫值班記錄，那么你可以點擊增加按鈕，開始寫當(dāng)日的值班記錄，說明的是，每天只可以寫一次記錄。 amp。 39。默認為單條刪除，選擇此項后需要在日期中選擇所刪除記錄的添加日期，以及所在的公寓與寢室，當(dāng)這三條全部符合要求后，在表中進行查找，找到后確認刪除。 amp。確認一切無誤后，開始對所填寫記錄進行添加并顯示：With Adodc2..(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .(8).Value = .(9).Value = .(10).Value = .(11).Value = .End WithSet = Adodc2 公寓資產(chǎn) 公寓資產(chǎn)可以及時對公寓里進出財務(wù)進行統(tǒng)計，以免遺忘，造成不必要的損失或不必要的麻煩，它的實現(xiàn)方法基本同上面的衛(wèi)生記錄的添加，相對比來說比上面的簡單一些。其中的日期也是系統(tǒng)當(dāng)前的日期，它是不可以進行更改的，然后在其它文本框中輸入其它詳細資料即可以這里的違規(guī)操作用的也是Adodc控件，所有的文本框在初始的時候也沒有同Adodc綁定，它也是在代碼中與數(shù)據(jù)庫中表的字段進行的綁定，然后進行添加操作。數(shù)據(jù)轉(zhuǎn)換成excel用到了一個部件，在引用中用到了Microsoft Object library。①數(shù)據(jù)備份效果圖如圖48所示。但是這種操作不是常見。 39。Datagrid中會立即刷新顯示更新內(nèi)容。所以在操作前要想好。在窗體初始化的時候要判斷當(dāng)前數(shù)據(jù)庫表中是否有記錄，如果沒有記錄那么有些按鈕將會被設(shè)置成為失效狀態(tài)，否則會出現(xiàn)錯誤。第一個為固定顯示當(dāng)前所用軟件名稱及作者。原理主要是在鼠標(biāo)mousemove事件與線的顏色變化組合來實現(xiàn) 在窗體中的鼠標(biāo)移動過程中，以及在窗體初始化的時候， 屬性設(shè)置為 False，只有在鼠標(biāo)按下的時候在改變其顏色即可。圖36 公寓資產(chǎn)運行圖 記錄查看與記錄刪除主要是對學(xué)生請假、學(xué)生違規(guī)、衛(wèi)生記錄，公寓資產(chǎn)等記錄所進行的操作，利用這兩個功能可以對任一記錄進行查看與刪除。利用數(shù)據(jù)轉(zhuǎn)換將當(dāng)前數(shù)據(jù)庫中的表轉(zhuǎn)換成Excel表格的形式，顯示更為直觀，可以進行打印等操作。數(shù)據(jù)結(jié)構(gòu)如表25所示。本軟件的參考資料主要有兩種來源：一是參考本學(xué)校公寓的管理結(jié)構(gòu)，管理方法，這些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實一些。 開發(fā)的必要性信息資源已成為各個部門的重要財富和資源，建立一個滿足各級部門信息處理需要的信息系統(tǒng)，也一個企業(yè)或組織生存越來越重要的信息資源。本系統(tǒng)的主要功能可以方便的對學(xué)生公寓進行管理，系統(tǒng)采用ACCESS數(shù)據(jù)庫使數(shù)據(jù)具有較強的完整性、較好的數(shù)據(jù)安全性等特點以及提供了標(biāo)準的幫助，使用戶方便的獲得所需的幫助。由此而產(chǎn)生了本管理軟件――學(xué)生公寓管理軟件。