稅務(wù)管理系統(tǒng)畢業(yè)論文

1、<p><b>　　目 錄</b></p><p><b>　　前 言3</b></p><p><b>　　第一章 引言4</b></p><p>　　1.1 課題背景4</p><p>　　1.2 信息化建設(shè)的意義4</p><

2、;p>　　第二章 系統(tǒng)分析5</p><p>　　2.1 系統(tǒng)需求分析5</p><p>　　2.1.1 系統(tǒng)調(diào)查5</p><p>　　2.1.2 系統(tǒng)業(yè)務(wù)流程圖6</p><p>　　2.1.3 數(shù)據(jù)流程圖6</p><p>　　第三章 系統(tǒng)設(shè)計8</p><p&g

3、t;　　3.1 系統(tǒng)的總體設(shè)計8</p><p>　　3.1.1 系統(tǒng)的總體設(shè)計方案8</p><p>　　3.1.2 系統(tǒng)研發(fā)平臺8</p><p>　　3.1.3 系統(tǒng)功能設(shè)計9</p><p>　　3.2 數(shù)據(jù)設(shè)計10</p><p>　　3.2.1 數(shù)據(jù)庫結(jié)構(gòu)化查詢語言10</p&

4、gt;<p>　　3.2.2 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計13</p><p>　　第四章 稅務(wù)票據(jù)分析系統(tǒng)實現(xiàn)19</p><p>　　4.1 創(chuàng)建工程項目19</p><p>　　4.2 創(chuàng)建稅務(wù)票據(jù)分析系統(tǒng)的主窗體19</p><p>　　4.3 創(chuàng)建主窗體菜單19</p><p>　　4.4

5、 創(chuàng)建系統(tǒng)基礎(chǔ)信息模塊22</p><p>　　4.5 創(chuàng)建系統(tǒng)數(shù)據(jù)導(dǎo)入模塊27</p><p>　　4.6 創(chuàng)建系統(tǒng)數(shù)據(jù)分析模34</p><p>　　4.7 系統(tǒng)的實現(xiàn)40</p><p>　　第五章 系統(tǒng)使用、測試、維護與評價41</p><p>　　5.1 系統(tǒng)的使用41</p&g

6、t;<p>　　5.2 系統(tǒng)維護41</p><p>　　5.3 系統(tǒng)評價42</p><p>　　5.4系統(tǒng)測試42</p><p>　　5.4.1測試目的42</p><p>　　5.4.2測試方法43</p><p>　　5.4.3測試結(jié)果43</p><p>

7、;<b>　　總 結(jié)45</b></p><p><b>　　致 謝46</b></p><p><b>　　內(nèi)容摘要</b></p><p>　　《納稅人統(tǒng)計信息管理系統(tǒng)》是采用VB開發(fā)的一個數(shù)據(jù)庫管理系統(tǒng)。本篇論文主要講述了本系開發(fā)的目的和意義。在系統(tǒng)需求分析中，簡明闡述客戶的需求。在系統(tǒng)

8、設(shè)計中，詳細的展現(xiàn)了系統(tǒng)的各個功能模塊，所需的數(shù)據(jù)庫表及表字段、菜單的設(shè)計等。</p><p>　　系統(tǒng)具有數(shù)據(jù)導(dǎo)入、數(shù)據(jù)統(tǒng)計、記錄查詢、報表打印等功能。較全面滿足了目前稅務(wù)機關(guān)的各項工作。該系統(tǒng)采用模塊化原理編程，做到了模塊規(guī)模適中，本身相對獨立。模塊化使程序結(jié)構(gòu)清晰，易于設(shè)計、易于理解，提高了系統(tǒng)的可靠性。</p><p>　　本文詳細說明了納稅人統(tǒng)計信息管理系統(tǒng)的業(yè)務(wù)流程，分析了其數(shù)

9、據(jù)流程，明確了數(shù)據(jù)表之間的聯(lián)系，詳細說明了主要的程序邏輯。并以圖表的方式直觀的說明，使程序易于理解。</p><p>　　關(guān)鍵字： 管理系統(tǒng) VB 面向?qū)ο?lt;/p><p><b>　　Abstract</b></p><p>　　Taxpayers Statistical Information Management System is

10、 a kind of database management system, which is developed on the basis of Visual Basic (VB). This thesis mainly states the purpose and meaning of developing this system. In the analysis of the demand, it introduces the c

11、lients’ demands briefly. In the chapter of the system designing, it shows each functional module, the required database table, the Pivot Table Field, the menu designing and so on in details. </p><p>　　This s

12、ystem has the functions of data importing, statistical data, record reference and statement imprinting, which can meet the demands of the daily work of tax offices at present. This system uses the programming principle b

13、ased on modularization, which achieves the module scale to be moderate and the relative independence. The modularization makes the procedure structure clear, easy to design and understand, improving the system’s reliabil

14、ity. </p><p>　　This thesis details the business process of Taxpayers Statistical Information Management System, analyzes the procedure of data, defines the relationship among the statements and explains the

15、main procedure logic in the form of charters, which is easy to understand the procedure. </p><p>　　Key words: management system; VB; object-oriented </p><p><b>　　前 言</b></p>

16、<p>　　稅務(wù)票據(jù)管理是國稅局票據(jù)管理部門中一項非常重要的工作，對納稅人的認證票據(jù)與開具票據(jù)情況的統(tǒng)計分析又是該項業(yè)務(wù)中不可缺少的環(huán)節(jié)，在幾天內(nèi)從幾萬張票據(jù)中靠手工按票據(jù)類型統(tǒng)計匯總出所需要的數(shù)據(jù)是很難實現(xiàn)。針對該項工作的需求研發(fā)了稅務(wù)票據(jù)分析產(chǎn)品，該產(chǎn)品是針對小規(guī)模納稅人的專用發(fā)票和普通發(fā)票的認證票據(jù)、開具票據(jù)的情況進行統(tǒng)計分析的專用軟件。該系統(tǒng)起到了稅務(wù)征管系統(tǒng)（CTAIS）與稅務(wù)專用發(fā)票系統(tǒng)之間銜接和橋梁作用，它適用

