畢業(yè)設(shè)計(jì)（論文）VB6.0對(duì)外貿(mào)易公司退稅管理系統(tǒng)

1、 編號(hào) 題目 對(duì)外貿(mào)易公司退稅管理系統(tǒng) 摘 要數(shù)據(jù)庫(kù)對(duì)于每一個(gè)人可能都不陌生，在現(xiàn)代社會(huì)它的應(yīng)用范圍越來(lái)越廣，在各個(gè)領(lǐng)域都可以看到數(shù)據(jù)庫(kù)的應(yīng)用。數(shù)據(jù)庫(kù)技術(shù)在計(jì)算機(jī)中的應(yīng)用大大提高了人們的工作效率。我的畢業(yè)設(shè)計(jì)論文的題目就是“退稅管理系統(tǒng)”。這是一個(gè)操作、管理數(shù)據(jù)庫(kù)的例子，通過(guò)這個(gè)例子來(lái)介紹數(shù)據(jù)庫(kù)在工作中的具體應(yīng)用。關(guān)鍵字 數(shù)據(jù)庫(kù) 退稅管理系統(tǒng) abstract maybe database is not strange to everybody. in present-day society it is used wide and wide and you can see its applic

2、ation in various domains. the applications of the database technology used in computer greatly improve the work efficiency of the people. the subject of my graduate project is “ management system”. this is an example which operating and managing the database and we use this example to introduce the

3、detailed application of the database in the work.keywords: database management system1.visualbasic6.0編程軟件介紹及數(shù)據(jù)庫(kù)概述.42.visualbasic6.0訪問數(shù)據(jù)庫(kù)的四種方法比較.63.ado使用方法及其編程概述.94.退稅管理系統(tǒng)的實(shí)現(xiàn).144.1系統(tǒng)各模塊及其功能.144.2各功能模塊流程圖或聯(lián)系圖.154.3 軟件所用access數(shù)據(jù)庫(kù)zlgl.mdb的制作.16新建數(shù)據(jù)庫(kù)及字段.164.4數(shù)據(jù)庫(kù)操作界面中的基本功能介紹.18 4.5系統(tǒng)中部分核心代碼及難點(diǎn)代碼的解釋.21 4.6

4、軟件設(shè)計(jì)中遇到的問題及解決辦法. 4.7性能測(cè)試與分析.275.總結(jié).31致謝.參考文獻(xiàn).321. visual basic編程軟件介紹及數(shù)據(jù)庫(kù)概述visual basic是由微軟公司推出的一套完整的windows系統(tǒng)軟件開發(fā)工具，可用于開發(fā)windows環(huán)境下的各類應(yīng)用程序，是一種可視化、真正面向?qū)ο?、采用事件?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言和工具的完美集成。它編程簡(jiǎn)單、方便、功能強(qiáng)大，具有與其它語(yǔ)言及環(huán)境的良好接口，不需要編程開發(fā)人員具備c/c+或者turbo pascal 語(yǔ)言知識(shí)和特別高深的專業(yè)知識(shí)，只要懂得windows的界面及其基本操作，就可以迅速上手，而vb在程序界面設(shè)計(jì)、多媒體

5、開發(fā)方面更是獨(dú)具優(yōu)勢(shì)。自1991年visual basic1.0推出以來(lái)，visual basic版本不斷得到更新，功能不斷得到增強(qiáng)，現(xiàn)在的最新版本是visual basic 6.0。為了滿足不同的開發(fā)需要，visual basic 6.0本身又分為學(xué)習(xí)版、專業(yè)版。visual basic 6.0對(duì)已有功能進(jìn)行完善，同時(shí)增加了許多新的功能。新的數(shù)據(jù)訪問特性在數(shù)據(jù)訪問技術(shù)方面visual basic 6.0比起visual basic 5.0有了極大的增強(qiáng):新的數(shù)據(jù)訪問接口ado:visual basic 6.0 支持的數(shù)據(jù)訪問接口有ado(activex數(shù)據(jù)對(duì)象)、rdo(遠(yuǎn)程數(shù)據(jù)對(duì)象)和da

6、o(數(shù)據(jù)訪問對(duì)象)，每個(gè)接口都代表了數(shù)據(jù)訪問技術(shù)的不同發(fā)展階段，最新的接口是ado。ado是比rdo和dao更加簡(jiǎn)單、更加靈活的對(duì)象模型，它是為ole db而設(shè)計(jì)的。olddb是新的低層com接口，可以為任何數(shù)據(jù)源提供高性能的訪問。這些數(shù)據(jù)源包括關(guān)系和非關(guān)系數(shù)據(jù)庫(kù)、電子郵件和文件系統(tǒng)、文本和圖形、自定義業(yè)務(wù)對(duì)象等。ado封裝并實(shí)現(xiàn)了olddb的所有功能，它將全面取代dao和rdo，成為數(shù)據(jù)訪問接口的主流。新的數(shù)據(jù)源：除了已有的data和remote data控件外，visual basic 6.0引入了幾種新的數(shù)據(jù)源，包括數(shù)據(jù)識(shí)別的類模塊和用戶控件、數(shù)據(jù)環(huán)境、ado記錄集和adodata控件等

7、。adodata控件的功能與data和remote data控件十分相似，都允許編程人員用最少的代碼來(lái)創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用程序。新的數(shù)據(jù)庫(kù)綁定控件：visual basic 6.0新增加了為數(shù)不少的數(shù)據(jù)綁定控件，包括datagrid, datalist, datacombo, hierarchical flexgrid和datarepeater等。集成的可視化數(shù)據(jù)庫(kù)工具：包括查詢?cè)O(shè)計(jì)器和數(shù)據(jù)庫(kù)設(shè)計(jì)器，提供了可視地查看并操作表、視圖、存儲(chǔ)過(guò)程和數(shù)據(jù)庫(kù)結(jié)構(gòu)的功能。數(shù)據(jù)環(huán)境設(shè)計(jì)器：允許編程人員可視化地創(chuàng)建和操作ado對(duì)象，為編程人員操縱數(shù)據(jù)源提供了極大的方便。數(shù)據(jù)報(bào)表設(shè)計(jì)器：允許編程人員利用拖放技術(shù)來(lái)快速

