某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)-本科畢業(yè)論文

1、<p>　　大連理工大學(xué)城市學(xué)院</p><p>　　本科生畢業(yè)設(shè)計(jì)（論文）</p><p><b>　　院（系）：管理學(xué)院</b></p><p>　　專 業(yè)：信息管理與信息系統(tǒng)</p><p>　　學(xué) 生：楊晨昕</p><p><b>　　指導(dǎo)教師：畢建濤&l

2、t;/b></p><p>　　完成日期：2016年6月1日</p><p>　　大連理工大學(xué)城市學(xué)院本科生畢業(yè)設(shè)計(jì)（論文）</p><p>　　某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　總計(jì) 畢業(yè)設(shè)計(jì)（論文） 45 頁(yè)</p><p>　　表格 5 表&

3、lt;/p><p>　　插圖 20 幅</p><p><b>　　摘 要</b></p><p>　　隨著信息技術(shù)的發(fā)展，辦公自動(dòng)化領(lǐng)域也在悄然發(fā)展，融入到我們的生活和工作中。當(dāng)然，新的技術(shù)也在隨著經(jīng)濟(jì)和業(yè)務(wù)的拓展日新月異的發(fā)展，與其同步前行，掌握辦公自動(dòng)化技術(shù)已然成為進(jìn)行社會(huì)工作的必備知識(shí)和技能，同時(shí)在各行各業(yè)

4、中辦公自動(dòng)化也正在逐步替代原有的辦公方式，使得無紙化辦公成為可能。。</p><p>　　Excel作為辦公自動(dòng)化軟件的代表，簡(jiǎn)潔的界面，多重的功能，方便的操作使得它成為目前使用比較廣泛的辦公軟件。但是目前看來，大多數(shù)Excel使用者，對(duì)Excel的使用大部分處于使用公式，數(shù)據(jù)透視表這類的典型基本功能。而若想其能實(shí)現(xiàn)辦公自動(dòng)化，就需要靠代碼和其他輔助工具。ExcelVBA正好是這樣的角色。</p>

5、<p>　　ExcelVBA作為集成在Excel中的工具，雖然其不能自主開發(fā)辦公自動(dòng)化程序，但它能通過VBA代碼在后臺(tái)實(shí)現(xiàn)自動(dòng)進(jìn)行表格的操作。而ExcelVBA又是在VB語(yǔ)言的基礎(chǔ)上形成的，語(yǔ)法結(jié)構(gòu)與VBA相似。語(yǔ)法結(jié)構(gòu)的相同，又使得VBA很容易被理解，它不像VB語(yǔ)言繁瑣，稍微懂得編程語(yǔ)言的人很容易上手。同樣，對(duì)編程不懂的人，從業(yè)務(wù)角度也能編制ExcelVBA辦公自動(dòng)化小工具，只需要后天進(jìn)行學(xué)習(xí)即可。</p>&

6、lt;p>　　當(dāng)然，辦公自動(dòng)化也少不了數(shù)據(jù)庫(kù)的存在，在財(cái)務(wù)中業(yè)務(wù)的復(fù)雜繁多，一個(gè)業(yè)務(wù)可能會(huì)有好多的財(cái)務(wù)數(shù)據(jù)要進(jìn)行處理和整合。數(shù)據(jù)庫(kù)能否建立的得當(dāng)也很重要。</p><p>　　本系統(tǒng)，首先在用戶體驗(yàn)中能夠很輕松方便的處理財(cái)務(wù)的事務(wù)，開發(fā)過程也較簡(jiǎn)單，實(shí)踐度也高，能夠在財(cái)務(wù)辦公中得到很有力的幫助，提高了工作的效率，也能節(jié)省了企業(yè)成本。非常適合一些小企業(yè)或者業(yè)務(wù)數(shù)量比較中等的企業(yè)進(jìn)行日常的數(shù)據(jù)處理，減少了重復(fù)工

7、作的時(shí)間和精力。</p><p>　　關(guān)鍵詞：辦公自動(dòng)化；Excel；ExcelVBA；數(shù)據(jù)庫(kù)；財(cái)務(wù)</p><p><b>　　Abstract</b></p><p>　　With the development of information technology, office automation is also quietly dev

8、eloping, into our life and work. Of course, the new technology is also with the expansion of the economy and the rapid development of business, in synchronization with the front row, master office automation technology h

9、as become the essential knowledge and skills in social work, as well as office automation in all walks of life are being gradually replace the old way of office, making paperless office possible.</p><p>　　Ex

10、cel as a representative office automation software, simple interface, multiple functions, ease of operation make it become more widely used office software. But now it seems the majority of Excel users, most of the use o

11、f Excel formulas in use, the basic functions of a typical kind of PivotTables. And if you want it to achieve office automation, we need to rely on the code and other aids. ExcelVBA is just such a role.</p><p&g

12、t;　　ExcelVBA as an integrated tool in Excel, although it can not be developed office automation program, but it can achieve automatic table in the background through VBA code. And ExcelVBA is based on VB language on the

13、form, structure and syntax similar to VBA. The same grammatical structure, but also makes VBA easily understood, it is not complicated VB language, know a little programming language, it is very easy to use. Similarly, p

14、eople who do not understand the program, from a business point o</p><p>　　Of course, office automation and ultimately the existence of the database, complex financial services in many, a business may have a

15、lot of financial data to be processed and integration. The possibility of establishing a database properly is also important.</p><p>　　This system, first in the user experience can be very easy and convenien

16、t to handle financial affairs, the development process is relatively simple, practical degree is high, can be very effective help in the financial office, and improve work efficiency, but also saves business costs. Ideal

17、 for small businesses or business relatively moderate amount of routine business data processing, reducing the duplication of work time and effort.</p><p>　　Key Words：Office Automation；Excel；ExcelVBA；Databas

18、e；Financial affairs</p><p><b>　　目 錄</b></p><p><b>　　1 引言1</b></p><p>　　1.1 系統(tǒng)開發(fā)背景1</p><p>　　1.2 論文的內(nèi)容結(jié)構(gòu)1</p><p>　　2 關(guān)鍵技術(shù)介紹3<

19、/p><p>　　2.1 Visial Basic3</p><p>　　2.2 Excel宏4</p><p>　　2.3 ExcelVBA5</p><p><b>　　3 系統(tǒng)分析7</b></p><p>　　3.1 需求分析7</p><p>　　3.2 可

20、行性分析8</p><p>　　3.2.1技術(shù)可行性8</p><p>　　3.2.2經(jīng)濟(jì)可行性9</p><p>　　3.2.3管理可行性9</p><p>　　3.3 業(yè)務(wù)流程分析10</p><p>　　3.4 數(shù)據(jù)流程分析11</p><p>　　3.4.1 數(shù)據(jù)流程圖12

21、</p><p>　　3.5 系統(tǒng)功能分析13</p><p><b>　　4 系統(tǒng)設(shè)計(jì)16</b></p><p>　　4.1系統(tǒng)結(jié)構(gòu)設(shè)計(jì)16</p><p>　　4.2 數(shù)據(jù)庫(kù)設(shè)計(jì)17</p><p>　　4.2.1 概念設(shè)計(jì)18</p><p>　　4.2

22、.2 邏輯設(shè)計(jì)22</p><p>　　4.2.3 物理設(shè)計(jì)22</p><p><b>　　5 系統(tǒng)實(shí)施26</b></p><p>　　5.1主操作界面設(shè)計(jì)26</p><p>　　5.2清空結(jié)果表DoradoReport以及結(jié)果表數(shù)據(jù)：27</p><p>　　5.3生成SAP