17、于國稅局票據(jù)管理部門。是一種高度集成、易操作、降低分析人員勞動強度的新型分析系統(tǒng)。系統(tǒng)集成了票據(jù)資料導(dǎo)入、納稅人資料導(dǎo)入、票據(jù)資料匯總數(shù)據(jù)導(dǎo)出、票據(jù)認證開具情況統(tǒng)計分析、票據(jù)統(tǒng)計排序、數(shù)據(jù)查詢等功能，實現(xiàn)了對納稅人開具票據(jù)和認證票據(jù)的有效監(jiān)控管理，堵塞了發(fā)票管理環(huán)節(jié)上的漏洞，提高了發(fā)票交驗環(huán)節(jié)上的工作效率。本系統(tǒng)滿足國稅局不同基層分局對所管轄企業(yè)票據(jù)的綜合統(tǒng)計分析，系統(tǒng)采用先進的應(yīng)用體系結(jié)構(gòu)和開發(fā)模式，接口實現(xiàn)簡單可靠。</p&g

18、t;<p><b>　　第一章 引言</b></p><p><b>　　1.1 課題背景</b></p><p>　　隨著專用發(fā)票用戶的增多和國家稅務(wù)總局對國稅普票進入金稅工程管理的要求，大連市國稅局直屬分局所使用的對專用發(fā)票的紅票、廢票進行統(tǒng)計、匯總的《納稅人統(tǒng)計信息管理系統(tǒng)》，在功能上已遠遠滿足不了業(yè)務(wù)的需求。系統(tǒng)的升級和

19、功能的增加是當前稅務(wù)局急需要解決的問題。大連市國稅局基層分局共有14個。目前只有直屬分局使用了該系統(tǒng)。所以，對原系統(tǒng)重新進行系統(tǒng)分析和設(shè)計，使它的功能更加完善是勢在必行。</p><p>　　1.2 信息化建設(shè)的意義</p><p>　　信息化建設(shè)不外乎兩個方向，第一是電子商務(wù)網(wǎng)站，是企業(yè)開向互聯(lián)網(wǎng)的一扇窗戶；其次就是管理信息系統(tǒng)，它是企業(yè)內(nèi)部信息的組織管理者。電子商務(wù)的發(fā)展速度和規(guī)模是

20、驚人的，似乎一夜之間，各行各業(yè)的許多企業(yè)都在互聯(lián)網(wǎng)上建立起自己的網(wǎng)站。這些網(wǎng)站有的以介紹產(chǎn)品為主，有的以提供技術(shù)支持為主，還有一些企業(yè)網(wǎng)站則開展電子商務(wù)，利用互聯(lián)網(wǎng)組織企業(yè)的進貨和銷售。</p><p>　　這些“窗戶”讓擁有它的企業(yè)能夠及時的掌握行業(yè)動態(tài)、市場變化，而作出迅速的反應(yīng)，以此占有市場先機。誰擁有互聯(lián)網(wǎng)，誰就擁有了信息；誰擁有了信息，誰就能占據(jù)有利競爭地位，已經(jīng)成為一條新的市場競爭規(guī)則。當然，管理信息

21、系統(tǒng)在企業(yè)發(fā)展中的戰(zhàn)略地位也不可小視。它協(xié)助企業(yè)管理從簡單的公文、技術(shù)資料到復(fù)雜的生產(chǎn)流程、成本核算，甚至輔助企業(yè)進行更高級的經(jīng)營決策。</p><p>　　上述信息化的成果并非一蹴而就，它經(jīng)歷了一個相當長的時期。在各個發(fā)展階段，各種模式的信息化工具交替占據(jù)主導(dǎo)地位，但最終必然是被更新的、更完善的模式或技術(shù)所取代。今天的企業(yè)電子商務(wù)和管理信息系統(tǒng)也不例外，流行的同時也有它自身的不斷裂變和發(fā)展。那么，一個具有前瞻性

22、的問題在于：今后的企業(yè)信息化會朝向何處發(fā)展？企業(yè)如何看待相互分隔的電子商務(wù)和管理信息系統(tǒng)？ </p><p><b>　　第二章 系統(tǒng)分析</b></p><p>　　2.1 系統(tǒng)需求分析</p><p>　　設(shè)計一個性能良好的數(shù)據(jù)庫系統(tǒng)，明確應(yīng)用環(huán)境對系統(tǒng)的要求是首要的和最基本的。特別是數(shù)據(jù)應(yīng)用非常廣泛，非常復(fù)雜，要是事先沒有對信息進行充

23、分和細致的分析，這種設(shè)計就很難取得成功。</p><p>　　通過需求分析階段對稅務(wù)票據(jù)系統(tǒng)的整個應(yīng)用情況作全面的、詳細的調(diào)查，確定發(fā)票管理的目標，收集支持系統(tǒng)總的設(shè)計目標的基礎(chǔ)數(shù)據(jù)和對這些數(shù)據(jù)的要求，確定用戶的需求，并把這些寫成用戶和數(shù)據(jù)庫設(shè)計者都能夠接受的文檔。</p><p>　　事實上，需求分析是數(shù)據(jù)庫開發(fā)中最難的任務(wù)之一。因為，第一，系統(tǒng)本身是可變的，用戶的需求必須不斷調(diào)整，使之

24、與這種變化相適應(yīng)。第二，用戶很難說清某部分工作的功能處理過程。所以，設(shè)計人員必須認識到：在整個需求分析以及系統(tǒng)設(shè)計過程中，用戶參與的重要性，通過各種方法展開調(diào)查分析。</p><p>　　2.1.1 系統(tǒng)調(diào)查</p><p>　　本系統(tǒng)可以對由稅務(wù)發(fā)票系統(tǒng)導(dǎo)出的發(fā)票文本文件進行處理，滿足國稅局不同基層分局對所管轄的企業(yè)的發(fā)票和發(fā)票的廢票、負票數(shù)據(jù)進行統(tǒng)計和匯總，通過分析可以掌握各種所需資

