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

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

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

2、 評定成績： 指導(dǎo)老師簽名： 年 月 日 目 錄 目錄 1 課程設(shè)計(jì)的目的和意義 2 2 需求分析 3 2.1 開發(fā)環(huán)境與開發(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ù)庫概念結(jié)構(gòu)設(shè)計(jì) 6 3.2數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì) 7 3.

3、2.1數(shù)據(jù)庫關(guān)系模式 7 3.2.2數(shù)據(jù)庫及表結(jié)構(gòu)的創(chuàng)建 8 4系統(tǒng)實(shí)現(xiàn) 11 4.1登陸模塊的創(chuàng)建 11 4.2查詢模塊的創(chuàng)建 13 4.3用戶信息與用戶管理模塊的創(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)用上的地位顯而易見，它已成為政府、企事業(yè)單位

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

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

6、 2 需求分析 2.1 開發(fā)環(huán)境與開發(fā)工具 系統(tǒng)開發(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)過充分地系統(tǒng)調(diào)研，發(fā)現(xiàn)本系統(tǒng)應(yīng)包含報(bào)紙信息、客戶信息、供應(yīng)商信息等管理信息。進(jìn)一步還發(fā)現(xiàn)信息實(shí)體間需的管理信息有訂閱管理即客戶與其訂閱的相對應(yīng)的報(bào)紙信息情況、供求管理即供應(yīng)商與其供應(yīng)的報(bào)紙對應(yīng)的管理關(guān)系等內(nèi)容。 本系統(tǒng)的具體要求如下： 1) 能全面管理郵局訂報(bào)的所有業(yè)務(wù)的相關(guān)實(shí)體，如報(bào)紙基本信息、客戶信息、管理員信息、供應(yīng)商信息等； 2)

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

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

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

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

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

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

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

14、商名，報(bào)紙名，地區(qū)，電話，郵箱） ·訂閱（賬號，報(bào)紙編號，訂閱季度，訂閱數(shù)量） ·提供（供應(yīng)商編號，報(bào)紙編號，供應(yīng)數(shù)量） 屬性名對應(yīng)由英文表示，則5個(gè)關(guān)系模式為： ·客戶（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ù)庫及表結(jié)構(gòu)的創(chuàng)建 本系統(tǒng)使用的數(shù)據(jù)庫名為youjudingyue，根據(jù)已設(shè)計(jì)出的關(guān)

15、系模式及各關(guān)系模式的完整性約束要求，現(xiàn)在就可以在SQL 2000數(shù)據(jù)庫系統(tǒng)中實(shí)現(xiàn)這些邏輯結(jié)構(gòu)。 數(shù)據(jù)庫表的創(chuàng)建 數(shù)據(jù)庫名稱：youjudingyue，創(chuàng)建5張表，部分如下所示（圖3.2.21-圖3.2.24） 圖3.2.21客戶信息表 圖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 用戶管理視圖 3.3系統(tǒng)的總體設(shè)計(jì) 對系統(tǒng)各項(xiàng)功能進(jìn)行集中、分塊，此系統(tǒng)主要實(shí)行以下的功能： 1、 管理員與用戶的登錄

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

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