8、地從任何記錄集創(chuàng)建報(bào)表。新的internet特性visual basic 6.0提供了多種不同的途徑，來(lái)幫助編程人員開發(fā)出動(dòng)態(tài)的、功能強(qiáng)大的internet應(yīng)用程序：iis應(yīng)用程序：可以直接visual basic 6.0來(lái)創(chuàng)建iis應(yīng)用程序(服務(wù)器端internet應(yīng)用程序)，響應(yīng)瀏覽器用戶的請(qǐng)求。對(duì)下載activex文檔的支持：在internet explorer中下載activex文檔與下載activex控件的方法相同。除了新的數(shù)據(jù)訪問特性和新的internet特性外，visual basic 6.0在其余方面也都做了重大改進(jìn)，包括新的或增強(qiáng)的控件，新的或增強(qiáng)的語(yǔ)言特性，以及新的或增強(qiáng)的

9、向?qū)?。所有這些都使得visual basic 6.0功能更為強(qiáng)大?？傊?，無(wú)論是開發(fā)小型應(yīng)用系統(tǒng)，還是大型企業(yè)應(yīng)用系統(tǒng)，甚至開發(fā)功能強(qiáng)大的internet應(yīng)用程序，visual basic 6.0都能勝任。2. visual basic 6.0訪問數(shù)據(jù)庫(kù)的四種方法比較 visuai basic 6.0的數(shù)據(jù)訪問功能比起visual basic 5.o有了極大的增強(qiáng)。除了支持dao(數(shù)據(jù)訪問對(duì)象)和rdo(遠(yuǎn)程數(shù)據(jù)對(duì)象)外,visual basic 6.0還提供了新的ado和rdo更加簡(jiǎn)單、更加靈活的數(shù)據(jù)訪問接口。此外,visual basic 6.0還提供了新的數(shù)據(jù)源、新的數(shù)據(jù)綁定控件、新的可視

10、化數(shù)據(jù)庫(kù)工具、新的數(shù)據(jù)環(huán)境設(shè)計(jì)器以及新的數(shù)據(jù)報(bào)表設(shè)計(jì)器。2.1.數(shù)據(jù)訪問對(duì)象(dao)控件數(shù)據(jù)訪問對(duì)象(dao)是jet引擎的面向?qū)ο蟮木幊探涌?。jet引擎使最終用戶與正在訪問的特定數(shù)據(jù)庫(kù)無(wú)關(guān)。jet引擎駐留在(動(dòng)態(tài)連接庫(kù))文件中,運(yùn)行時(shí)將應(yīng)用程序的請(qǐng)求翻譯成對(duì)數(shù)據(jù)庫(kù)的物理操作。jet引擎真正讀取、寫入和修改數(shù)據(jù)庫(kù),并處理所有的內(nèi)部的事務(wù)。jet引擎介于用戶界面和數(shù)據(jù)倉(cāng)庫(kù)之間。通過(guò)數(shù)據(jù)訪問對(duì)象和jet引擎可以識(shí)別以下三類數(shù)據(jù)庫(kù):visual basic數(shù)據(jù)庫(kù);外部數(shù)據(jù)庫(kù);odbc數(shù)據(jù)庫(kù)。雖然可以直接使用數(shù)據(jù)訪問對(duì)象來(lái)編程,但data控件作為一個(gè)圖形控件,具有易于使用的界面,它的最大優(yōu)點(diǎn)就是只需

11、少量代碼或根本不用代碼就可以創(chuàng)建應(yīng)用程序來(lái)顯示。2.2運(yùn)程數(shù)據(jù)對(duì)象和remtoe data控件遠(yuǎn)程數(shù)據(jù)訪問對(duì)象是位于odbc api和驅(qū)動(dòng)程序管理器之上的對(duì)象模型,它提供了一系列的對(duì)象來(lái)滿足遠(yuǎn)程數(shù)據(jù)訪問的特殊要求。盡管rdo在訪問jet或isam數(shù)據(jù)庫(kù)時(shí)受到限制,而且只能通過(guò)現(xiàn)存的odbc驅(qū)動(dòng)程序來(lái)訪問關(guān)系數(shù)據(jù)庫(kù)。但rdo能訪問任何的odbc數(shù)據(jù)源,特別適用于智能的數(shù)據(jù)庫(kù)服務(wù)器(如sol server和oracle等)。remote data與data控件基本類似，都提供了對(duì)數(shù)據(jù)庫(kù)的無(wú)縫訪問,用戶不必編寫任何代碼就可以創(chuàng)建數(shù)據(jù)識(shí)別的應(yīng)用程序,區(qū)別在于:remite data控件是通過(guò)使用rdo