23、模板并匯總金額：27</p><p>　　5.4生成最后導(dǎo)出的模板31</p><p>　　5.5添加對(duì)照表檢查科目項(xiàng)目入工作表39</p><p><b>　　6 結(jié) 論41</b></p><p>　　參 考 文 獻(xiàn)43</p><p><b>　　致 謝45<

24、;/b></p><p><b>　　1 引言</b></p><p>　　辦公自動(dòng)化作為一個(gè)與計(jì)算機(jī)孕育而生的事物，隨著大數(shù)據(jù)時(shí)代的到來越來越突顯出它的重要性與強(qiáng)大的存在價(jià)值。這個(gè)時(shí)代最不缺的就是數(shù)據(jù)，但如何處理，如何提高處理數(shù)據(jù)的效率是我們亟待解決的問題。企業(yè)首當(dāng)其沖，擁有數(shù)據(jù)卻不能合理快速的處理，效率的低下會(huì)導(dǎo)致企業(yè)無法在經(jīng)濟(jì)全球化的浪潮上處于領(lǐng)先。辦公自

25、動(dòng)化的到來會(huì)很大程度上解決這個(gè)問題。</p><p>　　1.1 系統(tǒng)開發(fā)背景</p><p>　　面對(duì)信息化浪潮帶來的沖擊，企業(yè)信息化的趨勢(shì)正在席卷全球，辦公自動(dòng)化的發(fā)展成為企業(yè)信息化建設(shè)的任務(wù)之一，也成為社會(huì)各個(gè)行業(yè)普遍面對(duì)的問題，掌握計(jì)算機(jī)知識(shí)，利用計(jì)算機(jī)軟件實(shí)現(xiàn)辦公自動(dòng)化，已經(jīng)成為當(dāng)代從業(yè)人員的必備條件。隨著計(jì)算機(jī)和因特網(wǎng)的普及，辦公自動(dòng)化已經(jīng)成為政府部門、各類企業(yè)和科研單位的必備

26、工具。[1]對(duì)于企業(yè)用戶來說，辦公自動(dòng)化是一個(gè)好幫手，是企業(yè)的“管家”。但是，其實(shí)很多企業(yè)用戶并不是真正的了解辦公自動(dòng)化系統(tǒng)，亦或是了解得不夠全面，更有一些小微企業(yè)用戶甚至不知道辦公自動(dòng)化系統(tǒng)到底是做什么的，有什么功能和作用，而事實(shí)上辦公自動(dòng)化確實(shí)對(duì)于企業(yè)管理來說是一個(gè)很大的幫手。[2]因此，推廣并使用辦公自動(dòng)化工具是很有必要的。</p><p>　　1.2 論文的內(nèi)容結(jié)構(gòu)</p><p>

27、;　　在本文中，首要介紹了當(dāng)下社會(huì)信息化建設(shè)的現(xiàn)狀下，辦公自動(dòng)化的現(xiàn)狀和發(fā)展的重要性。</p><p>　　本文共分為八章，具體內(nèi)容安排如下：</p><p>　　第一章：引言，介紹本課題的應(yīng)用背景以及論文的大致結(jié)構(gòu)。</p><p>　　第二章：對(duì)所做的辦公自動(dòng)化系統(tǒng)應(yīng)用的關(guān)鍵技術(shù)進(jìn)行介紹。</p><p>　　第三章：對(duì)辦公自動(dòng)化系統(tǒng)從需

28、求上、可行性上、業(yè)務(wù)流程上、數(shù)據(jù)流程上以及系統(tǒng)功能流程上進(jìn)行分析與論證。</p><p>　　第四章：財(cái)務(wù)辦公自動(dòng)化系統(tǒng)的系統(tǒng)結(jié)構(gòu)和數(shù)據(jù)庫(kù)設(shè)計(jì)。</p><p>　　第五章：財(cái)務(wù)辦公自動(dòng)化系統(tǒng)的各個(gè)模塊截圖和代碼功能介紹。</p><p>　　第六章：結(jié)論，對(duì)該財(cái)務(wù)辦公自動(dòng)化系統(tǒng)進(jìn)行分析與總結(jié)。</p><p>　　第七章：本篇論文中所引用到

29、的文獻(xiàn)資料。</p><p>　　第八章：致謝，對(duì)在本次畢業(yè)論文中指導(dǎo)幫助我的指導(dǎo)老師和同學(xué)表示感謝。</p><p><b>　　2 關(guān)鍵技術(shù)介紹</b></p><p>　　2.1 Visial Basic</p><p>　　Visial Basic是在原有的Basic語(yǔ)言基礎(chǔ)上發(fā)展而來的，Visual指的是開發(fā)圖

30、像用戶界面對(duì)的方法，Basic指的是廣為流行的BASIC計(jì)算機(jī)語(yǔ)言。VB具有簡(jiǎn)單易學(xué)的特性，只要稍有計(jì)算機(jī)語(yǔ)言基礎(chǔ)就可以很快掌握它?？梢暬木幊汰h(huán)境的“所見即所得”功能，是界面設(shè)計(jì)如同積木游戲一樣，從而使編程成為一種享受。強(qiáng)大的多媒體功能可以輕而易舉的開發(fā)出多媒體應(yīng)用程序。當(dāng)然在網(wǎng)絡(luò)功能中也提供了快捷別寫Internet程序的能力。[3]</p><p>　　VB能快速發(fā)展，有著以下特點(diǎn)：</p>

31、<p><b>　　1．面向?qū)ο?lt;/b></p><p>　　VB采用了面向?qū)ο笤O(shè)計(jì)思想，它基本思路是把復(fù)雜設(shè)計(jì)問題分解為個(gè)個(gè)能夠完成獨(dú)立功能——相對(duì)簡(jiǎn)單對(duì)象集合。所謂“對(duì)象”就是個(gè)可操作實(shí)體如窗體、窗體中命令按鈕、標(biāo)簽、文本框等面向?qū)ο缶幊叹秃孟翊罘e木樣員可根據(jù)和界面設(shè)計(jì)要求直接在屏幕上“畫\"出窗口、菜單、按鈕等區(qū)別類型對(duì)象并為每個(gè)對(duì)象設(shè)置屬性。</p>

32、<p><b>　　2．事件驅(qū)動(dòng)</b></p><p>　　在Windows環(huán)境下是以事件驅(qū)動(dòng)方式運(yùn)行每個(gè)對(duì)象的都能響應(yīng)多個(gè)區(qū)別事件，每個(gè)事件都能驅(qū)動(dòng)段代碼——事件過程該代碼決定了對(duì)象功能通常稱這種機(jī)制為事件驅(qū)動(dòng)事件可由用戶操作觸發(fā)也可以由系統(tǒng)或應(yīng)用觸發(fā)例如單擊個(gè)命令按鈕就觸發(fā)了按鈕Click(單擊)事件該事件中代碼就會(huì)被執(zhí)行若用戶未進(jìn)行任何操作(未觸發(fā)事件)則就處于等待狀態(tài)整

33、個(gè)應(yīng)用就是由彼此獨(dú)立事件過程構(gòu)成。</p><p>　　3．軟件Software集成式開發(fā)</p><p>　　VB為編程提供了個(gè)集成開發(fā)環(huán)境在這個(gè)環(huán)境中編程者可設(shè)計(jì)界面、編寫代碼、調(diào)試直至把應(yīng)用編譯成可在Windows中運(yùn)行可執(zhí)行文件并為它生成安裝VB集成開發(fā)環(huán)境為編程者提供了很大方便。</p><p><b>　　4．結(jié)構(gòu)化設(shè)計(jì)語(yǔ)言</b>