25、料。系統(tǒng)采用先進的應(yīng)用系統(tǒng)體系結(jié)構(gòu)和開發(fā)模式，提高系統(tǒng)的可擴展性、可維護性和交互性。該系統(tǒng)相對獨立，接口實現(xiàn)簡單、安全，可操作性強。</p><p>　　2.1.2 系統(tǒng)業(yè)務(wù)流程圖</p><p><b>　　A2.0</b></p><p>　　A2.1 A2.2 A2.3 A2.4 A2.5 A2.6 A2

26、.7 A2.8 A2.9 A2.10 A2.11 A2.12 A2.13 A2.14 A2.15</p><p>　　A2.16 A2.17 A2.18 A2.19 A2.20 A2.21 A2.22 A2.23 A2.24 A2.25 A2.26 A2.27 A2.28</p><p>　　2.1.3 數(shù)據(jù)流程圖&l

27、t;/p><p>　　稅務(wù)票據(jù)分析系統(tǒng)是采用C/S結(jié)構(gòu)，納稅人資料和納稅人的票據(jù)資料是由《稅務(wù)專用發(fā)票管理系統(tǒng)》提供，根據(jù)稅務(wù)管理工作的需求，系統(tǒng)針對導(dǎo)入的票據(jù)按不同類別和不同條件進行統(tǒng)計和分析，并將統(tǒng)計分析結(jié)果輸送到Excel表中，數(shù)據(jù)流程如圖1。</p><p><b>　　第三章 系統(tǒng)設(shè)計</b></p><p>　　3.1 系統(tǒng)的總體設(shè)

28、計</p><p>　　首先使稅務(wù)局的票據(jù)管理部門全面掌握所轄增值稅一般納稅人各月專用發(fā)票的開具情況，保證錄入到稅務(wù)征管系統(tǒng)（CTAIS）中票據(jù)驗舊數(shù)據(jù)的真實性。</p><p>　　使票據(jù)管理部門能夠準確地統(tǒng)計出該局所轄一般納稅人已經(jīng)抄報稅的票據(jù)起止號碼、作廢份數(shù)、負數(shù)份數(shù)以及在這已開具專用發(fā)票起止號碼區(qū)間內(nèi)作廢票據(jù)明細和負數(shù)票據(jù)明細，從而使得票據(jù)校驗人員在發(fā)票校驗環(huán)節(jié)中有重點地審核和校

29、驗納稅人提供的作廢票據(jù)及負數(shù)票據(jù)。</p><p>　　使一般納稅人票據(jù)負數(shù)開具率和作廢開具率得到有效地控管總體呈下降趨勢。</p><p>　　3.1.1 系統(tǒng)的總體設(shè)計方案</p><p>　　我的課題內(nèi)容是一個稅務(wù)票據(jù)分析系統(tǒng)，其主要功能是利用稅務(wù)CTAIS系統(tǒng)所積累的企業(yè)開據(jù)發(fā)票來獲取信息，從企業(yè)日常開據(jù)發(fā)票種類以及開據(jù)發(fā)票明細等多方面進行分析，然后導(dǎo)出報

30、表與結(jié)論，從而有效地管控一般納稅人票據(jù)負數(shù)開局率和作廢開局率。</p><p>　　具體地說，我將用SQL Server 2000來生成數(shù)據(jù)庫，從而建立各種信息表來存放系統(tǒng)信息，以便以后的數(shù)據(jù)查詢和數(shù)據(jù)分析。然后用 VB軟件來建立可視化界面，利用VB控件來建立與 SQL Server 2000 的連接，從而達到在VB界面里可以看到數(shù)據(jù)庫內(nèi)容，并且方便地通過界面操作來查詢企業(yè)票據(jù)信息和匯總數(shù)據(jù)的分析。接下來可在VB

31、內(nèi)部代碼的幫助下輸出報表、繪出圖形等。</p><p>　　數(shù)據(jù)庫提供了企業(yè)日常所開據(jù)的紅字發(fā)票、負數(shù)發(fā)票等信息。</p><p>　　結(jié)果是根據(jù)前面各個分析小模塊得出最后結(jié)論，導(dǎo)出報表等。</p><p>　　3.1.2 系統(tǒng)研發(fā)平臺</p><p>　　SQL Server 2000與ACCESS都是關(guān)系型數(shù)據(jù)庫管理系統(tǒng)。在關(guān)系型數(shù)據(jù)庫

32、中，信息被存放在二維結(jié)構(gòu)的表中，一個關(guān)系型數(shù)據(jù)庫包括多表，每一個標都由行（又稱為記錄）和列（又稱為字段）組成。</p><p>　　SQL Server 2000，它具有獨立于硬件平臺、對稱的多處理器結(jié)構(gòu)、搶占式多任務(wù)管理、完善的安全系統(tǒng)和容錯功能，并具有易于維護的特點。 它采用客戶/服務(wù)器計算模型，即中央服務(wù)器用來存放數(shù)據(jù)庫，該服務(wù)器可以被多臺客戶機訪問，數(shù)據(jù)庫應(yīng)用的處理過程分布在客戶機和服務(wù)器上，這樣便具有數(shù)

33、據(jù)集中存儲、業(yè)務(wù)邏輯和安全規(guī)則的定義在服務(wù)器上定義，而后被所有用戶使用、節(jié)省硬件開銷等優(yōu)點。這也正是ACCESS所欠缺的。所以我決定使用SQL Server 2000作為數(shù)據(jù)庫開發(fā)工具。</p><p>　　通過VB訪問數(shù)據(jù)庫SQL SERVER 2000自帶的分析管理器比較適用于程序開發(fā)者，而不是用于應(yīng)用者，我考慮用VB來實現(xiàn)分析系統(tǒng)，因為VB可以提供用戶簡便的操作界面而隱藏了底層代碼。并且ADO則是訪問ODB

