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

1、目 錄第一章第一章 系統(tǒng)分析系統(tǒng)分析.1 11.1 開發(fā)背景 .11.2 系統(tǒng)需求分析 .21.3 開發(fā)環(huán)境 .3第二章第二章 系統(tǒng)設計系統(tǒng)設計.5 52.1 系統(tǒng)架構 .52.2 系統(tǒng)功能模塊 .62.3 系統(tǒng)流程圖 .72.4 系統(tǒng)的數(shù)據(jù)庫設計 .8第三章第三章 系統(tǒng)實現(xiàn)系統(tǒng)實現(xiàn).11113.1 登錄模塊實現(xiàn) .113.2 用戶注冊 .133.2 主界面 .143.3 密碼修改與管理員添加 .153.4 信息管理 .18第四章第四章 系統(tǒng)測試系統(tǒng)測試.23234.1 系統(tǒng)測試步驟 .234.2 系統(tǒng)測試結論 .24第五章第五章 課程設計總結課程設計總結.25255.1 系統(tǒng)的功能和特點 .

2、255.2 課程設計心得 .25參考文獻參考文獻.2626東北石油大學本科生課程設計1第一章 系統(tǒng)分析1.1 開發(fā)背景傳統(tǒng)的合同管理，多采用手工的形式管理合同，即繁瑣又易于出差錯采用手工管理合同，這是由于涉及的部門眾多，需要管理的合同要素也各不相同，因此造成信息不集中，實時性不強，導致各部門協(xié)作，業(yè)務流程組建，監(jiān)控制度執(zhí)行方面效率不高，費時費力等問題，具體表現(xiàn)在如下方面：1)文檔管理困難：傳統(tǒng)紙質合同與電子版合同共存，但對于不同的人員想閱讀參考合同時，存在查找不方便的問題。尤其是領導需要了解合同文本時需要耗費很多時間。2)進度控制困難：由于合同數(shù)目多，參與人員多，合同進度的控制基本靠手工和普通

3、word、excel 管理已很難滿足公司發(fā)展需要，并且當領導想全局或全程了解合同情況時存在很大障礙。財務人員的付款依據(jù)也與進度密切相關，但同樣存在障礙。3)信息匯總困難：采用手工或 excel 管理時，由于不同部門的數(shù)據(jù)格式不統(tǒng)一，采集也不能夠及時繼續(xù)，匯總工作需要耗費大量時間還不一定準確。對于領導的決策時間有一定的影響。4)缺少預警機制：缺少對合同進度、結款等關鍵節(jié)點的預警，不能準確地預測近期可能的收支項目，不能幫助公司進行財務規(guī)劃，掌控現(xiàn)金流，更好地發(fā)揮資金運作。完善的合同管理是公司健康運作的一個重要標志。然而，完善的合同管理需要公司許多的資源，如何簡化合同的管理而不失其完整、科學是許多公

4、司頭痛的問題。隨著電子技術的飛速發(fā)展，合同進行信息化的管理，避免進行簡單的重復，從而做到準確、快捷。為了適應這個要求，同時也是適應時代的要求，更加快速、準確的合同管理系統(tǒng)也就應運而生了，合同管理系統(tǒng)，是建立在信息技術基礎上，利用現(xiàn)代企業(yè)的先進管理思想，為企業(yè)提供決策、計劃、控制與經(jīng)營績效評估的全方位、系統(tǒng)化的合同管理平臺。在當代業(yè)務管理是合同管理的核心需求，而合同管理系統(tǒng)就恰恰可以解決實際業(yè)務管理中的問題，專注于企業(yè)合同管理的動態(tài)化、智能化、網(wǎng)絡化，為企業(yè)提供合理的流程和業(yè)務約束以及全方位的合同管理功能，包括合同起草、合同審批、文本管理、履約監(jiān)督、結算安排、智能提醒合同收付款、項目管理、合同結