34、</p><p>　　VB具有豐富數(shù)據(jù)類型是種符合結(jié)構(gòu)化設(shè)計(jì)思想語(yǔ)言而且簡(jiǎn)單易學(xué)此外作為種設(shè)計(jì)語(yǔ)言VB還有許多獨(dú)到之處。</p><p>　　5．強(qiáng)大數(shù)據(jù)庫(kù)訪問功能。</p><p>　　VB利用數(shù)據(jù)Control控件可以訪問多種數(shù)據(jù)庫(kù)VB6.0提供ADOControl控件不但可以用最少代碼實(shí)現(xiàn)數(shù)據(jù)庫(kù)操作和控制也可以取代DataControl控件和RDOContro

35、l控件。[4]</p><p><b>　　6．多個(gè)應(yīng)用向?qū)?lt;/b></p><p>　　VB提供了多種向?qū)鐟?yīng)用向?qū)А惭b向?qū)?、?shù)據(jù)對(duì)象向?qū)Ш蛿?shù)據(jù)窗體向?qū)ㄟ^它們可以快速地創(chuàng)建區(qū)別類型、區(qū)別功能應(yīng)用 </p><p><b>　　7．聯(lián)機(jī)幫助功能。</b></p><p>　　在VB中利用幫助菜單

36、和F1功能鍵用戶可隨時(shí)方便地得到所需要幫助信息VB幫助窗口中顯示了有關(guān)舉例代碼通過復(fù)制、粘貼操作可獲取大量舉例代碼為用戶學(xué)習(xí)和使用提供方便。</p><p>　　2.2 Excel宏</p><p>　　宏是Excel能夠執(zhí)行的一系列VBA語(yǔ)句，他是一個(gè)指令集，可以使Excel自動(dòng)完成用戶指定的各項(xiàng)動(dòng)作組合，而且宏的錄制和使用方法相對(duì)而言也比較簡(jiǎn)單。錄制宏命令時(shí)，Excel會(huì)自動(dòng)將已錄制的

37、命令組合重復(fù)執(zhí)行一次或者回放，從而實(shí)現(xiàn)重復(fù)操作的自動(dòng)化。也就是說，宏命令本身就是一種VBA應(yīng)用程序，它是儲(chǔ)存VBA模塊中的一系列命令和函數(shù)的集合。當(dāng)知心宏命令所對(duì)應(yīng)的任務(wù)組合時(shí)，Excel會(huì)自動(dòng)啟動(dòng)該VBA程序模塊中的應(yīng)用程序。</p><p>　　當(dāng)一個(gè)宏錄制了用戶想要進(jìn)行的全部操作，而應(yīng)用程序再次執(zhí)行這個(gè)宏時(shí)，它將以準(zhǔn)確的順序執(zhí)行用戶上次執(zhí)行的全部操作。如果宏記錄中有一個(gè)嚴(yán)重的錯(cuò)誤，那么改正這個(gè)錯(cuò)我的唯一辦法

38、是重新錄制這個(gè)宏?？墒窃谥匦落浿七@個(gè)宏的過程中有一個(gè)嚴(yán)重的錯(cuò)誤，那么改正這個(gè)錯(cuò)誤的唯一辦法就是重新錄制這個(gè)宏。可是在重新錄制這個(gè)宏的過程中又有可能引發(fā)新的錯(cuò)誤，這會(huì)給用戶帶來很大麻煩。為了避免這種麻煩，軟件開發(fā)者在宏記錄器中增加了編輯宏的功能，方便用戶改正錯(cuò)誤或進(jìn)行其他變動(dòng)而無需重新錄制宏。</p><p>　　宏的執(zhí)行效果可以通過運(yùn)行宏命令來實(shí)現(xiàn)，宏命令的運(yùn)行過程比錄制宏簡(jiǎn)單的多。</p><

39、;p>　　宏是一些代碼，用來簡(jiǎn)化重復(fù)的工作。正因?yàn)楹甑倪@種特性，使得曾經(jīng)一些惡意的軟件編程人員研發(fā)出了極具破壞性的宏病毒。為了安全性考慮，Excel內(nèi)置了安全性機(jī)制，機(jī)智是不允許啟用宏的。也就是說，如果有一些宏是一啟動(dòng)就執(zhí)行的話，Excel是不允許的，而且是一些防病毒也會(huì)對(duì)帶有宏的Excel文件進(jìn)行檢查。當(dāng)Excel逐步發(fā)展過程中，Excel從2010版后對(duì)宏的安全性相較于之前的Excel版本有了進(jìn)一步的提高，當(dāng)錄制好宏之后，如果

40、將宏保存在當(dāng)前的工作簿，并且以普通的xlsx格式保存時(shí)，Excel會(huì)提示無法保存宏的對(duì)話框，為此Excel提供了啟用宏的工作簿格式——xlsm格式來保存帶有宏的工作簿，使得與不帶有宏的工作簿進(jìn)行明顯的區(qū)分。[5]</p><p>　　2.3 ExcelVBA</p><p>　　VB的全稱是Visual Basic，是一門重要的開發(fā)的語(yǔ)言。微軟開發(fā)目的是簡(jiǎn)化過去人們?cè)谑褂肅++開發(fā)標(biāo)準(zhǔn)Wi

41、n32應(yīng)用程序的復(fù)雜性而出現(xiàn)的，它的開發(fā)方式以及內(nèi)置的Win32空間庫(kù)使得應(yīng)用程序開發(fā)人員能夠非常快的開發(fā)獨(dú)立可執(zhí)行的應(yīng)用程序，或其他一些程序庫(kù)。</p><p>　　VBA與VB盡管一字之差，但兩者是截然不同的的開發(fā)工具，但又有相同之處。</p><p>　　VBA的全稱是Visual Basic Application，是VB的子集。與VB相比，VBA輕便的多。同樣的，VBA的語(yǔ)言是V

42、isual Basic，但它使用的僅是VB中的一個(gè)子集，具有與VB類似的語(yǔ)法。然而，VBA并不是可以開發(fā)獨(dú)立可執(zhí)行應(yīng)用程序的，VBA開發(fā)的程序是寄生于其他已有的程序（如Word、Excel等程序）的內(nèi)部。也就是說，要想使VBA程序得以運(yùn)行，必須先打開Word、Excel等程序。</p><p>　　簡(jiǎn)單來說，雖然VBA不能自主開發(fā)應(yīng)用程序，但它在辦公自動(dòng)化中有很多特點(diǎn)和功能：</p><p&g

43、t;　　可以是重復(fù)性的工作自動(dòng)化，減輕工作負(fù)擔(dān)；</p><p>　　可以進(jìn)行復(fù)雜的數(shù)據(jù)操作分析；</p><p>　　通過Data Access Objects（DAO）和ActiveX Data Object（ADO），能夠?qū)⑼獠繑?shù)據(jù)庫(kù)中的數(shù)據(jù)與Excel集成；</p><p>　　能夠定制Excel的外觀，如菜單、工具條等；</p><p&

44、gt;　　可以動(dòng)態(tài)創(chuàng)建工作簿，動(dòng)態(tài)地改變單元格外觀等定制工作，創(chuàng)建自定義函數(shù)來簡(jiǎn)化公式和計(jì)算；</p><p>　　支持自動(dòng)化功能，自動(dòng)化功能可以使得通過VBA能控制其他支持自動(dòng)化的程序，如在Word中顯示Excel統(tǒng)計(jì)報(bào)表。[6]</p><p><b>　　3 系統(tǒng)分析</b></p><p>　　系統(tǒng)分析主要包括需求分析、可行性分析、業(yè)務(wù)