12、來(lái)實(shí)現(xiàn)數(shù)據(jù)訪問,而data控件則通過(guò)使用dao來(lái)連接到j(luò)et引擎。2.3.activex數(shù)據(jù)對(duì)象和ado data控件ole db是一種統(tǒng)一的數(shù)據(jù)訪問接口,它能夠訪問各種dbms和非dbms數(shù)據(jù)源。dbms數(shù)據(jù)源包括主機(jī)數(shù)據(jù)庫(kù)(如ims和db2、服務(wù)器數(shù)據(jù)庫(kù)(如oracle和sql sereer)以及桌面數(shù)據(jù)庫(kù)(如(micromft access)；非dbms數(shù)據(jù)源包括存放在windows和unix文件系統(tǒng)中的信息、電子郵件、電子表格、web上的文件或圖形以及目錄服務(wù)等。ole db使得數(shù)據(jù)消費(fèi)者(應(yīng)用程序)可以使用相同的方法訪問各種數(shù)據(jù)，而不用考慮數(shù)據(jù)的具體存儲(chǔ)地點(diǎn)、格式及類型。ado(ac

13、tivex數(shù)據(jù)對(duì)象)是dao、rdo的后繼產(chǎn)物，更簡(jiǎn)單和靈活。它擴(kuò)展了dao和rdo所使用的對(duì)象模型，包含較少的對(duì)象，更多的屬性、方法和事件。ado是為ole db而設(shè)計(jì)的，它封裝并實(shí)現(xiàn)了ole db的所有功能。ado data控件，也就是adodc，是visual basic 6.0新引進(jìn)的數(shù)據(jù)訪問控件,它使用ado來(lái)快速建立數(shù)據(jù)綁定控件和數(shù)據(jù)提供者之間的連接，它使編程者使用最少的代碼來(lái)創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用程序。當(dāng)然，用ado data控件進(jìn)行訪問數(shù)據(jù)時(shí)必須為待訪問的數(shù)據(jù)庫(kù)創(chuàng)建ole db數(shù)據(jù)連接。本畢業(yè)設(shè)計(jì)就是采用這種先進(jìn)的數(shù)據(jù)庫(kù)訪問技術(shù)訪問數(shù)據(jù)庫(kù)的。2.4.數(shù)據(jù)環(huán)境設(shè)計(jì)器和數(shù)據(jù)報(bào)表設(shè)計(jì)器數(shù)據(jù)環(huán)

14、境設(shè)計(jì)器用于在設(shè)計(jì)時(shí)創(chuàng)建ado對(duì)象，它為數(shù)據(jù)庫(kù)訪問提供了一個(gè)交互式環(huán)境。在編程時(shí)，可以使用數(shù)據(jù)環(huán)境設(shè)計(jì)器創(chuàng)建連接、命令和其他ado對(duì)象，使用ado對(duì)象的方法和屬性，執(zhí)行命令和操作記錄集等。在數(shù)據(jù)環(huán)境設(shè)計(jì)器中創(chuàng)建連接和命令對(duì)象之后，數(shù)據(jù)環(huán)境設(shè)計(jì)器在設(shè)計(jì)時(shí)創(chuàng)建了dataenvieonmwnr對(duì)象以及從屬的ado對(duì)象。當(dāng)連接和命令對(duì)象的數(shù)據(jù)源可用時(shí)，可以在程序運(yùn)行時(shí)直接訪問數(shù)據(jù)環(huán)境設(shè)計(jì)器創(chuàng)建的command、connection和recordset對(duì)象，好像這些對(duì)象是直接通過(guò)ado創(chuàng)建的一樣。例如，可以在運(yùn)行時(shí)用代碼將數(shù)據(jù)識(shí)別控件綁定到一個(gè)命令對(duì)象或命令對(duì)象中的字段，也可以在對(duì)象關(guān)閉時(shí)動(dòng)態(tài)地設(shè)置ad

15、o connection和recordset對(duì)象的屬性，并在數(shù)據(jù)綁定前設(shè)置參數(shù)值。microsoft數(shù)據(jù)報(bào)表設(shè)計(jì)器(micromft data report designer)是visual bmic6.0提供的新的報(bào)表設(shè)計(jì)器，和visual basic中已有提供數(shù)據(jù)源的對(duì)象(如數(shù)據(jù)環(huán)境設(shè)計(jì)器)一起使用，通過(guò)鼠標(biāo)的拖放操作，可以方便的創(chuàng)建復(fù)雜的報(bào)表。datareport設(shè)計(jì)器創(chuàng)建的報(bào)表可以直接打印，也可以將報(bào)表導(dǎo)出到html或文本文件中。數(shù)據(jù)庫(kù)最主要的功能是存儲(chǔ)數(shù)據(jù)和提供信息。數(shù)據(jù)報(bào)表的作用就是將數(shù)據(jù)從數(shù)據(jù)庫(kù)中檢索到的數(shù)據(jù)，以用戶自定義的格式打印出來(lái)或是顯示在計(jì)算機(jī)屏幕上。使用報(bào)表可以解決數(shù)據(jù)

16、庫(kù)打印格式的特殊要求，也可以解決大量重復(fù)性的勞動(dòng)。在具體的數(shù)據(jù)庫(kù)應(yīng)用程序中，報(bào)表可以解決各種各樣的實(shí)際問題。例如：當(dāng)建成一個(gè)完整的數(shù)據(jù)庫(kù)系統(tǒng)后，用戶可以通過(guò)sql語(yǔ)句，或事先定義好的查詢來(lái)檢索數(shù)據(jù)庫(kù)中的信息。通過(guò)比較可以發(fā)現(xiàn)：ado（activex data object，activex數(shù)據(jù)對(duì)象）是微軟提出的新標(biāo)準(zhǔn)，它使得客戶端應(yīng)用程序能夠通過(guò)任何oledb提供者來(lái)訪問和操作數(shù)據(jù)庫(kù)服務(wù)器中的數(shù)據(jù)，而不必進(jìn)行odbc配置。ado有兩個(gè)主要優(yōu)點(diǎn)：其一是易于使用、速度快、內(nèi)存支出少和磁盤遺跡小。其二是“遠(yuǎn)程數(shù)據(jù)訪問”，能夠通過(guò)一個(gè)來(lái)回的傳輸將數(shù)據(jù)從服務(wù)器移動(dòng)到客戶端應(yīng)用程序或web中，然后在客戶端對(duì)

17、數(shù)據(jù)進(jìn)行操作，最后將更新數(shù)據(jù)返回服務(wù)器。接著，我們介紹一下ado的使用方法，也就是本畢業(yè)設(shè)計(jì)程序操作數(shù)據(jù)庫(kù)的方法。3. ado使用方法及其編程概述本畢業(yè)設(shè)計(jì)就是用ado操作數(shù)據(jù)庫(kù)zlgl.mdb。因?yàn)関isual basic的面板上沒有ado組件，所以需要手工加入。打開visual basic的“工程”菜單項(xiàng)，并打開“部件”項(xiàng)，然后在跳出“部件”頁(yè)中選中“microsoft ado data control 6.0(oledb)，然后按“確定”按鈕將其加入到面板中。如下圖所示：在空白窗體上放置一個(gè)adodc組件，一個(gè)datagrid組件，一個(gè)text組件。先設(shè)定一下部分組件屬性如下：設(shè)定dat

18、agrid1組件的datasource屬性為adodc1，設(shè)定text1組件的datasource屬性為adodc1，并設(shè)置其datafield屬性為adodc1所連數(shù)據(jù)庫(kù)中某一表中的某一字段的字段名。雙擊adodc1的connectionstring屬性打開連接字符串設(shè)定窗口如下圖： 系統(tǒng)顯示“屬性頁(yè)”對(duì)話框。其中的三個(gè)單選框提供了創(chuàng)建數(shù)據(jù)源的三種方式：第一個(gè)單選框創(chuàng)建一個(gè)oledb文件；第二個(gè)單選框創(chuàng)建odbc數(shù)據(jù)源名稱(dsn)文件；第三個(gè)單選框建立oledb連接字符串。我們單擊第三個(gè)單選框，并點(diǎn)擊“生成”按鈕，將打開“數(shù)據(jù)連接屬性”窗口如下圖，其中有四個(gè)頁(yè)面，在第一個(gè)“提供者”頁(yè)面中，

19、列出了可以使用的各種驅(qū)動(dòng)數(shù)據(jù)庫(kù)驅(qū)動(dòng)。我們選擇microsoft jet 4.0 ole db provider驅(qū)動(dòng)。如下圖所示: 選擇完畢數(shù)據(jù)庫(kù)驅(qū)動(dòng)后，點(diǎn)擊“連接”頁(yè)面，圖如下：在這里輸入或選擇數(shù)據(jù)庫(kù)，這里我們查找并選擇數(shù)據(jù)庫(kù)為“c:hbjzlgl.mdb”，如果數(shù)據(jù)庫(kù)有密碼可將“空白密碼”復(fù)選框去掉選擇，就可以輸入密碼，選中“允許保存密碼”這樣以后就可以無(wú)需再輸入密碼了。接下來(lái)可以點(diǎn)擊“測(cè)試連接”按鈕，如果提示“測(cè)試連接成功”那么說(shuō)明數(shù)據(jù)庫(kù)可正常連接上。在“高級(jí)”頁(yè)面中選擇訪問權(quán)限為“readwrite”。在“所有”頁(yè)面中顯示的是用戶目前設(shè)定的連接屬性，用戶可以再修改。點(diǎn)擊“確定”按鈕后返回

20、到上圖,這時(shí)可以看到屬性設(shè)定字符串已經(jīng)自動(dòng)生成，點(diǎn)擊“ok”按鈕返回即可。接著設(shè)定adodc1組件的recordsource屬性，單擊recordsource將會(huì)跳出一個(gè)記錄來(lái)源設(shè)置對(duì)話框，如下圖所示： 在“命令類型”中，選中“2-adcmdtable”。在“表或存儲(chǔ)過(guò)程名稱”的下拉框中，選中要連接的數(shù)據(jù)庫(kù)中的某一個(gè)表的名稱。如上圖，就是本程序的選擇之一。下面列出ado控件連接設(shè)置表：連接屬性ado控件屬性說(shuō)明connectionstring包含了用于與數(shù)據(jù)源建立連接的相關(guān)信息（ado控件沒有databasename屬性）。recordsource確定具體可訪問的數(shù)據(jù)，這些數(shù)據(jù)構(gòu)成記錄集對(duì)象r

21、ecordset。4.退稅管理系統(tǒng)的實(shí)現(xiàn)4.1系統(tǒng)各模塊及其功能1.登錄模塊： 功能是為了軟件和數(shù)據(jù)庫(kù)的安全，防止非法用戶入侵系統(tǒng)。(對(duì)應(yīng)窗體frmlogin)2.用戶管理模塊：可以隨時(shí)修改登錄用戶名和密碼，并可以添加、刪除和修改登錄用戶信息。(對(duì)應(yīng)窗體form9)3.出口貨物退稅申報(bào)數(shù)據(jù)錄入系統(tǒng)模塊：功能是對(duì)數(shù)據(jù)庫(kù)中“出口貨物退稅申報(bào)數(shù)據(jù)”表中數(shù)據(jù)的增加、刪除、修改。(對(duì)應(yīng)窗體form2)4.出口貨物免稅申報(bào)數(shù)據(jù)錄入系統(tǒng)模塊：功能是對(duì)數(shù)據(jù)庫(kù)中“出口貨物免稅申報(bào)數(shù)據(jù)”表中數(shù)據(jù)的增加、刪除、修改。(對(duì)應(yīng)窗體form3)5.進(jìn)料加工復(fù)出口貿(mào)易免稅數(shù)據(jù)錄入系統(tǒng)模塊：功能是對(duì)數(shù)據(jù)庫(kù)中“進(jìn)料加工復(fù)出口貿(mào)

22、易免稅數(shù)據(jù)錄入系統(tǒng)”表中數(shù)據(jù)的增加、刪除、修改。(對(duì)應(yīng)窗體form4)6.數(shù)據(jù)查詢模塊：功能是對(duì)各個(gè)表中數(shù)據(jù)庫(kù)進(jìn)行查詢后得出的查詢結(jié)果存放的窗體。(對(duì)應(yīng)窗體form8)7.整體界面模塊：功能是在同一大的表格顯示所有的數(shù)據(jù)。與3、4、5模塊相對(duì)應(yīng)。3、4、5模塊一次只是顯示一條記錄的所有數(shù)據(jù)。7模塊是顯示所有記錄的所有數(shù)據(jù)。這樣看起來(lái)更直觀一點(diǎn)。(對(duì)應(yīng)窗體form6)8.主菜單模塊：主要是在登錄模塊輸入正確的用戶名和密碼后，進(jìn)入的主界面模塊，功能主要是：為軟件提供一個(gè)軟件界面，同時(shí)為訪問其他模塊提供一個(gè)操作平臺(tái)。(對(duì)應(yīng)窗體form1)9.關(guān)于模塊：功能主要是顯示軟件名稱、軟件作者、軟件版本等，同

23、時(shí)還有顯示操作系統(tǒng)版本信息的功能。(對(duì)應(yīng)窗體frmabout)10.報(bào)表生成與打印模塊：功能是提供數(shù)據(jù)庫(kù)中所有信息(包括出口貨物退稅申報(bào)數(shù)據(jù)、出口貨物免稅申報(bào)數(shù)據(jù)、進(jìn)料加工復(fù)出口貿(mào)易免稅數(shù)據(jù))的報(bào)表生成與打印。(對(duì)應(yīng)窗體form10)4.2各功能模塊聯(lián)系圖或流程圖主窗體模塊登錄模塊進(jìn)料加工復(fù)出口貿(mào)易免稅數(shù)據(jù)錄入模塊用戶管理模塊主菜單模塊出口貨物免稅申報(bào)數(shù)據(jù)錄入模塊數(shù)據(jù)查詢模塊整體界面瀏覽模塊關(guān)于模塊出口貨物退稅申報(bào)數(shù)據(jù)錄入模塊報(bào)表打印模塊4.3 軟件所用access數(shù)據(jù)庫(kù)zlgl.mdb的制作新建數(shù)據(jù)庫(kù)及字段運(yùn)行microsoft公司的office2000辦公軟件中的access數(shù)據(jù)庫(kù)軟件。1

24、點(diǎn)擊菜單“文件”，在出現(xiàn)的菜單項(xiàng)中選擇“新建”菜單項(xiàng)。2然后點(diǎn)擊“空數(shù)據(jù)庫(kù)”，在彈出的“文件新建數(shù)據(jù)庫(kù)”對(duì)話框中鍵入數(shù)據(jù)庫(kù)的名稱，本軟件中應(yīng)寫入zlgl.mdb。3這時(shí)系統(tǒng)將會(huì)自動(dòng)進(jìn)入詳細(xì)的數(shù)據(jù)庫(kù)設(shè)計(jì)窗體。我們選擇“使用設(shè)計(jì)器”創(chuàng)建表。4在彈出的“表1”設(shè)計(jì)窗體中，依次寫入各個(gè)字段名以及他們相對(duì)應(yīng)的數(shù)據(jù)類型和說(shuō)明事項(xiàng)。在本數(shù)據(jù)庫(kù)中他們依次是：字段名稱數(shù)據(jù)類型所屬期文本申報(bào)序號(hào)文本出口報(bào)關(guān)單耗文本出口發(fā)票號(hào)碼文本出口日期文本代理證明編號(hào)文本外匯核銷單耗文本客戶名稱文本貿(mào)易性質(zhì)文本出口商品名稱文本計(jì)量單位文本出口數(shù)量數(shù)字外幣金額數(shù)字外幣匯率數(shù)字外幣幣種文本人民幣金額數(shù)字征稅稅率數(shù)字退稅率數(shù)字征退稅

25、差額數(shù)字應(yīng)免抵退稅額數(shù)字進(jìn)料登記手冊(cè)號(hào)文本計(jì)劃分配率數(shù)字組成計(jì)稅價(jià)格數(shù)字免抵退稅扣減額數(shù)字不予抵扣稅額抵減額數(shù)字實(shí)際免抵退稅額數(shù)字備注備注5設(shè)計(jì)好字段名后，關(guān)閉并保存表為“出口貨物退稅申報(bào)數(shù)據(jù)” 。6雙擊“出口貨物退稅申報(bào)數(shù)據(jù)”表，然后在彈出的數(shù)據(jù)錄入窗體中錄入數(shù)據(jù)，并保存。因?yàn)檐浖行枰膫€(gè)數(shù)據(jù)庫(kù)表，所以還要在數(shù)據(jù)庫(kù)zlgl.mdb中新建一個(gè)“出口貨物免稅申報(bào)數(shù)據(jù)”表、“進(jìn)料加工復(fù)出口貿(mào)易免稅數(shù)據(jù)”表、“系統(tǒng)用戶”表。其中“系統(tǒng)用戶”表中保存的是本軟件系統(tǒng)登錄時(shí)的“用戶名”和“密碼”。下面就用表格的形式分別列出這四個(gè)表的字段名稱和數(shù)據(jù)類型?！跋到y(tǒng)用戶”表：字段名稱數(shù)據(jù)類型id自動(dòng)編號(hào)用戶名文