5、款情況統(tǒng)計分析、報表輸出和決策支持等。是為了更好地適應工作人員對合同管理系統(tǒng)的需求，緩解手工管理的弊端，開發(fā)合同管理系統(tǒng)，合同管理系統(tǒng)向用戶提供的服務將在傳統(tǒng)的“錄入-修改-刪除-查找”的基礎上，近一步提供全方位的信息服務，1它具有東北石油大學本科生課程設計2以下幾個特點：（1）可以存儲所有合同的資料，具有安全、高效的的特性；（2）只需一名合同信息錄入人員即可操作本合同管理系統(tǒng)，可以節(jié)省大量的人力和物力；（3）可以通過查詢系統(tǒng)迅速查到所需的信息。在合同管理系統(tǒng)搭建和運行中，企業(yè)能不斷規(guī)范和優(yōu)化合同管理業(yè)務流程，有效地把簽約授權管理、相對人管理、合同立項選商、合同申報、合同審查審批、合同簽訂、合

6、同履行和合同歸檔等工作借助合同管理系統(tǒng)平臺進行了規(guī)范管理，實現(xiàn)了合同管理工作由以往淺層被動管理向深層寬幅度主動管理的質的飛躍合同管理系統(tǒng)上線，改變了以往合同審查審批流于形式、審查不嚴、把關不到位等問題。系統(tǒng)流程通過劃分合同承辦范圍、確定部門職責、專業(yè)地位及審查審批權限等，使管理層次明確，承辦范圍固定，專業(yè)技術、經(jīng)濟商務、法律及企業(yè)管理人員全過程參與，人性化地體現(xiàn)了責權利的有機統(tǒng)一，實現(xiàn)了合同簽訂事前、事中和事后管理，有效控制了法律風險。合同管理系統(tǒng)上線，使管理幅度延伸、管理層次清晰，合同簽訂的時效性明顯提高。在運行中合同審查人員能更加直觀、透明、一目了然地把好“三項審查”關，特別是加強了對合同

7、相對人主體資格的審查，對不具備資質、沒有履約能力的，堅決不與之簽訂合同2。合同管理系統(tǒng)可以為企業(yè)管理帶來如下價值：1.規(guī)范基礎數(shù)據(jù)管理，合同管理系統(tǒng)采用集中的數(shù)據(jù)管理，可以有效地改變企業(yè)信息分布比較散亂的現(xiàn)狀。同時，系統(tǒng)提供自定義字段功能，可以為企業(yè)實現(xiàn)完整、規(guī)范的數(shù)據(jù)管理提供一個良好的平臺支撐。2.提高管理效率，合同管理系統(tǒng)避免了手工管理合同出現(xiàn)，利用審批流管理，可以方便、快捷地處理企業(yè)管理事務；3.實現(xiàn)標準化管理和個性化管理的有機結合，合同管理系統(tǒng)通過全局設置和權限分配，可以由公司制訂統(tǒng)一采用的管理標準，4.為領導決策提供準確及時廣泛的信息，利用互聯(lián)網(wǎng)，領導可以在任何時間、任何地方進入系統(tǒng)

8、，隨時查閱與合同管理相關基本信息，準確定位下屬人員的工作情況，掌握合同執(zhí)行現(xiàn)狀，并方便地生成各種數(shù)據(jù)報表或圖表。5.為用戶提供全面合同管理解決方案，合同管理系統(tǒng)與企業(yè)管理咨詢相結合，可以為客戶提供全面的合同管理解決方案。通過合同管理系統(tǒng)的應用和實施，可以為合同管理信息化和合同管理能力提升提供一個最佳的結合點，切實打造企業(yè)核心競爭力。由以上所述，本文擬設計一個安全性更好，有更強的通用性和可擴展性和具備較強的意外事件處理能力，操作簡單，使用方便的合同管理系統(tǒng)。本文設計的是一套基于微軟 sql server2000 數(shù)據(jù)庫的網(wǎng)絡軟件系統(tǒng)。該合同管理系統(tǒng)是基于瀏覽器的操作方式，界面簡潔，菜單模塊布局清

9、晰，操作者能夠更快、更方便地上手使用。東北石油大學本科生課程設計31.2 系統(tǒng)需求分析信息需求分析是系統(tǒng)總體設計的基礎,要編制一個完整的合同信息管理系統(tǒng),必須首先理解用戶的需求,并形成需求說明書.在此基礎上才可以進行系統(tǒng)設計,程序編碼等工作。通過發(fā)放大量的調查表和現(xiàn)場調查以及對有關人員的詢問,我們分析得出合同的業(yè)務流程圖和合同處理流程圖2如下: 物資信息 圖 1-1 合同業(yè)務流程圖 圖 1-2 合同處理流程圖本系統(tǒng)可以實現(xiàn)一下功能：用戶登錄管理。而用戶又分為管理員和普通用戶兩種，沒有權限的用戶或非法用戶不能進入本系統(tǒng)，從而有效的保證了系統(tǒng)的安全。管理員可以對信息進行編輯、修改的操作，而普通用戶