45、流程分析、數(shù)據(jù)流程分析、功能分析。</p><p><b>　　3.1 需求分析</b></p><p>　　隨著計(jì)算機(jī)的發(fā)展，無紙化辦公已成為一個(gè)趨勢(shì)。而要實(shí)現(xiàn)無紙化辦公，最重要的莫屬于要實(shí)現(xiàn)辦公自動(dòng)化了。財(cái)務(wù)與數(shù)字、人有關(guān)，但是如果達(dá)到一定的數(shù)量，憑紙質(zhì)表格已經(jīng)無法勝任，若為其購(gòu)置一套相關(guān)的ERP設(shè)備又顯得太小題大做。Excel表格是目前運(yùn)用范圍最廣的辦公自動(dòng)化軟

46、件，能錄入數(shù)據(jù)和處理數(shù)據(jù)，一定程度上方便了工作，但繁瑣的打字錄入多次點(diǎn)擊處理又覺得太多麻煩，重復(fù)性操作太多，故而ExcelVBA這個(gè)技術(shù)可以通過編碼的形式，在后臺(tái)操控Excel表格，把一些繁瑣的步驟模塊化、功能化。這就運(yùn)用到了OA（Office Automation）系統(tǒng)管理。[7]</p><p>　　例如在可口可樂共享服務(wù)中心中，有個(gè)Infoshare組負(fù)責(zé)可口可樂的ExcelVBA的OA系統(tǒng)開發(fā)和維護(hù)。不光

47、可樂，其他生產(chǎn)管理企業(yè)基本都認(rèn)為企業(yè)OA辦公管理系統(tǒng)在運(yùn)行和使用中，作為系統(tǒng)或者公司管理平臺(tái)，能否真正滿足了企業(yè)的管理，是非常重要的。而每個(gè)企業(yè)所需要的OA辦公管理系統(tǒng)都是不同的，因?yàn)橄到y(tǒng)是根據(jù)企業(yè)內(nèi)部的管理需求而開發(fā)的，所以具有獨(dú)特性。[8]在這樣的開發(fā)需求背景下，可口可樂共享服務(wù)中心運(yùn)用的OA辦公管理系統(tǒng)是利用ExcelVBA技術(shù)進(jìn)行開發(fā)維護(hù)的。因?yàn)槭褂肙A工具的人們，不一定懂得編程，而Excel作為一個(gè)強(qiáng)大的辦公軟件，使用面廣，易

48、操作，而且后臺(tái)可控，這些就使得使用者與開發(fā)人員進(jìn)行能近一步的溝通，將企業(yè)的相關(guān)需求嵌入到OA工具中。因此，能讓OA辦公管理系統(tǒng)的建設(shè)定位在這個(gè)層面上,才能使企業(yè)辦公變得更加高效。如圖3.1所示：</p><p><b>　　圖3.1 魚骨圖</b></p><p><b>　　3.2 可行性分析</b></p><p>　

49、　可行性分析，就是系統(tǒng)分析階段的一個(gè)重要環(huán)節(jié)，需要在這個(gè)環(huán)節(jié)中明確所做系統(tǒng)或項(xiàng)目的開發(fā)必要性和可行性。開發(fā)的項(xiàng)目是否迫切，是否有足夠的資源和條件。</p><p>　　本章節(jié)將主要從技術(shù)可行性、經(jīng)濟(jì)可行性和管理可行性三方面進(jìn)行分析。</p><p>　　3.2.1技術(shù)可行性</p><p>　　技術(shù)可行性是指從項(xiàng)目實(shí)施的技術(shù)角度，對(duì)項(xiàng)目的設(shè)計(jì)技術(shù)是否合理，并進(jìn)行評(píng)估

50、。本系統(tǒng)只要依托Excel軟件，通過VBA進(jìn)行后臺(tái)開發(fā)，因?yàn)閂BA代碼的自身優(yōu)勢(shì)和特點(diǎn)，模塊化的代碼很使開發(fā)人員以及之后的維護(hù)人員可以很容易的根據(jù)代碼對(duì)功能實(shí)現(xiàn)升級(jí)或刪除，亦可在原有基礎(chǔ)上增加新的模塊功能；前臺(tái)來說，因?yàn)镋xcel自身控件，可將后臺(tái)模塊化的代碼被指定在自己身上，實(shí)際使用Excel辦公自動(dòng)化工具的人，可以根據(jù)提示點(diǎn)擊控件，完成自己對(duì)表格的處理。甚至操作人員不懂得后臺(tái)VBA亦可對(duì)Excel辦公自動(dòng)化小工具進(jìn)行使用。所以從技術(shù)

51、可行性上來講，本系統(tǒng)開發(fā)是滿足要求的。</p><p>　　3.2.2經(jīng)濟(jì)可行性</p><p>　　經(jīng)濟(jì)可行性方面針對(duì)企業(yè)我們肯定更多的會(huì)考慮成本的問題。企業(yè)若想實(shí)現(xiàn)辦公自動(dòng)化，固然是好事，方便業(yè)務(wù)的同時(shí)也能減少人力成本。但小企業(yè)斥資購(gòu)進(jìn)一套大型的辦公自動(dòng)化系統(tǒng)，可謂是不太明智。而用ExcelVBA進(jìn)行開發(fā)，真的是物美價(jià)廉。無需投入過多的資金支持，頂多購(gòu)買一套正版的Office辦公軟件，

52、幾臺(tái)性能不錯(cuò)的PC機(jī)即可。加上VBA語(yǔ)法結(jié)構(gòu)較為簡(jiǎn)單，懂得VB的開發(fā)人員無需學(xué)習(xí)，知道需求后即可進(jìn)行開發(fā)，若無基礎(chǔ)仍可自學(xué)數(shù)周，即可基本達(dá)到開發(fā)要求。綜上所述，運(yùn)用ExcelVBA開發(fā)成本低、質(zhì)量好，且在中小企業(yè)可運(yùn)用，在大型企業(yè)的一些業(yè)務(wù)中亦可勝任。所以從經(jīng)濟(jì)可行性方面看，該辦公自動(dòng)化符合要求。</p><p>　　3.2.3管理可行性</p><p>　　管理可行性是在管理功能的基礎(chǔ)上

53、將其細(xì)化，使得每個(gè)部分可控可管理。以ExcelVBA為基礎(chǔ)的辦公自動(dòng)化小工具，最大的優(yōu)點(diǎn)就是模塊化，后臺(tái)代碼根據(jù)功能被分為好多模塊，通過前臺(tái)界面的控件調(diào)用，易于管理維護(hù)。被選的控件可以根據(jù)需求被指定為其他的模塊代碼，可重復(fù)利用高，編碼人員的管理也方便。同時(shí)，前臺(tái)使用人員對(duì)照Excel的前臺(tái)界面 對(duì)于業(yè)務(wù)熟悉的他們可以根據(jù)業(yè)務(wù)點(diǎn)擊相應(yīng)的控件，完成自己想要辦公自動(dòng)化工具實(shí)現(xiàn)的功能，也方便使用人員的管理。根據(jù)上述，該辦公自動(dòng)化工具在管理可行性