34、C數(shù)據(jù)庫的最佳借口。</p><p>　　3.1.3 系統(tǒng)功能設(shè)計</p><p>　　系統(tǒng)設(shè)計又稱為新系統(tǒng)的物理設(shè)計。系統(tǒng)設(shè)計的指導(dǎo)思想是結(jié)構(gòu)化法。系統(tǒng)設(shè)計的目標是：在保證實現(xiàn)邏輯模型的基礎(chǔ)上，盡可能地提高系統(tǒng)的各項指標，即主要性、可靠性、工作質(zhì)量、工作效率和經(jīng)濟性等，故系統(tǒng)設(shè)計的指標是衡量系統(tǒng)設(shè)計好壞的準則。對這五個方面的指標，在一定程度上既是互相矛盾的又是相輔相成的。對于不同的系統(tǒng)

35、，由于功能及系統(tǒng)目標的不同，對上述指標的要求各有所側(cè)重。</p><p>　　本系統(tǒng)采用的是結(jié)構(gòu)化開發(fā)方法，結(jié)構(gòu)化系統(tǒng)設(shè)計是新系統(tǒng)開發(fā)的一個重要內(nèi)容，是結(jié)構(gòu)化系統(tǒng)分析和結(jié)構(gòu)化程序設(shè)計之間的接口過程。結(jié)構(gòu)化系統(tǒng)設(shè)計技術(shù)是結(jié)構(gòu)化程序設(shè)計思想的基礎(chǔ)上，發(fā)展起來的一種用于復(fù)雜系統(tǒng)結(jié)構(gòu)設(shè)計的技術(shù)，它運用一套標準的設(shè)計準則和工具，采用模塊的方法，進行新系統(tǒng)控制層次關(guān)系和模塊專人分解設(shè)計，把用數(shù)據(jù)流程圖表示的系統(tǒng)邏輯模型轉(zhuǎn)變?yōu)?/p>

36、用HIPO圖或控制結(jié)構(gòu)圖表示的系統(tǒng)層次模塊結(jié)構(gòu)，以及用過程圖或偽碼表示的程序模塊結(jié)構(gòu)。結(jié)構(gòu)化系統(tǒng)設(shè)計的核心是模塊分解設(shè)計，模塊化顯著提高了系統(tǒng)的可修改性和可維護性，同時，為系統(tǒng)設(shè)計工作的有效組織和控制提供了方便條件。</p><p>　　本系統(tǒng)應(yīng)用一套標準設(shè)計準則和工具，把系統(tǒng)分析階段得出的系統(tǒng)邏輯模型擴展和優(yōu)化處理，在數(shù)據(jù)流程圖的基礎(chǔ)上構(gòu)成系統(tǒng)的模塊結(jié)構(gòu)。這一階段通常采用結(jié)構(gòu)化程序設(shè)計方法，即SD( Struc

37、tured Design)方法。采用模塊化自頂向下設(shè)計方法，進行新系統(tǒng)控制層次關(guān)系和模塊分解設(shè)計，顯著地提高了系統(tǒng)的可維護性和可修改性，同時為系統(tǒng)設(shè)計的有效組織提供了方便。</p><p><b>　　3.2 數(shù)據(jù)設(shè)計</b></p><p>　　3.2.1 數(shù)據(jù)庫結(jié)構(gòu)化查詢語言</p><p>　　本系統(tǒng)最主要的兩方面技術(shù)其中最基本的一個

38、便是數(shù)據(jù)庫的操作，對數(shù)據(jù)庫模塊的操作功能需要對結(jié)構(gòu)化查詢語言（SQL）進行深入的了解。先要了解結(jié)構(gòu)化查詢語言（SQL）的一些含義和特點：</p><p>　　這是一種允許用戶在特定需要的基礎(chǔ)上訪問數(shù)據(jù)，需要給他們提供解釋他們的要求的語言。對數(shù)據(jù)庫來說，一個簡單的要求被定義為一個查詢；這樣的一種語言叫做查詢語言。為此目的開發(fā)了許多查詢語言，但它們中只有一個成了最流行的：結(jié)構(gòu)化查詢語言，它是IBM于1970年研制的。

39、1986年SQL成了一個ANSI標準，并于1987年成為ISO標準；目前它廣泛應(yīng)用于數(shù)據(jù)庫管理系統(tǒng)中。</p><p><b>　　SQL核心語句：</b></p><p>　　插入數(shù)據(jù) 向表中添加一個新記錄，你要使用SQL INSERT 語句。</p><p>　　INSERT [INTO] {table_name|view_name}

40、[(column_list)] </p><p>　　{DEFAULT VALUES |Values_list | select_statement}</p><p>　　刪除數(shù)據(jù) 要從表中刪除一個或多個記錄，需要使用SQL DELETE語句。DELETE [FROM] {table_name|view_name} [WHERE clause]</p><p>

