數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告 郵局訂報(bào)

《數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告 郵局訂報(bào)》由會(huì)員分享，可在線(xiàn)閱讀，更多相關(guān)《數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告 郵局訂報(bào)（30頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、 數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告 課 題: 郵局訂報(bào)系統(tǒng) 專(zhuān)業(yè)班級(jí)： 學(xué) 號(hào)： 姓 名： 組 員： 指導(dǎo)教師: 評(píng)閱意見(jiàn)：

2、 評(píng)定成績(jī)： 指導(dǎo)老師簽名： 年 月 日 目 錄 目錄 1 課程設(shè)計(jì)的目的和意義 2 2 需求分析 3 2.1 開(kāi)發(fā)環(huán)境與開(kāi)發(fā)工具 3 2.2 系統(tǒng)需求分析 3 2.2.1需要管理的實(shí)體信息 3 2.2.2實(shí)體聯(lián)系信息 3 2.2.3 系統(tǒng)數(shù)據(jù)流圖 4 2.3功能需求分析 4 3系統(tǒng)設(shè)計(jì) 6 3.1數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 6 3.2數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 7 3.

3、2.1數(shù)據(jù)庫(kù)關(guān)系模式 7 3.2.2數(shù)據(jù)庫(kù)及表結(jié)構(gòu)的創(chuàng)建 8 4系統(tǒng)實(shí)現(xiàn) 11 4.1登陸模塊的創(chuàng)建 11 4.2查詢(xún)模塊的創(chuàng)建 13 4.3用戶(hù)信息與用戶(hù)管理模塊的創(chuàng)建 16 4.4報(bào)紙訂閱模塊的創(chuàng)建 18 4.5更新模塊的創(chuàng)建 19 4.6統(tǒng)計(jì)信息模塊的創(chuàng)建 20 5系統(tǒng)調(diào)試 23 6總結(jié) 27 7參考文獻(xiàn) 28 1 課程設(shè)計(jì)的目的和意義 在Internet飛速發(fā)展的今天，互聯(lián)網(wǎng)成為人們快速獲取、發(fā)布和傳遞信息的重要渠道，它在人們政治、經(jīng)濟(jì)、生活等各個(gè)方面發(fā)揮著重要的作用.因此網(wǎng)站建設(shè)在Internet應(yīng)用上的地位顯而易見(jiàn)，它已成為政府、企事業(yè)單位

4、信息化建設(shè)中的重要組成部分，從而倍受人們的重視。 這次我們所設(shè)計(jì)的課題正是互聯(lián)網(wǎng)與社會(huì)生活之間的緊密關(guān)系的體現(xiàn)，現(xiàn)今的社會(huì)，人們已經(jīng)離不開(kāi)了網(wǎng)絡(luò)，網(wǎng)絡(luò)已經(jīng)成為人與人之間交流的一種形式，他能夠把事情的復(fù)雜化轉(zhuǎn)為簡(jiǎn)單化。郵局訂報(bào)管理系統(tǒng)的建設(shè)不僅能夠使該事業(yè)單位的工作方式有所改變，也大大地提高了該單位工作人員的辦事效率，也增加了該單位的知明度，更重要的是為我們的居民提供了一個(gè)網(wǎng)絡(luò)生活空間，促進(jìn)了他們對(duì)網(wǎng)絡(luò)知識(shí)的進(jìn)一步地了解。 通過(guò)該系統(tǒng)展示了各種報(bào)紙信息的在線(xiàn)訂閱功能及報(bào)紙、客戶(hù)信息管理功能，方便了客戶(hù)與郵局的各種信息溝通，同時(shí)也給予了管理人員極大的方便。 近年來(lái)我國(guó)信息產(chǎn)業(yè)發(fā)展迅速，手工管理方

5、式在報(bào)紙訂閱管理等需要大量事務(wù)處理的應(yīng)用中已顯得不相適應(yīng)，采用IT技術(shù)提高服務(wù)質(zhì)量和管理水平勢(shì)在必行。面對(duì)各種媒體的強(qiáng)勢(shì)競(jìng)爭(zhēng)，因此，郵局必須提高其工作效率，改善其工作環(huán)境。這樣，管理信息化勢(shì)在必行。 ? 在傳統(tǒng)的郵局訂報(bào)管理中，其過(guò)程往往是很復(fù)雜的，繁瑣的，管理以售出和進(jìn)貨兩項(xiàng)內(nèi)容為核心，在此過(guò)程中又需要經(jīng)過(guò)若干道手續(xù)，因?yàn)檎麄€(gè)過(guò)程都需要手工操作，效率十分低下，且由于他們之間關(guān)聯(lián)復(fù)雜，統(tǒng)計(jì)和查詢(xún)的方式各不相同；且會(huì)出現(xiàn)信息的重復(fù)傳遞問(wèn)題，因此該過(guò)程必須實(shí)現(xiàn)信息化。 ? 我們的系統(tǒng)開(kāi)發(fā)的整體任務(wù)是實(shí)現(xiàn)郵局訂報(bào)管理的系統(tǒng)化、規(guī)范化、自動(dòng)化和智能化，從而達(dá)到提高管理效率的目的。

