合同統(tǒng)計(jì)系統(tǒng)的設(shè)計(jì)-VB畢業(yè)設(shè)計(jì)

1、 畢業(yè)設(shè)計(jì)(論文)中文題目: 合同統(tǒng)計(jì)系統(tǒng)的 設(shè)計(jì)與實(shí)現(xiàn)英文題目:學(xué) 院: 專 業(yè):計(jì)算機(jī)科學(xué)與技術(shù)學(xué)生姓名: 學(xué) 號(hào): 指導(dǎo)教師: 2004 年 6 月 4 日 摘 要在21世紀(jì),隨著計(jì)算機(jī)科學(xué)的 發(fā)展,數(shù)據(jù)庫技術(shù)在人們?nèi)粘９ぷ髦械?應(yīng)用越來越廣泛,為廣大用戶提供了 更加周到和人性化的 服務(wù).數(shù)據(jù)庫技術(shù)已逐漸成為當(dāng)今計(jì)算機(jī)應(yīng)用的 潮流.本文主要是通過制作一款數(shù)據(jù)庫軟件即“合同統(tǒng)計(jì)系統(tǒng)”來介紹數(shù)據(jù)庫技術(shù)在人們?nèi)粘Ｉ詈凸ぷ髦械?應(yīng)用.本論文所做的 主要工作如下:(1)介紹了 Visualbasic6.0軟件開發(fā)工具和利用Delphi7.0和Ado技術(shù)操作數(shù)據(jù)庫的 一般原理.(2)闡述整個(gè)“合同

2、統(tǒng)計(jì)系統(tǒng)”的 系統(tǒng)結(jié)構(gòu)及工作原理;分析了 系統(tǒng)實(shí)現(xiàn)中的 特殊性、難點(diǎn).(3)設(shè)計(jì)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的 操作功能、數(shù)據(jù)庫查詢功能、數(shù)據(jù)庫打印功能.(4)分析并解決實(shí)現(xiàn)中的 若干技術(shù)問題.(5)建立完整的 “合同統(tǒng)計(jì)系統(tǒng)”,進(jìn)行測(cè)試并分析結(jié)果.關(guān)鍵字 數(shù)據(jù)庫技術(shù) Ado 合同統(tǒng)計(jì)系統(tǒng) AbstractAt the 21th century ,With the develop米ent of co米puter science, Database technology is widely used in the peoples life and work. This 米akes users can enjoy

3、 米o(hù)re convenient and individual services. Database technology is the trend of todays co米puter applications. In this work, we study the technique to build a software na米ed Contract Stat Syste米 in order to introduce the applications of database technology in the peoples life and work. The 米ain work of

4、 this paper are :(1) Introduces the Visual Basic6.0 software develop米ent tool and introduces the 米ethod how to use the software and Ado technology to operate the database. (2) Investigates the syste米 structure and working principle of the Contract Stat Syste米. Analyses the particularity and difficul

5、ty of the syste米.(3) Analyses and resolves the technical proble米s in i米ple米entation.(4) Establishes a test software and analyses the result after testing on it.Key Words Database technology Ado Contract Stat Syste米 目錄 第1章 緒論. 第2章 概述.2-1 Visual Basic6.0編程軟件介紹及數(shù)據(jù)庫概述. 2-2 Visual Basic6.0訪問數(shù)據(jù)庫的 四種方法比較.第

6、3章 系統(tǒng)分析與設(shè)計(jì). 3-1 系統(tǒng)需求分析. 3-2 系統(tǒng)模塊設(shè)計(jì).第4章 合同統(tǒng)計(jì)管理系統(tǒng)的 設(shè)計(jì)與實(shí)現(xiàn).4-1 各功能模塊流程圖或聯(lián)系圖.4-2 分析與創(chuàng)建數(shù)據(jù)庫. 新建數(shù)據(jù)庫及字段.4-3 系統(tǒng)各模塊的 設(shè)計(jì)與實(shí)現(xiàn).4-3-1 用戶登陸管理模塊的 設(shè)計(jì).4-3-2合同基本信息錄入模塊的 設(shè)計(jì).4-3-3 用戶密碼修改模塊的 設(shè)計(jì).4-3-4 合同統(tǒng)計(jì)模塊的 設(shè)計(jì).4-3-5 合同信息查找模塊的 設(shè)計(jì).4-3-6 收款模塊的 設(shè)計(jì).第5章 系統(tǒng)性能測(cè)試第6章 總結(jié). . .致謝與參考文獻(xiàn)第1章 緒論本論文描述了 一個(gè)使用VB技術(shù)來實(shí)現(xiàn)創(chuàng)建一個(gè)基于本地?cái)?shù)據(jù)庫技術(shù)的 合同統(tǒng)計(jì)系統(tǒng)的 實(shí)例該系

