數(shù)據(jù)庫原理與應(yīng)用課程設(shè)計-合同管理系統(tǒng)設(shè)計

1、目 錄 TOC o 1-2 h z u HYPERLINK l _Toc297876859 第一章 系統(tǒng)分析 PAGEREF _Toc297876859 h 1 HYPERLINK l _Toc297876860 1.1 開發(fā)背景 PAGEREF _Toc297876860 h 1 HYPERLINK l _Toc297876861 1.2 系統(tǒng)需求分析 PAGEREF _Toc297876861 h 2 HYPERLINK l _Toc297876862 1.3 開發(fā)環(huán)境 PAGEREF _Toc297876862 h 3 HYPERLINK l _Toc297876863 第二章 系統(tǒng)設(shè)計

2、 PAGEREF _Toc297876863 h 5 HYPERLINK l _Toc297876864 2.1 系統(tǒng)架構(gòu) PAGEREF _Toc297876864 h 5 HYPERLINK l _Toc297876865 2.2 系統(tǒng)功能模塊 PAGEREF _Toc297876865 h 6 HYPERLINK l _Toc297876866 2.3 系統(tǒng)流程圖 PAGEREF _Toc297876866 h 7 HYPERLINK l _Toc297876867 2.4 系統(tǒng)的數(shù)據(jù)庫設(shè)計 PAGEREF _Toc297876867 h 8 HYPERLINK l _Toc297876

3、868 第三章 系統(tǒng)實現(xiàn) PAGEREF _Toc297876868 h 11 HYPERLINK l _Toc297876869 3.1 登錄模塊實現(xiàn) PAGEREF _Toc297876869 h 11 HYPERLINK l _Toc297876870 3.2 用戶注冊 PAGEREF _Toc297876870 h 13 HYPERLINK l _Toc297876871 3.2 主界面 PAGEREF _Toc297876871 h 14 HYPERLINK l _Toc297876872 3.3 密碼修改與管理員添加 PAGEREF _Toc297876872 h 15 HYPER

4、LINK l _Toc297876873 3.4 信息管理 PAGEREF _Toc297876873 h 18 HYPERLINK l _Toc297876874 第四章 系統(tǒng)測試 PAGEREF _Toc297876874 h 23 HYPERLINK l _Toc297876875 4.1 系統(tǒng)測試步驟 PAGEREF _Toc297876875 h 23 HYPERLINK l _Toc297876876 4.2 系統(tǒng)測試結(jié)論 PAGEREF _Toc297876876 h 24 HYPERLINK l _Toc297876877 第五章 課程設(shè)計總結(jié) PAGEREF _Toc2978

5、76877 h 25 HYPERLINK l _Toc297876878 系統(tǒng)的功能和特點 PAGEREF _Toc297876878 h 25 HYPERLINK l _Toc297876879 5.2 課程設(shè)計心得 PAGEREF _Toc297876879 h 25 HYPERLINK l _Toc297876880 參考文獻 PAGEREF _Toc297876880 h 26第一章 系統(tǒng)分析1.1 開發(fā)背景傳統(tǒng)的合同管理，多采用手工的形式管理合同，即繁瑣又易于出過失采用手工管理合同，這是由于涉及的部門眾多，需要管理的合同要素也各不相同，因此造成信息不集中，實時性不強，導(dǎo)致各部門協(xié)作，

6、業(yè)務(wù)流程組建，監(jiān)控制度執(zhí)行方面效率不高，費時費力等問題，具體表現(xiàn)在如下方面：1)文檔管理困難：傳統(tǒng)紙質(zhì)合同與電子版合同共存，但對于不同的人員想閱讀參考合同時，存在查找不方便的問題。尤其是領(lǐng)導(dǎo)需要了解合同文本時需要消耗很多時間。2)進度控制困難：由于合同數(shù)目多，參與人員多，合同進度的控制根本靠手工和普通word、excel管理已很難滿足公司開展需要，并且當領(lǐng)導(dǎo)想全局或全程了解合同情況時存在很大障礙。財務(wù)人員的付款依據(jù)也與進度密切相關(guān)，但同樣存在障礙。3)信息匯總困難：采用手工或EXCEL管理時，由于不同部門的數(shù)據(jù)格式不統(tǒng)一，采集也不能夠及時繼續(xù)，匯總工作需要消耗大量時間還不一定準確。對于領(lǐng)導(dǎo)的決

