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

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

1、數(shù)據(jù)庫課程設(shè)計報告課 題: 郵局訂報系統(tǒng) 專業(yè)班級： 學(xué) 號： 姓 名： 組 員： 指導(dǎo)教師: 評閱意見：評定成績： 指導(dǎo)老師簽名： 年 月 日目 錄目錄1 課程設(shè)計的目的和意義22 需求分析32.1 開發(fā)環(huán)境與開發(fā)工具32.2 系統(tǒng)需求分析32.2.1需要管理的實體信息32.2.2實體聯(lián)系信息32.2.3 系統(tǒng)數(shù)據(jù)流圖42.3功能需求分析43系統(tǒng)設(shè)計63.1數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計63.2數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計73.2.1數(shù)據(jù)庫關(guān)系模式73.2.2數(shù)據(jù)庫及表結(jié)構(gòu)的創(chuàng)建84系統(tǒng)實現(xiàn)114.1登陸模塊的創(chuàng)建114.2查詢模塊的創(chuàng)建134.3用戶信息與用戶管理模塊的創(chuàng)建164.4報紙訂閱模塊的創(chuàng)建184.5

2、更新模塊的創(chuàng)建194.6統(tǒng)計信息模塊的創(chuàng)建205系統(tǒng)調(diào)試236總結(jié)277參考文獻281 課程設(shè)計的目的和意義在Internet飛速發(fā)展的今天，互聯(lián)網(wǎng)成為人們快速獲取、發(fā)布和傳遞信息的重要渠道，它在人們政治、經(jīng)濟、生活等各個方面發(fā)揮著重要的作用.因此網(wǎng)站建設(shè)在Internet應(yīng)用上的地位顯而易見，它已成為政府、企事業(yè)單位信息化建設(shè)中的重要組成部分，從而倍受人們的重視。 這次我們所設(shè)計的課題正是互聯(lián)網(wǎng)與社會生活之間的緊密關(guān)系的體現(xiàn)，現(xiàn)今的社會，人們已經(jīng)離不開了網(wǎng)絡(luò)，網(wǎng)絡(luò)已經(jīng)成為人與人之間交流的一種形式，他能夠把事情的復(fù)雜化轉(zhuǎn)為簡單化。郵局訂報管理系統(tǒng)的建設(shè)不僅能夠使該事業(yè)單位的工作方式有所改變，也

3、大大地提高了該單位工作人員的辦事效率，也增加了該單位的知明度，更重要的是為我們的居民提供了一個網(wǎng)絡(luò)生活空間，促進了他們對網(wǎng)絡(luò)知識的進一步地了解。 通過該系統(tǒng)展示了各種報紙信息的在線訂閱功能及報紙、客戶信息管理功能，方便了客戶與郵局的各種信息溝通，同時也給予了管理人員極大的方便。近年來我國信息產(chǎn)業(yè)發(fā)展迅速，手工管理方式在報紙訂閱管理等需要大量事務(wù)處理的應(yīng)用中已顯得不相適應(yīng)，采用IT技術(shù)提高服務(wù)質(zhì)量和管理水平勢在必行。面對各種媒體的強勢競爭，因此，郵局必須提高其工作效率，改善其工作環(huán)境。這樣，管理信息化勢在必行。 在傳統(tǒng)的郵局訂報管理中，其過程往往是很復(fù)雜的，繁瑣的，管理以售出和進貨兩項內(nèi)容為核心

4、，在此過程中又需要經(jīng)過若干道手續(xù)，因為整個過程都需要手工操作，效率十分低下，且由于他們之間關(guān)聯(lián)復(fù)雜，統(tǒng)計和查詢的方式各不相同；且會出現(xiàn)信息的重復(fù)傳遞問題，因此該過程必須實現(xiàn)信息化。 我們的系統(tǒng)開發(fā)的整體任務(wù)是實現(xiàn)郵局訂報管理的系統(tǒng)化、規(guī)范化、自動化和智能化，從而達到提高管理效率的目的。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è)計模擬一般郵局報紙訂閱系統(tǒng)的管理內(nèi)容，經(jīng)過充分地系統(tǒng)調(diào)研，發(fā)現(xiàn)本系統(tǒng)應(yīng)包含報紙信息、客戶信息、供應(yīng)商信息等管理信息。進一步還發(fā)現(xiàn)信息實體間需的管理信息有