6、 2 需求分析 2.1 開(kāi)發(fā)環(huán)境與開(kāi)發(fā)工具 系統(tǒng)開(kāi)發(fā)環(huán)境為局域網(wǎng)網(wǎng)絡(luò)環(huán)境，服務(wù)器上安裝有SQL Server2000與Delphi7.0. 2.2 系統(tǒng)需求分析 本系統(tǒng)的設(shè)計(jì)模擬一般郵局報(bào)紙訂閱系統(tǒng)的管理內(nèi)容，經(jīng)過(guò)充分地系統(tǒng)調(diào)研，發(fā)現(xiàn)本系統(tǒng)應(yīng)包含報(bào)紙信息、客戶(hù)信息、供應(yīng)商信息等管理信息。進(jìn)一步還發(fā)現(xiàn)信息實(shí)體間需的管理信息有訂閱管理即客戶(hù)與其訂閱的相對(duì)應(yīng)的報(bào)紙信息情況、供求管理即供應(yīng)商與其供應(yīng)的報(bào)紙對(duì)應(yīng)的管理關(guān)系等內(nèi)容。 本系統(tǒng)的具體要求如下： 1) 能全面管理郵局訂報(bào)的所有業(yè)務(wù)的相關(guān)實(shí)體，如報(bào)紙基本信息、客戶(hù)信息、管理員信息、供應(yīng)商信息等； 2)

7、 通過(guò)使用計(jì)算機(jī)能方便地維護(hù)包括添加刪除、查找等個(gè)信息表； 3) 能實(shí)現(xiàn)跨表查詢(xún)所需要的信息； 4) 能進(jìn)行多個(gè)條件的組合查詢(xún)； 5) 能基于單表或多表的數(shù)據(jù)統(tǒng)計(jì)； 6) 需要時(shí)能對(duì)某些信息即時(shí)輸出顯示； 7) 系統(tǒng)能面對(duì)多角色用戶(hù)，對(duì)不同級(jí)別的用戶(hù)提供相對(duì)應(yīng)的系統(tǒng)功能； 8) 該系統(tǒng)具有操作方便、快捷等特點(diǎn)。 2.2.1需要管理的實(shí)體信息 1) 報(bào)紙信息：報(bào)紙編號(hào)，報(bào)紙名，類(lèi)別，地區(qū)，出版社，季度約價(jià)，進(jìn)貨量，庫(kù)存等； 2) 客戶(hù)信息：賬號(hào)，客戶(hù)名，密碼，地址，郵編，電話(huà)，權(quán)限，照片等； 3) 供應(yīng)商信息：供應(yīng)商編號(hào)，供應(yīng)商名，報(bào)紙名，地區(qū)，電話(huà)，郵箱等。 2.2.2實(shí)

8、體聯(lián)系信息 1) 客戶(hù)與報(bào)紙訂閱關(guān)系聯(lián)系圖，客戶(hù)訂閱后必須將客戶(hù)名與報(bào)紙相關(guān)信息對(duì)應(yīng)起來(lái)，以便郵局將報(bào)紙寄給對(duì)應(yīng)的客戶(hù)，讓客戶(hù)定期收到自己訂閱的報(bào)紙； 2) 供應(yīng)商與報(bào)紙聯(lián)系圖，哪個(gè)供應(yīng)商供應(yīng)那些報(bào)紙，必須有個(gè)相對(duì)應(yīng)的數(shù)據(jù)表，當(dāng)庫(kù)存不夠時(shí)，我們通過(guò)此聯(lián)系表找到對(duì)應(yīng)的供應(yīng)商，與其聯(lián)系進(jìn)行進(jìn)貨。 2.2.3 系統(tǒng)數(shù)據(jù)流圖 訂購(gòu) 退出 訂購(gòu)信息 報(bào)紙信息 修改客戶(hù) 客戶(hù)信息 訂購(gòu)信息 查詢(xún) 合法用戶(hù) 登錄 不合法用戶(hù) 管理員 客戶(hù) 報(bào)紙信息 報(bào)紙信息 客戶(hù)信息 客戶(hù)信息 訂購(gòu)信息 客戶(hù)信息 修改供應(yīng)商 供應(yīng)商信息 供應(yīng)商信息 供應(yīng)商信息 客戶(hù)信息