10、沒有編輯的權限。合同基本信息的錄入。能對合同的基本信息進行錄入，包括合同的編號、合同的類別、合同的名稱、簽訂合同的雙方，簽約日期，年限，成交金額等信息。對用戶密碼進行修改，為了保證軟件的安全，用戶需要定期的修改密碼，用戶登錄后可以對自己的密碼進行修改。用戶注冊，添加管理員。本系統(tǒng)實現(xiàn)了用戶注冊和管理員添加的功能，這些操作需要嚴格的用戶認證，確保系統(tǒng)的安全性。本系統(tǒng)還包括對基本信息的顯示，可以進行數(shù)據(jù)的增加、刪除和修改等一系列操作。合同管理系統(tǒng)的強大功能，使得合同信息管理更加的方便、快捷，而且采購計劃表簽訂合同合同供應科廠家供應科供應商采購計劃合同簽訂合同合同執(zhí)行供應科物資信息提貨單供貨廠家東北

11、石油大學本科生課程設計4更加的準確，提高了工作效率。1.3 開發(fā)環(huán)境數(shù)據(jù)庫是數(shù)據(jù)管理的最新技術，是計算機科學的重要分支。十年來，據(jù)庫管理系統(tǒng)已從專用的應用程序包發(fā)展成為通用系統(tǒng)軟件。由于數(shù)據(jù)庫具有數(shù)據(jù)的結構化、可控冗余度、較高的程序與數(shù)據(jù)獨立性、易于擴充、易于編制應用程序等優(yōu)點，較大的信息系統(tǒng)都是建立在數(shù)據(jù)庫設計之上的。由于用到的數(shù)據(jù)表格多，另外考慮到實際情況，如合同基本信息的變動，我們選用 sql server 作為數(shù)據(jù)庫開發(fā)，因為 sql server 是一種常用的關系數(shù)據(jù)庫，能存放和讀取大量的數(shù)據(jù)，管理眾多并發(fā)的用戶，故選用 sql server 數(shù)據(jù)庫。目前的可用的設計技術在設計此類系

12、統(tǒng)上的數(shù)據(jù)庫、技術已經(jīng)非常成熟，可提供的開發(fā)工具也很多，例如：visual c+，visual basic ，powerbuilder，dephi，c#，visual foxpro 等，它們都是很好的數(shù)據(jù)庫開發(fā)工具，都是可視化開發(fā)工具，功能強大，開發(fā)周期短，對于本任務都能夠勝任。visual basic 是一種可視化的、面對對象和調用事件驅動方式的結構化高級程序設計，可用于開發(fā) windows 環(huán)境下的各種應用程序，它簡單易學、效率高、且功能強大，可以高效、快速地開發(fā)出 window 環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)?？偟膩碚f，visual basic 具有以下特點：可視化編程：用傳

13、統(tǒng)程序語言設計程序時，都是通過編寫程序代碼來設計用戶界面，在設計過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察，如果對界面的效果不滿意，還要回到程序中修改，影響了軟件的開發(fā)效率。visual basic 自動產生界面設計代碼，程序設計人員只需編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設計效率3。面向對象的程序設計：4.0 版以后的 visual basic 支持面向對象的程序設計，但它與一般的面向對象程序設計語言不完全相同，在一般的面向對象程序設計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而 visual basic 則是應用面向對象的程序設計方法，把程序和數(shù)據(jù)封裝起

14、來做為一個對象，并為每個對象賦予應有的屬性。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，visual basic 自動生成對象的程序代碼冰封裝起來，每個對象以圖形方式顯示在界面上，都是可視的。結構化程序設計語言：visual basic 是在 basic 語言的基礎上發(fā)展起來的，具有高級程序設計語言的語句結構，visual basic 語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調試器和編譯器。因此選擇 vb 編程語言進行設計。東北石油大學本科生課程設計5 第二章 系統(tǒng)設計2.1 系統(tǒng)架構整個系統(tǒng)分為三個部分，管理員、普