54、上也是很好的。 </p><p>　　以此可以得出，從技術(shù)、經(jīng)濟(jì)、管理上三方面來講，本系統(tǒng)的開發(fā)都是可行的。</p><p>　　3.3 業(yè)務(wù)流程分析</p><p>　　所謂業(yè)務(wù)流程分析是以管理信息系統(tǒng)（MIS）的基本目標(biāo)，識(shí)別與MIS相關(guān)的各主要管理業(yè)務(wù)。從信息流的觀點(diǎn)，弄清各業(yè)務(wù)的發(fā)生(事件)、執(zhí)行(過程)與結(jié)果(數(shù)據(jù))，并最后生成業(yè)務(wù)流程圖。</p&g

55、t;<p>　　在業(yè)務(wù)流程圖中，重中之重是要標(biāo)出與該業(yè)務(wù)相關(guān)的報(bào)表、單據(jù)的來源、去向與應(yīng)用。</p><p>　　業(yè)務(wù)流程圖的圖形符號(hào)如圖3.2所示。</p><p>　　圖3.2 業(yè)務(wù)流程圖的表示符號(hào)</p><p>　　本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)是為某飲料廠的業(yè)務(wù)服務(wù)的：</p><p>　　首先，各地方廠商根據(jù)總部要求繪制符合本

56、辦公自動(dòng)化軟件處理的兩張標(biāo)準(zhǔn)化Excel表格，一張為SAP表，一張為明細(xì)表。</p><p>　　之后，兩張表進(jìn)入制成的ExcelVBA小工具中，系統(tǒng)會(huì)根據(jù)代碼自動(dòng)把兩個(gè)表中的有效內(nèi)容整合，生成一張結(jié)果表。</p><p>　　緊接著，生成的結(jié)果表根據(jù)總部需求對(duì)其進(jìn)行差異化的處理，形成不同的表格，最后生成的結(jié)果表為最終結(jié)果，將交給總部人員。由總部人員交由管理層進(jìn)行審批并報(bào)告。</p&

57、gt;<p>　　上述業(yè)務(wù)描述的業(yè)務(wù)流程如圖3.3所示。</p><p>　　圖3.3 某財(cái)務(wù)辦公自動(dòng)化軟件的業(yè)務(wù)流程圖</p><p>　　3.4 數(shù)據(jù)流程分析</p><p>　　數(shù)據(jù)流程分析就是把數(shù)據(jù)在系統(tǒng)中的流向過程抽象出來，不考慮系統(tǒng)本身是否有缺陷，專門考慮業(yè)務(wù)中對(duì)于數(shù)據(jù)的處理是否得當(dāng)，從而發(fā)現(xiàn)解決數(shù)據(jù)處理中的毛病。數(shù)據(jù)流程分析包括對(duì)數(shù)據(jù)的手

58、機(jī)、傳遞、處理和儲(chǔ)存的分析。</p><p>　　數(shù)據(jù)流程分析一般會(huì)用到以下描述工具—Data Flow Diagram(DFD圖)、數(shù)據(jù)字典、判斷樹、判斷表等。</p><p>　　3.4.1 數(shù)據(jù)流程圖</p><p>　　數(shù)據(jù)流程圖的符號(hào)如圖3.4所示。</p><p>　　圖3.4 數(shù)據(jù)流程圖的符號(hào)</p><p

59、>　　某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)數(shù)據(jù)流程圖如圖3.5所示。</p><p>　　圖3.5 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)數(shù)據(jù)流程圖</p><p>　　3.5 系統(tǒng)功能分析</p><p>　　本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)總體上分為兩個(gè)模塊，前臺(tái)使用模塊和后臺(tái)代碼模塊。</p><p>　　1、該財(cái)務(wù)辦公自動(dòng)化系統(tǒng)前臺(tái)共分為八大功能模塊，根據(jù)整體業(yè)務(wù)流程自下

60、而上，具體功能如圖3.6所示：</p><p>　　圖3.6 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)前臺(tái)模塊功能樹</p><p><b>　　功能樹</b></p><p>　　前臺(tái)使用模塊功能介紹：</p><p>　　清空操作和數(shù)據(jù)表：這個(gè)是為了本次業(yè)務(wù)的準(zhǔn)確度而設(shè)計(jì)，以防上次使用后沒有完全清空表，導(dǎo)致本次操作的漏洞；</p

61、><p>　　分割模塊所需元素：由于操作前會(huì)導(dǎo)入兩個(gè)處理表格，而最后需要的數(shù)據(jù)可能只是一些，所以要對(duì)導(dǎo)入的兩個(gè)表格進(jìn)行分割，在分割好的基礎(chǔ)下再進(jìn)行操作；</p><p>　　生成SAP表匯總金額：對(duì)表的操作，統(tǒng)計(jì)表中的金額：</p><p>　　檢查清單和下載模版金額：將處理后的表格與模板進(jìn)行對(duì)比，整理對(duì)比形成同一張表格顯示；</p><p>　

62、　輸出模板：把經(jīng)過操作后的模板生成對(duì)應(yīng)的格式，并初步生產(chǎn)結(jié)果表；</p><p>　　將新模板導(dǎo)入新下載模板中：把結(jié)果表導(dǎo)入處理，為之后操作進(jìn)行鋪墊；</p><p>　　個(gè)性要求：對(duì)不同的廠子的表進(jìn)行提取或者修飾；</p><p>　　添加會(huì)計(jì)科目等項(xiàng)目：由于此表最后需要交由會(huì)計(jì)部處理、審批，需要根據(jù)會(huì)計(jì)要求，添加相應(yīng)會(huì)計(jì)科目，為會(huì)計(jì)業(yè)務(wù)處理打下基礎(chǔ)。</p

63、><p>　　2、該財(cái)務(wù)辦公自動(dòng)化系統(tǒng)后臺(tái)模塊共分為五個(gè)基本處理功能模塊，根據(jù)不同的流程進(jìn)行調(diào)用，并發(fā)揮其功能。具體如圖3.7所示：</p><p>　　圖3.7 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)后臺(tái)模塊功能樹</p><p><b>　　后臺(tái)功能模塊介紹：</b></p><p>　　查找最小值：通過冒泡排序的方法查找最小值，并通過次

64、把金額合計(jì)排序好；</p><p>　　輸出模板：對(duì)處理完成和整合完成的表格</p><p>　　生成對(duì)照表數(shù)據(jù)：對(duì)于模板中出現(xiàn)的個(gè)人或單位，會(huì)在Excel中有一個(gè)對(duì)照表顯示，該部分是把對(duì)照表信息對(duì)應(yīng)在模板中的值替換；</p><p>　　檢查金額：對(duì)模板處理后的數(shù)據(jù)進(jìn)行核對(duì)，保證準(zhǔn)確度；</p><p>　　添加其他相關(guān)內(nèi)容：由于分屬不同的

65、廠，總廠對(duì)于分廠數(shù)據(jù)的提取有特殊性，所以該功能下集成了很多小模塊，對(duì)于不同需求有不同的解決方案，添加相關(guān)需要的內(nèi)容。</p><p><b>　　4 系統(tǒng)設(shè)計(jì)</b></p><p>　　系統(tǒng)設(shè)計(jì)主要考慮的是為實(shí)現(xiàn)某一個(gè)系統(tǒng)或子系統(tǒng)，應(yīng)該設(shè)計(jì)幾個(gè)功能模塊。系統(tǒng)設(shè)計(jì)主要是圍繞系統(tǒng)結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)庫(kù)設(shè)計(jì)、數(shù)據(jù)與信息的代碼設(shè)計(jì)、輸入輸出設(shè)計(jì)和軟硬件配置等內(nèi)容來進(jìn)行的。在設(shè)計(jì)過