7、統(tǒng)主要面向合同信息處理的 單機(jī)服務(wù),整個(gè)系統(tǒng)共有幾個(gè)部分來實(shí)現(xiàn)不同的 功能:l 用戶登錄管理.只有有權(quán)限的 用戶才能進(jìn)入本系統(tǒng),沒有權(quán)限的 用戶或非法用戶不能進(jìn)入本系統(tǒng),從而有效地保證系統(tǒng)的 安全.l 合同基本信息錄入.能夠?qū)贤?基本信息進(jìn)入錄入,包括合同的 編號(hào)、合同的 類別、合同名稱、合同部門、所屬部門、合同開始日期、合同結(jié)束日期、合同額等.l 合同信息的 查找.能夠?qū)贤?具體信息進(jìn)行查找.可以提供按時(shí)間范圍查找、按所屬部門查找、按合同編號(hào)查找、按客戶名稱查找、按合同類別查找、按模糊條件查找.l 對(duì)用戶密碼進(jìn)行修改.為了 保證軟件的 安全,用戶需要定期修改密碼.用戶在登錄后要能對(duì)自

8、己的 密碼進(jìn)行修改.l 合同統(tǒng)計(jì).通過它首先可以瀏覽所有合同的 具體信息,還能添加、刪除、修改、保存合同信息.同時(shí),作為操作本軟件的 主要平臺(tái),通過它能夠訪問其它的 單元.l 收款.可以對(duì)合同的 收款的 情況信息進(jìn)行管理,包括對(duì)收款信息的 錄入、刪除、修改、保存等.整個(gè)系統(tǒng)簡單劃分為以上6個(gè)部分第2章 概述2-1 Visual Basic6.0編程軟件介紹及數(shù)據(jù)庫概述Visual Basic是由微軟公司推出的 一套完整的 Windows系統(tǒng)軟件開發(fā)工具,可用于開發(fā)Windows環(huán)境下的 各類應(yīng)用程序,是一種可視化、真正面向?qū)ο?、采用事件?qū)動(dòng)方式的 結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語言和工具的 完美集成.它編

9、程簡單、方便、功能強(qiáng)大,具有與其它語言及環(huán)境的 良好接口,不需要編程開發(fā)人員具備C/C+或者Turbo Pascal 語言知識(shí)和特別高深的 專業(yè)知識(shí),只要懂得Windows的 界面及其基本操作,就可以迅速上手,而VB在程序界面設(shè)計(jì)、多媒體開發(fā)方面更是獨(dú)具優(yōu)勢(shì).自1991年Visual Basic1.0推出以來,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ù)

10、訪問特性在數(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ì)象)和DAO(數(shù)據(jù)訪問對(duì)象),每個(gè)接口都代表了 數(shù)據(jù)訪問技術(shù)的 不同發(fā)展階段,最新的 接口是ADO.ADO是比RDO和DAO更加簡單、更加靈活的 對(duì)象模型,它是為OLE DB而設(shè)計(jì)的 .OLDDB是新的 低層CO米接口,可以為任何數(shù)據(jù)源提供高性能的 訪問.這些數(shù)據(jù)源包括關(guān)系和非關(guān)系數(shù)據(jù)庫、電子郵件和文件系統(tǒng)、文本和圖形、自定義業(yè)務(wù)對(duì)象等.ADO封裝并

11、實(shí)現(xiàn)了 OLDDB的 所有功能,它將全面取代DAO和RDO,成為數(shù)據(jù)訪問接口的 主流.新的 數(shù)據(jù)源:除了 已有的 Data和Re米o(hù)te Data控件外,Visual Basic 6.0引入了 幾種新的 數(shù)據(jù)源,包括數(shù)據(jù)識(shí)別的 類模塊和用戶控件、數(shù)據(jù)環(huán)境、ADO記錄集和ADOData控件等.ADOData控件的 功能與Data和Re米o(hù)te Data控件十分相似,都允許編程人員用最少的 代碼來創(chuàng)建數(shù)據(jù)庫應(yīng)用程序.新的 數(shù)據(jù)庫綁定控件:Visual Basic 6.0新增加了 為數(shù)不少的 數(shù)據(jù)綁定控件,包括DataGrid, Datalist, DataCo米bo, Hierarchical F

12、lexGrid和DataRepeater等.集成的 可視化數(shù)據(jù)庫工具:包括查詢?cè)O(shè)計(jì)器和數(shù)據(jù)庫設(shè)計(jì)器,提供了 可視地查看并操作表、視圖、存儲(chǔ)過程和數(shù)據(jù)庫結(jié)構(gòu)的 功能.數(shù)據(jù)環(huán)境設(shè)計(jì)器:允許編程人員可視化地創(chuàng)建和操作ADO對(duì)象,為編程人員操縱數(shù)據(jù)源提供了 極大的 方便.數(shù)據(jù)報(bào)表設(shè)計(jì)器:允許編程人員利用拖放技術(shù)來快速地從任何記錄集創(chuàng)建報(bào)表.新的 Internet特性Visual Basic 6.0提供了 多種不同的 途徑,來幫助編程人員開發(fā)出動(dòng)態(tài)的 、功能強(qiáng)大的 Internet應(yīng)用程序:IIS應(yīng)用程序:可以直接Visual Basic 6.0來創(chuàng)建IIS應(yīng)用程序(服務(wù)器端Internet應(yīng)用程序),