41、　　更新記錄 要修改表中存在的一條或多條記錄，使用SQL UPDATE語句。UPDATE {table_name|view_name} SET [{table_name|view_name}]</p><p>　　{column_list|variable_list|variable_and_column_list}</p><p>　　[,{column_list2|variable

42、_list2|variable_and_column_list2</p><p>　　[,{column_listN|variable_listN|variable_and_column_listN}]]</p><p>　　[WHERE clause]用SELECT 創(chuàng)建記錄和表</p><p>　　需要把INSERT 語句與SELECT 語句結(jié)合起來。<

43、/p><p>　　在本系統(tǒng)中，對數(shù)據(jù)庫的操作使用了ADO對象。ADO的含義和特點如下：</p><p>　　Microsoft ActiveX Data Objects (ADO) 使您的客戶端應(yīng)用程序能夠通過 OLE DB 提供者訪問和操作在數(shù)據(jù)庫服務(wù)器中的數(shù)據(jù)。ADO 支持用于建立基于客戶端/服務(wù)器和 Web 的應(yīng)用程序的主要功能。其主要優(yōu)點是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少

44、。ADO 同時具有遠程數(shù)據(jù)服務(wù) (RDS) 功能，通過 RDS 可以在一次往返過程中實現(xiàn)將數(shù)據(jù)從服務(wù)器移動到客戶端應(yīng)用程序或 Web 頁、在客戶端對數(shù)據(jù)進行處理然后將更新結(jié)果返回服務(wù)器的操作。</p><p>　　ADO 提供執(zhí)行以下操作的方式： </p><p>　　(1)連接到數(shù)據(jù)源。同時，可確定對數(shù)據(jù)源的所有更改是否已成功或沒有發(fā)生。</p><p>　　(2

45、)指定訪問數(shù)據(jù)源的命令，同時可帶變量參數(shù)，或優(yōu)化執(zhí)行。</p><p><b>　　(3)執(zhí)行命令。</b></p><p>　　(4)如果這個命令使數(shù)據(jù)按表中的行的形式返回，則將這些行存儲在易于檢查、操作或更改的緩存中。</p><p>　　(5)適當情況下，可使用緩存行的更改內(nèi)容來更新數(shù)據(jù)源。</p><p>　　(

46、6)提供常規(guī)方法檢測錯誤（通常由建立連接或執(zhí)行命令造成）。 </p><p>　　在典型情況下，需要在編程模型中采用所有這些步驟。但是，由于 ADO 有很強的靈活性，所以最后只需執(zhí)行部分模塊就能做一些有用的工作。例如：將數(shù)據(jù)從文件直接存儲到緩存行，然后僅用 ADO 資源對數(shù)據(jù)進行檢查。</p><p>　　以下元素是 ADO 編程模型中的關(guān)鍵部分： ● 連接  通過“連接”可

47、從應(yīng)用程序訪問數(shù)據(jù)源，連接是交換數(shù)據(jù)所必需的環(huán)境。通過如 Microsoft® Internet Information Server 作為媒介，應(yīng)用程序可直接（有時稱為雙層系統(tǒng)）或間接（有時稱為三層系統(tǒng)）訪問數(shù)據(jù)源。對象模型使用 Connection 對象使連接概念得以具體化。Connection 對象用于指定專門的提供者和任意參數(shù)。</p><p><b>　　● 命令</b>

48、</p><p>　　通過已建立的連接發(fā)出的“命令”可以某種方式來操作數(shù)據(jù)源。一般情況下，命令可以在數(shù)據(jù)源中添加、刪除或更新數(shù)據(jù)，或者在表中以行的格式檢索數(shù)據(jù)。對象模型用 Command 對象來體現(xiàn)命令概念。Command 對象使 ADO 能夠優(yōu)化對命令的執(zhí)行。</p><p><b>　　● 參數(shù)</b></p><p>　　通常，命令需要的

49、變量部分即“參數(shù)”可以在命令發(fā)布之前進行更改。例如，可重復(fù)發(fā)出相同的數(shù)據(jù)檢索命令，但每一次均可更改指定的檢索信息。參數(shù)對執(zhí)行其行為類似函數(shù)的命令非常有用，這樣就可知道命令是做什么的，但不必知道它如何工作。例如，可發(fā)出一項銀行過戶命令，從一方借出貸給另一方。可將要過戶的款額設(shè)置為參數(shù)。對象模型用 Parameter 對象來體現(xiàn)參數(shù)概念。</p><p><b>　　● 記錄集</b></

50、p><p>　　如果命令是在表中按信息行返回數(shù)據(jù)的查詢（行返回查詢），則這些行將會存儲在本地。</p><p>　　對象模型將該存儲體現(xiàn)為 Recordset 對象。但是，不存在僅代表單獨一個 Recordset 行的對象。記錄集是在行中檢查和修改數(shù)據(jù)最主要的方法。 </p><p><b>　　● 字段</b></p><p&

51、gt;　　一個記錄集行包含一個或多個“字段”。如果將記錄集看作二維網(wǎng)格，字段將排列構(gòu)成“列”。每一字段（列）都分別包含有名稱、數(shù)據(jù)類型和值的屬性，正是在該值中包含了來自數(shù)據(jù)源的真實數(shù)據(jù)。對象模型以 Field 對象體現(xiàn)字段。要修改數(shù)據(jù)源中的數(shù)據(jù)，可在記錄集行中修改 Field 對象的值，對記錄集的更改最終被傳送給數(shù)據(jù)源。</p><p><b>　　● 錯誤</b></p>&

52、lt;p>　　錯誤隨時可在應(yīng)用程序中發(fā)生，通常是由于無法建立連接、執(zhí)行命令或?qū)δ承顟B(tài)（例如，試圖使用沒有初始化的記錄集）的對象進行操作。對象模型以 Error 對象體現(xiàn)錯誤。</p><p><b>　　● 屬性</b></p><p>　　每個 ADO 對象都有一組唯一的“屬性”來描述或控制對象的行為。屬性有兩種類型：內(nèi)置和動態(tài)。內(nèi)置屬性是 ADO 對象的一

53、部分并且隨時可用。動態(tài)屬性則由特別的數(shù)據(jù)提供者添加到 ADO 對象的屬性集合中，僅在提供者被使用時才能存在。對象模型以 Property 對象體現(xiàn)屬性。</p><p><b>　　● 集合</b></p><p>　　ADO 提供“集合”，這是一種可方便地包含其他特殊類型對象的對象類型。使用集合方法可按名稱（文本字符串）或序號（整型數(shù)）對集合中的對象進行檢索。<

54、;/p><p><b>　　● 事件 </b></p><p>　　“事件”是對將要發(fā)生或已經(jīng)發(fā)生的某些操作的通知。一般情況下，可用事件高效地編寫包含幾個異步任務(wù)的應(yīng)用程序。對象模型無法顯式體現(xiàn)事件，只能在調(diào)用事件處理程序例程時表現(xiàn)出來。ADO 的目標是訪問、編輯和更新數(shù)據(jù)源，而編程模型體現(xiàn)了為完成該目標所必需的系列動作的順序。ADO 提供類和對象以完成以下活動： <