66、程中，除了要有相應(yīng)的設(shè)計(jì)原則外，還要采用正確的方法。</p><p>　　如何從若干方案中選擇一個(gè)盡可能好的，是決策問題。評(píng)價(jià)一個(gè)系統(tǒng)設(shè)計(jì)是否好也是標(biāo)準(zhǔn)可言的：運(yùn)行效率、可靠性、可修改性、靈活性、通用性和實(shí)用性。期中前三項(xiàng)是很必要的評(píng)價(jià)標(biāo)準(zhǔn)。[9]</p><p>　　1、運(yùn)行效率：一個(gè)系統(tǒng)的可用資源畢竟有限，設(shè)法提高資源的使用效率是系統(tǒng)設(shè)計(jì)的重要任務(wù)。評(píng)價(jià)系統(tǒng)運(yùn)行效率可以從處理能力、運(yùn)行

67、時(shí)間、響應(yīng)時(shí)間3個(gè)方面來進(jìn)行。</p><p>　　2、可靠性：系統(tǒng)的可靠性包括軟件硬件的可靠性，一般可以從以下幾個(gè)方面來考慮：文件存取限制，主要為安全性和完整性的問題，什么人可以訪問，什么人不可以；建立運(yùn)行日志和信息追蹤，由于一些特殊業(yè)務(wù)的需要，管理層可能需要系統(tǒng)每天提供處理那些任務(wù)的報(bào)告，如何處理的。為了這些，需要建立運(yùn)行日志，每用本系統(tǒng)進(jìn)行過處理，就將該事物記錄。</p><p>&

68、lt;b>　　4.1系統(tǒng)結(jié)構(gòu)設(shè)計(jì)</b></p><p>　　該財(cái)務(wù)自動(dòng)化系統(tǒng)的總體結(jié)構(gòu)已經(jīng)屬于一個(gè)管理信息系統(tǒng)(MIS)。對(duì)本系統(tǒng)進(jìn)行設(shè)計(jì)時(shí)，要給這系統(tǒng)進(jìn)行個(gè)總體的架構(gòu)搭建，下圖為某財(cái)務(wù)自動(dòng)化系統(tǒng)的系統(tǒng)結(jié)構(gòu)圖，如圖4.1所示：</p><p>　　圖4.1某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)結(jié)構(gòu)圖</p><p><b>　　4.2 數(shù)據(jù)庫(kù)設(shè)計(jì)<

69、/b></p><p>　　數(shù)據(jù)庫(kù)通俗的講，就是存放數(shù)據(jù)的“倉(cāng)庫(kù)”，而且數(shù)據(jù)是按一定的格式存放的。概念化的講，數(shù)據(jù)庫(kù)(DataBase,DB)是長(zhǎng)期存儲(chǔ)在計(jì)算機(jī)內(nèi)的、有組織的、可共享的數(shù)據(jù)集合。數(shù)據(jù)庫(kù)中的數(shù)據(jù)按一定的數(shù)據(jù)模型組織、描述和儲(chǔ)存，具有最小的冗余度、較高的數(shù)據(jù)獨(dú)立性和易擴(kuò)展性，并可為各種用戶共享。數(shù)據(jù)庫(kù)不孤立，是數(shù)據(jù)庫(kù)系統(tǒng)的組成部分。</p><p>　　數(shù)據(jù)庫(kù)是一個(gè)軟件尤

70、其是一個(gè)辦公自動(dòng)化系統(tǒng)的生命，數(shù)據(jù)庫(kù)設(shè)計(jì)階段，能否對(duì)表內(nèi)的數(shù)據(jù)表與表之間形成優(yōu)質(zhì)的連接，對(duì)日后的查詢排序有著很重要的前置作用。對(duì)于數(shù)據(jù)庫(kù)開發(fā)人員來說，數(shù)據(jù)庫(kù)設(shè)計(jì)就是對(duì)一個(gè)給定的實(shí)際應(yīng)用環(huán)境，如何利用數(shù)據(jù)庫(kù)正確的反應(yīng)軟件現(xiàn)實(shí)能滿足的情況，而且還能滿足使用這的各種應(yīng)用需求是數(shù)據(jù)庫(kù)設(shè)計(jì)的關(guān)鍵之一。[10]</p><p>　　類似于軟件工程中軟件生命周期的概念，一般把數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)從開始規(guī)劃、分析、設(shè)計(jì)、實(shí)施、投入運(yùn)行

71、后的維護(hù)直到消亡成為數(shù)據(jù)庫(kù)系統(tǒng)的生命期。數(shù)據(jù)庫(kù)設(shè)計(jì)階段處于實(shí)施前的關(guān)節(jié)階段。為何數(shù)據(jù)庫(kù)設(shè)計(jì)處于如此關(guān)鍵的節(jié)點(diǎn)呢？主要還是和它自身的特點(diǎn)有關(guān)：</p><p>　　首先，具有反復(fù)性。數(shù)據(jù)庫(kù)設(shè)計(jì)不是一朝一夕就可以完成的，需要反復(fù)推倒修改后才能完成。前段設(shè)計(jì)是基礎(chǔ)，后階段的設(shè)計(jì)會(huì)反應(yīng)前階段的部分，看似毫無聯(lián)系，實(shí)則關(guān)系密切。</p><p>　　其次，試探性。數(shù)據(jù)庫(kù)設(shè)計(jì)結(jié)果并不唯一，設(shè)計(jì)過程中往

72、往是試探的過程。有各式各樣的要求和制約元素，它們往往勢(shì)不兩立。數(shù)據(jù)庫(kù)設(shè)計(jì)很難達(dá)到最完美的效果，只能在原有的基礎(chǔ)上不斷的進(jìn)行優(yōu)化處理，使其處理能力能夠達(dá)到接受的范疇即可。</p><p>　　再之，多部性。數(shù)據(jù)庫(kù)設(shè)計(jì)往往交給一人來完成的話不容易發(fā)現(xiàn)細(xì)微的問題，常常是多人完成，這樣既能保證質(zhì)量和進(jìn)度，又能分段把關(guān)。</p><p>　　最后，面向數(shù)據(jù)。數(shù)據(jù)庫(kù)最終還是為數(shù)據(jù)服務(wù)，如何以數(shù)據(jù)的格式

73、為主情況下，建立優(yōu)化的數(shù)據(jù)庫(kù)，是目標(biāo)所在。[11]</p><p>　　數(shù)據(jù)庫(kù)設(shè)計(jì)階段包括概念設(shè)計(jì)、邏輯設(shè)計(jì)和物理設(shè)計(jì)三方面，本文接下來將從這三方面詳細(xì)介紹。</p><p>　　4.2.1 概念設(shè)計(jì)</p><p>　　概念設(shè)計(jì)就是把分析上述需求分析的結(jié)果，抽象為概念模型表示的過程，是完整而全面的設(shè)計(jì)過程。一般利用E-R圖來實(shí)現(xiàn)。</p><p

74、>　　主要步驟實(shí)現(xiàn)設(shè)計(jì)局部功能的E-R圖；將局部E-R圖整合，形成全局E-R圖；對(duì)全局E-R圖進(jìn)行優(yōu)化，主要是對(duì)冗余屬性進(jìn)行剔除或者修改。最后得到以E-R圖為顯示的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)圖。</p><p>　　E-R圖的好處是在物理設(shè)計(jì)階段前，能夠給直觀的給設(shè)計(jì)人員看到數(shù)據(jù)庫(kù)的模型結(jié)構(gòu)，以便后來的系統(tǒng)集成數(shù)據(jù)庫(kù)后的集成度會(huì)大大有保障。</p><p>　　數(shù)據(jù)庫(kù)的概念設(shè)計(jì)E-R圖圖例表示，