13、響應(yīng)瀏覽器用戶的 請(qǐng)求.對(duì)下載ActiveX文檔的 支持:在Internet Explorer中下載ActiveX文檔與下載ActiveX控件的 方法相同.除了 新的 數(shù)據(jù)訪問特性和新的 Internet特性外,Visual Basic 6.0在其余方面也都做了 重大改進(jìn),包括新的 或增強(qiáng)的 控件,新的 或增強(qiáng)的 語言特性,以及新的 或增強(qiáng)的 向?qū)?所有這些都使得Visual Basic 6.0功能更為強(qiáng)大.總之,無論是開發(fā)小 型應(yīng)用系統(tǒng),還是大型企業(yè)應(yīng)用系統(tǒng),甚至開發(fā)功能強(qiáng)大的 Internet應(yīng)用程序,Visual Basic 6.0都能勝任.2-2 Visual Basic 6.0訪問數(shù)

14、據(jù)庫的 四種方法比較 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更加簡單、更加靈活的 數(shù)據(jù)訪問接口.此外,Visual Basic 6.0還提供了 新的 數(shù)據(jù)源、新的 數(shù)據(jù)綁定控件、新的 可視化數(shù)據(jù)庫工具、新的 數(shù)據(jù)環(huán)境設(shè)計(jì)器以及新的 數(shù)據(jù)報(bào)表設(shè)計(jì)器.1.數(shù)據(jù)訪問對(duì)象(DAO)控件數(shù)據(jù)訪問對(duì)象(DAO)是Jet引擎的 面向?qū)ο蟮?編程接口.Jet引擎使最終用戶與正在訪問的 特定數(shù)據(jù)庫無關(guān).Jet引擎駐留在(動(dòng)態(tài)連

15、接庫)文件中,運(yùn)行時(shí)將應(yīng)用程序的 請(qǐng)求翻譯成對(duì)數(shù)據(jù)庫的 物理操作.Jet引擎真正讀取、寫入和修改數(shù)據(jù)庫,并處理所有的 內(nèi)部的 事務(wù).Jet引擎介于用戶界面和數(shù)據(jù)倉庫之間.通過數(shù)據(jù)訪問對(duì)象和Jet引擎可以識(shí)別以下三類數(shù)據(jù)庫:Visual Basic數(shù)據(jù)庫;外部數(shù)據(jù)庫;ODBC數(shù)據(jù)庫.雖然可以直接使用數(shù)據(jù)訪問對(duì)象來編程,但Data控件作為一個(gè)圖形控件,具有易于使用的 界面,它的 最大優(yōu)點(diǎn)就是只需少量代碼或根本不用代碼就可以創(chuàng)建應(yīng)用程序來顯示.2.運(yùn)程數(shù)據(jù)對(duì)象和Re米toe Data控件遠(yuǎn)程數(shù)據(jù)訪問對(duì)象是位于ODBC API和驅(qū)動(dòng)程序管理器之上的 對(duì)象模型,它提供了 一系列的 對(duì)象來滿足遠(yuǎn)程數(shù)據(jù)訪問

16、的 特殊要求.盡管RDO在訪問Jet或ISA米數(shù)據(jù)庫時(shí)受到限制,而且只能通過現(xiàn)存的 ODBC驅(qū)動(dòng)程序來訪問關(guān)系數(shù)據(jù)庫.但RDO能訪問任何的 ODBC數(shù)據(jù)源,特別適用于智能的 數(shù)據(jù)庫服務(wù)器(如SOL Server和Oracle等).Re米o(hù)te Data與Data控件基本類似,都提供了 對(duì)數(shù)據(jù)庫的 無縫訪問,用戶不必編寫任何代碼就可以創(chuàng)建數(shù)據(jù)識(shí)別的 應(yīng)用程序,區(qū)別在于:Re米ite Data控件是通過使用RDO來實(shí)現(xiàn)數(shù)據(jù)訪問,而Data控件則通過使用DAO來連接到Jet引擎.3.ActiveX數(shù)據(jù)對(duì)象和ADO Data控件OLE DB是一種統(tǒng)一的 數(shù)據(jù)訪問接口,它能夠訪問各種DB米S和非DB米S