26、本用戶口令文本注冊(cè)標(biāo)記是/否設(shè)計(jì)完成后，按同樣的方法向其中加入數(shù)據(jù)，即一條原始的含有登錄用戶名和用戶口令的記錄?！俺隹谪浳锩舛惿陥?bào)數(shù)據(jù)”表：字段名稱數(shù)據(jù)類型所屬期文本序號(hào)文本出口發(fā)票號(hào)碼文本出口日期文本貿(mào)易性質(zhì)文本出口商品名稱文本計(jì)量單位文本客戶名稱文本出口數(shù)量數(shù)字退稅率數(shù)字征稅率數(shù)字外幣匯率數(shù)字外幣幣種文本外幣金額數(shù)字人民幣金額數(shù)字不予抵扣稅額抵減額數(shù)字備注備注 “進(jìn)料加工復(fù)出口貿(mào)易免稅數(shù)據(jù)”表：字段名稱數(shù)據(jù)類型所屬期文本序號(hào)文本客戶名稱文本進(jìn)料登記手冊(cè)號(hào)文本出口貨物報(bào)關(guān)單號(hào)文本海關(guān)核銷免稅進(jìn)口料件組成計(jì)稅價(jià)格數(shù)字征稅率數(shù)字退稅率數(shù)字不予抵扣稅額抵減額數(shù)字備注備注然后可以分別向其中加入少許記