75、如圖4.2所示</p><p>　　圖4.2 ER圖圖例</p><p>　　1、清單實(shí)體屬性圖，如圖4.3所示：</p><p>　　圖4.3.清單實(shí)體屬性圖</p><p>　　2、新下載模板實(shí)體屬性圖，如圖4.4所示</p><p>　　圖4.4.清單實(shí)體屬性圖</p><p>　　3、D

76、oradoReport實(shí)體屬性圖，如圖4.5所示</p><p>　　圖4.5.清單實(shí)體屬性圖</p><p>　　4、結(jié)果實(shí)體屬性圖，如圖4.6所示</p><p>　　圖4.6.清單實(shí)體屬性圖</p><p>　　5、添加檢查實(shí)體屬性圖，如圖4.7所示</p><p>　　圖4.7.清單實(shí)體屬性圖</p>

77、;<p>　　6、某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)E-R圖總圖，如圖4.8所示</p><p>　　圖4.8. 財(cái)務(wù)辦公自動(dòng)化系統(tǒng)E-R圖總圖</p><p>　　4.2.2 邏輯設(shè)計(jì)</p><p>　　正經(jīng)來說，E-R圖和關(guān)系模型都是抽象的。而若想被數(shù)據(jù)庫(kù)所接受，就必須要信息化。也就是說，把E-R圖模型轉(zhuǎn)化為關(guān)系數(shù)據(jù)庫(kù)的關(guān)系模型，也就是通常說的邏輯設(shè)計(jì)。&l

78、t;/p><p>　　最常見的要數(shù)實(shí)體集映射為關(guān)系表的方法了：實(shí)體集的每個(gè)屬性成為關(guān)系的一個(gè)屬性。應(yīng)當(dāng)注意的是，需要知道每個(gè)屬性的域和主碼。</p><p>　　下面就為根據(jù)剛才的概念設(shè)計(jì)出的E-R圖轉(zhuǎn)化為的關(guān)系模型：</p><p>　　清單(報(bào)銷單號(hào)*，姓名，金額)</p><p>　　新下載模板(報(bào)銷單號(hào)*，成本中心編碼*，總賬科目*，部門

79、，職位，姓名，費(fèi)用類型，費(fèi)用子類型，月份，詳細(xì)備注，金額，分?jǐn)偝杀揪幋a*，分?jǐn)偙壤謹(jǐn)偨痤~，審批完成時(shí)間)</p><p>　　DoradoReport(報(bào)銷編號(hào)*,總賬科目*,部門,職位,姓名,月份,費(fèi)用類型,詳細(xì)備注,金額)</p><p>　　結(jié)果(總賬科目*,成本中心編碼*,金額,詳細(xì)情況,報(bào)銷單號(hào)*)</p><p>　　添加檢查(總賬科目*,科目詳情)

80、</p><p>　　4.2.3 物理設(shè)計(jì)</p><p>　　數(shù)據(jù)庫(kù)物理設(shè)計(jì)階段就是設(shè)計(jì)數(shù)據(jù)庫(kù)各字段內(nèi)部結(jié)構(gòu)，根據(jù)邏輯設(shè)計(jì)階段選取適合的儲(chǔ)存結(jié)構(gòu)和存取方式。數(shù)據(jù)庫(kù)物理設(shè)計(jì)相對(duì)于邏輯設(shè)計(jì)來說是后半段，一般來講，數(shù)據(jù)庫(kù)物理設(shè)計(jì)的第一步是確定數(shù)據(jù)庫(kù)的物流結(jié)構(gòu)，然后是對(duì)實(shí)施空間和時(shí)間的效率的評(píng)價(jià)。[12]</p><p>　　Excel單元格中可以包括數(shù)據(jù)類型有數(shù)值、日

81、期時(shí)間、文本、邏輯值和錯(cuò)誤值，期中邏輯值和錯(cuò)誤值通常是公式產(chǎn)生的，其他幾種類型則需要輸入，或者通過ExcelVBA實(shí)現(xiàn)辦公自動(dòng)化完成填充。[13]</p><p>　　本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)共分為5個(gè)表，集成在一個(gè)工作簿中，相關(guān)字段數(shù)據(jù)類型如下表所示：</p><p>　　1、清單信息表如表4.1所示：</p><p><b>　　表4.1清單信息表<

82、/b></p><p>　　2、結(jié)果信息表如表4.2所示：</p><p><b>　　表4.2結(jié)果信息表</b></p><p>　　3、添加檢查信息表如表4.3所示：</p><p>　　表4.3添加檢查信息表表</p><p>　　4、DoradoReport信息表如表4.4所示：&l

83、t;/p><p>　　表4.4DoradoReport信息表</p><p>　　5、新下載模板信息表如表4.5所示：</p><p>　　表4.5新下載模板信息表</p><p><b>　　5 系統(tǒng)實(shí)施</b></p><p>　　系統(tǒng)實(shí)施階段是開發(fā)一個(gè)系統(tǒng)的最后一個(gè)階段。本階段的任務(wù)是實(shí)現(xiàn)系統(tǒng)設(shè)

84、計(jì)階段和系統(tǒng)分析階段提出的方案，按照方案來最后實(shí)現(xiàn)一個(gè)可運(yùn)行的信息系統(tǒng)。[14]</p><p>　　而辦公自動(dòng)化系統(tǒng)的實(shí)施是一項(xiàng)復(fù)雜的系統(tǒng)工程。其中涉及到的因素很多，我們?cè)谥袝?huì)感覺到開發(fā)一個(gè)系統(tǒng)不是那么容易的，但要將一個(gè)開發(fā)好的應(yīng)用軟件投入實(shí)際應(yīng)用會(huì)更難。[15]</p><p>　　5.1主操作界面設(shè)計(jì)</p><p>　　本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)界面上做到了直觀，

85、控件名稱也是操作名稱，能給使用者做到明顯直觀的使用體驗(yàn)。</p><p>　　本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)界面設(shè)計(jì)如圖5.1所示：</p><p>　　圖5.1某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)界面圖</p><p>　　前臺(tái)界面基于Excel空間和表格的修飾完成，每個(gè)按鈕控件可被指定為不同的ExcelVBA代碼，同一控件可根據(jù)不同的操作，選取不同的功能，系統(tǒng)會(huì)自動(dòng)調(diào)用代碼。具體更替如圖

86、5.2所示：</p><p>　　圖5.2控件功能更替</p><p>　　5.2清空結(jié)果表DoradoReport以及結(jié)果表數(shù)據(jù)：</p><p>　　為了保證數(shù)據(jù)結(jié)果的準(zhǔn)確性，在不確定上次操作時(shí)，操作員是否對(duì)表格數(shù)據(jù)進(jìn)行清空，因此設(shè)立此控件。使用時(shí)，點(diǎn)擊即可，也不用復(fù)查表格，增加工作時(shí)間。相關(guān)代碼如下：</p><p><b>

87、　　Sub we2()</b></p><p>　　Dim a As Integer</p><p>　　a = Sheet1.UsedRange.Rows.Count</p><p>　　Sheet1.UsedRange.Clear</p><p>　　Sheets("結(jié)果").UsedRange.Clear

88、 //清空結(jié)果表</p><p>　　Sheets("清單").UsedRange.Clear//清空清單表</p><p>　　Sheets("上導(dǎo)模板").UsedRange.Clear//清空上導(dǎo)模版表</p><p>　　Sheets("新下載模板").UsedRange.Cle