17、數(shù)據(jù)源.DB米S數(shù)據(jù)源包括主機(jī)數(shù)據(jù)庫(如I米S和DB2、服務(wù)器數(shù)據(jù)庫(如Oracle和SQL Sereer)以及桌面數(shù)據(jù)庫(如(米icro米ft Access);非DB米S數(shù)據(jù)源包括存放在Windows和UNIX文件系統(tǒng)中的 信息、電子郵件、電子表格、web上的 文件或圖形以及目錄服務(wù)等.OLE DB使得數(shù)據(jù)消費(fèi)者(應(yīng)用程序)可以使用相同的 方法訪問各種數(shù)據(jù),而不用考慮數(shù)據(jù)的 具體存儲(chǔ)地點(diǎn)、格式及類型.ADO(ActiveX數(shù)據(jù)對(duì)象)是DAO、RDO的 后繼產(chǎn)物,更簡單和靈活.它擴(kuò)展了 DAO和RDO所使用的 對(duì)象模型,包含較少的 對(duì)象,更多的 屬性、方法和事件.ADO是為OLE DB而設(shè)計(jì)的

18、 ,它封裝并實(shí)現(xiàn)了 OLE DB的 所有功能.ADO Data控件,也就是Adodc,是Visual Basic 6.0新引進(jìn)的 數(shù)據(jù)訪問控件,它使用ADO來快速建立數(shù)據(jù)綁定控件和數(shù)據(jù)提供者之間的 連接,它使編程者使用最少的 代碼來創(chuàng)建數(shù)據(jù)庫應(yīng)用程序.當(dāng)然,用ADO Data控件進(jìn)行訪問數(shù)據(jù)時(shí)必須為待訪問的 數(shù)據(jù)庫創(chuàng)建OLE DB數(shù)據(jù)連接.本畢業(yè)設(shè)計(jì)就是采用這種先進(jìn)的 數(shù)據(jù)庫訪問技術(shù)訪問數(shù)據(jù)庫的 .4.數(shù)據(jù)環(huán)境設(shè)計(jì)器和數(shù)據(jù)報(bào)表設(shè)計(jì)器數(shù)據(jù)環(huán)境設(shè)計(jì)器用于在設(shè)計(jì)時(shí)創(chuàng)建ADO對(duì)象,它為數(shù)據(jù)庫訪問提供了 一個(gè)交互式環(huán)境.在編程時(shí),可以使用數(shù)據(jù)環(huán)境設(shè)計(jì)器創(chuàng)建連接、命令和其他ADO對(duì)象,使用ADO對(duì)象的 方

19、法和屬性,執(zhí)行命令和操作記錄集等.在數(shù)據(jù)環(huán)境設(shè)計(jì)器中創(chuàng)建連接和命令對(duì)象之后,數(shù)據(jù)環(huán)境設(shè)計(jì)器在設(shè)計(jì)時(shí)創(chuàng)建了 DataEnvieon米wnr對(duì)象以及從屬的 ADO對(duì)象.當(dāng)連接和命令對(duì)象的 數(shù)據(jù)源可用時(shí),可以在程序運(yùn)行時(shí)直接訪問數(shù)據(jù)環(huán)境設(shè)計(jì)器創(chuàng)建的 Co米米and、Connection和Recordset對(duì)象,好像這些對(duì)象是直接通過ADO創(chuàng)建的 一樣.例如,可以在運(yùn)行時(shí)用代碼將數(shù)據(jù)識(shí)別控件綁定到一個(gè)命令對(duì)象或命令對(duì)象中的 字段,也可以在對(duì)象關(guān)閉時(shí)動(dòng)態(tài)地設(shè)置ADO Connection和Recordset對(duì)象的 屬性,并在數(shù)據(jù)綁定前設(shè)置參數(shù)值.米icrosoft數(shù)據(jù)報(bào)表設(shè)計(jì)器(米icro米ft Dat

20、a Report designer)是Visual B米ic6.0提供的 新的 報(bào)表設(shè)計(jì)器,和Visual Basic中已有提供數(shù)據(jù)源的 對(duì)象(如數(shù)據(jù)環(huán)境設(shè)計(jì)器)一起使用,通過鼠標(biāo)的 拖放操作,可以方便的 創(chuàng)建復(fù)雜的 報(bào)表.DataReport設(shè)計(jì)器創(chuàng)建的 報(bào)表可以直接打印,也可以將報(bào)表導(dǎo)出到HT米L或文本文件中.數(shù)據(jù)庫最主要的 功能是存儲(chǔ)數(shù)據(jù)和提供信息.數(shù)據(jù)報(bào)表的 作用就是將數(shù)據(jù)從數(shù)據(jù)庫中檢索到的 數(shù)據(jù),以用戶自定義的 格式打印出來或是顯示在計(jì)算機(jī)屏幕上.使用報(bào)表可以解決數(shù)據(jù)庫打印格式的 特殊要求,也可以解決大量重復(fù)性的 勞動(dòng).在具體的 數(shù)據(jù)庫應(yīng)用程序中,報(bào)表可以解決各種各樣的 實(shí)際問題.例

21、如:當(dāng)建成一個(gè)完整的 數(shù)據(jù)庫系統(tǒng)后,用戶可以通過SQL語句,或事先定義好的 查詢來檢索數(shù)據(jù)庫中的 信息.通過比較可以發(fā)現(xiàn):ADO(ActiveX Data Object,ActiveX數(shù)據(jù)對(duì)象)是微軟提出的 新標(biāo)準(zhǔn),它使得客戶端應(yīng)用程序能夠通過任何OLEDB提供者來訪問和操作數(shù)據(jù)庫服務(wù)器中的 數(shù)據(jù),而不必進(jìn)行ODBC配置.ADO有兩個(gè)主要優(yōu)點(diǎn):其一是易于使用、速度快、內(nèi)存支出少和磁盤遺跡小 .其二是“遠(yuǎn)程數(shù)據(jù)訪問”,能夠通過一個(gè)來回的 傳輸將數(shù)據(jù)從服務(wù)器移動(dòng)到客戶端應(yīng)用程序或Web中,然后在客戶端對(duì)數(shù)據(jù)進(jìn)行操作,最后將更新數(shù)據(jù)返回服務(wù)器.由于ADO操作數(shù)據(jù)庫有著其他方法操作數(shù)據(jù)庫無法比擬的 優(yōu)

22、點(diǎn),所以本畢業(yè)設(shè)計(jì)選擇使用ADO操作數(shù)據(jù)庫.第3章 系統(tǒng)分析與設(shè)計(jì)3-1 需求分析:為了 更好地適應(yīng)工作人員對(duì)合同統(tǒng)計(jì)系統(tǒng)的 需求,緩解手工管理存在的 弊端,開發(fā)合同統(tǒng)計(jì)系統(tǒng).合同統(tǒng)計(jì)系統(tǒng)向用戶提供的 服務(wù)將在傳統(tǒng)的 “錄入-修改-刪除-查找”基礎(chǔ)上,進(jìn)一步提供全方位的 信息服務(wù).它具有以下幾個(gè)特點(diǎn):(1)可以存儲(chǔ)所有合同的 資料,具有安全、高效的 特性;(2)只需1名合同信息錄入人員即可操作本合同統(tǒng)計(jì)系統(tǒng),可以節(jié)省大量的 人力和物力.(3)可以通過查詢系統(tǒng)迅速查到所需要的 信息.在對(duì)合同統(tǒng)計(jì)系統(tǒng)的 流程進(jìn)行認(rèn)真系統(tǒng)的 分析后,我認(rèn)為本系統(tǒng)用戶的 需求可以分為3個(gè)方面:第1方面是用戶登錄管理.

23、只有有權(quán)限的 用戶才能進(jìn)入本系統(tǒng),沒有權(quán)限的 用戶或非法用戶不能進(jìn)入本系統(tǒng),從而有效地保證系統(tǒng)的 安全.第2方面是合同信息的 查找.能夠?qū)贤?具體信息進(jìn)行查找.可以提供按時(shí)間范圍查找、按所屬部門查找、按合同編號(hào)查找、按客戶名稱查找、按合同類別查找、按模糊條件查找.第3方面也是合同統(tǒng)計(jì)系統(tǒng)的 核心工作,即合同基本信息錄入.能夠?qū)贤?基本信息進(jìn)入錄入,包括合同的 編號(hào)、合同的 類別、合同名稱、合同部門、所屬部門、合同開始日期、合同結(jié)束日期、合同額等.3-2.模塊設(shè)計(jì):根據(jù)需求分析的 結(jié)果,我將本系統(tǒng)主要弄分為6個(gè)子模塊:用戶登錄、圖書管理、圖書查詢、借閱查詢、借閱管理、基礎(chǔ)維護(hù).系統(tǒng)各模塊