5、訂閱管理即客戶與其訂閱的相對應(yīng)的報紙信息情況、供求管理即供應(yīng)商與其供應(yīng)的報紙對應(yīng)的管理關(guān)系等內(nèi)容。本系統(tǒng)的具體要求如下：1) 能全面管理郵局訂報的所有業(yè)務(wù)的相關(guān)實體，如報紙基本信息、客戶信息、管理員信息、供應(yīng)商信息等；2) 通過使用計算機能方便地維護包括添加刪除、查找等個信息表；3) 能實現(xiàn)跨表查詢所需要的信息；4) 能進行多個條件的組合查詢；5) 能基于單表或多表的數(shù)據(jù)統(tǒng)計；6) 需要時能對某些信息即時輸出顯示；7) 系統(tǒng)能面對多角色用戶，對不同級別的用戶提供相對應(yīng)的系統(tǒng)功能；8) 該系統(tǒng)具有操作方便、快捷等特點。2.2.1需要管理的實體信息1) 報紙信息：報紙編號，報紙名，類別，地區(qū)，出版

6、社，季度約價，進貨量，庫存等；2) 客戶信息：賬號，客戶名，密碼，地址，郵編，電話，權(quán)限，照片等；3) 供應(yīng)商信息：供應(yīng)商編號，供應(yīng)商名，報紙名，地區(qū)，電話，郵箱等。2.2.2實體聯(lián)系信息1) 客戶與報紙訂閱關(guān)系聯(lián)系圖，客戶訂閱后必須將客戶名與報紙相關(guān)信息對應(yīng)起來，以便郵局將報紙寄給對應(yīng)的客戶，讓客戶定期收到自己訂閱的報紙；2) 供應(yīng)商與報紙聯(lián)系圖，哪個供應(yīng)商供應(yīng)那些報紙，必須有個相對應(yīng)的數(shù)據(jù)表，當(dāng)庫存不夠時，我們通過此聯(lián)系表找到對應(yīng)的供應(yīng)商，與其聯(lián)系進行進貨。2.2.3 系統(tǒng)數(shù)據(jù)流圖訂購?fù)顺鲇嗁徯畔蠹埿畔⑿薷目蛻艨蛻粜畔⒂嗁徯畔⒉樵兒戏ㄓ脩舻卿洸缓戏ㄓ脩艄芾韱T客戶報紙信息報紙信息客戶信息客

7、戶信息訂購信息客戶信息修改供應(yīng)商供應(yīng)商信息供應(yīng)商信息供應(yīng)商信息客戶信息修改報紙報紙信息報紙信息報紙信息統(tǒng)計報紙信息報紙統(tǒng)計客戶統(tǒng)計客戶信息在仔細分析調(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) 能對個表進行輸入、修改、刪除、添加、查詢等功能。3) 在客戶訂閱信息和供應(yīng)商供給信息發(fā)生變更時，能對相關(guān)信息作必要的調(diào)整。4) 能實現(xiàn)下列各類查詢： 能查詢報紙的相關(guān)信息，并且可以按編號、按名稱、按季度約價進行相

8、關(guān)查詢，顯示相應(yīng)的信息。 管理員能查詢客戶的相關(guān)信息，顯示客戶基本信息與訂閱情況，方便管理員與客戶之間的動態(tài)交流。 管理員能查詢各個報紙的庫存情況，以便管理員與供應(yīng)商及時聯(lián)系，保證每種報紙的庫存量。5) 能實現(xiàn)如下各類統(tǒng)計功能： 能統(tǒng)計各類報紙訂閱情況，客觀反映各報紙銷售情況，為銷售人員做下一季度的銷售計劃做依據(jù)。 能統(tǒng)計每個客戶訂閱的報紙總數(shù)，以方便對某些大客戶進行回饋活動。6) 能實現(xiàn)訂閱功能，在客戶填入訂閱的相關(guān)信息后，能自動將這些信息放入對應(yīng)的數(shù)據(jù)庫中。7) 用戶管理功能，包括用戶基本信息管理及用戶登錄。8) 要求所設(shè)計的界面友好，功能合理安排，操作使用方便，并能進一步考慮子系統(tǒng)在安全