9、 修改報(bào)紙 報(bào)紙信息 報(bào)紙信息 報(bào)紙信息 統(tǒng)計(jì) 報(bào)紙信息 報(bào)紙統(tǒng)計(jì) 客戶(hù)統(tǒng)計(jì) 客戶(hù)信息 在仔細(xì)分析調(diào)查有關(guān)信息的基礎(chǔ)上，能得到系統(tǒng)的數(shù)據(jù)流圖如圖2.2.31所示： 圖2.2.31 數(shù)據(jù)流圖 2.3功能需求分析 1) 在數(shù)據(jù)庫(kù)服務(wù)器SQL Server 2000中，建立各關(guān)系模式對(duì)應(yīng)的庫(kù)表，并確定主鍵、索引、參照完整性、用戶(hù)定義完整性等。 2) 能對(duì)個(gè)表進(jìn)行輸入、修改、刪除、添加、查詢(xún)等功能。 3) 在客戶(hù)訂閱信息和供應(yīng)商供給信息發(fā)生變更時(shí)，能對(duì)相關(guān)信息作必要的調(diào)整。 4) 能實(shí)現(xiàn)下列各類(lèi)查詢(xún)： ? 能查詢(xún)報(bào)紙的相關(guān)信

10、息，并且可以按編號(hào)、按名稱(chēng)、按季度約價(jià)進(jìn)行相關(guān)查詢(xún)，顯示相應(yīng)的信息。 ? 管理員能查詢(xún)客戶(hù)的相關(guān)信息，顯示客戶(hù)基本信息與訂閱情況，方便管理員與客戶(hù)之間的動(dòng)態(tài)交流。 ? 管理員能查詢(xún)各個(gè)報(bào)紙的庫(kù)存情況，以便管理員與供應(yīng)商及時(shí)聯(lián)系，保證每種報(bào)紙的庫(kù)存量。 5) 能實(shí)現(xiàn)如下各類(lèi)統(tǒng)計(jì)功能： ? 能統(tǒng)計(jì)各類(lèi)報(bào)紙訂閱情況，客觀反映各報(bào)紙銷(xiāo)售情況，為銷(xiāo)售人員做下一季度的銷(xiāo)售計(jì)劃做依據(jù)。 ? 能統(tǒng)計(jì)每個(gè)客戶(hù)訂閱的報(bào)紙總數(shù)，以方便對(duì)某些大客戶(hù)進(jìn)行回饋活動(dòng)。 6) 能實(shí)現(xiàn)訂閱功能，在客戶(hù)填入訂閱的相關(guān)信息后，能自動(dòng)將這些信息放入對(duì)應(yīng) 的數(shù)據(jù)庫(kù)中。 7) 用戶(hù)管理功能，包括用戶(hù)基本信息管理及用戶(hù)登錄

11、。 8) 要求所設(shè)計(jì)的界面友好，功能合理安排，操作使用方便，并能進(jìn)一步考慮子系統(tǒng)在安全性、完整性、并發(fā)控制、備份恢復(fù)等方面的功能要求。 經(jīng)過(guò)上面的對(duì)系統(tǒng)和功能需求分析，我們制成的功能模塊圖如圖2.31所示： 郵局訂報(bào)管理系統(tǒng) 系統(tǒng)管理 單據(jù)錄入 與確認(rèn) 報(bào)紙更新與統(tǒng)計(jì) 基本信息管理 用戶(hù)登錄 付款方式設(shè)置 類(lèi)別設(shè)置 用戶(hù)管理 送貨方式設(shè)置 供應(yīng)商信息管理 客戶(hù)信息管理 報(bào)紙信息查詢(xún) 按類(lèi)別查詢(xún) 按地區(qū)查詢(xún) 按名稱(chēng)查詢(xún) 按編號(hào)查詢(xún) 報(bào)紙的更新 銷(xiāo)售單錄入確認(rèn) 進(jìn)貨單錄入確認(rèn) 銷(xiāo)售單錄入 進(jìn)貨單錄入 地區(qū)設(shè)置 報(bào)紙信息的統(tǒng)計(jì)

12、 圖 2.31 系統(tǒng)功能模塊圖 3系統(tǒng)設(shè)計(jì) 3.1數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 在充分需求分析的基礎(chǔ)上，經(jīng)過(guò)逐步抽象、概括、分析、充分研討，可畫(huà)出如下反應(yīng)郵局訂報(bào)管理系統(tǒng)數(shù)據(jù)的整體E-R圖（圖3.11-圖3.16） 供應(yīng)商 提供 報(bào)紙 客戶(hù) 管理員 訂閱 管理 管理 管理 m n n m n m n n m 1 圖3.11 系統(tǒng)實(shí)體及其聯(lián)系圖 郵編 客戶(hù) 賬號(hào) 密碼 姓名 地址 電話(huà) 圖3.12 客戶(hù)實(shí)體圖 報(bào)紙 報(bào)紙名 類(lèi)型 地區(qū) 進(jìn)貨量 季度約價(jià) 庫(kù)

