【文章內容簡介】 每天提供處理那些任務的報告，如何處理的。為了這些，需要建立運行日志，每用本系統(tǒng)進行過處理，就將該事物記錄。該財務自動化系統(tǒng)的總體結構已經屬于一個管理信息系統(tǒng)(MIS)。對本系統(tǒng)進行設計時，要給這系統(tǒng)進行個總體的架構搭建，下圖為某財務自動化系統(tǒng)的系統(tǒng)結構圖，： 數據庫設計數據庫通俗的講，就是存放數據的“倉庫”，而且數據是按一定的格式存放的。概念化的講，數據庫(DataBase,DB)是長期存儲在計算機內的、有組織的、可共享的數據集合。數據庫中的數據按一定的數據模型組織、描述和儲存，具有最小的冗余度、較高的數據獨立性和易擴展性，并可為各種用戶共享。數據庫不孤立，是數據庫系統(tǒng)的組成部分。數據庫是一個軟件尤其是一個辦公自動化系統(tǒng)的生命，數據庫設計階段，能否對表內的數據表與表之間形成優(yōu)質的連接，對日后的查詢排序有著很重要的前置作用。對于數據庫開發(fā)人員來說，數據庫設計就是對一個給定的實際應用環(huán)境，如何利用數據庫正確的反應軟件現實能滿足的情況，而且還能滿足使用這的各種應用需求是數據庫設計的關鍵之一。[10]類似于軟件工程中軟件生命周期的概念，一般把數據庫應用系統(tǒng)從開始規(guī)劃、分析、設計、實施、投入運行后的維護直到消亡成為數據庫系統(tǒng)的生命期。數據庫設計階段處于實施前的關節(jié)階段。為何數據庫設計處于如此關鍵的節(jié)點呢？主要還是和它自身的特點有關：首先，具有反復性。數據庫設計不是一朝一夕就可以完成的，需要反復推倒修改后才能完成。前段設計是基礎，后階段的設計會反應前階段的部分，看似毫無聯系，實則關系密切。其次，試探性。數據庫設計結果并不唯一，設計過程中往往是試探的過程。有各式各樣的要求和制約元素，它們往往勢不兩立。數據庫設計很難達到最完美的效果，只能在原有的基礎上不斷的進行優(yōu)化處理，使其處理能力能夠達到接受的范疇即可。再之，多部性。數據庫設計往往交給一人來完成的話不容易發(fā)現細微的問題，常常是多人完成，這樣既能保證質量和進度，又能分段把關。最后，面向數據。數據庫最終還是為數據服務，如何以數據的格式為主情況下，建立優(yōu)化的數據庫，是目標所在。[11]數據庫設計階段包括概念設計、邏輯設計和物理設計三方面，本文接下來將從這三方面詳細介紹。 概念設計概念設計就是把分析上述需求分析的結果，抽象為概念模型表示的過程，是完整而全面的設計過程。一般利用ER圖來實現。主要步驟實現設計局部功能的ER圖；將局部ER圖整合，形成全局ER圖；對全局ER圖進行優(yōu)化，主要是對冗余屬性進行剔除或者修改。最后得到以ER圖為顯示的數據庫概念結構圖。ER圖的好處是在物理設計階段前，能夠給直觀的給設計人員看到數據庫的模型結構，以便后來的系統(tǒng)集成數據庫后的集成度會大大有保障。數據庫的概念設計ER圖圖例表示， ER圖圖例清單實體屬性圖，： 新下載模板實體屬性圖， DoradoReport實體屬性圖， 結果實體屬性圖， 添加檢查實體屬性圖，某財務辦公自動化系統(tǒng)ER圖總圖，. 財務辦公自動化系統(tǒng)ER圖總圖 邏輯設計正經來說，ER圖和關系模型都是抽象的。而若想被數據庫所接受，就必須要信息化。也就是說，把ER圖模型轉化為關系數據庫的關系模型，也就是通常說的邏輯設計。最常見的要數實體集映射為關系表的方法了：實體集的每個屬性成為關系的一個屬性。應當注意的是，需要知道每個屬性的域和主碼。下面就為根據剛才的概念設計出的ER圖轉化為的關系模型：清單(報銷單號*，姓名，金額)新下載模板(報銷單號*，成本中心編碼*，總賬科目*，部門，職位，姓名，費用類型，費用子類型，月份，詳細備注，金額，分攤成本編碼*，分攤比例，分攤金額，審批完成時間)DoradoReport(報銷編號*,總賬科目*,部門,職位,姓名,月份,費用類型,詳細備注,金額)結果(總賬科目*,成本中心編碼*,金額,詳細情況,報銷單號*)添加檢查(總賬科目*,科目詳情) 物理設計數據庫物理設計階段就是設計數據庫各字段內部結構，根據邏輯設計階段選取適合的儲存結構和存取方式。數據庫物理設計相對于邏輯設計來說是后半段，一般來講，數據庫物理設計的第一步是確定數據庫的物流結構，然后是對實施空間和時間的效率的評價。[12]Excel單元格中可以包括數據類型有數值、日期時間、文本、邏輯值和錯誤值，期中邏輯值和錯誤值通常是公式產生的，其他幾種類型則需要輸入，或者通過ExcelVBA實現辦公自動化完成填充。[13]本財務辦公自動化系統(tǒng)共分為5個表，集成在一個工作簿中，相關字段數據類型如下表所示：：字段名稱類型長度小數位數允許空字段說明序號數值4無是自動生成的序號報銷單號文本9無否規(guī)定單號姓名文本16無是人名金額數值102是報銷金額：字段名稱類型長度小數位數允許空字段說明總賬科目數值9無否對應的會計科目成本中心編碼數值無否規(guī)定編碼金額數值102是報銷金額詳細情況文本100無是大致消費情況（包括時間 類別）報銷編號文本9無否規(guī)定單號：字段名稱類型長度小數位數允許空字段說明總賬科目數值9無否對應的會計科目號科目詳情文本20無是對應的會計科目名稱：字段名稱類型長度小數位數允許空字段說明報銷單號文本9無否規(guī)定單號總賬科目數值9無否對應的會計科目號職位文本15無是報銷者的職位部門文本7無是報銷者的部門姓名文本16無是人名月份日期4無是發(fā)生月份費用類型文本10無是報銷費用所屬類型詳細備注文本100無是報銷事件大概描述金額數值102是報銷金額：字段名稱類型長度小數位數允許空字段說明報銷單號文本9無否規(guī)定單號成本中心編碼數值無否規(guī)定編碼總賬科目數值9無否對應的會計科目號職位文本15無是報銷者的職位部門文本7無是報銷者的部門姓名文本16無是人名費用類型文本10無是報銷費用所屬類型費用子類型文本10無是報銷費用所屬詳細類型月份日期4無是發(fā)生月份詳細備注文本100無是報銷事件大概描述金額數值102是報銷金額分攤成本編碼數值10無否單號編碼分攤比例數值4百分比是自己分攤比例分攤金額數值102是自己分攤金額審批完成時間日期YYYYmmdd無是報銷審批時間5 系統(tǒng)實施系統(tǒng)實施階段是開發(fā)一個系統(tǒng)的最后一個階段。本階段的任務是實現系統(tǒng)設計階段和系統(tǒng)分析階段提出的方案，按照方案來最后實現一個可運行的信息系統(tǒng)。[14]而辦公自動化系統(tǒng)的實施是一項復雜的系統(tǒng)工程。其中涉及到的因素很多，我們在中會感覺到開發(fā)一個系統(tǒng)不是那么容易的，但要將一個開發(fā)好的應用軟件投入實際應用會更難。[15]本財務辦公自動化系統(tǒng)界面上做到了直觀，控件名稱也是操作名稱，能給使用者做到明顯直觀的使用體驗。：前臺界面基于Excel空間和表格的修飾完成，每個按鈕控件可被指定為不同的ExcelVBA代碼，同一控件可根據不同的操作，選取不同的功能，系統(tǒng)會自動調用代碼。：：為了保證數據結果的準確性，在不確定上次操作時，操作員是否對表格數據進行清空，因此設立此控件。使用時，點擊即可，也不用復查表格，增加工作時間。相關代碼如下： Sub we2()Dim a As Integera = Sheets(結果). //清空結果表Sheets(清單). //清空清單表Sheets(上導模板). //清空上導模版表Sheets(新下載模板). //清空新下載模板表Sheets(結果2). //清空結果2表End Sub：Sub 檢查金額()Dim a As IntegerDim b As IntegerDim c As IntegerDim d As Integer //參數定義Dim e As IntegerDim SUM1 As DoubleDim SUM2 As DoubleDim sum3 As DoubleSUM1 = 0SUM2 = 0sum3 = 0a = Sheets(清單).Range(A65535).End(xlUp).Row //有效數據數b = Sheets(結果).Range(A65535).End(xlUp).Row //有效數據數39。a = Sheets(原始數據). //可執(zhí)行次數數39。b = Sheets(結果). //可執(zhí)行次數數For c = 2 To aSUM1 = Sheets(清單).Range(D amp。 c) + SUM1 //計算清單表每行的和If Sheets(清單).Range(D amp。 c) = 0 Then Sheets(清單).Range(G amp。 c) = 金額為0 //如果為0 顯示”金額為0”End IfNext差異算法For c = 2 To bSUM2 = Sheets(結果).Range(B amp。 c) + SUM2 NextFor c = 2 To aFor d = 2 To b39。If Sheets(清單).Range(B amp。 c) = Sheets(結果).Range(E amp。 d) ThenIf Sheets(結果).Range(E amp。 d) = Sheets(清單).Range(B amp。 c) Then39。 Sheets(結果).Range(E amp。 c)Sheets(清單).Range(E amp。 c) = Sheets(結果).Range(B amp。 d)39。Sheets(原始數據).Range(F amp。 c) = Sheets(原始數據).Range(D amp。 c) Sheets(原始數據).Range(E amp。 c)GoTo SKIPElseEnd If NextSKIP: Sheets(清單).Range(F amp。 c) = Sheets(清單).Range(D amp。 c) Sheets(清單).Range(E amp。 c) Sheets(清單).Range(F amp。 c) = Int(Sheets(清單).Range(F amp。 c) * 10000 + ) / 10000 Next Sheets(清單).Range(F amp。 1) = 差異Sheets(清單).Range(H amp。 1) = 清單總金額Sheets(清單).Range(H amp。 2) = SUM1Sheets(清單).Range(H amp。 5) = 模板總金額Sheets(清單).Range(H amp。 6) = SUM2差異算法For e = 2 To bSheets(清單).Range(J amp。 e) = Sheets(結果).Range(E