9、性、完整性、并發(fā)控制、備份恢復(fù)等方面的功能要求。經(jīng)過上面的對系統(tǒng)和功能需求分析，我們制成的功能模塊圖如圖2.31所示：郵局訂報管理系統(tǒng)系統(tǒng)管理單據(jù)錄入與確認報紙更新與統(tǒng)計基本信息管理用戶登錄付款方式設(shè)置類別設(shè)置用戶管理送貨方式設(shè)置供應(yīng)商信息管理客戶信息管理報紙信息查詢按類別查詢按地區(qū)查詢按名稱查詢按編號查詢報紙的更新銷售單錄入確認進貨單錄入確認銷售單錄入進貨單錄入地區(qū)設(shè)置報紙信息的統(tǒng)計圖 2.31 系統(tǒng)功能模塊圖3系統(tǒng)設(shè)計3.1數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計在充分需求分析的基礎(chǔ)上，經(jīng)過逐步抽象、概括、分析、充分研討，可畫出如下反應(yīng)郵局訂報管理系統(tǒng)數(shù)據(jù)的整體E-R圖（圖3.11-圖3.16） 供應(yīng)商提供報紙

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

11、存）供應(yīng)商（供應(yīng)商編號，供應(yīng)商名，報紙名，地區(qū)，電話，郵箱）訂閱（賬號，報紙編號，訂閱季度，訂閱數(shù)量）提供（供應(yīng)商編號，報紙編號，供應(yīng)數(shù)量）屬性名對應(yīng)由英文表示，則5個關(guān)系模式為：客戶（id，name，pd，addr，zip，tel，qx，photo）報紙（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è)計出的關(guān)系模式及各關(guān)系模式的完整性

12、約束要求，現(xiàn)在就可以在SQL 2000數(shù)據(jù)庫系統(tǒng)中實現(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報紙信息表圖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è)計對系統(tǒng)各項功能進行集中、分塊，此系統(tǒng)主要實行以下的功能：1、 管理員與用戶的登錄功能2、 信息的更新功能（報紙信息、客戶信息、供應(yīng)商信息的添加、刪除與修改）3、 統(tǒng)計功能（報紙數(shù)量、用

13、戶數(shù)量）4、 訂閱功能圖3.31 為郵局訂報系統(tǒng)的程序流程圖管理員客戶開始結(jié)束顯示登錄界面顯示訂閱界面信息訂閱報紙顯示查找后記錄有記錄添加顯示添加后記錄有記錄客戶管理刪除顯示刪除后記錄有記錄顯示顯示所有記錄有記錄查找顯示查找后記錄有記錄添加顯示添加后記錄有記錄報紙管理刪除顯示刪除后記錄有記錄顯示顯示所有記錄有記錄查找按編號按類別按單價按地區(qū)按名稱供應(yīng)商管理顯示更新后記錄有記錄更新信息統(tǒng)計查詢顯示統(tǒng)計記錄有記錄顯示對應(yīng)記錄有記錄查詢報紙顯示對應(yīng)記錄有記錄顯示對應(yīng)記錄有記錄顯示對應(yīng)記錄有記錄顯示對應(yīng)記錄有記錄圖3.31 郵局訂報系統(tǒng)流程圖4系統(tǒng)實現(xiàn)在此次課程設(shè)計系統(tǒng)的程序開發(fā)上，由于采用的是分工合

14、作的方式，所以在代碼的開發(fā)上，系統(tǒng)的登錄模塊與查詢模塊設(shè)計是我的主要任務(wù)。4.1登陸模塊的創(chuàng)建本窗體是為兩種不同的用戶（一般用戶，管理員）提供選擇以進入不同的模塊，滿足不同用戶的需求。在登錄過程中由于權(quán)限值與賬號編碼有關(guān)，所以用戶不必選定登錄方式，系統(tǒng)會根據(jù)不同的賬號進入到相應(yīng)的界面。在此窗口使用的控件有一個ComboBox（賬號）、一個Edit（密碼）、兩個Button（登錄與關(guān)閉）。登陸窗口運行界面如圖4.11所示圖4.11 登陸界面登陸窗口主要程序段代碼如下。implementationuses unit2, Unit4;$R *.dfmprocedure TForm1.Button1C