13、存 編號(hào) 出版社 圖3.13 報(bào)紙屬性圖 Email 電話(huà) 地址 編號(hào) 姓名 供應(yīng)商 圖3.14 供應(yīng)商信息圖 訂閱 數(shù)量 客戶(hù)賬號(hào) 報(bào)紙編號(hào) 年限 圖3.15 客戶(hù)報(bào)紙聯(lián)系圖 提供 進(jìn)價(jià) 進(jìn)貨時(shí)間 圖3.16 報(bào)紙與供應(yīng)商聯(lián)系圖 3.2數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 3.2.1數(shù)據(jù)庫(kù)關(guān)系模式 按照實(shí)體-聯(lián)系圖轉(zhuǎn)化為關(guān)系模式的規(guī)則，本系統(tǒng)的E-R圖可轉(zhuǎn)化為如下約5個(gè)關(guān)系模式： ·客戶(hù)（賬號(hào)，客戶(hù)名，密碼，地址，郵編，電話(huà)，權(quán)限，照片） ·報(bào)紙（報(bào)紙編號(hào)，報(bào)紙名，類(lèi)別，地區(qū)，出版社，季度約價(jià)，進(jìn)貨量，庫(kù)存） ·供應(yīng)商（供應(yīng)商編號(hào)，供應(yīng)

14、商名，報(bào)紙名，地區(qū)，電話(huà)，郵箱） ·訂閱（賬號(hào)，報(bào)紙編號(hào)，訂閱季度，訂閱數(shù)量） ·提供（供應(yīng)商編號(hào)，報(bào)紙編號(hào)，供應(yīng)數(shù)量） 屬性名對(duì)應(yīng)由英文表示，則5個(gè)關(guān)系模式為： ·客戶(hù)（id，name，pd，addr，zip，tel，qx，photo） ·報(bào)紙（pnum，pname，kind，area，cbs，price，jhl，kc） ·供應(yīng)商（num，name，pname，area，tel，e-mail） ·訂閱（id，pnum，dyjd，dysl） ·提供（num，pnum，gysl） 3.2.2數(shù)據(jù)庫(kù)及表結(jié)構(gòu)的創(chuàng)建 本系統(tǒng)使用的數(shù)據(jù)庫(kù)名為youjudingyue，根據(jù)已設(shè)計(jì)出的關(guān)

15、系模式及各關(guān)系模式的完整性約束要求，現(xiàn)在就可以在SQL 2000數(shù)據(jù)庫(kù)系統(tǒng)中實(shí)現(xiàn)這些邏輯結(jié)構(gòu)。 數(shù)據(jù)庫(kù)表的創(chuàng)建 數(shù)據(jù)庫(kù)名稱(chēng)：youjudingyue，創(chuàng)建5張表，部分如下所示（圖3.2.21-圖3.2.24） 圖3.2.21客戶(hù)信息表 圖3.2.22報(bào)紙信息表 圖3.2.23 訂閱信息表 圖3.2.24 供應(yīng)商信息表 表與表按需要可以定義出多種視圖（圖3.2.25-圖3.2.26） 圖3.2.25 訂閱視圖 圖3.2.26 用戶(hù)管理視圖 3.3系統(tǒng)的總體設(shè)計(jì) 對(duì)系統(tǒng)各項(xiàng)功能進(jìn)行集中、分塊，此系統(tǒng)主要實(shí)行以下的功能： 1、 管理員與用戶(hù)的登錄

16、功能 2、 信息的更新功能（報(bào)紙信息、客戶(hù)信息、供應(yīng)商信息的添加、刪除與修改） 3、 統(tǒng)計(jì)功能（報(bào)紙數(shù)量、用戶(hù)數(shù)量） 4、 訂閱功能 圖3.31 為郵局訂報(bào)系統(tǒng)的程序流程圖 管理員 客戶(hù) 開(kāi)始 結(jié)束 顯示登錄界面 顯示訂閱界面信息 訂閱報(bào)紙 顯示查找后記錄 有 記錄 添加 顯示添加后記錄 有 記錄 客戶(hù)管理 刪除 顯示刪除后記錄 有 記錄 顯示 顯示所有記錄 有 記錄 查找 顯示查找后記錄 有 記錄 添加 顯示添加后記錄 有 記錄 報(bào)紙管理 刪除 顯示刪除后記錄 有 記錄 顯示 顯示所有記錄 有 記錄

17、 查找 按編號(hào) 按類(lèi)別 按單價(jià) 按地區(qū) 按名稱(chēng) 供應(yīng)商管理 顯示更新后記錄 有 記錄 更新 信息統(tǒng)計(jì) 查詢(xún) 顯示統(tǒng)計(jì)記錄 有 記錄 顯示對(duì)應(yīng)記錄 有 記錄 查詢(xún)報(bào)紙 顯示對(duì)應(yīng)記錄 有 記錄 顯示對(duì)應(yīng)記錄 有 記錄 顯示對(duì)應(yīng)記錄 有 記錄 顯示對(duì)應(yīng)記錄 有 記錄 圖3.31 郵局訂報(bào)系統(tǒng)流程圖 4系統(tǒng)實(shí)現(xiàn) 在此次課程設(shè)計(jì)系統(tǒng)的程序開(kāi)發(fā)上，由于采用的是分工合作的方式，所以在代碼的開(kāi)發(fā)上，系統(tǒng)的登錄模塊與查詢(xún)模塊設(shè)計(jì)是我的主要任務(wù)。 4.1登陸模塊的創(chuàng)建 本窗體是為兩種不同的用戶(hù)（一般用戶(hù)，管理員）提供選擇以進(jìn)入不同的模