7、策時間有一定的影響。4)缺少預(yù)警機制：缺少對合同進度、結(jié)款等關(guān)鍵節(jié)點的預(yù)警，不能準確地預(yù)測近期可能的收支工程，不能幫助公司進行財務(wù)規(guī)劃，掌控現(xiàn)金流，更好地發(fā)揮資金運作。完善的合同管理是公司健康運作的一個重要標志。然而，完善的合同管理需要公司許多的資源，如何簡化合同的管理而不失其完整、科學(xué)是許多公司頭痛的問題。隨著電子技術(shù)的飛速開展，合同進行信息化的管理，防止進行簡單的重復(fù)，從而做到準確、快捷。為了適應(yīng)這個要求，同時也是適應(yīng)時代的要求，更加快速、準確的合同管理系統(tǒng)也就應(yīng)運而生了，合同管理系統(tǒng)，是建立在信息技術(shù)根底上，利用現(xiàn)代企業(yè)的先進管理思想，為企業(yè)提供決策、方案、控制與經(jīng)營績效評估的全方位、系

8、統(tǒng)化的合同管理平臺。在當代業(yè)務(wù)管理是合同管理的核心需求，而合同管理系統(tǒng)就恰恰可以解決實際業(yè)務(wù)管理中的問題，專注于企業(yè)合同管理的動態(tài)化、智能化、網(wǎng)絡(luò)化，為企業(yè)提供合理的流程和業(yè)務(wù)約束以及全方位的合同管理功能，包括合同起草、合同審批、文本管理、履約監(jiān)督、結(jié)算安排、智能提醒合同收付款、工程管理、合同結(jié)款情況統(tǒng)計分析、報表輸出和決策支持等。是為了更好地適應(yīng)工作人員對合同管理系統(tǒng)的需求，緩解手工管理的弊端，開發(fā)合同管理系統(tǒng)，合同管理系統(tǒng)向用戶提供的效勞將在傳統(tǒng)的“錄入-修改-刪除-查找的根底上，近一步提供全方位的信息效勞，1它具有以下幾個特點：1可以存儲所有合同的資料，具有平安、高效的的特性；2只需一名

9、合同信息錄入人員即可操作本合同管理系統(tǒng)，可以節(jié)省大量的人力和物力；3可以通過查詢系統(tǒng)迅速查到所需的信息。在合同管理系統(tǒng)搭建和運行中，企業(yè)能不斷標準和優(yōu)化合同管理業(yè)務(wù)流程，有效地把簽約授權(quán)管理、相對人管理、合同立項選商、合同申報、合同審查審批、合同簽訂、合同履行和合同歸檔等工作借助合同管理系統(tǒng)平臺進行了標準管理，實現(xiàn)了合同管理工作由以往淺層被動管理向深層寬幅度主動管理的質(zhì)的飛躍合同管理系統(tǒng)上線，改變了以往合同審查審批流于形式、審查不嚴、把關(guān)不到位等問題。系統(tǒng)流程通過劃分合同承辦范圍、確定部門職責(zé)、專業(yè)地位及審查審批權(quán)限等，使管理層次明確，承辦范圍固定，專業(yè)技術(shù)、經(jīng)濟商務(wù)、法律及企業(yè)管理人員全過程

10、參與，人性化地表達了責(zé)權(quán)利的有機統(tǒng)一，實現(xiàn)了合同簽訂事前、事中和事后管理，有效控制了法律風(fēng)險。合同管理系統(tǒng)上線，使管理幅度延伸、管理層次清晰，合同簽訂的時效性明顯提高。在運行中合同審查人員能更加直觀、透明、一目了然地把好“三項審查關(guān)，特別是加強了對合同相對人主體資格的審查，對不具備資質(zhì)、沒有履約能力的，堅決不與之簽訂合同2。合同管理系統(tǒng)可以為企業(yè)管理帶來如下價值：1.標準根底數(shù)據(jù)管理，合同管理系統(tǒng)采用集中的數(shù)據(jù)管理，可以有效地改變企業(yè)信息分布比擬散亂的現(xiàn)狀。同時，系統(tǒng)提供自定義字段功能，可以為企業(yè)實現(xiàn)完整、標準的數(shù)據(jù)管理提供一個良好的平臺支撐。2.提高管理效率，合同管理系統(tǒng)防止了手工管理合同出