15、lick(Sender: TObject);beginform2.ADOTable1.Close; form2.ADOTable1.Open; /打開form2的數(shù)據(jù)庫鏈接form4.ADOTable1.Close;form4.ADOTable1.Open; /打開form4的數(shù)據(jù)庫鏈接if form2.ADOTable1.locate(id,combobox1.Text,) /賬號匹配thenbeginif (edit1.Text= trim(form2.ADOTable1.FieldValuespd ) /密碼匹配and (trim(form2.ADOTable1.FieldValuesq

16、x)=1) /權(quán)限匹配(管理員權(quán)限)thenbeginform1.Hide; /隱藏登陸窗口form2.Show; /彈出用戶管理窗口endelsebeginif (edit1.Text= trim(form2.ADOTable1.FieldValuespd ) /密碼匹配and (trim(form2.ADOTable1.FieldValuesqx)=0) /權(quán)限匹配（用戶權(quán)限）thenbeginform1.Hide; /隱藏登陸窗口form4.Show; /彈出用戶信息窗口endelsemessagebox(self.Handle,您的帳號或密碼不正確！,溫馨提示,0); /出錯提示end

17、endelsemessagebox(self.Handle,您的帳號或密碼不正確！,溫馨提示,0); /出錯提示end;4.2查詢模塊的創(chuàng)建本窗體實現(xiàn)的查詢功能有多種（見圖4.21），如按編號、報紙名稱、報紙類別、報紙價格、報紙地區(qū)等字段進行完全匹配和部分匹配的模糊查找，并且用戶可以從查找模塊進入到報紙訂閱模塊。方便用戶訂閱報紙。 圖4.21 查詢選擇條件圖在此窗口使用的控件有一個ADO（用來鏈接到數(shù)據(jù)庫）、一個DataSource（用來連接dbgrid）、一個Dbgrid（顯示原有記錄）、一個ComboBox（填寫查詢條件）、一個Edit（填寫查詢關(guān)鍵字）、三個Button（搜索、訂閱與取消

18、）。查詢窗口運行界面如圖4.23所示圖4.23 報紙信息查詢圖查詢窗口主要程序段代碼如下。procedure TForm3.Button1Click(Sender: TObject); /搜索按鈕beginif edit1.Text= then /空白關(guān)鍵字messagebox(self.Handle,請輸入查找關(guān)鍵字！,溫馨提示,0) /提示elsebeginif combobox2.Text=按編號 then /查找條件（按編號）beginadotable1.Filtered:=false;adotable1.Filter:=pnum like +trim(edit1.Text)+#37+

19、;/相當(dāng)于（pnum like edit.text%）；其中trim（）表示刪除輸入內(nèi)容的前后空格；#37代表%adotable1.Filtered:=true;endelsebeginif combobox2.Text=按名稱 then /查找條件（按名稱）beginadotable1.Filtered:=false;adotable1.Filter:=pname like +trim(edit1.Text)+#37+; /相當(dāng)于（pname like edit.text%）adotable1.Filtered:=true;endelsebeginif combobox2.Text=按類別

20、then /查找條件（按類別）beginadotable1.Filtered:=false;adotable1.Filter:=kind like +trim(edit1.Text)+#37+;/相當(dāng)于（kind like edit.text%）adotable1.Filtered:=true;endelsebeginif combobox2.Text=按價格 then /查找條件（按價格）beginadotable1.Filtered:=false;adotable1.Filter:=price like +trim(edit1.Text)+#37+;/相當(dāng)于（price like edit

21、.text%）adotable1.Filtered:=true;endelsebeginif combobox2.Text=按地區(qū) then /查找條找（按地區(qū)）beginadotable1.Filtered:=false;adotable1.Filter:=area like +trim(edit1.Text)+#37+;/相當(dāng)于（area like edit.text%）adotable1.Filtered:=true;endelsemessagebox(self.Handle,請選擇查找方式！,溫馨提示,0); /提示endendendendendend;4.3用戶信息與用戶管理模塊的創(chuàng)

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

23、主要程序段代碼分別如下。1) 用戶管理窗口procedure TForm2.Button1Click(Sender: TObject);beginform6.ADOTable1.Close;form6.ADOTable1.Open; /打開form6的數(shù)據(jù)庫鏈接form7.ADOTable1.Close;form7.ADOTable1.Open; /打開form7的數(shù)據(jù)庫鏈接form8.ADOTable1.Close;form8.ADOTable1.Open; /打開form8的數(shù)據(jù)庫鏈接form9.ADOTable1.Close;form9.ADOTable1.Open; /打開form9的

24、數(shù)據(jù)庫鏈接if (combobox1.Text =信息更新) and (combobox2.Text =報紙信息) thenform6.Showelsebeginif (combobox1.Text =信息更新) and (combobox2.Text =客戶信息)thenform7.Showelsebeginif (combobox1.Text =信息更新) and (combobox2.Text =供應(yīng)商信息)thenform8.Showelsebeginif combobox1.Text =信息統(tǒng)計thenform9.Showendendend end;procedure TForm2.

25、BitBtn1Click(Sender: TObject);beginApplication.Terminate;end;2) 用戶信息窗口procedure TForm4.Button1Click(Sender: TObject);beginform3.ADOTable1.Close;form3.ADOTable1.Open; /打開form3的數(shù)據(jù)庫鏈接form4.Hide;form3.Show; /打開查詢窗口end;procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);beginadotable1.C