18、塊，滿(mǎn)足不同用戶(hù)的需求。在登錄過(guò)程中由于權(quán)限值與賬號(hào)編碼有關(guān)，所以用戶(hù)不必選定登錄方式，系統(tǒng)會(huì)根據(jù)不同的賬號(hào)進(jìn)入到相應(yīng)的界面。 在此窗口使用的控件有一個(gè)ComboBox（賬號(hào)）、一個(gè)Edit（密碼）、兩個(gè)Button（登錄與關(guān)閉）。 登陸窗口運(yùn)行界面如圖4.11所示 圖4.11 登陸界面 登陸窗口主要程序段代碼如下。 implementation uses unit2, Unit4; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin form2.ADOTable1.Close; f

19、orm2.ADOTable1.Open; //打開(kāi)form2的數(shù)據(jù)庫(kù)鏈接 form4.ADOTable1.Close; form4.ADOTable1.Open; //打開(kāi)form4的數(shù)據(jù)庫(kù)鏈接 if form2.ADOTable1.locate('id',combobox1.Text,[]) //賬號(hào)匹配 then begin if (edit1.Text= trim(form2.ADOTable1.FieldValues['pd'] )) //密碼匹配 and (trim(form2.ADOTable1.FieldValues['qx'])='1')

20、 //權(quán)限匹配(管理員權(quán)限) then begin form1.Hide; //隱藏登陸窗口 form2.Show; //彈出用戶(hù)管理窗口 end else begin if (edit1.Text= trim(form2.ADOTable1.FieldValues['pd'] )) //密碼匹配 and (trim(form2.ADOTable1.FieldValues['qx'])='0') //權(quán)限匹配（用戶(hù)權(quán)限） then begin form1.Hide; //隱藏登陸窗口 form4.Show; //彈出用戶(hù)信息窗口

21、end else messagebox(self.Handle,'您的帳號(hào)或密碼不正確！','溫馨提示',0); //出錯(cuò)提示 end end else messagebox(self.Handle,'您的帳號(hào)或密碼不正確！','溫馨提示',0); //出錯(cuò)提示 end; 4.2查詢(xún)模塊的創(chuàng)建 本窗體實(shí)現(xiàn)的查詢(xún)功能有多種（見(jiàn)圖4.21），如按編號(hào)、報(bào)紙名稱(chēng)、報(bào)紙類(lèi)別、報(bào)紙價(jià)格、報(bào)紙地區(qū)等字段進(jìn)行完全匹配和部分匹配的模糊查找，并且用戶(hù)可以從查找模塊進(jìn)入到報(bào)紙訂閱模塊。方便用戶(hù)訂閱報(bào)紙。 圖4.21 查詢(xún)選擇條件圖 在此窗口使用的控件有一個(gè)ADO（用來(lái)鏈接到數(shù)據(jù)庫(kù)）

22、、一個(gè)DataSource（用來(lái)連接dbgrid）、一個(gè)Dbgrid（顯示原有記錄）、一個(gè)ComboBox（填寫(xiě)查詢(xún)條件）、一個(gè)Edit（填寫(xiě)查詢(xún)關(guān)鍵字）、三個(gè)Button（搜索、訂閱與取消）。 查詢(xún)窗口運(yùn)行界面如圖4.23所示 圖4.23 報(bào)紙信息查詢(xún)圖 查詢(xún)窗口主要程序段代碼如下。 procedure TForm3.Button1Click(Sender: TObject); //搜索按鈕 begin if edit1.Text='' then //空白關(guān)鍵字 messagebox(self.Handle,'請(qǐng)輸入查找關(guān)鍵字！','溫馨提示',0) //提示

23、 else begin if combobox2.Text='按編號(hào)' then //查找條件（按編號(hào)） begin adotable1.Filtered:=false; adotable1.Filter:='pnum like '+''''+trim(edit1.Text)+#37+''''; //相當(dāng)于（pnum like ‘edit.text%’）；其中trim（）表示刪除輸入內(nèi)容的前后空格；#37代表% adotable1.Filtered:=true; end else begin if combobox2.Text='按名稱(chēng)' then //查找條件（

