【正文】 BA 又是在 VB 語言的基礎(chǔ)上形成的，語法結(jié)構(gòu)與 VBA 相似。數(shù)據(jù)庫(kù)能否建立的得當(dāng)也很重要。這個(gè)時(shí)代最不缺的就是數(shù)據(jù)，但如何處理，如何提高處理數(shù)據(jù)的效率是我們亟待解決的問 題。隨著計(jì)算機(jī)和因特網(wǎng)的普及，辦公自動(dòng)化已經(jīng)成為政府部門、各類企業(yè)和科研單位的必備工具。 論文的內(nèi)容結(jié)構(gòu) 在本文中，首要介紹了當(dāng)下社會(huì)信息化建設(shè)的現(xiàn)狀下，辦公自動(dòng)化的現(xiàn)狀和發(fā)展的重要性。 第四章： 財(cái)務(wù)辦公自動(dòng)化系統(tǒng)的系統(tǒng)結(jié)構(gòu)和數(shù)據(jù)庫(kù)設(shè)計(jì)。 第八章 ：致謝，對(duì)在本次畢業(yè)論文中指導(dǎo)幫助我的指導(dǎo)老師和同學(xué)表示感謝。強(qiáng)大的多媒體功能可以輕而易舉的開發(fā)出多媒體應(yīng)用程序。 2．事件驅(qū)動(dòng) 在 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)整個(gè)應(yīng)用就是由彼此獨(dú)立事件過程構(gòu)成 。 VB 利用數(shù)據(jù) Control 控件可以訪問多種數(shù)據(jù)庫(kù) 提供ADOControl 控件不但 可以用最少代碼實(shí)現(xiàn)數(shù)據(jù)庫(kù)操作和控制也可以取代 DataControl 控件和 RDOControl 控件。錄制宏命令時(shí)， Excel 會(huì)自動(dòng)將已錄制的命令組合重復(fù)執(zhí)行一次或者回放，從而實(shí)現(xiàn)重復(fù)操作的自動(dòng)化。如果宏記錄中有一個(gè)嚴(yán)重的錯(cuò)誤，那么改正這個(gè)錯(cuò)我的唯一辦 法是重新錄制這個(gè)宏。 宏的執(zhí)行效果可以通過運(yùn)行宏命令來實(shí)現(xiàn)，宏命令的運(yùn)行過程比錄制宏簡(jiǎn)單的多。也就是說，如果有一些宏是一啟動(dòng)就執(zhí)行的話， Excel是不允許的，而且是一些防病毒也會(huì)對(duì)帶有宏的 Excel 文件進(jìn)行檢查。 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 6 VBA與 VB盡管一字之差，但兩者是截然不同的的開發(fā)工具，但又有相同之處。然而， VBA 并不是可以開發(fā)獨(dú)立可執(zhí)行應(yīng)用程序的， VBA 開發(fā)的程序是寄生于其他已有的程序（如 Word、 Excel 等程序）的內(nèi)部。 需求分析 隨著計(jì)算機(jī)的發(fā)展，無紙化辦公已成為一個(gè)趨勢(shì)。這就運(yùn)用到了 OA（ Office Automation）系統(tǒng)管理。[8]在這樣的開發(fā)需求背景下，可口可樂共享服務(wù)中心運(yùn)用的 OA辦公管理系統(tǒng)是利用 ExcelVBA 技術(shù)進(jìn)行開發(fā)維護(hù)的。開發(fā)的項(xiàng)目是否迫切，是否有足夠的資源和條件。甚至操作人員不懂得后臺(tái) VBA亦可對(duì) Excel 辦公自動(dòng)化小工具進(jìn)行使用。但小企業(yè)斥資購(gòu)進(jìn)一套大型的辦公自動(dòng)化系統(tǒng)，可謂是不太明智。綜上所述，運(yùn)用 ExcelVBA開發(fā)成本低、質(zhì)量好，且在中小企業(yè)可運(yùn)用，在大型企業(yè)的一些業(yè)務(wù)中亦可 勝任 。被選的控件可以根據(jù)需求被指定為其他的模塊代碼，可重復(fù)利用高，編碼人員的管理也方便。 業(yè)務(wù)流程分析 所謂業(yè)務(wù)流程分析是以管理信息系統(tǒng)（ MIS） 的基本目標(biāo)，識(shí)別與 MIS 相關(guān)的各主要管理業(yè)務(wù)。 圖 業(yè)務(wù)流程圖的表示符號(hào) 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 11 本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)是為某飲料廠 的業(yè)務(wù)服務(wù)的： 首先，各地方廠商根據(jù)總部要求繪制符合本辦公自動(dòng)化軟件處理的兩張標(biāo)準(zhǔn)化 Excel 表格，一張為 SAP 表，一張為明細(xì)表。 上述業(yè)務(wù)描述的業(yè)務(wù)流程 如圖 所示。 數(shù)據(jù)流程圖 數(shù)據(jù)流程圖的符號(hào)如圖 所示。 該財(cái)務(wù)辦公自動(dòng)化系統(tǒng)后臺(tái)模塊共分為五個(gè)基本處理功能模塊，根據(jù)不同的流程進(jìn)行調(diào)用，并發(fā)揮其功能。在設(shè)計(jì)過程中，除了要有相應(yīng)的設(shè)計(jì)原則外，還要采用正 確的方法。 [9] 運(yùn)行效率：一個(gè)系統(tǒng)的可用資源畢竟 有限，設(shè)法提高資源的使用效率是系統(tǒng)設(shè)計(jì)的重要任務(wù)。 該財(cái)務(wù)自動(dòng)化系統(tǒng)的總體結(jié)構(gòu)已經(jīng)屬于一個(gè)管理信息系統(tǒng)(MIS)。數(shù)據(jù)庫(kù)不孤立，是數(shù)據(jù)庫(kù)系統(tǒng)的組成部分。數(shù)據(jù)庫(kù)設(shè)計(jì)階段處于實(shí)施前的關(guān)節(jié)某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 18 階段。 其次，試探性。 再之，多部性。 [11] 數(shù)據(jù)庫(kù)設(shè)計(jì)階段 包括概念設(shè)計(jì)、邏輯設(shè)計(jì)和物理設(shè)計(jì)三方面，本文接下來將從這三方面詳細(xì)介紹。最后得到以 ER 圖為顯示的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)圖。也就是說，把 ER 圖模型轉(zhuǎn)化為關(guān)系數(shù)據(jù)庫(kù)的關(guān)系模型，也就是通常說的 邏輯設(shè)計(jì) 。數(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à)。 [14] 而辦公自動(dòng)化系統(tǒng)的實(shí)施是一項(xiàng)復(fù)雜的系統(tǒng)工程。具體更替如圖 所示：某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 27 圖 控件功能更替 清空結(jié)果表 DoradoReport 以及結(jié)果表數(shù)據(jù)： 為了保證數(shù)據(jù)結(jié)果的準(zhǔn)確性，在不確定上次操作時(shí)，操作員是否對(duì)表格數(shù)據(jù)進(jìn)行清空， 因此設(shè)立此控件。b = Sheets(結(jié)果 ). //可執(zhí)行次數(shù)數(shù) For c = 2 To a SUM1 = Sheets(清單 ).Range(D amp。 c) + SUM2 Next For c = 2 To a For d = 2 To b 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 29 39。 d) = Sheets(清單 ).Range(B amp。 c) = Sheets(結(jié)果 ).Range(B amp。 c) Sheets(原始數(shù)據(jù) ).Range(E amp。 c) Sheets(清單 ).Range(F amp。 1) = 清單總金額 Sheets(清單 ).Range(H amp。 e) = Sheets(結(jié)果 ).Range(E amp。 e) = 0 Then Sheets(清單 ).Range(M amp。 e) = Sheets(清單 ).Range(K amp。 e) * 10000 + ) / 10000 Else End If Next Next Sheets(清單 ).Range(J amp。 b) amp。 b) amp。 b) _ amp。 b) Next Sheets(doradoreport).Range(Sheets(doradoreport).Cells(2, 1), Sheets(doradoreport).Cells(a, 26)).Sort _ Key1:=Sheets(doradoreport).Range(X2), _ Order1:=xlAscending f = 1 SUM1 = 0 For b = 2 To a 39。 b) = 出差 Then If Sheets(doradoreport).Range(W amp。 f) + Sheets(doradoreport).Range(t amp。 f) = Sheets(doradoreport).Range(n amp。 Sheets(doradoreport).Range(D amp。 Sheets(doradoreport).Range(F amp。 f) = Val(Sheets(doradoreport).Range(t amp。 f) = Sheets(doradoreport).Range(B amp。 b 1) Then Sheets(上導(dǎo)模板 ).Range(T amp。 f) = Sheets(doradoreport).Range(l amp。 f) = Sheets(doradoreport).Range(C amp。 Sheets(doradoreport).Range(U amp。 f) = (Sheets(上導(dǎo)模板 ).Range(s amp。 f) = Sheets(doradoreport).Range(p amp。 b) = 通訊費(fèi) 手機(jī) Or Sheets(doradoreport).Range(E amp。 f) = Sheets(doradoreport).Range(l amp。 f) = Sheets(doradoreport).Range(C amp。 Sheets(doradoreport).Range(U amp。 f) = (Sheets(上導(dǎo)模板 ).Range(s amp。 f) = Sheets(doradoreport).Range(p amp。 f) = Sheets(doradoreport).Range(l amp。 f) = Sheets(doradoreport).Range(C amp。 Sheets(doradoreport).Range(E amp。 Sheets(doradoreport).Range(F amp。 f) = Val(Sheets(doradoreport).Range(t amp。 f) = Sheets(doradoreport).Range(B amp。 2) Sheets(上導(dǎo)模板 ).Range(C amp。 d + 1) = Sheets(操作手冊(cè) ).Range(E amp。 4) Sheets(上導(dǎo)模板 ).Range(K amp。 d + 1) = Sheets(操作手冊(cè) ).Range(E amp。 39。Sheets(上導(dǎo)模板 ).Range(C amp。 b)) 7, 1) = B Then STRA = Right(Sheets(上導(dǎo)模板 ).Range(S amp。 b) = (Y amp。 b).NumberFormatLocal = yyyymd。添加日期 Sheets(上導(dǎo)模板 ).Range(E amp。 b) = CNY Sheets(上導(dǎo)模板 ).Range(K amp。 1) = Indicator Sheets(上導(dǎo)模板 ).Range(B amp。 1) = Document type Shee。 1) = Posting date 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 38 Sheets(上導(dǎo)模板 ).Range(D amp。 b) = J0 Next Sheets(上導(dǎo)模板 ).Range(T amp。 b) = Sheets(操作手冊(cè) ).Range(E amp。 b).NumberFormatLocal = yyyymd。 b) = (Z amp。 b), 9) End If 添加日期 For i = 2 To a If STRA = (F amp。 2) 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 37 If Mid(Sheets(上導(dǎo)模板 ).Range(S amp。 b) = Sheets(操作手冊(cè) ).Range(E amp。 b) Sheets(上導(dǎo)模板 ).Range(A amp。 d + 1) = 205501203 Sheets(上導(dǎo)模板 ).Range(M amp。 d + 1) = CNY Sheets(上導(dǎo)模板 ).Range(J amp。 2) Sheets(上導(dǎo)模板 ).Range(E amp。 d + 1) = 1 Sheets(上導(dǎo)模板 ).Range(B amp。 f) = Sheets(doradoreport).Range(p amp。 f) = (Sheets(上導(dǎo)模板 ).Range(s amp。 Sheets(doradoreport).Range(U amp。 Sheets(doradoreport).Range(D amp。 f) = Sheets(doradoreport).Range(n amp。 f) = Sheets(doradoreport).Range(B amp。 f) = Val(Sheets(doradoreport).Range(t amp。 Sheets(doradoreport).Range(F amp。 Sheets(doradoreport).Range(E amp。 f) = Sheets(doradoreport).Range(n amp。 b) = 營(yíng)業(yè)所電費(fèi) Or Sheets(doradoreport).Range(E amp。 f) = Sheets(doradoreport).Range(B amp。 f) = Val(Sheets(doradoreport).Range(t amp。 Sheets(doradoreport).Range(F amp。 Sheets(doradoreport).Range(D amp。 f) = Sheets(doradoreport).Range(n amp。 f) + Sheets(doradoreport).Range(t amp。 b) Like 交通費(fèi) * Then If Sheets(doradoreport).Range(X amp。 f) = Sheets(doradoreport).Range(p amp。 f) = (Sheets(上導(dǎo)模板 ).Range(s amp。 Sheets(doradoreport).Range(G amp。 f) = Sheets(doradoreport).Range(C amp。 f) = Sheets(doradoreport).Range(l amp。 b 1) Then Sheets(上導(dǎo)模板 ).Range(T amp。 b), 2) = ER The