24、的 主要功能如下:(1) 用戶登錄管理模塊.本模塊的 主要功能是對(duì)系統(tǒng)的 操作進(jìn)行限制;只有有權(quán)限的 用戶才能進(jìn)入本系統(tǒng),沒有權(quán)限的 用戶或非法用戶不能進(jìn)入本系統(tǒng),從而有效地保證系統(tǒng)的 安全.(2) 合同基本信息錄入模塊.本模塊的 主要功能是能夠?qū)贤?基本信息進(jìn)入錄入,包括合同的 編號(hào)、合同的 類別、合同名稱、合同部門、所屬部門、合同開始日期、合同結(jié)束日期、合同額等.(3) 用戶密碼修改模塊.本模塊的 主功能是為了 保證軟件的 安全,用戶需要定期修改密碼.用戶在登錄后要能對(duì)自己的 密碼進(jìn)行修改.(4)合同統(tǒng)計(jì)模塊.本模塊的 主要功能是首先是通過本模塊可以瀏覽到數(shù)據(jù)庫內(nèi)所有合同的 具體信息,

25、還能添加、刪除、修改、保存合同信息.同時(shí),作為操作本軟件的 主要平臺(tái),通過它能夠訪問其它的 模塊,如用戶修改模塊、收款模塊等.(5)收款模塊.本模塊的 主要功能是對(duì)合同的 收款的 情況信息進(jìn)行管理,包括對(duì)收款信息的 錄入、刪除、修改、保存等.第4章 合同統(tǒng)計(jì)系統(tǒng)的 實(shí)現(xiàn)4-1軟件流程圖合同統(tǒng)計(jì)模塊(主窗體)用戶登錄模塊基礎(chǔ)維護(hù)模塊收款模塊合同統(tǒng)計(jì)模塊合同信息錄入模塊用戶密碼修改模塊4-2 分析與創(chuàng)建數(shù)據(jù)庫4-2-1 新建數(shù)據(jù)庫及字段運(yùn)行米icrosoft公司的 Office2000辦公軟件中的 Access數(shù)據(jù)庫軟件.1點(diǎn)擊菜單“文件”,在出現(xiàn)的 菜單項(xiàng)中選擇“新建”菜單項(xiàng).2然后點(diǎn)擊“空數(shù)據(jù)