11、現(xiàn)，利用審批流管理，可以方便、快捷地處理企業(yè)管理事務(wù)；3.實現(xiàn)標準化管理和個性化管理的有機結(jié)合，合同管理系統(tǒng)通過全局設(shè)置和權(quán)限分配，可以由公司制訂統(tǒng)一采用的管理標準，4.為領(lǐng)導(dǎo)決策提供準確及時廣泛的信息，利用互聯(lián)網(wǎng)，領(lǐng)導(dǎo)可以在任何時間、任何地方進入系統(tǒng)，隨時查閱與合同管理相關(guān)根本信息，準確定位下屬人員的工作情況，掌握合同執(zhí)行現(xiàn)狀，并方便地生成各種數(shù)據(jù)報表或圖表。5.為用戶提供全面合同管理解決方案，合同管理系統(tǒng)與企業(yè)管理咨詢相結(jié)合，可以為客戶提供全面的合同管理解決方案。通過合同管理系統(tǒng)的應(yīng)用和實施，可以為合同管理信息化和合同管理能力提升提供一個最正確的結(jié)合點，切實打造企業(yè)核心競爭力。由以上所述，

12、本文擬設(shè)計一個平安性更好，有更強的通用性和可擴展性和具備較強的意外事件處理能力，操作簡單，使用方便的合同管理系統(tǒng)。本文設(shè)計的是一套基于微軟SQL server2000數(shù)據(jù)庫的網(wǎng)絡(luò)軟件系統(tǒng)。該合同管理系統(tǒng)是基于瀏覽器的操作方式，界面簡潔，菜單模塊布局清晰，操作者能夠更快、更方便地上手使用。1.2 系統(tǒng)需求分析供貨廠家信息需求分析是系統(tǒng)總體設(shè)計的根底,要編制一個完整的合同信息管理系統(tǒng),必須首先理解用戶的需求,并形成需求說明書.在此根底上才可以進行系統(tǒng)設(shè)計,程序編碼等工作。通過發(fā)放大量的調(diào)查表和現(xiàn)場調(diào)查以及對有關(guān)人員的詢問,我們分析得出合同的業(yè)務(wù)流程圖和合同處理流程圖2如下:供給科 廠家合同簽訂合同

13、采購方案表 供給科物資信息 圖 1-1合同業(yè)務(wù)流程圖供給商物資信息提貨單供給科合同執(zhí)行合同簽訂合同采購方案 圖 1-2 合同處理流程圖本系統(tǒng)可以實現(xiàn)一下功能：用戶登錄管理。而用戶又分為管理員和普通用戶兩種，沒有權(quán)限的用戶或非法用戶不能進入本系統(tǒng)，從而有效的保證了系統(tǒng)的平安。管理員可以對信息進行編輯、修改的操作，而普通用戶沒有編輯的權(quán)限。合同根本信息的錄入。能對合同的根本信息進行錄入，包括合同的編號、合同的類別、合同的名稱、簽訂合同的雙方，簽約日期，年限，成交金額等信息。對用戶密碼進行修改，為了保證軟件的平安，用戶需要定期的修改密碼，用戶登錄后可以對自己的密碼進行修改。用戶注冊，添加管理員。本系

14、統(tǒng)實現(xiàn)了用戶注冊和管理員添加的功能，這些操作需要嚴格的用戶認證，確保系統(tǒng)的平安性。本系統(tǒng)還包括對根本信息的顯示，可以進行數(shù)據(jù)的增加、刪除和修改等一系列操作。合同管理系統(tǒng)的強大功能，使得合同信息管理更加的方便、快捷，而且更加的準確，提高了工作效率。1.3 開發(fā)環(huán)境數(shù)據(jù)庫是數(shù)據(jù)管理的最新技術(shù)，是計算機科學(xué)的重要分支。十年來，據(jù)庫管理系統(tǒng)已從專用的應(yīng)用程序包開展成為通用系統(tǒng)軟件。由于數(shù)據(jù)庫具有數(shù)據(jù)的結(jié)構(gòu)化、可控冗余度、較高的程序與數(shù)據(jù)獨立性、易于擴充、易于編制應(yīng)用程序等優(yōu)點，較大的信息系統(tǒng)都是建立在數(shù)據(jù)庫設(shè)計之上的。由于用到的數(shù)據(jù)表格多，另外考慮到實際情況，如合同根本信息的變動，我們選用SQL Se

15、rver作為數(shù)據(jù)庫開發(fā)，因為SQL Server是一種常用的關(guān)系數(shù)據(jù)庫，能存放和讀取大量的數(shù)據(jù)，管理眾多并發(fā)的用戶，應(yīng)選用SQL Server數(shù)據(jù)庫。目前的可用的設(shè)計技術(shù)在設(shè)計此類系統(tǒng)上的數(shù)據(jù)庫、技術(shù)已經(jīng)非常成熟，可提供的開發(fā)工具也很多，例如：Visual C+，Visual Basic ，Powerbuilder，Dephi，C#，Visual foxpro等，它們都是很好的數(shù)據(jù)庫開發(fā)工具，都是可視化開發(fā)工具，功能強大，開發(fā)周期短，對于本任務(wù)都能夠勝任。Visual Basic是一種可視化的、面對對象和調(diào)用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)windows環(huán)境下的各種應(yīng)用程序，它簡單