27、錄，當(dāng)然不加也行。這樣，一個(gè)包含四個(gè)表的退稅管理系統(tǒng)的數(shù)據(jù)庫(kù)zlgl.mdb就初步制作完成了。4.4數(shù)據(jù)庫(kù)操作界面中的基本功能介紹四個(gè)數(shù)據(jù)庫(kù)操作界面中主要包括了對(duì)數(shù)據(jù)庫(kù)的各種操作，包括數(shù)據(jù)庫(kù)中記錄的修改、記錄的添加、記錄的刪除、記錄的查詢以及記錄的瀏覽等。這些都是數(shù)據(jù)庫(kù)操作中所必須的內(nèi)容。其代碼如下：(1)增加記錄：on error goto adderr 出錯(cuò)轉(zhuǎn)到adderr adodc1.recordset.movelast 指針到最后一個(gè)記錄 adodc1.recordset.addnew 增加記錄 exit subadderr: msgbox err.description 如果出錯(cuò)，

28、顯示出錯(cuò)信息(2)刪除記錄： prompt$ = 真的要?jiǎng)h除本記錄嗎?rc = msgbox(prompt$, vbokcancel + vbquestion, “刪除本記錄”) 刪除記錄前的提示信息if rc = vbok then 如果按下確認(rèn)按鈕 adodc1.recordset.delete 刪除當(dāng)前記錄 adodc1.recordset.movenext 指針移到下一條記錄 if adodc1.recordset.eof = true then 如果已是最后一條記錄 adodc1.recordset.movelast 指針移動(dòng)到最后一條記錄上 end ifend if 是否要?jiǎng)h除記錄