18、塊，滿足不同用戶的需求。在登錄過程中由于權(quán)限值與賬號編碼有關(guān)，所以用戶不必選定登錄方式，系統(tǒng)會根據(jù)不同的賬號進(jìn)入到相應(yīng)的界面。 在此窗口使用的控件有一個(gè)ComboBox（賬號）、一個(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; //打開form2的數(shù)據(jù)庫鏈接 form4.ADOTable1.Close; form4.ADOTable1.Open; //打開form4的數(shù)據(jù)庫鏈接 if form2.ADOTable1.locate('id',combobox1.Text,[]) //賬號匹配 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; //彈出用戶管理窗口 end else begin if (edit1.Text= trim(form2.ADOTable1.FieldValues['pd'] )) //密碼匹配 and (trim(form2.ADOTable1.FieldValues['qx'])='0') //權(quán)限匹配（用戶權(quán)限） then begin form1.Hide; //隱藏登陸窗口 form4.Show; //彈出用戶信息窗口

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

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

23、 else begin if combobox2.Text='按編號' then //查找條件（按編號） 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='按名稱' then //查找條件（

24、按名稱） 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='按類別' then //查找條件（按類別） 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,'請選擇查找方式！','溫馨提示',0); //提示 end end e

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

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

29、Open; //打開form8的數(shù)據(jù)庫鏈接 form9.ADOTable1.Close; form9.ADOTable1.Open; //打開form9的數(shù)據(jù)庫鏈接 if (combobox1.Text ='信息更新') and (combobox2.Text ='報(bào)紙信息') then form6.Show else begin if (combobox1.Text ='信息更新') and (combobox2.Text ='客戶信息') 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) 用戶信息窗口 procedure TForm4.Button1Click(Sender: TObject); begin form3.ADOTab

31、le1.Close; form3.ADOTable1.Open; //打開form3的數(shù)據(jù)庫鏈接 form4.Hide; form3.Show; //打開查詢窗口 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; //打開訂閱窗口 end; 4.4報(bào)紙訂閱模塊的創(chuàng)建 用戶通過報(bào)紙訂閱模塊可以實(shí)現(xiàn)對報(bào)紙的訂閱功能。報(bào)紙訂閱模塊能將用戶填入的相關(guān)信息記入到數(shù)據(jù)庫中，實(shí)現(xiàn)對報(bào)紙的訂閱。 在此窗口使用的控件有一個(gè)ADOquery（用來鏈接到數(shù)據(jù)庫）、四個(gè)DBedit（用來填寫訂報(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)紙和客戶') ; open; //下面開始添加 append; fieldbyname('賬號').asstring:=Edit1.Text; fieldbyname('報(bào)紙編號').asstring:=Edit2.Text; fieldbyname('訂閱季度').asstring:=Edit3.Te

35、xt; fieldbyname('訂閱數(shù)量').asstring:=Edit4.Text; post; //添加到數(shù)據(jù)庫 if (edit1.text='')or(edit2.text='')or(edit3.text='')or(edit4.text='') then messagebox(self.Handle,'請?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)建 信息更新模塊是用來實(shí)現(xiàn)客戶信息、報(bào)紙信息以及供應(yīng)商信息更新功能的模塊。 窗口控件由一個(gè)ADO（用來鏈接到數(shù)據(jù)庫）、一個(gè)DataSource（用來連接dbgrid）、一個(gè)Dbgrid（顯示記錄）、一個(gè)ComboBox（填寫查詢條件）、一個(gè)Edit（填寫查詢關(guān)鍵字）、一個(gè)DBNavigator（進(jìn)行更新操作）、兩個(gè)Button（搜索與完成）。 由于在此模塊的更新中，更新操作是由控件DBNavigator來實(shí)現(xiàn)，所以此模塊中的主要代碼與查詢模塊中的代碼相同。其代碼詳見查詢模塊的創(chuàng)建。 4.6統(tǒng)計(jì)信息模

37、塊的創(chuàng)建 統(tǒng)計(jì)信息模塊主要可分為兩個(gè)部分，一部分用來統(tǒng)計(jì)報(bào)紙的相關(guān)信息，一部分是用來統(tǒng)計(jì)客戶的相關(guān)信息。 在此窗口使用的控件有一個(gè)ADO（用來鏈接到數(shù)據(jù)庫）、一個(gè)DataSource（用來連接dbgrid）、兩個(gè)Label（顯示統(tǒng)計(jì)數(shù)據(jù)）、一個(gè)Dbgrid（顯示記錄）、一個(gè)ComboBox（填寫查詢條件）、一個(gè)Edit（填寫查詢關(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)紙編號' then begin adotable1.Filtered:=false; //信息的查找 adotable1.Filter:='報(bà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='按賬號' then begin adotable1.Filtered:=false; adotable1.Filter:='賬號 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 一般用戶登錄進(jìn)入的界面圖 圖5.4 供應(yīng)商信息更新圖 圖5.5 客戶信息更新圖 圖5.6 報(bào)紙信息更新圖 圖5.7 報(bào)紙信息訂閱圖 圖5.8 信息統(tǒng)計(jì)圖 6總結(jié) 兩個(gè)星期的課程設(shè)計(jì)轉(zhuǎn)眼就過去了，在同組同學(xué)的共同努力下，終于將這次的系統(tǒng)設(shè)計(jì)——郵局訂報(bào)管理系統(tǒng)完成了。做得粗糙，但還是感覺挺開心的，畢竟這次的課程設(shè)計(jì)讓我學(xué)到了很多新的知識

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

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