26、lose;application.Terminate;end;procedure TForm4.Button2Click(Sender: TObject);beginform5.show; /打開訂閱窗口end;4.4報紙訂閱模塊的創(chuàng)建 用戶通過報紙訂閱模塊可以實現(xiàn)對報紙的訂閱功能。報紙訂閱模塊能將用戶填入的相關(guān)信息記入到數(shù)據(jù)庫中，實現(xiàn)對報紙的訂閱。在此窗口使用的控件有一個ADOquery（用來鏈接到數(shù)據(jù)庫）、四個DBedit（用來填寫訂報的相關(guān)信息）、三個Button（取消、清空與訂閱）。報紙訂閱窗口主要程序段代碼分別如下。procedure TForm3.Button2Click(Send

27、er: TObject); /訂閱按鈕beginform5.show; /進入訂閱窗口end;procedure TForm3.Button3Click(Sender: TObject); /完成按鈕beginform3.Hide;form4.show;end;implementation$R *.dfmprocedure TForm5.Button1Click(Sender: TObject);begin edit1.text :=; edit2.text :=; edit3.Text:=; edit4.Text:=;end;procedure TForm5.Button2Click(Sen

28、der: TObject);varsql:string;beginwith adoquery1 dobeginclose;sql.Clear; /清空sql.add(select * from 報紙和客戶) ;open;/下面開始添加append;fieldbyname(賬號).asstring:=Edit1.Text; fieldbyname(報紙編號).asstring:=Edit2.Text;fieldbyname(訂閱季度).asstring:=Edit3.Text;fieldbyname(訂閱數(shù)量).asstring:=Edit4.Text;post; /添加到數(shù)據(jù)庫if (edit

29、1.text=)or(edit2.text=)or(edit3.text=)or(edit4.text=) thenmessagebox(self.Handle,請?zhí)钊胂嚓P(guān)信息！,系統(tǒng)提示,0)elsemessagebox(self.Handle,恭喜！訂閱成功！,系統(tǒng)提示,0);endend;procedure TForm5.Button3Click(Sender: TObject);beginform5.Hide;end;4.5更新模塊的創(chuàng)建信息更新模塊是用來實現(xiàn)客戶信息、報紙信息以及供應(yīng)商信息更新功能的模塊。窗口控件由一個ADO（用來鏈接到數(shù)據(jù)庫）、一個DataSource（用來連接db