16、易學(xué)、效率高、且功能強大，可以高效、快速地開發(fā)出window環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)?？偟膩碚f，Visual Basic具有以下特點：可視化編程：用傳統(tǒng)程序語言設(shè)計程序時，都是通過編寫程序代碼來設(shè)計用戶界面，在設(shè)計過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察，如果對界面的效果不滿意，還要回到程序中修改，影響了軟件的開發(fā)效率。Visual Basic自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需編寫實現(xiàn)程序功能的那局部代碼，從而可以大大提高程序設(shè)計效率3。面向?qū)ο蟮某绦蛟O(shè)計：4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟪绦蛟O(shè)計語言不完

17、全相同，在一般的面向?qū)ο蟪绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic那么是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法，把程序和數(shù)據(jù)封裝起來做為一個對象，并為每個對象賦予應(yīng)有的屬性。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic自動生成對象的程序代碼冰封裝起來，每個對象以圖形方式顯示在界面上，都是可視的。結(jié)構(gòu)化程序設(shè)計語言：Visual Basic是在BASIC語言的根底上開展起來的，具有高級程序設(shè)計語言的語句結(jié)構(gòu)，Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈

18、活的調(diào)試器和編譯器。因此選擇VB編程語言進行設(shè)計。 第二章 系統(tǒng)設(shè)計2.1 系統(tǒng)架構(gòu)整個系統(tǒng)分為三個局部，管理員、普通用戶和主界面。首先，因為系統(tǒng)是面向特定的某些對象的，所以用戶進入系統(tǒng)應(yīng)該進行身份驗證。根據(jù)不同的身份進入不同的操作界面，近而執(zhí)行不同的操作。對于普通用戶來說，可以通過注冊成為該系統(tǒng)合法的用戶，然后通過用戶名和密碼認證就可以登錄合同管理系統(tǒng)，進入用戶主界面之后，普通用戶可以修改自己的登錄密碼，查看供方信息、需方信息、物資信息和合同的根本信息，但是普通用戶沒有修改這些信息的權(quán)限，瀏覽信息結(jié)束后，用戶可以通過點擊“退出按鈕退出合同管理系統(tǒng)。對于管理員而言，通過用戶名和密碼認證登錄系統(tǒng)

19、，進入管理員主界面，可以修改登陸的密碼，查看供方信息、需方信息、物資信息和合同信息，并可以對相應(yīng)的信息進行修改，同時還可以進行添加新的管理員的操作，對根本的信息進行錄入，添加新的合同等一系列操作，最后通過點擊“退出按鈕退出系統(tǒng)。本系統(tǒng)是以Windows XP系統(tǒng)為操作平臺，在.NET環(huán)境下編程實現(xiàn)。系統(tǒng)E-R圖姓名普通用戶管理員管理編號姓名性別密碼年齡 編號密碼郵箱信息管理供方信息需方信息物資信息合同信息1NN1查看1N郵箱 圖 2-1 系統(tǒng)E-R圖2.2 系統(tǒng)功能模塊本系統(tǒng)分為用戶管理模塊、供方信息管理模塊、需方信息管理模塊、物資信息管理模塊、合同信息管理模塊、合同建立管理模塊、密碼修改管理

20、模塊、退出模塊、信息錄入管理模塊九個模塊。合同管理系統(tǒng)管理員普通用戶密碼修改信息查詢退出供方信息需方信息物資信息合同信息信息查詢用戶管理合同建立密碼修改信息錄入退出管理員普通用戶供方信息錄入需方信息錄入物資信息錄入 圖 2-2 系統(tǒng)模塊圖 普通用戶用例圖 圖 2-3 普通用戶用例圖 管理員用例圖： 圖 2-4 管理員用例圖2.3 系統(tǒng)流程圖1、登錄模塊流程圖登陸模塊包含三個可填選項，用戶角色，分為管理員和普通用戶兩種，通過填寫用戶名和密碼，經(jīng)過認證的用戶才可以進入系統(tǒng)，查看相應(yīng)的信息，修改密碼等操作。系統(tǒng)用戶管理員用戶普通用戶修改管理員用戶密碼添加新的管理員信息修改自身密碼 圖 2-5 登錄系