24、按名稱(chēng)） begin adotable1.Filtered:=false; adotable1.Filter:='pname like '+''''+trim(edit1.Text)+#37+''''; //相當(dāng)于（pname like ‘edit.text%’） adotable1.Filtered:=true; end else begin if combobox2.Text='按類(lèi)別' then //查找條件（按類(lèi)別） begin adotable1.Filtered:=false; adotable1.Filter:='kind like '+''''+t

25、rim(edit1.Text)+#37+''''; //相當(dāng)于（kind like ‘edit.text%’） adotable1.Filtered:=true; end else begin if combobox2.Text='按價(jià)格' then //查找條件（按價(jià)格） begin adotable1.Filtered:=false; adotable1.Filter:='price like '+''''+trim(edit1.Text)+#37+''''; //相當(dāng)于（price like ‘edit.text%’） adotable1.Filtered:=

26、true; end else begin if combobox2.Text='按地區(qū)' then //查找條找（按地區(qū)） begin adotable1.Filtered:=false; adotable1.Filter:='area like '+''''+trim(edit1.Text)+#37+''''; //相當(dāng)于（area like ‘edit.text%’） adotable1.Filtered:=true; end else messagebox(self.Handle,'請(qǐng)選擇查找方式！','溫馨提示',0); //提示 end end e

27、nd end end end; 4.3用戶(hù)信息與用戶(hù)管理模塊的創(chuàng)建 用戶(hù)信息與用戶(hù)管理模塊是根據(jù)用戶(hù)權(quán)限的不同，所進(jìn)入的不同的界面。其中用戶(hù)管理界面是管理員所要求進(jìn)入的界面，而用戶(hù)信息界面屬于一般用戶(hù)所要求進(jìn)入的界面。 在此窗口使用的控件有一個(gè)ADO（用來(lái)鏈接到數(shù)據(jù)庫(kù)）、一個(gè)DataSource（用來(lái)連接dbgrid、DBimage和DBtext）、一個(gè)OpenPictrueDialog（打開(kāi)圖片）、一個(gè)DBimage（顯示用戶(hù)圖片信息）、兩個(gè)DBtext（顯示用戶(hù)賬號(hào)與密碼）、兩個(gè)ComboBox（用于信息更新與統(tǒng)計(jì)的條件選擇且僅用于用戶(hù)管理窗口）、兩個(gè)Button（關(guān)閉與確定

28、用與用戶(hù)管理窗口，報(bào)紙訂閱與報(bào)紙查詢(xún)用于用戶(hù)信息窗口）。 用戶(hù)管理窗口與用戶(hù)信息窗口主要程序段代碼分別如下。 1) 用戶(hù)管理窗口 procedure TForm2.Button1Click(Sender: TObject); begin form6.ADOTable1.Close; form6.ADOTable1.Open; //打開(kāi)form6的數(shù)據(jù)庫(kù)鏈接 form7.ADOTable1.Close; form7.ADOTable1.Open; //打開(kāi)form7的數(shù)據(jù)庫(kù)鏈接 form8.ADOTable1.Close; form8.ADOTable1.

29、Open; //打開(kāi)form8的數(shù)據(jù)庫(kù)鏈接 form9.ADOTable1.Close; form9.ADOTable1.Open; //打開(kāi)form9的數(shù)據(jù)庫(kù)鏈接 if (combobox1.Text ='信息更新') and (combobox2.Text ='報(bào)紙信息') then form6.Show else begin if (combobox1.Text ='信息更新') and (combobox2.Text ='客戶(hù)信息') then form7.Show else begin if (combobox1.Text ='信息

30、更新') and (combobox2.Text ='供應(yīng)商信息') then form8.Show else begin if combobox1.Text ='信息統(tǒng)計(jì)' then form9.Show end end end end; procedure TForm2.BitBtn1Click(Sender: TObject); begin Application.Terminate; end; 2) 用戶(hù)信息窗口 procedure TForm4.Button1Click(Sender: TObject); begin form3.ADOTab

31、le1.Close; form3.ADOTable1.Open; //打開(kāi)form3的數(shù)據(jù)庫(kù)鏈接 form4.Hide; form3.Show; //打開(kāi)查詢(xún)窗口 end; procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction); begin adotable1.Close; application.Terminate; end; procedure TForm4.Button2Click(Sender: TObject); begin for

32、m5.show; //打開(kāi)訂閱窗口 end; 4.4報(bào)紙訂閱模塊的創(chuàng)建 用戶(hù)通過(guò)報(bào)紙訂閱模塊可以實(shí)現(xiàn)對(duì)報(bào)紙的訂閱功能。報(bào)紙訂閱模塊能將用戶(hù)填入的相關(guān)信息記入到數(shù)據(jù)庫(kù)中，實(shí)現(xiàn)對(duì)報(bào)紙的訂閱。 在此窗口使用的控件有一個(gè)ADOquery（用來(lái)鏈接到數(shù)據(jù)庫(kù)）、四個(gè)DBedit（用來(lái)填寫(xiě)訂報(bào)的相關(guān)信息）、三個(gè)Button（取消、清空與訂閱）。 報(bào)紙訂閱窗口主要程序段代碼分別如下。 procedure TForm3.Button2Click(Sender: TObject); //訂閱按鈕 begin form5.show; //進(jìn)入訂閱窗口