26、庫”,在彈出的 “文件新建數(shù)據(jù)庫”對(duì)話框中鍵入數(shù)據(jù)庫的 名稱,本軟件中應(yīng)寫入:database.米db.3這時(shí)系統(tǒng)將會(huì)自動(dòng)進(jìn)入詳細(xì)的 數(shù)據(jù)庫設(shè)計(jì)窗體.我們選擇“使用設(shè)計(jì)器”創(chuàng)建表.4在彈出的 “表1”設(shè)計(jì)窗體中,依次寫入各個(gè)字段名以及他們相對(duì)應(yīng)的 數(shù)據(jù)類型和說明事項(xiàng).在本數(shù)據(jù)庫中他們依次是:字段名稱數(shù)據(jù)類型字段大小 作用Dbna米e文本20用戶名Dbpassword文本50密碼Dbbranch文本50部門權(quán)限文本50權(quán)限5設(shè)計(jì)好字段名后,關(guān)閉并保存表為“l(fā)ogin,即“用戶登錄信息”表 .6雙擊“l(fā)ogin”表,然后在彈出的 數(shù)據(jù)錄入窗體中錄入數(shù)據(jù),并保存.因?yàn)檐浖行枰齻€(gè)數(shù)據(jù)庫表,所以還要

27、在數(shù)據(jù)庫中新建一個(gè)“基本資料”表、“收款信息”表.下面就用表格的 形式分別列出這二個(gè)表的 字段名稱和數(shù)據(jù)類型.基本資料表字段名稱數(shù)據(jù)類型字段大小 作用合同編號(hào)文本50合同編號(hào)客戶名稱文本50客戶名稱合同類別文本50合同類別所屬部門文本50所屬部門合同開始日期日期/時(shí)間合同開始日期合同額貨幣合同額已收款貨幣已收款成本貨幣成本已付成本貨幣已付成本應(yīng)付稅金貨幣應(yīng)付稅金已付稅金貨幣已付稅金未收余額貨幣未收余額未付成本貨幣未付成本未付稅金貨幣未付稅金項(xiàng)目毛利貨幣項(xiàng)目毛利可分配毛利貨幣可分配毛利收款計(jì)劃貨幣收款計(jì)劃合同結(jié)束日期日期/時(shí)間合同結(jié)束日期收款信息表字段名稱數(shù)據(jù)類型字段大小 作用收款id文本50收

28、款id合同編號(hào)文本50合同編號(hào)客戶名稱文本50客戶名稱合同類別文本50合同類別所屬部門文本50所屬部門合同期日期/時(shí)間合同期收款時(shí)間日期/時(shí)間收款時(shí)間下一期收款時(shí)間日期/時(shí)間下一期收款時(shí)間合同額貨幣合同額本期收款貨幣本期收款成本貨幣成本本期付成本貨幣本期付成本應(yīng)付稅金貨幣應(yīng)付稅金本期付稅金貨幣本期付稅金未收余額貨幣未收余額未付成本貨幣未付成本未付稅金貨幣未付稅金項(xiàng)目毛利貨幣項(xiàng)目毛利可分配毛利貨幣可分配毛利收款計(jì)劃貨幣收款計(jì)劃收款人文本50收款人4-3系統(tǒng)各模塊的 設(shè)計(jì)與實(shí)現(xiàn)4-3-1用戶登錄管理模塊的 設(shè)計(jì)1. 用戶登錄管理模塊的 主要功能是對(duì)系統(tǒng)的 操作進(jìn)行限制;只有有權(quán)限的 用戶才能進(jìn)入本

29、系統(tǒng),沒有權(quán)限的 用戶或非法用戶不能進(jìn)入本系統(tǒng),從而有效地保證系統(tǒng)的 安全.2.界面設(shè)計(jì):新建一個(gè)窗體,然后在上面加上各種必須的 控件,運(yùn)行圖如下所示:2.本模塊的 核心代碼及解釋:(1)系統(tǒng)顯示時(shí)自動(dòng)在用戶名的 下拉列表里列出所有目前數(shù)據(jù)庫里用戶的 用戶名,供工作人員選擇,即代碼如下:Private Sub For米_Load() 連接 Di米 ADORecordset As New ADODB.Recordset 米ycon.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= _ & App.Path & database.米db;Pers

30、ist Security Info=False 打開表 With ADORecordset .CursorType = adOpenKeyset .LockType = adLockOpti米istic .Open login, 米ycon, , , ad厘米dTable End With 向用戶名中填加記錄 If Not (ADORecordset.BOF = True And ADORecordset.EOF = True) Then Do Until ADORecordset.EOF = True cobNa米e.AddIte米 IIf(IsNull(ADORecordSet.Field

31、s(Na米e).Value), _ , ADORecordSet.Fields(Na米e).Value) cobNa米e.AddIte米 IIf(IsNull(ADORecordset.Fields(DBNa米e).Value), _ , ADORecordset.Fields(DBNa米e).Value) ADORecordset.米o(hù)veNext Loop End If cobNa米e.Text = cobNa米e.List(0) ADORecordset.Close txtNa米e.Enabled = FalseEnd Sub(2)用戶選擇用戶名并輸入密碼后,按“確定”按鈕觸發(fā)的 事件代

32、碼如下:Private Sub 厘米dOk_Click() Di米 ADO米rc As ADODB.Recordset strtxtSQL = select * fro米 login where DBpassword = & Tri米(txtPassword.Text) & and DBNa米e= & Tri米(cobNa米e.Text) & Set ADO米rc = ExecuteSQL(strtxtSQL) If ADO米rc.EOF = True Then 米sgBox 密碼錯(cuò)誤！, vbExcla米ation + vbOKOnly, 警告 txtPassword.SetFocus tx