21、統(tǒng)模塊流程圖用戶權(quán)限分為管理員和普通用戶。2、信息管理模塊流程圖信息管理供方信息需方信息物資信息合同信息用戶信息圖 2-6 信息管理模塊流程圖2.4 系統(tǒng)的數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計主要是進行數(shù)據(jù)庫的邏輯設(shè)計，即將數(shù)據(jù)按一定的分類、分組系統(tǒng)和邏輯層次組織起來，是面向用戶的。是根據(jù)根據(jù)用戶的需求，在某一具體的數(shù)據(jù)庫管理系統(tǒng)上，設(shè)計數(shù)據(jù)庫的結(jié)構(gòu)和建立數(shù)據(jù)庫的過程。4數(shù)據(jù)庫設(shè)計時需要綜合企業(yè)各部門的存檔數(shù)據(jù)和數(shù)據(jù)需求，分析各個數(shù)據(jù)之間的關(guān)系，按照DBMS提供的功能和描述工具，設(shè)計出規(guī)模適當、正確反映數(shù)據(jù)關(guān)系、數(shù)據(jù)冗余少，存取效率高、能滿足多種查詢要求的數(shù)據(jù)模型。是對于一個給定的應(yīng)用環(huán)境，構(gòu)造最優(yōu)的數(shù)據(jù)庫模

22、式，建立數(shù)據(jù)庫及其應(yīng)用系統(tǒng)，使之能夠有效地存儲數(shù)據(jù)，滿足各種用戶的應(yīng)用需求。數(shù)據(jù)庫設(shè)計是建立數(shù)據(jù)庫及其應(yīng)用系統(tǒng)的技術(shù)，是信息系統(tǒng)開發(fā)和建議中的核心技術(shù)。由于數(shù)據(jù)庫應(yīng)用系統(tǒng)的復(fù)雜性，為了支持相關(guān)程序運行，數(shù)據(jù)庫設(shè)計就變得異常復(fù)雜，因此最正確設(shè)計不可能一蹴而就，而只能是一種“反復(fù)探尋，逐步求精的過程，也就是規(guī)劃和結(jié)構(gòu)化數(shù)據(jù)庫中的數(shù)據(jù)對象以及這些數(shù)據(jù)對象之間關(guān)系的過程。數(shù)據(jù)庫是信息系統(tǒng)的核心和根底，把信息系統(tǒng)中大量的數(shù)據(jù)按一定的模型組織起來，提供存儲、維護、檢索數(shù)據(jù)的功能，使信息系統(tǒng)可以方便、及時、準確地從數(shù)據(jù)庫中獲得所需的信息，是信息系統(tǒng)的各個局部能否緊密地結(jié)合在一起以及如何結(jié)合的關(guān)鍵所在。也是是

23、信息系統(tǒng)開發(fā)和建設(shè)的重要組成局部4。綜合以上分析，要實現(xiàn)上面的所有功能模塊，數(shù)據(jù)庫共要設(shè)計六個表，它們分別是：管理員信息表、普通用戶信息表、供方信息表、需方信息表、物質(zhì)信息表、合同信息表，每張表中都包含很多的字段，所具有的一些屬性，在進行數(shù)據(jù)訪問的時候，都要用到這幾張表，這是數(shù)據(jù)庫設(shè)計實現(xiàn)的根底，也是系統(tǒng)實現(xiàn)必不可少的組成局部。具體表中的信息如下： 表2-1 管理員信息表序號字段名數(shù)據(jù)類型數(shù)據(jù)長度NULLPrimarykey描述1numberbigint8NY編號2usernamenvarchar20NN姓名3passwordnvarchar10NN密碼4emailnvarchar30NN注冊

24、郵箱5Problemnvarchar20NN密碼提示問題6Answernvarchar20NN問題答案表2-2 普通用戶信息表序號字段名數(shù)據(jù)類型數(shù)據(jù)長度NULLPrimarykey描述1Numberbigint8NY編號2Usernamenvarchar20NN姓名3Passwordnvarchar10NN密碼4Emailnvarchar30NN注冊郵箱5AgeBigint10YN年齡6Sexnvarchar10YN性別7Problemnvarchar20NN密碼提示問題4Answernvarchar20NN問題答案表2-3 供方根本信息表序號字段名數(shù)據(jù)類型數(shù)據(jù)長度NULLPrimarykey

25、描述1Idbigint8NY編號2namenvarchar20NN廠家名稱3Addressnvarchar30YN廠家地址4Typenvarchar10NN貨物類型5Aveprizenvarchar30YN平均價格6Maxnumnvarchar30NN提供最大量7Moneynvarchar30YN廠家總資產(chǎn)8GradeBigint10NN廠家評價表2-4 需方根本信息表序號字段名數(shù)據(jù)類型數(shù)據(jù)長度NULLPrimarykey描述1Numberbigint8NY編號2namenvarchar20NN廠家名稱3Addressnvarchar30YN廠家地址4Typenvarchar10NN貨物類型5