15、通用戶和主界面。首先，因為系統(tǒng)是面向特定的某些對象的，所以用戶進入系統(tǒng)應該進行身份驗證。根據(jù)不同的身份進入不同的操作界面，近而執(zhí)行不同的操作。對于普通用戶來說，可以通過注冊成為該系統(tǒng)合法的用戶，然后通過用戶名和密碼認證就可以登錄合同管理系統(tǒng)，進入用戶主界面之后，普通用戶可以修改自己的登錄密碼，查看供方信息、需方信息、物資信息和合同的基本信息，但是普通用戶沒有修改這些信息的權限，瀏覽信息結束后，用戶可以通過點擊“退出”按鈕退出合同管理系統(tǒng)。對于管理員而言，通過用戶名和密碼認證登錄系統(tǒng)，進入管理員主界面，可以修改登陸的密碼，查看供方信息、需方信息、物資信息和合同信息，并可以對相應的信息進行修改，同

16、時還可以進行添加新的管理員的操作，對基本的信息進行錄入，添加新的合同等一系列操作，最后通過點擊“退出”按鈕退出系統(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 圖姓名東北石油大學本科生課程設計62.2 系統(tǒng)功能模塊本系統(tǒng)分為用戶管理模塊、供方信息管理模塊、需方信息管理模塊、物資信息管理模塊、合同信息管理模塊、合同建立管理模塊、密碼修改管理模塊、退出模塊、信息錄入管理模塊九個模塊。合同管理系統(tǒng)管理員普通用戶密

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

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

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

20、和建設的重要組成部分4。綜合以上分析，要實現(xiàn)上面的所有功能模塊，數(shù)據(jù)庫共要設計六個表，它們分別是：管理員信息表、普通用戶信息表、供方信息表、需方信息表、物質信息表、合同信息表，每張表中都包含很多的字段，所具有的一些屬性，在進行數(shù)據(jù)訪問的時候，都要用到這幾張表，這是數(shù)據(jù)庫設計實現(xiàn)的基礎，也是系統(tǒng)實現(xiàn)必不可少的組成部分。具體表中的信息如下：東北石油大學本科生課程設計9 表 2-1 管理員信息表序號字段名數(shù)據(jù)類型數(shù)據(jù)長度nullprimarykey描述1numberbigint8ny編號2usernamenvarchar20nn姓名3passwordnvarchar10nn密碼4emailnvarc

21、har30nn注冊郵箱5problemnvarchar20nn密碼提示問題6answernvarchar20nn問題答案表 2-2 普通用戶信息表序號字段名數(shù)據(jù)類型數(shù)據(jù)長度nullprimarykey描述1numberbigint8ny編號2usernamenvarchar20nn姓名3passwordnvarchar10nn密碼4emailnvarchar30nn注冊郵箱5agebigint10yn年齡6sexnvarchar10yn性別7problemnvarchar20nn密碼提示問題4answernvarchar20nn問題答案表 2-3 供方基本信息表序號字段名數(shù)據(jù)類型數(shù)據(jù)長度nul

22、lprimarykey描述1idbigint8ny編號2namenvarchar20nn廠家名稱3addressnvarchar30yn廠家地址4typenvarchar10nn貨物類型5aveprizenvarchar30yn平均價格6maxnumnvarchar30nn提供最大量7moneynvarchar30yn廠家總資產8gradebigint10nn廠家評價表 2-4 需方基本信息表序號字段名數(shù)據(jù)類型數(shù)據(jù)長度nullprimarykey描述1numberbigint8ny編號東北石油大學本科生課程設計102namenvarchar20nn廠家名稱3addressnvarchar30y

23、n廠家地址4typenvarchar10nn貨物類型5maxnumnvarchar30yn需求最大量6moneynvarchar30yn廠家總資產7gradebigint10nn廠家評價表 2-5 物資基本信息表序號字段名數(shù)據(jù)類型數(shù)據(jù)長度nullprimarykey描述1numberbigint8ny編號2namenvarchar20nn物資名稱3addressnvarchar30nn存放地址4typenvarchar10nn物資類型6prizenvarchar30yn平均價格7quantitynvarchar30yn庫存總量8gradebigint10nn物資等級 表 2-6 合同基本信息表

24、序號字段名數(shù)據(jù)類型數(shù)據(jù)長度nullprimarykey描述1numberbigint8ny編號2providernvarchar20nn簽約甲方3receivernvarchar20nn簽約乙方4datesnvarchar20yn簽約日期5thingnvarchar20nn簽約物品6addressnvarchar30yn簽約地點7yearsnvarchar10nn合約年限8prizenvarchar30nn成交金額由上述六張表構成了整個合同管理系統(tǒng)的是數(shù)據(jù)庫設計，其數(shù)據(jù)表格中含有大量的數(shù)據(jù)信息，為合同管理系統(tǒng)的構建打下了堅實的基礎。數(shù)據(jù)庫設計是合同信息管理系統(tǒng)的核心和基礎，使信息管理系統(tǒng)可以方

25、便、及時、準確地從數(shù)據(jù)庫中獲得所需的信息，并正確的顯示在用戶的眼前，數(shù)據(jù)庫設計包含了系統(tǒng)中主要功能模塊實現(xiàn)的信息查詢和信息存儲。使系統(tǒng)實現(xiàn)基本功能的重要組成成分，沒有數(shù)據(jù)庫設計，合同管理系統(tǒng)的開發(fā)就無從談起，所以，要搭建功能完善的合同管理系統(tǒng)，就必須有一個完整的，穩(wěn)定性強數(shù)據(jù)庫設計。 東北石油大學本科生課程設計11第三章 系統(tǒng)實現(xiàn)應用程序用 vb 開發(fā)，界面設計的簡單明了，根據(jù)需求分析和功能設計，系統(tǒng)應用程序分為六大模塊：登錄模塊、用戶注冊、主界面、密碼修改、信息管理、管理員添加模塊。3.1 登錄模塊實現(xiàn)登錄界面是用戶最先看到的系統(tǒng)的界面，所以直觀上給用戶的感覺很重要，所以做一個好的界面，可以

26、提高軟件的親和力，本合同管理系統(tǒng)的登錄界面如圖3-1。 圖 3-1 登錄模塊界面根據(jù)登錄模塊的功能，用戶分為管理員和普通用戶兩種，都需要輸入正確的用戶名和密碼，得到系統(tǒng)認證后才可以進入系統(tǒng)的主界面，管理員登錄進入管理員的主界面，普通用戶登錄進入用戶主界面。普通用戶只有查看信息和修改本密東北石油大學本科生課程設計12碼的權限，而管理員可以對數(shù)據(jù)進行修改、刪除等操作。具體代碼實現(xiàn)如下5：protected sub button1_click(byval sender as object, byval e as system.eventargs) handles button1.click dim

27、user as string dim passw as string user = username0.text passw = password.text if username0.text and password.text then 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 = selec

28、t * from login where username= & username0.text & and type= & role.selecteditem.text & and password= & password.text & 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 ne

29、w oledbcommand(str, conn) conn.open() dim dr as oledbdatareader = cmd.executereader() if dr.read() = true then conn.close() 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

30、.open() dim dr as oledbdatareader = cmd1.executereader() if dr.read() = true then conn.close() response.redirect(default20.aspx) else conn.close() message.text = 請輸入正確的用戶名和密碼 end if end if end if end sub東北石油大學本科生課程設計133.2 用戶注冊用戶注冊界面如下圖： 圖 3-2 用戶注冊界面具體實現(xiàn)代碼如下：protected sub linkbutton1_click(byval send

31、er as object, byval e as system.eventargs) handles linkbutton1.click 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 users (type,username,password,email,age,sex,

32、problem,answer) values (普通用戶, & username.text & , & password.text & , & email1.text & , & age.text & , & sex.selecteditem.text & , & answer.text & , & problem.selecteditem.text & ) dim cmd as new oledbcommand(strsql, conn) conn.open() cmd.executenonquery() conn.close() response.redirect(default.aspx

33、) end sub protected sub linkbutton2_click(byval sender as object, byval e as system.eventargs) handles linkbutton2.click password.text = email1.text = 東北石油大學本科生課程設計14 age.text = sex.selecteditem.text = 男 problem.selecteditem.text = 手機后六位 answer.text = end sub通過填寫用戶注冊信息，就可以成為本系統(tǒng)合法的用戶，通過用戶名和密碼就可以登錄系統(tǒng)，

34、查看系統(tǒng)內的信息。3.2 主界面主界面包含管理員主界面和普通用戶主界面如下圖： 圖 3-3 管理員主界面圖 3-4 普通用戶主界面東北石油大學本科生課程設計15由主界面的不同就可以看出兩種用戶在權限上的差別，管理員可以修改信息，添加合同，而用戶只能瀏覽信息。3.3 密碼修改與管理員添加圖 3-5 密碼修改界面具體實現(xiàn)代碼如下6： protected sub linkbutton11_click(byval sender as object, byval e as system.eventargs) handles linkbutton11.click dim conn as new oledb

35、connection(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= & username.text & and email= & email.text & str1 = select * from login where usernam

36、e= & 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.executereader() if dr.read() = true then conn.close() response.redirect(default14.as

37、px) else message.text = 密碼修改不成功東北石油大學本科生課程設計16 end if系統(tǒng)還提供了密碼找回的功能，具體界面如下 圖 3-6 密碼找回界面具體實現(xiàn)代碼如下6：protected sub linkbutton1_click(byval sender as object, byval e as system.eventargs) handles linkbutton1.click dim conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security

38、 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 users where username= & username.text & and em

39、ail= & 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 conn.close() response.redirect(default2.aspx) el

40、se conn.close() message.text = 找回密碼失敗 end if end if if role.selecteditem.text = 普通用戶 then東北石油大學本科生課程設計17 dim cmd as new oledbcommand(str1, conn) conn.open() dim dr as oledbdatareader = cmd.executereader() if dr.read() = true then conn.close() response.redirect(default20.aspx) else conn.close() messa

41、ge.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 linkbutton13.click dim conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security info=false;initial ca

42、talog=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() cmd.executen

43、onquery() response.redirect(default2.aspx)東北石油大學本科生課程設計18 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

44、security 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ù)編輯、刪除、更新

45、操作代碼如下7：protected sub mygridview_rowcancelingedit(byval sender as object, byval e as system.web.ui.webcontrols.gridviewcancelediteventargs) handles 東北石油大學本科生課程設計19mygridview.rowcancelingedit mygridview.editindex = -1 binddata() end sub protected sub mygridview_rowediting(byval sender as object, byva

46、l e as system.web.ui.webcontrols.gridviewediteventargs) handles mygridview.rowediting mygridview.editindex = e.neweditindex binddata() end sub protected sub mygridview_rowupdating(byval sender as object, byval e as system.web.ui.webcontrols.gridviewupdateeventargs) handles mygridview.rowupdating dim

47、 conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=contract;data source=.) dim strsql, txtname, txtaddress, txttype, txtgrade, txtaveprize, txtmaxnum, txtmoney, key as string key = mygridview.datakeys(e.rowindex).value.tostring txtna