55、;/p><p>　　● 連接到數(shù)據(jù)源 (Connection)，并可選擇開始一個事務(wù)。</p><p>　　● 可選擇創(chuàng)建對象來表示 SQL 命令 (Command)。</p><p>　　● 可選擇在 SQL 命令中指定列、表和值作為變量參數(shù) (Parameter)。</p><p>　　● 執(zhí)行命令 (Command、Connection 或

56、 Recordset)。</p><p>　　● 如果命令按行返回，則將行存儲在緩存中 (Recordset)。</p><p>　　● 可選擇創(chuàng)建緩存視圖，以便能對數(shù)據(jù)進行排序、篩選和定位 (Recordset)。</p><p>　　● 通過添加、刪除或更改行和列編輯數(shù)據(jù) (Recordset)。</p><p>　　● 在適當情況下，使

57、用緩存中的更改內(nèi)容來更新數(shù)據(jù)源 (Recordset)。</p><p>　　● 如果使用了事務(wù)，則可以接受或拒絕在完成事務(wù)期間所作的更改。結(jié)束事務(wù) (Connection)。 </p><p>　　3.2.2 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計</p><p>　　第四章 稅務(wù)票據(jù)分析系統(tǒng)實現(xiàn)</p><p>　　4.1 創(chuàng)建工程項目</p>

58、<p>　　4.2 創(chuàng)建稅務(wù)票據(jù)分析系統(tǒng)的主窗體</p><p>　　4.3 創(chuàng)建主窗體菜單</p><p>　　Option Explicit</p><p>　　Public CurrentItemNumber As Integer</p><p>　　Private Sub Command1_Click()</p

59、><p>　　Load fpfx_sjdr_skj1</p><p>　　fpfx_sjdr_skj1.Show</p><p>　　frmMain.Enabled = False</p><p><b>　　End Sub</b></p><p><b>　　'納稅人資料建立<

60、;/b></p><p>　　Private Sub nsrzl_Click()</p><p>　　fpfx_xtgl_ns.Show</p><p>　　frmMain.Enabled = False</p><p><b>　　End Sub</b></p><p>　　'在信

61、息列表顯示樹的工作界面</p><p>　　Private Sub trvDept_NodeClick(ByVal Node As MSComctlLib.Node)</p><p>　　On Error GoTo ErrorHandler</p><p>　　Dim Item As ListItem</p><p>　　Dim Dept A

62、s String, StrSQL As String</p><p>　　Dim icon As Integer, i As Long</p><p>　　SBar.Panels(1).Text = "現(xiàn)在的工作：" & trvDept.SelectedItem.Text</p><p>　　'節(jié)點不能是根節(jié)點及其一級子節(jié)點<

63、;/p><p>　　If trvDept.SelectedItem.Index = 1 Then</p><p>　　Load fpfx_xtgl_ns</p><p>　　fpfx_xtgl_ns.Show</p><p>　　frmMain.Enabled = False</p><p><b>　　End

64、If</b></p><p>　　If trvDept.SelectedItem.Index = 2 Then</p><p>　　Load fpfx_xtgl_bm</p><p>　　fpfx_xtgl_bm.Show</p><p>　　frmMain.Enabled = False</p><p>

65、<b>　　End If</b></p><p>　　If trvDept.SelectedItem.Index = 3Then</p><p>　　Load fpfx_xtgl_zgy</p><p>　　fpfx_xtgl_zgy.Show</p><p>　　frmMain.Enabled = False</

66、p><p><b>　　End If</b></p><p><b>　　Exit Sub</b></p><p>　　'主界面加載時初始化界面</p><p>　　Private Sub Form_Load()</p><p>　　Dim i As Long</p

67、><p>　　On Error Resume Next</p><p><b>　　'設(shè)置部門樹</b></p><p>　　trvDeptInit</p><p><b>　　End Sub</b></p><p><b>　　'為部門樹添加節(jié)點<

68、;/b></p><p>　　Private Sub trvDeptInit()</p><p>　　Dim i As Long</p><p>　　Dim Sys As Node, Inbox As Node, Inbox1 As Node, Dept As Node, Outbox As Node</p><p>　　Dim Inb

69、ox2 As Node, Inbox3 As Node, Inbox4 As Node, Inbox5 As Node, Inbox6 As Node, Inbox7 As Node</p><p>　　Dim Inbox8 As Node</p><p>　　trvDept.Nodes.Clear</p><p><b>　　'添加根節(jié)點<

70、/b></p><p>　　Set Sys = trvDept.Nodes.Add(, , , " 系統(tǒng) + 作業(yè)列表", 1)</p><p><b>　　'展開根節(jié)點</b></p><p>　　Sys.Expanded = True</p><p>　　'展開Inbox節(jié)

71、點</p><p>　　' Inbox1.Expanded = True</p><p>　　'添加Inbox1的子節(jié)點</p><p>　　Set Dept = trvDept.Nodes.Add(Inbox1, tvwChild, , "月份票據(jù)清理", 3)</p><p>　　Set Dept =

72、trvDept.Nodes.Add(Inbox1, tvwChild, , "年底票據(jù)清理", 3)</p><p>　　Set Dept = trvDept.Nodes.Add(Inbox1, tvwChild, , "納稅人資料導(dǎo)入", 3)</p><p>　　Set Dept = trvDept.Nodes.Add(Inbox1, tvwCh

73、ild, , "納稅人資料維護", 3)</p><p>　　'添加Inbox2的子節(jié)點</p><p>　　Set Dept = trvDept.Nodes.Add(Inbox2, tvwChild, , "認證普通票據(jù)導(dǎo)入", 3)</p><p>　　Set Dept = trvDept.Nodes.Add(In