29、，當(dāng)按下“確認(rèn)”按鈕時(shí)，系統(tǒng)才會(huì)刪除記錄。(3)更新數(shù)據(jù)庫(kù)： on error goto updateerr adodc1.recordset.update 此句是更新數(shù)據(jù)庫(kù)語(yǔ)句 exit subupdateerr: msgbox err.description 如果出錯(cuò)，顯然出錯(cuò)信息(4)第一條記錄：adodc1.recordset.movefirst(5)最后一條記錄：adodc1.recordset.movelast(6)前一條記錄：if not adodc1.recordset.bof then 如果當(dāng)前記錄不是第一個(gè)記錄adodc1.recordset.moveprevious 移動(dòng)

30、到前一條記錄end if(7)后一條記錄：adotable1.next;(8)取消更新：on error goto updateerr adodc1.recordset.cancelupdate 取消剛才對(duì)數(shù)據(jù)庫(kù)的更新 exit subupdateerr:msgbox err.description4.5系統(tǒng)中部分核心代碼及難點(diǎn)代碼的解釋(1)登錄界面中按下“確定”后的代碼：private sub command2_click()adodc1.recordset.movefirst 將指針移到第一個(gè)，否則會(huì)出現(xiàn)這樣的問題，就是當(dāng)輸入幾個(gè)錯(cuò)誤的用戶名和密碼后，再輸入正確的也進(jìn)不了系統(tǒng)，這是因?yàn)檩?/p>

31、入錯(cuò)誤的后指針已經(jīng)移到記錄的最后了，再輸入正確密碼時(shí)，沒有從第一個(gè)記錄開始找，所以會(huì)找不到密碼出錯(cuò) do while not adodc1.recordset.eof if txtpassword.text = text2.text and txtusername = text1.text then 因?yàn)閠ext1與text2分別接收了數(shù)據(jù)庫(kù)中表“系統(tǒng)用戶”的“用戶名”和“用戶口令”的數(shù)據(jù)，所以如果輸入的用戶名和密碼與數(shù)據(jù)庫(kù)中所存儲(chǔ)的其中的任一套用戶名與密碼相符，即可進(jìn)入系統(tǒng) loginsucceeded = true loginsucceede用來(lái)判斷是否已經(jīng)成功登錄，當(dāng)loginsucce

32、de為true時(shí)表示已經(jīng)成功登錄。 me.hide load form1 加載主窗體 form1.show 顯示主窗體 exit do 跳出循環(huán) end if adodc1.recordset.movenext 移動(dòng)下一條記錄 loopif not loginsucceeded then 如果登錄不成功msgbox 無(wú)效的用戶名或密碼，請(qǐng)重新輸入!, , 登錄txtpassword.text = txtusername = end ifend sub(2) 對(duì)“出口貨物退稅申報(bào)數(shù)據(jù)”表中客戶名稱查詢的代碼：private sub command7_click()dim strquery as

33、stringdim i as stringi = inputbox(請(qǐng)輸入要查詢的商品名稱, 商品名稱查詢) 接收所要查詢的信息并存放于i中strquery = select * from出口貨物退稅申報(bào)數(shù)據(jù)where 商品名稱= & i & 根據(jù)所要查詢的關(guān)鍵字生成sql查詢語(yǔ)句dim str as string 定義str = provider=microsoft.jet.oledb.4.0;data source= zlgl.mdb;persist security info=false str代碼是一段連接屬性form8.adodc1.connectionstring = str 將s

34、tr內(nèi)的數(shù)據(jù)庫(kù)連接信息賦給adodc1的connectionstring屬性 form8.adodc1.commandtype = adcmdtext 說(shuō)明adodc1的命令類型是adcmdtextform8.adodc1.recordsource = strquery 將查詢語(yǔ)句strquery賦給adodc1的recordsource屬性form8.adodc1.refresh 在窗體8中刷新adodc1set form8.datagrid1.datasource = form8.adodc1 將form8中的datagrid表格的數(shù)據(jù)源datasource設(shè)為form8的adodc1fo

35、rm8.skinlabel1.caption = 共為您查到了 & form8.adodc1.recordset.recordcount & 條記錄 顯示所查詢到的符合要求的記錄數(shù)form8.show 顯示專門用于接收數(shù)據(jù)查詢結(jié)果的窗體8end sub(3) 雙擊工具欄圖標(biāo)產(chǎn)生的代碼如下：private sub toolbar1_buttonclick(byval button as mscomctllib.button) select case button.key case modipwd 如果按下的是工具欄上的“出口貨物退稅申報(bào)數(shù)據(jù)”快捷方式按鈕，那么自動(dòng)轉(zhuǎn)到菜單項(xiàng)“出口貨物退稅申報(bào)數(shù)據(jù)

36、”的代碼里去。 centerfile_click case guanli yongfu_click case add_user shengfile_click case bar_backup taifile_click case zhengti zt_click case report report_click case bar_auto explain_click case bar_hand info_click case bar_close exit_click end selectend sub(4) about關(guān)于窗體中得到“系統(tǒng)信息“的程序代碼 public sub startsys