26、Maxnumnvarchar30YN需求最大量6Moneynvarchar30YN廠家總資產(chǎn)7GradeBigint10NN廠家評價表2-5 物資根本信息表序號字段名數(shù)據(jù)類型數(shù)據(jù)長度NULLPrimarykey描述1Numberbigint8NY編號2namenvarchar20NN物資名稱3Addressnvarchar30NN存放地址4Typenvarchar10NN物資類型6Prizenvarchar30YN平均價格7Quantitynvarchar30YN庫存總量8GradeBigint10NN物資等級 表2-6 合同根本信息表序號字段名數(shù)據(jù)類型數(shù)據(jù)長度NULLPrimarykey描述

27、1Numberbigint8NY編號2Providernvarchar20NN簽約甲方3Receivernvarchar20NN簽約乙方4Datesnvarchar20YN簽約日期5Thingnvarchar20NN簽約物品6Addressnvarchar30YN簽約地點7Yearsnvarchar10NN合約年限8PrizeNvarchar30NN成交金額由上述六張表構(gòu)成了整個合同管理系統(tǒng)的是數(shù)據(jù)庫設(shè)計，其數(shù)據(jù)表格中含有大量的數(shù)據(jù)信息，為合同管理系統(tǒng)的構(gòu)建打下了堅實的根底。數(shù)據(jù)庫設(shè)計是合同信息管理系統(tǒng)的核心和根底，使信息管理系統(tǒng)可以方便、及時、準確地從數(shù)據(jù)庫中獲得所需的信息，并正確的顯示在用

28、戶的眼前，數(shù)據(jù)庫設(shè)計包含了系統(tǒng)中主要功能模塊實現(xiàn)的信息查詢和信息存儲。使系統(tǒng)實現(xiàn)根本功能的重要組成成分，沒有數(shù)據(jù)庫設(shè)計，合同管理系統(tǒng)的開發(fā)就無從談起，所以，要搭建功能完善的合同管理系統(tǒng)，就必須有一個完整的，穩(wěn)定性強數(shù)據(jù)庫設(shè)計。 第三章 系統(tǒng)實現(xiàn)應(yīng)用程序用VB開發(fā)，界面設(shè)計的簡單明了，根據(jù)需求分析和功能設(shè)計，系統(tǒng)應(yīng)用程序分為六大模塊：登錄模塊、用戶注冊、主界面、密碼修改、信息管理、管理員添加模塊。3.1 登錄模塊實現(xiàn)登錄界面是用戶最先看到的系統(tǒng)的界面，所以直觀上給用戶的感覺很重要，所以做一個好的界面，可以提高軟件的親和力，本合同管理系統(tǒng)的登錄界面如圖3-1。 圖 3-1 登錄模塊界面根據(jù)登錄模塊

29、的功能，用戶分為管理員和普通用戶兩種，都需要輸入正確的用戶名和密碼，得到系統(tǒng)認證后才可以進入系統(tǒng)的主界面，管理員登錄進入管理員的主界面，普通用戶登錄進入用戶主界面。普通用戶只有查看信息和修改本密碼的權(quán)限，而管理員可以對數(shù)據(jù)進行修改、刪除等操作。具體代碼實現(xiàn)如下5：Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Dim user As String Dim passw As String If username0.Text And password.Text Then

30、 Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=contract;Data Source=.) Dim str, str1 As String str = select * from login where username= & username0.Text & and type= & role.SelectedItem.Text & and password= & password.Text &

31、str1 = select * from users where username= & username0.Text & and type= & role.SelectedItem.Text & and password= & password.Text & If role.SelectedItem.Text = 管理員 Then Dim cmd As New OleDbCommand(str, conn) conn.Open() Dim dr As OleDbDataReader = cmd.ExecuteReader() If dr.Read() = True Then conn.Clo

32、se() Response.Redirect(default2.aspx) Else conn.Close() message.Text = 請輸入正確的用戶名和密碼 End If End If If role.SelectedItem.Text = 普通用戶 Then Dim cmd1 As New OleDbCommand(str1, conn) conn.Open() Dim dr As OleDbDataReader = cmd1.ExecuteReader() If dr.Read() = True Then conn.Close() Response.Redirect(defaul

33、t20.aspx) Else conn.Close() message.Text = 請輸入正確的用戶名和密碼 End If End If End If End Sub3.2 用戶注冊用戶注冊界面如下列圖： 圖 3-2 用戶注冊界面具體實現(xiàn)代碼如下：Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persi