48、me = 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.tostring().trim() txttype = ctype(mygridview.rows(e.rowindex).cells(4).controls(0), textbox).text.tostring().trim() txtavepr

49、ize = 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.tostring().trim() txtmoney = ctype(mygridview.rows(e.rowindex).cells(7).controls(0), textbox).text.tostring().trim() txtgrad

50、e = ctype(mygridview.rows(e.rowindex).cells(8).controls(0), textbox).text.tostring().trim() strsql = update provider set name= & txtname & ,address= & txtaddress & ,type= & txttype & ,maxnum= & txtmaxnum & ,grade= & txtgrade & ,aveprize= & txtaveprize & ,money= & txtmoney & where number = & key & di

51、m cmd as new oledbcommand(strsql, conn) conn.open() cmd.executenonquery() conn.close() mygridview.editindex = -1 binddata() end sub protected sub mygridview_rowdeleting(byval sender as object, byval e as 東北石油大學本科生課程設計20system.web.ui.webcontrols.gridviewdeleteeventargs) handles mygridview.rowdeleting

52、 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 key = mygridview.datakeys(e.rowindex).value.tostring str = delete from provider where number = & key & dim cmd as new oledbcommand(

53、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(byval sender as object, by

54、val e as system.eventargs) handles button1.click dim conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=contract;data source=.) dim strsql as string東北石油大學本科生課程設計21 strsql = insert into contract (number,provider,receiver,thing,years,da

55、tes,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此

56、界面可以實現(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 linkbutton1.click if program.selecteditem.text = 供方信息 then dim conn as new oledbconnection(provider=sqloledb.1;inte

57、grated security=sspi;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 &

58、 , & maxnum.text & , & money.text & , & grade.selecteditem.text & )東北石油大學本科生課程設計22 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;integr

59、ated security=sspi;persist security 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.t

60、ext & , & 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 security info=fals