37、info() on error goto sysinfoerr dim rc as long dim sysinfopath as string 試圖從注冊(cè)表中獲得系統(tǒng)信息程序的路徑及名稱. if getkeyvalue(hkey_local_machine, gregkeysysinfo, gregvalsysinfo, sysinfopath) then 試圖僅從注冊(cè)表中獲得系統(tǒng)信息程序的路徑. elseif getkeyvalue(hkey_local_machine, gregkeysysinfoloc, gregvalsysinfoloc, sysinfopath) then 已知3

38、2位文件版本的有效位置 if (dir(sysinfopath & msinfo32.exe) ) then sysinfopath = sysinfopath & msinfo32.exe 錯(cuò)誤 - 文件不能被找到. else goto sysinfoerr end if 錯(cuò)誤 - 注冊(cè)表相應(yīng)條目不能被找到. else goto sysinfoerr end if call shell(sysinfopath, vbnormalfocus) exit subsysinfoerr: msgbox 此時(shí)系統(tǒng)信息不可用, vbokonlyend subend ifend sub(5) 主菜單窗體f

39、orm1的菜單中“使用說(shuō)明”菜單的部分代碼：private sub explain_click()shell notepad.exe text1.txt, vbnormalfocus調(diào)用函數(shù)shell打開文本文件text1.textend sub(6) 自動(dòng)計(jì)算功能的實(shí)現(xiàn)：以下是錄入模塊中的幾個(gè)簡(jiǎn)單的計(jì)算公式，由計(jì)算機(jī)自動(dòng)產(chǎn)生數(shù)據(jù)：人民幣金額 外幣匯率*外幣金額征退稅差額 外銷貨物人民幣金額*（征稅稅率-退稅率）應(yīng)免抵退稅額 外銷貨物人民幣金額*退稅率組成計(jì)稅價(jià)格 人民幣金額*計(jì)劃分配率免抵退稅扣減額 組成計(jì)稅價(jià)格*退稅率不予抵扣稅額抵減額 組成計(jì)稅價(jià)格*（征稅稅率-退稅率）實(shí)際免抵退稅額 應(yīng)

40、免抵退稅額-免抵退稅扣減額以下這段代碼就是在按下“保存修改”按鈕，自動(dòng)地用上面的公式將值計(jì)算出來(lái)并保存到數(shù)據(jù)庫(kù)表對(duì)應(yīng)的字段時(shí)。其代碼及解釋如下：private sub command4_click() on error goto updateerr adodc1.recordset.update 先將手動(dòng)輸入的數(shù)據(jù)存入數(shù)據(jù)庫(kù) adodc1.recordset.moveprevious 這句和下一句也很重要，去掉就不行，這是程序編程實(shí)踐過(guò)程中得到的結(jié)論，具體問題的分析見后。 adodc1.recordset.movenext adodc1.recordset!人民幣金額 = adodc1.rec

41、ordset!外幣匯率 * adodc1.recordset!外幣金額 通過(guò)計(jì)算得到其它字段的值 adodc1.recordset!征退稅差額 = adodc1.recordset!人民幣金額 * (adodc1.recordset!征稅稅率 - adodc1.recordset!退稅率) adodc1.recordset!應(yīng)免抵退稅額 = adodc1.recordset!人民幣金額 * adodc1.recordset!退稅率 adodc1.recordset!組成計(jì)稅價(jià)格 = adodc1.recordset!人民幣金額 * adodc1.recordset!計(jì)劃分配率 adodc1.r

42、ecordset!免抵退稅扣減額 = adodc1.recordset!組成計(jì)稅價(jià)格 * adodc1.recordset!退稅率 adodc1.recordset!不予抵扣稅額抵減額 = adodc1.recordset!組成計(jì)稅價(jià)格 * (adodc1.recordset!征稅稅率 - adodc1.recordset!退稅率) adodc1.recordset!實(shí)際免抵退稅額 = adodc1.recordset!應(yīng)免抵退稅額 - adodc1.recordset!免抵退稅扣減額 adodc1.recordset.update將計(jì)算出來(lái)的字段的值存入數(shù)據(jù)庫(kù)中 exit subupdate

43、err: msgbox err.descriptionend sub4.6軟件設(shè)計(jì)中遇到的問題及解決方法(1)無(wú)法訪問access2000數(shù)據(jù)庫(kù)問題的查找及解決辦法：visual basic6.0訪問access數(shù)據(jù)庫(kù)有多種方法，開始我使用的是dao技術(shù)，即利用data控件來(lái)訪問數(shù)據(jù)庫(kù)。但由于我使用的是access2000數(shù)據(jù)庫(kù)，通過(guò)我的實(shí)踐發(fā)現(xiàn)：data控件對(duì)access2000的數(shù)據(jù)庫(kù)竟然無(wú)法識(shí)別，而只能識(shí)別access97，我想可能是因?yàn)閍ccess2000是后出來(lái)的版本且兼容性不好的原因吧。隨后我試著用ado技術(shù)操作數(shù)據(jù)庫(kù)，即通過(guò)vb6.0提供的adodc控件對(duì)access2000數(shù)據(jù)

44、庫(kù)進(jìn)行訪問。通過(guò)查找參考書我知道了要使ado能訪問access2000數(shù)據(jù)庫(kù)首先必須要到微軟官方網(wǎng)站下載mdac2.7，只能通過(guò)mdac2.7才能夠驅(qū)動(dòng)access2000數(shù)據(jù)庫(kù)。同時(shí)，因?yàn)閍ccess2000 己經(jīng)使用 jet 4.0 engine，所以要將 ado 的 connect string 中的 provider 修改為：provider=microsoft,jet.oledb.4.0。按照上面的辦法，我對(duì)軟件原程序進(jìn)行了修改和重新設(shè)置，接著我再次試著訪問數(shù)據(jù)庫(kù)，成功了。(2)在實(shí)現(xiàn)“自動(dòng)計(jì)算其他字段值”這一功能的過(guò)程中，我遇到了一個(gè)問題，即：運(yùn)行時(shí)按下“保存修改”這一按鈕時(shí)，系統(tǒng)