33、end; procedure TForm3.Button3Click(Sender: TObject); //完成按鈕 begin form3.Hide; form4.show; end; implementation {$R *.dfm} procedure TForm5.Button1Click(Sender: TObject); begin edit1.text :=''; edit2.text :=''; edit3.Text:=''; edit4.Text:=''; end; procedure TForm5.Button2C

34、lick(Sender: TObject); var sql:string; begin with adoquery1 do begin close; sql.Clear; //清空 sql.add('select * from 報(bào)紙和客戶(hù)') ; open; //下面開(kāi)始添加 append; fieldbyname('賬號(hào)').asstring:=Edit1.Text; fieldbyname('報(bào)紙編號(hào)').asstring:=Edit2.Text; fieldbyname('訂閱季度').asstring:=Edit3.Te

35、xt; fieldbyname('訂閱數(shù)量').asstring:=Edit4.Text; post; //添加到數(shù)據(jù)庫(kù) if (edit1.text='')or(edit2.text='')or(edit3.text='')or(edit4.text='') then messagebox(self.Handle,'請(qǐng)?zhí)钊胂嚓P(guān)信息！','系統(tǒng)提示',0) else messagebox(self.Handle,'恭喜！訂閱成功！','系統(tǒng)提示',0); end end; procedure TForm5.Button3Click(Sender: TOb

36、ject); begin form5.Hide; end; 4.5更新模塊的創(chuàng)建 信息更新模塊是用來(lái)實(shí)現(xiàn)客戶(hù)信息、報(bào)紙信息以及供應(yīng)商信息更新功能的模塊。 窗口控件由一個(gè)ADO（用來(lái)鏈接到數(shù)據(jù)庫(kù)）、一個(gè)DataSource（用來(lái)連接dbgrid）、一個(gè)Dbgrid（顯示記錄）、一個(gè)ComboBox（填寫(xiě)查詢(xún)條件）、一個(gè)Edit（填寫(xiě)查詢(xún)關(guān)鍵字）、一個(gè)DBNavigator（進(jìn)行更新操作）、兩個(gè)Button（搜索與完成）。 由于在此模塊的更新中，更新操作是由控件DBNavigator來(lái)實(shí)現(xiàn)，所以此模塊中的主要代碼與查詢(xún)模塊中的代碼相同。其代碼詳見(jiàn)查詢(xún)模塊的創(chuàng)建。 4.6統(tǒng)計(jì)信息模

37、塊的創(chuàng)建 統(tǒng)計(jì)信息模塊主要可分為兩個(gè)部分，一部分用來(lái)統(tǒng)計(jì)報(bào)紙的相關(guān)信息，一部分是用來(lái)統(tǒng)計(jì)客戶(hù)的相關(guān)信息。 在此窗口使用的控件有一個(gè)ADO（用來(lái)鏈接到數(shù)據(jù)庫(kù)）、一個(gè)DataSource（用來(lái)連接dbgrid）、兩個(gè)Label（顯示統(tǒng)計(jì)數(shù)據(jù)）、一個(gè)Dbgrid（顯示記錄）、一個(gè)ComboBox（填寫(xiě)查詢(xún)條件）、一個(gè)Edit（填寫(xiě)查詢(xún)關(guān)鍵字）、兩個(gè)Button（搜索與完成）。 統(tǒng)計(jì)信息窗口主要程序段代碼分別如下。 procedure TForm9.Button1Click(Sender: TObject); var sum1:real; sum2:real; s:string;

38、 t:string; bookmark1:tbookmark; begin if combobox1.Text='按報(bào)紙編號(hào)' then begin adotable1.Filtered:=false; //信息的查找 adotable1.Filter:='報(bào)紙編號(hào) like '+''''+trim(edit1.Text)+#37+''''; adotable1.Filtered:=true; sum1:=0.00; sum2:=0.00; bookmark1:=ADOTable1.GetBookmark; adotable1.Disa

39、bleControls; adotable1.First; while not adotable1.Eof do begin sum1:=sum1+adotable1.fieldbyname('訂閱數(shù)量').Value; sum2:=sum2+1; adotable1.Next; end; adotable1.GotoBookmark(bookmark1); adotable1.freeBookmark(bookmark1); adotable1.EnableControls; str(sum1:8:2,s); str(sum2:8:2,t); label1.Capt

40、ion:=s; label2.Caption:=t; end else begin if combobox1.Text='按賬號(hào)' then begin adotable1.Filtered:=false; adotable1.Filter:='賬號(hào) like '+''''+trim(edit1.Text)+#37+''''; adotable1.Filtered:=true; sum1:=0.00; sum2:=0.00; bookmark1:=ADOTable1.GetBookmark; adotable1.DisableControls; adotab