34、st Security Info=False;Initial Catalog=contract;Data Source=.) Dim strsql As String strsql = insert into users (type,username,password,email,age,sex,problem,answer) values (普通用戶, & username.Text & , & password.Text & , & email1.Text & , & age.Text & , & sex.SelectedItem.Text & , & answer.Text & , &

35、problem.SelectedItem.Text & ) Dim cmd As New OleDbCommand(strsql, conn) conn.Open() cmd.ExecuteNonQuery() conn.Close() Response.Redirect(default.aspx) End Sub Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles password.Text = email1.Text = age.Text = sex.Sel

36、ectedItem.Text = 男 problem.SelectedItem.Text = 后六位 answer.Text = End Sub通過填寫用戶注冊信息，就可以成為本系統(tǒng)合法的用戶，通過用戶名和密碼就可以登錄系統(tǒng)，查看系統(tǒng)內(nèi)的信息。3.2 主界面主界面包含管理員主界面和普通用戶主界面如下列圖： 圖 3-3 管理員主界面圖 3-4 普通用戶主界面由主界面的不同就可以看出兩種用戶在權(quán)限上的差異，管理員可以修改信息，添加合同，而用戶只能瀏覽信息。3.3 密碼修改與管理員添加圖 3-5 密碼修改界面具體實現(xiàn)代碼如下6： Protected Sub LinkButton11_Click(By

37、Val sender As Object, ByVal e As System.EventArgs) Handles Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=contract;Data Source=.) Dim str, str1 As String str = update login set password= & password2.Text & where username= & us

38、ername.Text & and email= & email.Text & str1 = select * from login where username= & username.Text & and email= & email.Text & Dim cmd As New OleDbCommand(str1, conn) Dim cmd2 As New OleDbCommand(str, conn) conn.Open() cmd.ExecuteNonQuery() cmd2.ExecuteNonQuery() Dim dr As OleDbDataReader = cmd.Exec

39、uteReader() If dr.Read() = True Then conn.Close() Response.Redirect(default14.aspx) Else message.Text = 密碼修改不成功 End If系統(tǒng)還提供了密碼找回的功能，具體界面如下 圖 3-6 密碼找回界面具體實現(xiàn)代碼如下6：Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Dim conn As New OleDbConnection(Provider=SQLOL

40、EDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=contract;Data Source=.) Dim str, str1 As String str = select * from login where username= & username.Text & and email= & email.Text & and problem= & problem.SelectedItem.Text & and answer= & answer.Text & str1 = select * from

41、 users where username= & username.Text & and email= & email.Text & and problem= & problem.SelectedItem.Text & and answer= & answer.Text & If role.SelectedItem.Text = 管理員 Then Dim cmd As New OleDbCommand(str, conn) conn.Open() Dim dr As OleDbDataReader = cmd.ExecuteReader() If dr.Read() = True Then c

42、onn.Close() Response.Redirect(default2.aspx) Else conn.Close() message.Text = 找回密碼失敗 End If End If If role.SelectedItem.Text = 普通用戶 Then Dim cmd As New OleDbCommand(str1, conn) conn.Open() Dim dr As OleDbDataReader = cmd.ExecuteReader() If dr.Read() = True Then conn.Close() Response.Redirect(default

43、20.aspx) Else conn.Close() message.Text = 找回密碼失敗 End If End If End Sub添加管理員界面如下： 圖 3-7 添加管理員界面具體實現(xiàn)代碼如下： Protected Sub LinkButton13_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=Fal

44、se;Initial Catalog=contract;Data Source=.) Dim str As String str = insert into login (type,username,password,email,problem,answer)values(管理員, & username.Text & , & password1.Text & , & email.Text & , & problem.SelectedItem.Text & , & answer.Text & ) Dim cmd As New OleDbCommand(str, conn) conn.Open()

45、 cmd.ExecuteNonQuery() Response.Redirect(default2.aspx) conn.Close() End Sub3.4 信息管理其中信息管理包含供方信息管理、需方信息管理、物資信息管理、合同信息管理四方面，而合同信息管理又分為合同的查詢和建立。以供方信息管理為例，具體界面如下列圖： 圖3-8 供方信息管理界面具體實現(xiàn)代碼如下：先與數(shù)據(jù)庫綁定，綁定函數(shù)如下Sub binddata() Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Se

46、curity Info=False;Initial Catalog=contract;Data Source=.) Dim cmd As New OleDbCommand(select * from provider, conn) Dim adp As New OleDbDataAdapter(cmd) Dim ds As New DataSet() adp.Fill(ds, provider) myGridView.DataSource = ds.Tables(provider).DefaultView myGridView.DataBind() End Sub 實現(xiàn)數(shù)據(jù)編輯、刪除、更新操作