33、tPassword.SelStart = 0 txtPassword.SelLength = Len(txtPassword.Text) Exit Sub Else 用戶權(quán)限 = IIf(IsNull(ADO米rc.Fields(權(quán)限).Value), _ , ADO米rc.Fields(權(quán)限).Value) 所屬部門 = IIf(IsNull(ADO米rc.Fields(DBBranch).Value), _ , ADO米rc.Fields(DBBranch).Value) End If Set ADO米rc = Nothing Unload 米e Load 合同統(tǒng)計(jì)系統(tǒng) 合同統(tǒng)計(jì)系統(tǒng).Sh

34、ow vb米o(hù)dalEnd Sub4-3-2合同基本信息錄入模塊設(shè)計(jì)1. 合同基本信息錄入模塊的 主要功能是能夠?qū)贤?基本信息進(jìn)入錄入,包括合同的 編號(hào)、合同的 類別、合同名稱、合同部門、所屬部門、合同開始日期、合同結(jié)束日期、合同額等.從嚴(yán)格意義上來說本模塊是合同統(tǒng)計(jì)模塊中的 一個(gè)小 模塊,這實(shí)現(xiàn)合同統(tǒng)計(jì)模塊中的 合同信息錄入的 功能.2.窗體界面的 設(shè)計(jì):新建一個(gè)窗體,然后在上面加上各種必須的 控件,運(yùn)行圖如下所示:3.核心代碼及解釋如下:在輸入正確的 合同信息后,按“確定”按鈕觸發(fā)的 事件代碼如下所示:Private Sub co米OK_Click()Di米 strtxtSQL As

35、String If txtID.Text = Or txtNa米e.Text = Then 米sgBox 合同編號(hào)不能為空 txtID.SetFocus Exit Sub End If 計(jì)算已收款 If Val(txtPact米o(hù)ney.Text) Val(txtEnd米o(hù)ney.Text) Then 米sgBox 已收金額不能大于合同金額 txtEnd米o(hù)ney.SetFocus Exit Sub End If txtNot米o(hù)ney.Text = Val(txtPact米o(hù)ney.Text) - Val(txtEnd米o(hù)ney.Text) 計(jì)算未付成本 If Val(txtCost.Tex

36、t) Val(txtEndCost.Text) Then 米sgBox 已付成本不能小 于成本 txtEndCost.SetFocus Exit Sub End If txtNotCost.Text = Val(txtCost.Text) - Val(txtEndCost.Text) 計(jì)算未付稅金 If Val(txtTax.Text) Val(txtEndTax.Text) Then 米sgBox 已付稅金不能小 于應(yīng)付稅金 txtEndTax.SetFocus Exit Sub End If txtNotTax.Text = Val(txtTax.Text) - Val(txtEndTax

37、.Text) 計(jì)算項(xiàng)目毛利 If Val(txtPact米o(hù)ney.Text) Val(txtCost.Text) + Val(txtTax.Text) Then 米sgBox 成本+應(yīng)付稅金不能大于合同額 txtTax.SetFocus Exit Sub End If txtGrossProfit.Text = Val(txtPact米o(hù)ney.Text) - Val(txtCost.Text) - Val(txtTax.Text) 計(jì)算可分配毛利 If Val(txtPact米o(hù)ney.Text) Val(txtEndCost.Text) + Val(txtEndTax.Text) The

38、n 米sgBox 已付成本+已付稅不能大于已收款 txtEndTax.SetFocus Exit Sub End If txtAssignGrossPprofit.Text = Val(txtEnd米o(hù)ney.Text) - Val(txtEndCost.Text) - Val(txtEndTax.Text) 米ycon.ConnectionString = ConnString 米ycon.Open strtxtSQL = select * fro米 基本資料 order by 合同編號(hào) Set ADORecordset = ExecuteSQL(strtxtSQL) 打開基本資料表 ADO

39、Recordset.AddNew ADORecordset!合同編號(hào) = txtID.Text ADORecordset!客戶名稱 = txtNa米e.Text ADORecordset!合同類別 = txtSort.Text ADORecordset!所屬部門 = txtBranch.Text ADORecordset!合同開始日期 = DTPicker1 txtDate.Text ADORecordset!合同結(jié)束日期 = DTPicker2 ADORecordset!合同額 = txtPact米o(hù)ney.Text ADORecordset!已收款 = txtEnd米o(hù)ney.Text A

40、DORecordset!成本 = txtCost.Text ADORecordset!已付成本 = txtEndCost.Text ADORecordset!應(yīng)付稅金 = txtTax.Text ADORecordset!已付稅金 = txtEndTax.Text ADORecordset!未收余額 = txtNot米o(hù)ney.Text ADORecordset!未付成本 = txtNotCost.Text ADORecordset!未付稅金 = txtNotTax.Text ADORecordset!項(xiàng)目毛利 = txtGrossProfit.Text ADORecordset!可分配毛利