74、box2, tvwChild, , "認證專用票據(jù)導(dǎo)入", 3)</p><p>　　Set Dept = trvDept.Nodes.Add(Inbox2, tvwChild, , "稅控收款機票據(jù)導(dǎo)入", 3)</p><p>　　Set Dept = trvDept.Nodes.Add(Inbox2, tvwChild, , "企業(yè)開

75、具普通票據(jù)導(dǎo)入", 3)</p><p>　　Set Dept = trvDept.Nodes.Add(Inbox2, tvwChild, , "企業(yè)開具專用票據(jù)導(dǎo)入", 3)</p><p>　　'Private Sub Tmr_Timer()</p><p>　　'' SBar.Panels(3).Text

76、 = Format(Now, "yyyy年m月d日 hh:mm:ss")</p><p><b>　　'End Sub</b></p><p>　　'文本框被激活時，選定所有文本</p><p>　　Private Sub txt_GotFocus(Index As Integer)</p>&

77、lt;p><b>　　End Sub</b></p><p>　　Private Sub mnuExit_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　4.4 創(chuàng)建系統(tǒng)基礎(chǔ)

78、信息模塊</p><p><b>　　部門信息建立</b></p><p>　　Dim nsrqy_bh As Integer '定義一個整型變量</p><p>　　Dim nsrqy_xz, nsrqy_gg, nsrqy_cx, nsrqy_dw As String</p><p>　　Dim rs1 A

79、s New ADODB.Recordset</p><p>　　Dim rs2 As New ADODB.Recordset</p><p>　　Private Sub save()</p><p>　　On Error Resume Next</p><p>　　Dim StrSQL, a As String</p><

80、p>　　Set rs2 = New Recordset</p><p>　　StrSQL = "insert into fpfx_bm (BM_BH,BM_MC) values ('" & Trim(Text1(0)) & "','" & Trim(Text1(1)) & "') "&

81、lt;/p><p>　　rs2.Open StrSQL, Ado, adOpenStatic, adLockReadOnly</p><p>　　nsrqy_xz = "0"</p><p>　　Text1(1).Enabled = False</p><p>　　a1 = MsgBox("管理科信息保存成功！&qu

82、ot;, vbOKOnly + vbInformation)</p><p><b>　　cxun</b></p><p><b>　　End Sub</b></p><p>　　Private Sub update()</p><p>　　On Error Resume Next</p>

83、;<p>　　Dim StrSQL, a As String</p><p>　　Set rs2 = New Recordset</p><p>　　StrSQL = "update fpfx_bm set BM_MC='" & Trim(Text1(1)) & "'where BM_BH='"

84、& Trim(Text1(0)) & "'"</p><p>　　rs2.Open StrSQL, Ado, adOpenStatic, adLockReadOnly</p><p><b>　　區(qū)域信息建立</b></p><p>　　Dim nsrqy_bh As Integer '定義

85、一個整型變量</p><p>　　Dim nsrqy_xz, nsrqy_gg, nsrqy_cx, nsrqy_dw As String</p><p>　　Dim rs1 As New ADODB.Recordset</p><p>　　Dim rs2 As New ADODB.Recordset</p><p>　　Private Su

86、b save()</p><p>　　On Error Resume Next</p><p>　　Dim StrSQL, a As String</p><p>　　Set rs2 = New Recordset</p><p>　　StrSQL = "insert into fpfx_qy (QY_BH,QY_MC,QY_BM)

87、 values " & _</p><p>　　"('" & Trim(Text1(0).Text) & "','" & Trim(Text1(1).Text) & "' ," & _</p><p>　　"'"

88、& Trim(Combo1.Text) & "') "</p><p>　　rs2.Open StrSQL, Ado, adOpenStatic, adLockReadOnly</p><p>　　nsrqy_xz = "0"</p><p>　　Text1(1).Enabled = False<

89、/p><p>　　a1 = MsgBox("區(qū)域信息保存成功！", vbOKOnly + vbInformation)</p><p><b>　　cxun</b></p><p><b>　　End Sub</b></p><p>　　Private Sub update()<

90、;/p><p>　　On Error Resume Next</p><p>　　Dim StrSQL, a As String</p><p>　　Set rs2 = New Recordset</p><p>　　StrSQL = "update fpfx_qy set QY_MC='" & Trim(Te

91、xt1(1).Text) & "'," & _</p><p>　　"QY_BM='" & Trim(Combo1.Text) & "'where QY_BH='" & Trim(Text1(0).Text) & "'"</p>&l

92、t;p><b>　　納稅人信息建立</b></p><p>　　Option Explicit</p><p>　　Dim AdoCon As New ADODB.Connection</p><p>　　Dim Rsado As New ADODB.Recordset</p><p>　　Dim sql As S

93、tring</p><p>　　Dim kjzt_xz, kjzt_gg, kjzt_dw, kjzt_cx As String</p><p>　　Dim i, i1 As Integer</p><p>　　Private Sub Check1_Click()</p><p>　　If Check1.Value = 1 Then</

94、p><p>　　Combo2.Clear</p><p>　　Ado1.ConnectionString = Ado</p><p>　　Ado1.RecordSource = "Select * From fpfx_qy "</p><p>　　Ado1.Refresh</p><p>　　If Ad

95、o1.Recordset.RecordCount > 0 Then</p><p>　　If Ado1.Recordset.BOF = False Then Ado1.Recordset.MoveFirst</p><p>　　For i = 0 To Ado1.Recordset.RecordCount - 1</p><p>　　Combo2.AddIte

96、m (Trim(Ado1.Recordset.Fields("qy_mc")))</p><p>　　Ado1.Recordset.MoveNext</p><p><b>　　Next i</b></p><p>　　Combo2.ListIndex = 0</p><p><b>　　E

97、nd if</b></p><p><b>　　操作員信息建立</b></p><p>　　Dim czyzl_bh, ii As Integer '定義一個整型變量</p><p>　　Dim czyzl_xz, czyzl_gg, czyzl_cx, czyzl_dw, czy_dw As String</p&g

98、t;<p>　　Dim rs1 As New ADODB.Recordset</p><p>　　Dim rs2 As New ADODB.Recordset</p><p>　　Private Sub save()</p><p>　　On Error Resume Next</p><p>　　Dim StrSQL, a A

99、s String</p><p>　　Set rs2 = New Recordset</p><p>　　StrSQL = "insert into fpfx_czy (CZY_BH,CZY_CZY,CZY_MM) values ('" & Trim(Text1(0)) & "','" & Trim(T

100、ext1(1)) & "','" & Trim(Text1(2)) & "') "</p><p>　　rs2.Open StrSQL, Ado, adOpenStatic, adLockReadOnly</p><p>　　czyzl_xz = "0"</p><

101、;p>　　Text1(1).Enabled = False: Text1(2).Enabled = False</p><p>　　a1 = MsgBox("操作員信息保存成功！", vbOKOnly + vbInformation)</p><p><b>　　cxun</b></p><p><b>　　

102、End Sub</b></p><p>　　Private Sub update()</p><p>　　Dim StrSQL, a As String</p><p>　　On Error Resume Next</p><p>　　Set rs2 = New Recordset</p><p>　　St

103、rSQL = "update fpfx_czy set CZY_CZY='" & Trim(Text1(1)) & "'," & _</p><p>　　"CZY_MM='" & Trim(Text1(2)) & "' where CZY_BH='" &a

104、mp; Trim(Text1(0)) & "'"</p><p>　　rs2.Open StrSQL, Ado, adOpenStatic, adLockReadOnly</p><p>　　czyzl_gg = "0"</p><p>　　4.5 創(chuàng)建系統(tǒng)數(shù)據(jù)導(dǎo)入模塊</p><p>

105、;<b>　　納稅人資料導(dǎo)入</b></p><p>　　Option Explicit</p><p>　　Dim rq1, kzdr, nsrqy_bh, sql As String</p><p>　　Dim rs3 As New ADODB.Recordset</p><p>　　Dim rs4 As New A

106、DODB.Recordset</p><p>　　Dim Rs As New ADODB.Recordset</p><p>　　Dim rs1 As New ADODB.Recordset</p><p>　　Dim cnn As New ADODB.Connection</p><p>　　Dim s1, s2 As String<

107、/p><p>　　Dim hh, i As Integer</p><p>　　Private Function BHA(ByVal sql_bh As String) As String</p><p>　　Dim max As String</p><p>　　Ado4.ConnectionString = Ado</p>&l

108、t;p>　　Ado4.RecordSource = sql_bh</p><p>　　Ado4.Refresh</p><p>　　If Ado4.Recordset.RecordCount > 0 Then</p><p>　　If Ado4.Recordset.EOF = False Then</p><p>　　Ado4.R

109、ecordset.MoveLast</p><p>　　max = Ado4.Recordset.Fields(0)</p><p><b>　　End If</b></p><p><b>　　認證普通票據(jù)導(dǎo)入</b></p><p>　　Dim rq1, kzdr, nsrqy_bh, sql

110、As String</p><p>　　Dim rs3 As New ADODB.Recordset</p><p>　　Dim rs4 As New ADODB.Recordset</p><p>　　Dim Rs As New ADODB.Recordset</p><p>　　Dim rs1 As New ADODB.Recordset

111、</p><p>　　Dim cnn As New ADODB.Connection</p><p>　　Dim s1, s2 As String</p><p>　　Dim hh, i As Integer</p><p>　　Private Function Drdw(ByVal Ln As String, Date_dr As Stri

112、ng) As Boolean '----------判斷要導(dǎo)入的單位的該月的數(shù)據(jù)是否存在</p><p>　　Drdw = False</p><p>　　Dim rq, rq1 As String</p><p>　　Dim n_dr, n_wz As Integer</p><p>　　Dim str_sj, str_rq, st

113、r_dw As String</p><p>　　Dim length As Integer</p><p>　　Dim Rs_dr As New ADODB.Recordset</p><p>　　If Val(Month(Date_dr)) < 10 Then</p><p>　　rq1 = "0" + Trim

114、(Month(Date_dr))</p><p><b>　　Else</b></p><p>　　rq1 = Trim(Month(Date_dr))</p><p><b>　　End If</b></p><p>　　rq = Trim(Year(Date_dr)) + rq1</p&g

115、t;<p><b>　　n_dr = 0</b></p><p>　　If Ln <> "" Then</p><p>　　Open Ln For Input As 1</p><p>　　While Not EOF(1)</p><p>　　Line Input #1, s

116、tr_sj</p><p>　　n_dr = n_dr + 1</p><p>　　If n_dr = 5 Then</p><p>　　n_wz = InStrRev(str_sj, "~~", Len(str_sj), vbTextCompare) + 1</p><p>　　str_rq = Right(str_sj

117、, Len(str_sj) - n_wz)</p><p>　　n_wz = n_wz - 2</p><p>　　str_sj = Left(str_sj, n_wz)</p><p>　　n_wz = InStrRev(str_sj, "~~", Len(str_sj), vbTextCompare) + 1</p><p

118、>　　str_dw = Right(str_sj, Len(str_sj) - n_wz)</p><p>　　Textdw.Text = str_dw</p><p>　　Rs_dr.Open "select * from fpfx_rpdr where rpdr_nf='" & Year(Date_dr) & "'

119、and rpdr_YF='" & Month(Date_dr) & "' and rpdr_DW='" & Trim(str_dw) & "'", Ado, adOpenKeyset, adLockOptimistic</p><p>　　If Not Rs_dr.BOF Then</p>

120、<p>　　If MsgBox(Year(Date_dr) & "年" & Month(Date_dr) & "月" & " " & str_dw & "的數(shù)據(jù)已導(dǎo)入,是否要覆蓋", vbYesNo) = vbYes Then</p><p>　　Set cnn = Ne

121、w ADODB.Connection</p><p>　　cnn.Open Ado</p><p>　　sql = "delete from fpfx_rzpx where rzpx_ny='" & Trim(rq) & "'"</p><p>　　cnn.Execute sql</p&g

122、t;<p>　　sql = "delete from fpfx_rpdr where rpdr_NF='" & Trim(Year(DTP1.Value)) & "'AND rpdr_YF='" & Trim(Month(DTP1.Value)) & "'"</p><p>