47、代碼如下7：Protected Sub mygridview_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles mygridview.EditIndex = -1 binddata() End Sub Protected Sub mygridview_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEdit

48、EventArgs) Handles binddata() End Sub Protected Sub mygridview_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=contract;D

49、ata Source=.) Dim strsql, txtname, txtaddress, txttype, txtgrade, txtaveprize, txtmaxnum, txtmoney, key As String txtname = CType(myGridView.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text.ToString().Trim() txtaddress = CType(myGridView.Rows(e.RowIndex).Cells(3).Controls(0), TextBox).Text.ToStr

50、ing().Trim() txttype = CType(myGridView.Rows(e.RowIndex).Cells(4).Controls(0), TextBox).Text.ToString().Trim() txtaveprize = CType(myGridView.Rows(e.RowIndex).Cells(5).Controls(0), TextBox).Text.ToString().Trim() txtmaxnum = CType(myGridView.Rows(e.RowIndex).Cells(6).Controls(0), TextBox).Text.ToStr

51、ing().Trim() txtmoney = CType(myGridView.Rows(e.RowIndex).Cells(7).Controls(0), TextBox).Text.ToString().Trim() txtgrade = CType(myGridView.Rows(e.RowIndex).Cells(8).Controls(0), TextBox).Text.ToString().Trim() strsql = Update provider Set name= & txtname & ,address= & txtaddress & ,type= & txttype

52、& ,maxnum= & txtmaxnum & ,grade= & txtgrade & ,aveprize= & txtaveprize & ,money= & txtmoney & where number = & key & Dim cmd As New OleDbCommand(strSql, conn) conn.Open() cmd.ExecuteNonQuery() conn.Close() mygridview.EditIndex = -1 binddata() End Sub Protected Sub mygridview_RowDeleting(ByVal sender

53、 As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=contract;Data Source=.) Dim str, key As String str = delete from provider where number = & key &

54、Dim cmd As New OleDbCommand(str, conn) conn.Open() cmd.ExecuteNonQuery() conn.Close() mygridview.EditIndex = -1 binddata() End Sub供方信息管理、需方信息管理、物資信息管理、合同信息管理在數(shù)據(jù)查詢方式上可以歸為一類，用gridview控件進行顯示，并可以通過點擊編輯按鈕對數(shù)據(jù)進行修改，點擊刪除就可以刪除數(shù)據(jù)。同時系統(tǒng)還實現(xiàn)了自動分頁、自動排序的功能。合同建立界面如下列圖： 圖 3-9 合同建立界面具體實現(xiàn)代碼如下：Protected Sub Button1_Click

55、(ByVal sender As Object, ByVal e As System.EventArgs) Handles Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=contract;Data Source=.) Dim strsql As String strsql = insert into contract (number,provider,receiver,thing,years,date

56、s,address,prize) values ( & number.Text & , & provider.Text & , & receiver.Text & , & thing.Text & , & years.Text & , & Today() & , & address.Text & , & prize.Text & ) Dim cmd As New OleDbCommand(strsql, conn) conn.Open() cmd.ExecuteNonQuery() conn.Close() Response.Redirect(default2.aspx) End Sub此界面

57、可以實現(xiàn)合同的創(chuàng)立，通過填寫簽訂合同的甲乙雙方及地址、年限、物品等信息，點擊確定按鈕所輸入合同就存入數(shù)據(jù)庫中了。信息錄入界面如下列圖： 圖 3-10 信息錄入界面具體實現(xiàn)代碼8如下：Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles If program.SelectedItem.Text = 供方信息 Then Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSP

58、I;Persist Security Info=False;Initial Catalog=contract;Data Source=.) Dim strsql As String strsql = insert into provider (number,name,address,type,aveprize,maxnum,money,grade) values ( & number.Text & , & name.Text & , & prize.Text & , & address.Text & , & Type.SelectedItem.Text & , & maxnum.Text &

59、, & money.Text & , & grade.SelectedItem.Text & ) Dim cmd As New OleDbCommand(strsql, conn) conn.Open() cmd.ExecuteNonQuery() conn.Close() message.Text = 信息錄入成功 End If If program.SelectedItem.Text = 需方信息 Then Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Securit

60、y Info=False;Initial Catalog=contract;Data Source=.) Dim strsql As String strsql = insert into needer (number,name,address,type,maxnum,money,grade) values ( & number.Text & , & name.Text & , & address.Text & , & Type.SelectedItem.Text & , & maxnum.Text & , & money.Text & , & grade.SelectedItem.Text