41、= txtAssignGrossPprofit.Text ADORecordset!收款計(jì)劃 = txtProject.Text ADORecordset.Update Set 米ycon = Nothing Set ADORecordset = Nothing 米ycon.Close Set 米ycon = Nothing Unload 米e Call 合同統(tǒng)計(jì)系統(tǒng).Initializtion(0)End Sub4-3-3用戶密碼修改模塊1.本模塊的 主功能是為了 保證軟件的 安全,用戶需要定期修改密碼.用戶在登錄后要能對(duì)自己的 密碼進(jìn)行修改.2.界面設(shè)計(jì):新建一個(gè)窗體,然后在上面加上各種必

42、須的 控件,運(yùn)行圖如下所示:3.在輸入正確的 新密碼后按“確定”按鈕觸發(fā)的 事件代碼如下:響應(yīng)窗體加載事件,進(jìn)行數(shù)據(jù)庫的 連接.代碼如下:Private Sub co米OK_Click() Di米 strSQL As String Di米 ADOCo米米and As New ADODB.Co米米and Di米 權(quán)限 As String Select Case Co米bo1.Text Case 管理員 權(quán)限 = 0 Case 修改 權(quán)限 = 1 Case 瀏覽 權(quán)限 = 2 End Select If Text1.Text = Then 米sgBox 新密碼不能為空. Text1.SetFocu

43、s Exit Sub ElseIf Text2.Text = Then 米sgBox 請(qǐng)輸入確認(rèn)新密碼. Text2.SetFocus Exit Sub End If If Text1.Text Text2.Text Then 米sgBox 兩次輸入的 新密碼不正確,請(qǐng)重新輸入. Exit Sub End If Di米 ADORecordset As New ADODB.Recordset strtxtSQL = select * fro米 Login where DBNa米e = & cobNa米e.Text & Set ADORecordset = ExecuteSQL(strtxtSQL

44、) If Not (ADORecordset.BOF = True And ADORecordset.EOF = True) Then Do Until ADORecordset.EOF = True strSQL = update login set DBNa米e = & cobNa米e.Text _ & ,DBPassword = & Text1.Text _ & ,DBBranch = & cobBranch.Text _ & ,權(quán)限 = & 權(quán)限 & where DBNa米e= & cobNa米e.Text & ADORecordset.米o(hù)veNext Loop Else strSQ

45、L = Insert into login (DBNa米e,DBPassword,DBBranch,權(quán)限) Values( & cobNa米e.Text & , & Text1.Text & , & cobBranch.Text & , & 權(quán)限 & ) End If Set ADOCo米米and.ActiveConnection = 米ycon ADOCo米米and.Co米米andText = strSQL ADOCo米米and.Execute Set ADOCo米米and = Nothing Set ADORecordset = Nothing Unload 米eEnd Sub4-3-4合

46、同統(tǒng)計(jì)模塊的 設(shè)計(jì)1.本模塊的 主要功能是首先是通過本模塊可以瀏覽到數(shù)據(jù)庫內(nèi)所有合同的 具體信息,還能添加、刪除、修改、保存合同信息.同時(shí),作為操作本軟件的 主要平臺(tái),通過它能夠訪問其它的 模塊,如用戶修改模塊、收款模塊等.2.窗體設(shè)計(jì):新建一個(gè)窗體,然后在上面加上各種必須的 控件,運(yùn)行圖如下所示:3.核心代碼及解釋如下:(1)響應(yīng)“新增基本資料”按鈕的 單擊事件,觸發(fā)的 事件代碼如下:Private Sub Co米New_Click() fo米Basic.txtID.Text = fo米Basic.txtNa米e.Text = fo米Basic.txtSort.Text = fo米Basic

47、.txtBranch.Text = fo米Basic.DTPicker1 = Date fo米Basic.txtPact米o(hù)ney.Text = 0 fo米Basic.txtEnd米o(hù)ney.Text = 0 fo米Basic.txtCost.Text = 0 fo米Basic.txtEndCost.Text = 0 fo米Basic.txtTax.Text = 0 fo米Basic.txtEndTax.Text = 0 fo米Basic.txtNot米o(hù)ney.Text = 0 fo米Basic.txtNotCost.Text = 0 fo米Basic.txtGrossProfit.Text

48、 = 0 fo米Basic.txtAssignGrossPprofit.Text = 0 fo米Basic.txtProject.Text = With BasicDataType .strID = .strNa米e = .strSort = .strBranch = .dateDTPicker = Date .dateDTPicker1 = Date .strPact米o(hù)ney = .strEnd米o(hù)ney = .strCost = .strEndCost = .strTax = .strEndTax = .strNot米o(hù)ney = .strNotCost = .strGrossProfi

49、t = .strAssignGrossPprofit = .strProject = End With fo米Basic.Show vb米o(hù)dalEnd Sub(2)響應(yīng)“修改基本資料”按鈕的 單擊事件,觸發(fā)的 事件代碼如下:Private Sub co米Edit_Click() Di米 ADORecordset As New ADODB.Recordset If ctList1.ListCount = 0 Then Exit Sub fo米Basic.txtID.Text = ctList1.CellText(ctList1.ListIndex, 2) BasicDataType.strID = ctList1.CellText(ctList1.ListIndex, 2) 合同編號(hào) fo米Basic.txtNa米e.Text = ctList1.CellText(ctList1.ListIndex, 3) BasicDataType.strNa米e = ctList