89、ar//清空新下載模板表</p><p>　　Sheets("結(jié)果2").UsedRange.Clear//清空結(jié)果2表</p><p><b>　　End Sub</b></p><p>　　5.3生成SAP模板并匯總金額：</p><p>　　Sub 檢查金額()</p><

90、;p>　　Dim a As Integer</p><p>　　Dim b As Integer</p><p>　　Dim c As Integer</p><p>　　Dim d As Integer//參數(shù)定義</p><p>　　Dim e As Integer</p><p>　　Dim SUM1 A

91、s Double</p><p>　　Dim SUM2 As Double</p><p>　　Dim sum3 As Double</p><p><b>　　SUM1 = 0</b></p><p><b>　　SUM2 = 0</b></p><p><b>

92、　　sum3 = 0</b></p><p>　　a = Sheets("清單").Range("A65535").End(xlUp).Row //有效數(shù)據(jù)數(shù)</p><p>　　b = Sheets("結(jié)果").Range("A65535").End(xlUp).Row//有效數(shù)據(jù)數(shù)&l

93、t;/p><p>　　'a = Sheets("原始數(shù)據(jù)").UsedRange.Rows.Count//可執(zhí)行次數(shù)數(shù)</p><p>　　'b = Sheets("結(jié)果").UsedRange.Rows.Count//可執(zhí)行次數(shù)數(shù)</p><p>　　For c = 2 To a</p><

94、;p>　　SUM1 = Sheets("清單").Range("D" & c) + SUM1//計(jì)算清單表每行的和</p><p>　　If Sheets("清單").Range("D" & c) = 0 Then</p><p>　　Sheets("清單").

95、Range("G" & c) = "金額為0" //如果為0 顯示”金額為0”</p><p><b>　　End If</b></p><p><b>　　Next</b></p><p>　　------------差異算法-----------</p>

96、<p>　　For c = 2 To b</p><p>　　SUM2 = Sheets("結(jié)果").Range("B" & c) + SUM2 </p><p><b>　　Next</b></p><p>　　For c = 2 To a</p><p>

97、;　　For d = 2 To b</p><p>　　'If Sheets("清單").Range("B" & c) = Sheets("結(jié)果").Range("E" & d) Then</p><p>　　If Sheets("結(jié)果").Range("E

98、" & d) = Sheets("清單").Range("B" & c) Then</p><p>　　'Debug.Print Sheets("結(jié)果").Range("E" & c)</p><p>　　Sheets("清單").Range(&qu

99、ot;E" & c) = Sheets("結(jié)果").Range("B" & d)</p><p>　　'Sheets("原始數(shù)據(jù)").Range("F" & c) = Sheets("原始數(shù)據(jù)").Range("D" & c) - Sheets(

100、"原始數(shù)據(jù)").Range("E" & c)</p><p><b>　　GoTo SKIP</b></p><p><b>　　Else</b></p><p><b>　　End If</b></p><p><b>

101、;　　Next</b></p><p>　　SKIP: Sheets("清單").Range("F" & c) = Sheets("清單").Range("D" & c) - Sheets("清單").Range("E" & c)</p><

102、;p>　　Sheets("清單").Range("F" & c) = Int(Sheets("清單").Range("F" & c) * 10000 + 0.5) / 10000</p><p><b>　　Next</b></p><p>　　Sheets(&quo

103、t;清單").Range("F" & 1) = "差異"</p><p>　　Sheets("清單").Range("H" & 1) = "清單總金額"</p><p>　　Sheets("清單").Range("H" &am

104、p; 2) = SUM1</p><p>　　Sheets("清單").Range("H" & 5) = "模板總金額"</p><p>　　Sheets("清單").Range("H" & 6) = SUM2</p><p>　　----------

105、--差異算法-----------</p><p>　　For e = 2 To b</p><p>　　Sheets("清單").Range("J" & e) = Sheets("結(jié)果").Range("E" & e)</p><p>　　Sheets("清單

106、").Range("K" & e) = Sheets("結(jié)果").Range("B" & e)</p><p>　　If Sheets("清單").Range("K" & e) = 0 Then</p><p>　　Sheets("清單"

107、).Range("M" & e) = "金額為0"</p><p><b>　　End If</b></p><p>　　For d = 2 To a</p><p>　　If Sheets("清單").Range("J" & e) = Sheets

108、("清單").Range("B" & d) Then</p><p>　　Sheets("清單").Range("L" & e) = Sheets("清單").Range("K" & e) - Sheets("清單").Range("D&qu

109、ot; & d)</p><p>　　Sheets("清單").Range("L" & e) = Int(Sheets("清單").Range("L" & e) * 10000 + 0.5) / 10000</p><p><b>　　Else</b></p&

110、gt;<p><b>　　End If</b></p><p><b>　　Next</b></p><p><b>　　Next</b></p><p>　　Sheets("清單").Range("J" & 1) = "模板金額

111、明細(xì)"</p><p>　　Sheets("清單").Range("L" & 1) = "差異"</p><p><b>　　End Sub</b></p><p>　　最后形成截圖，如圖5.3所示：</p><p>　　圖5.3生成的SAP模

112、板運(yùn)行截圖</p><p>　　5.4生成最后導(dǎo)出的模板</p><p><b>　　代碼如下所示：</b></p><p>　　Sub GX模板生成()</p><p>　　Dim a As Integer</p><p>　　Dim b As Integer</p><p&

113、gt;　　Dim c As Integer</p><p>　　Dim d As Integer</p><p>　　Dim f As Integer</p><p>　　Dim i As Integer</p><p>　　Dim STRA As String</p><p>　　Dim SUM1 As Double

114、</p><p>　　Dim SUM2 As Double</p><p>　　a = Sheets("doradoreport").Range("A65535").End(xlUp).Row</p><p>　　For b = 2 To a</p><p>　　Sheets("dorador

115、eport").Range("w" & b) = Sheets("doradoreport").Range("f" & b) & Sheets("doradoreport").Range("n" & b)</p><p>　　Sheets("doradorepor

116、t").Range("X" & b) = Sheets("doradoreport").Range("f" & b) & Sheets("doradoreport").Range("n" & b) & Sheets("doradoreport").Range("

117、;D" & b) _</p><p>　　& Sheets("doradoreport").Range("C" & b) & Sheets("doradoreport").Range("E" & b)</p><p><b>　　Next</b&

118、gt;</p><p>　　Sheets("doradoreport").Range(Sheets("doradoreport").Cells(2, 1), Sheets("doradoreport").Cells(a, 26)).Sort _</p><p>　　Key1:=Sheets("doradoreport&q

119、uot;).Range("X2"), _</p><p>　　Order1:=xlAscending</p><p><b>　　f = 1</b></p><p><b>　　SUM1 = 0</b></p><p>　　For b = 2 To a</p>&l

120、t;p>　　'If Left(Sheets("doradoreport").Range("F" & b), 2) = "ER" Then</p><p>　　If Left(Sheets("doradoreport").Range("F" & b), 2) = "ER&quo

121、t; And Sheets("doradoreport").Range("G" & b) = "出差" Then</p><p>　　If Sheets("doradoreport").Range("W" & b) = Sheets("doradoreport").Range(&

122、quot;W" & b - 1) Then</p><p>　　Sheets("上導(dǎo)模板").Range("T" & f) = Sheets("上導(dǎo)模板").Range("T" & f) + Sheets("doradoreport").Range("t" &a