41、le1.First; while not adotable1.Eof do begin sum1:=sum1+adotable1.fieldbyname('訂閱數(shù)量').Value; sum2:=1; adotable1.Next; end; adotable1.GotoBookmark(bookmark1); adotable1.freeBookmark(bookmark1); adotable1.EnableControls; str(sum1:8:2,s); str(sum2:8:2,t); label1.Caption:=s; label2.Caption:

42、=t; end end; end; 5系統(tǒng)調(diào)試 圖5.1 登陸界面出錯(cuò)提示圖 圖5.2 管理員登錄進(jìn)入的界面圖 圖5.3 一般用戶(hù)登錄進(jìn)入的界面圖 圖5.4 供應(yīng)商信息更新圖 圖5.5 客戶(hù)信息更新圖 圖5.6 報(bào)紙信息更新圖 圖5.7 報(bào)紙信息訂閱圖 圖5.8 信息統(tǒng)計(jì)圖 6總結(jié) 兩個(gè)星期的課程設(shè)計(jì)轉(zhuǎn)眼就過(guò)去了，在同組同學(xué)的共同努力下，終于將這次的系統(tǒng)設(shè)計(jì)——郵局訂報(bào)管理系統(tǒng)完成了。做得粗糙，但還是感覺(jué)挺開(kāi)心的，畢竟這次的課程設(shè)計(jì)讓我學(xué)到了很多新的知識(shí)

43、。尤其是界面制作的部分。也初步的認(rèn)識(shí)了Delphi這門(mén)語(yǔ)言。 這次的課程設(shè)計(jì)與以往的不同主要體現(xiàn)在要求使用窗口化的界面，而在這之前我們并未接觸過(guò)界面編程語(yǔ)言，這無(wú)疑成為了我們這次課程設(shè)計(jì)最大的難題。不會(huì)，沒(méi)關(guān)系，咱學(xué)。語(yǔ)言本來(lái)就是相通的。Just do it！指導(dǎo)老師巢老師在了解到我們所學(xué)情況后，決定利用這兩周的時(shí)間教會(huì)我們delphi的基本操作。面對(duì)新的知識(shí)，大家都有著以往課程設(shè)計(jì)中少有出現(xiàn)過(guò)的熱情。從如何利用ADO控件來(lái)連接數(shù)據(jù)庫(kù)，如何進(jìn)行登錄界面中賬號(hào)與密碼匹配設(shè)置。再到如何將新的數(shù)據(jù)添加到數(shù)據(jù)庫(kù)，或是更改數(shù)據(jù)庫(kù)中的原始信息。一步一步，在老師的精心指導(dǎo)下，我們都能理解和熟練的操作這些步

44、驟。在這基礎(chǔ)之上，我又根據(jù)自己系統(tǒng)的需求，在圖書(shū)館和網(wǎng)上找到了很多關(guān)于Delphi編程有關(guān)的信息。自主的寫(xiě)出了查詢(xún)等操作。認(rèn)識(shí)到了很多新的函數(shù)，如trim（）函數(shù)可以用來(lái)消除字符串的前后空格。在制作登陸界面的時(shí)候也對(duì)用戶(hù)的登錄做了權(quán)限的設(shè)置。 由于這次的系統(tǒng)設(shè)計(jì)是采用的分工合作的方式進(jìn)行的，所以同組同學(xué)之間的默契固然是非常重要的。我們這次的課題設(shè)計(jì)分工非常的明確，這也是我們能夠順利完成任務(wù)的關(guān)鍵之一。其次，組員之間的交流也是必不可少的。這些在前期工作的調(diào)查與分析當(dāng)中突出得格外的明顯。與同學(xué)和老師的交流能夠使我們更加全面的認(rèn)識(shí)自己所要設(shè)計(jì)的系統(tǒng)，更能夠完善的分析出我們的設(shè)計(jì)所需。 通過(guò)了這次課程設(shè)計(jì)，不僅充實(shí)了我的專(zhuān)業(yè)知識(shí)，擴(kuò)大了知識(shí)面，增強(qiáng)分析問(wèn)題和解決問(wèn)題的能力，同時(shí)也培養(yǎng)了我的團(tuán)隊(duì)協(xié)作精神。在此要特別感謝巢老師，是您讓我有了充實(shí)又有樂(lè)趣的兩個(gè)星期。 7參考文獻(xiàn) [1] 劉韜，樓興華編著．SQL Server 2000 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航．北京：人民郵電出版社，2004.5 [2] 明日科技編著．Visual C++管理信息系統(tǒng)完整項(xiàng)目實(shí)例解剖．北京：人民郵電出版社．2005.7 [3] 廖望等編著．SQL Server 2000 案例教程．北京：冶金工業(yè)出版社，2004.4 網(wǎng)站： 29