30、grid）、一個Dbgrid（顯示記錄）、一個ComboBox（填寫查詢條件）、一個Edit（填寫查詢關(guān)鍵字）、一個DBNavigator（進行更新操作）、兩個Button（搜索與完成）。由于在此模塊的更新中，更新操作是由控件DBNavigator來實現(xiàn)，所以此模塊中的主要代碼與查詢模塊中的代碼相同。其代碼詳見查詢模塊的創(chuàng)建。4.6統(tǒng)計信息模塊的創(chuàng)建 統(tǒng)計信息模塊主要可分為兩個部分，一部分用來統(tǒng)計報紙的相關(guān)信息，一部分是用來統(tǒng)計客戶的相關(guān)信息。在此窗口使用的控件有一個ADO（用來鏈接到數(shù)據(jù)庫）、一個DataSource（用來連接dbgrid）、兩個Label（顯示統(tǒng)計數(shù)據(jù)）、一個Dbgrid（

31、顯示記錄）、一個ComboBox（填寫查詢條件）、一個Edit（填寫查詢關(guān)鍵字）、兩個Button（搜索與完成）。統(tǒng)計信息窗口主要程序段代碼分別如下。procedure TForm9.Button1Click(Sender: TObject);varsum1:real;sum2:real;s:string;t:string;bookmark1:tbookmark;beginif combobox1.Text=按報紙編號 thenbeginadotable1.Filtered:=false; /信息的查找adotable1.Filter:=報紙編號 like +trim(edit1.Text)+

32、#37+;adotable1.Filtered:=true; sum1:=0.00; sum2:=0.00;bookmark1:=ADOTable1.GetBookmark;adotable1.DisableControls;adotable1.First;while not adotable1.Eof dobeginsum1:=sum1+adotable1.fieldbyname(訂閱數(shù)量).Value;sum2:=sum2+1;adotable1.Next;end;adotable1.GotoBookmark(bookmark1);adotable1.freeBookmark(bookma

33、rk1);adotable1.EnableControls;str(sum1:8:2,s);str(sum2:8:2,t);label1.Caption:=s;label2.Caption:=t;endelsebeginif combobox1.Text=按賬號 thenbeginadotable1.Filtered:=false;adotable1.Filter:=賬號 like +trim(edit1.Text)+#37+;adotable1.Filtered:=true; sum1:=0.00; sum2:=0.00;bookmark1:=ADOTable1.GetBookmark;ad

34、otable1.DisableControls;adotable1.First;while not adotable1.Eof dobeginsum1:=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.Captio

35、n:=t;endend;end;5系統(tǒng)調(diào)試圖5.1 登陸界面出錯提示圖圖5.2 管理員登錄進入的界面圖圖5.3 一般用戶登錄進入的界面圖圖5.4 供應(yīng)商信息更新圖圖5.5 客戶信息更新圖圖5.6 報紙信息更新圖圖5.7 報紙信息訂閱圖圖5.8 信息統(tǒng)計圖6總結(jié)兩個星期的課程設(shè)計轉(zhuǎn)眼就過去了，在同組同學(xué)的共同努力下，終于將這次的系統(tǒng)設(shè)計郵局訂報管理系統(tǒng)完成了。做得粗糙，但還是感覺挺開心的，畢竟這次的課程設(shè)計讓我學(xué)到了很多新的知識。尤其是界面制作的部分。也初步的認識了Delphi這門語言。這次的課程設(shè)計與以往的不同主要體現(xiàn)在要求使用窗口化的界面，而在這之前我們并未接觸過界面編程語言，這無疑成為了我

36、們這次課程設(shè)計最大的難題。不會，沒關(guān)系，咱學(xué)。語言本來就是相通的。Just do it！指導(dǎo)老師巢老師在了解到我們所學(xué)情況后，決定利用這兩周的時間教會我們delphi的基本操作。面對新的知識，大家都有著以往課程設(shè)計中少有出現(xiàn)過的熱情。從如何利用ADO控件來連接數(shù)據(jù)庫，如何進行登錄界面中賬號與密碼匹配設(shè)置。再到如何將新的數(shù)據(jù)添加到數(shù)據(jù)庫，或是更改數(shù)據(jù)庫中的原始信息。一步一步，在老師的精心指導(dǎo)下，我們都能理解和熟練的操作這些步驟。在這基礎(chǔ)之上，我又根據(jù)自己系統(tǒng)的需求，在圖書館和網(wǎng)上找到了很多關(guān)于Delphi編程有關(guān)的信息。自主的寫出了查詢等操作。認識到了很多新的函數(shù)，如trim（）函數(shù)可以用來消除

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