45、會(huì)彈出一個(gè)出錯(cuò)窗體：“”，并自動(dòng)退出系統(tǒng)。我在調(diào)試過(guò)程中發(fā)現(xiàn)了一個(gè)問題，即在按“添加記錄”按鈕并添加新記錄后，再按“保存修改”按鈕里，系統(tǒng)會(huì)彈出一個(gè)出錯(cuò)窗體：“”，并自動(dòng)退出系統(tǒng)。這一問題我在設(shè)計(jì)過(guò)程中沒有遇到過(guò)，于是我對(duì)“保存修改”按鈕里的代碼進(jìn)行了逐行測(cè)試，發(fā)現(xiàn)問題出在兩個(gè)adodc1.recordset.update語(yǔ)句上，顯然系統(tǒng)不認(rèn)可兩次update語(yǔ)句。雖然我找到了出問題的地方，可是通過(guò)一次次的調(diào)試還是找不到解決這一問題的辦法，于是我上網(wǎng)進(jìn)行搜索，查找這一問題的解決辦法。果然，經(jīng)過(guò)耐心細(xì)致的尋找，我找到了解決問題的辦法，具體方法如下：進(jìn)行了本軟件因?yàn)槭钱厴I(yè)設(shè)計(jì)，對(duì)數(shù)據(jù)的安全要求不高

46、，所以并沒有對(duì)數(shù)據(jù)庫(kù)進(jìn)行加密處理，也就沒有對(duì)加密的數(shù)據(jù)庫(kù)進(jìn)行訪問。如果要對(duì)加密和access2000數(shù)據(jù)庫(kù)進(jìn)行訪問，而程序直接由 access 打開果然我按照上面的方法做時(shí)，系統(tǒng)不再提示出錯(cuò)信息，并按我設(shè)計(jì)的要求把值自動(dòng)計(jì)算出來(lái)并自動(dòng)存入了數(shù)據(jù)庫(kù)。但此時(shí)我發(fā)現(xiàn)按下“保存修改”按鈕后，系統(tǒng)并不立即將自動(dòng)計(jì)算出來(lái)的字段的值顯示在當(dāng)前記錄上，而需要移動(dòng)到上一個(gè)或下一個(gè)記錄然后再回到原記錄時(shí)才顯示出來(lái)，我也不知道是什么原因。為了解決這一問題，很簡(jiǎn)單了，我就直接加了 adodc1.recordset.moveprevious adodc1.recordset.movenext 這兩條語(yǔ)句。再次調(diào)試時(shí)成功

47、了，系統(tǒng)按我設(shè)計(jì)的要求完美地工作了。 (3)如何動(dòng)態(tài)訪問access數(shù)據(jù)庫(kù)：軟件制作完成后發(fā)布時(shí)我發(fā)現(xiàn)了一個(gè)比較嚴(yán)重的問題，就是程序只能放在c:hbj下才能運(yùn)行，放在其他目錄下運(yùn)行時(shí)會(huì)提示出錯(cuò)信息“找不到數(shù)據(jù)庫(kù)文件c:hbjzlgl.mdb”。通過(guò)分析我找到了問題的原因：因?yàn)檐浖谱鲿r(shí)是在c:hbj目錄下制作調(diào)試的。程序中所使用的數(shù)據(jù)庫(kù)的連接路徑都是絕對(duì)路徑。如str = provider=microsoft.jet.oledb.4.0;data source=c:hbjzlgl.mdb;persist security info=false。其中c:hbjzlgl.mdb就是絕對(duì)路徑，所以如

48、果換到別的目錄下運(yùn)行時(shí)，由于c:hbj文件夾不存在，所以就找不到zlgl.mdb文件，所以就會(huì)提示出錯(cuò)信息。問題找到了，然后就要找解決的辦法，通過(guò)查詢資料我明白了解決的方法也不復(fù)雜，只要在數(shù)據(jù)庫(kù)連接代碼中將c:hbjzlgl.mdb直接改為zlgl.mdb就可以了，即str = provider=microsoft.jet.oledb.4.0;data source= zlgl.mdb;persist security info=false。這樣程序會(huì)自動(dòng)在可執(zhí)行文件所在目錄下查找數(shù)據(jù)庫(kù)zlgl.mdb，而不會(huì)再到c:hbj目錄下找zlgl.mdb文件了。(4)在設(shè)計(jì)登錄用戶名和密碼驗(yàn)證功能時(shí)

49、，遇到這樣的問題，即當(dāng)輸入錯(cuò)誤的密碼，系統(tǒng)提示錯(cuò)誤，這里再輸入正確密碼時(shí)，系統(tǒng)也提示用戶名或密碼錯(cuò)誤。通過(guò)逐行測(cè)試與總體分析我找到了問題出現(xiàn)的原因：在輸入幾個(gè)錯(cuò)誤的用戶名和密碼后，再輸入正確的也進(jìn)不了系統(tǒng)，這是因?yàn)檩斎脲e(cuò)誤的用戶名和密碼后指針已經(jīng)移到記錄的最后了，再輸入正確密碼時(shí)，沒有從第一個(gè)記錄開始找，所以會(huì)找不到密碼出錯(cuò)。找到了問題出現(xiàn)的原因，解決的方法就簡(jiǎn)單多了：即在每次查找之前加上一個(gè)指針移動(dòng)第一條記錄的代碼：adodc1.recordset.movefirst 再次測(cè)試時(shí)，問題成功地解決了。 4.7性能測(cè)試與分析經(jīng)過(guò)不斷的努力，終于完成了對(duì)外貿(mào)易公司退稅管理系統(tǒng)的初步設(shè)計(jì)和編制。我對(duì)本系統(tǒng)進(jìn)行改編的性能測(cè)試。 1測(cè)試環(huán)境：piii 256m/64g 2操作系統(tǒng)：windowsxp 3系統(tǒng)平臺(tái)：visual basic 6.0中文版 系統(tǒng)調(diào)試過(guò)程：程序的最后調(diào)試工作是應(yīng)