2017-20182-數(shù)據(jù)庫(kù)系統(tǒng)-實(shí)驗(yàn)報(bào)告3

1、實(shí) 驗(yàn) 報(bào) 告（ 2017/ 2018學(xué)年 第 二 學(xué)期）課程名稱數(shù)據(jù)庫(kù)系統(tǒng)實(shí)驗(yàn)名稱小型MIS開發(fā)實(shí)驗(yàn)時(shí)間2018年6月1日指導(dǎo)單位計(jì)算機(jī)學(xué)院軟件工程系指導(dǎo)教師程春玲學(xué)生姓名張穎班級(jí)學(xué)號(hào)B15041103學(xué)院(系)計(jì)軟院專 業(yè)軟件工程實(shí) 驗(yàn) 報(bào) 告實(shí)驗(yàn)名稱小型MIS開發(fā)指導(dǎo)教師程春玲實(shí)驗(yàn)類型設(shè)計(jì)實(shí)驗(yàn)學(xué)時(shí)4實(shí)驗(yàn)時(shí)間2018-06-01一、 實(shí)驗(yàn)?zāi)康暮鸵?(1) 了解C/S結(jié)構(gòu)的小型MIS的開發(fā)思路和過(guò)程(2) 理解ODBC和ADO的作用(3) 學(xué)習(xí)Delphi訪問(wèn)數(shù)據(jù)庫(kù)的方法和表單Form的設(shè)計(jì)方法二、實(shí)驗(yàn)環(huán)境(實(shí)驗(yàn)設(shè)備)硬件：微型計(jì)算機(jī)軟件：Windows 操作系統(tǒng)、Delphi 6（或更高

2、版本），MS SQL Server或ORACLE 10G三、實(shí)驗(yàn)原理及內(nèi)容1在MS SQL Server或ORACLE 10G中創(chuàng)建一個(gè)存儲(chǔ)航班信息的數(shù)據(jù)庫(kù)；（1）打開程序Microsoft SQL SERVER服務(wù)管理器，將服務(wù)器名選為 local，服務(wù)選為 SQLServer，然后刷新服務(wù)；（2）打開程序Microsoft SQL SERVER企業(yè)管理器，打開 Microsoft SQL SERVER SQL Server 組 (local)(Windows NT) 數(shù)據(jù)庫(kù)，右鍵“數(shù)據(jù)庫(kù)” 后就可以創(chuàng)建數(shù)據(jù)庫(kù)B15041103，即在本地服務(wù)器上創(chuàng)建 一個(gè)數(shù)據(jù)庫(kù)B15041103。如下圖所示

3、：實(shí) 驗(yàn) 報(bào) 告2在剛創(chuàng)建的數(shù)據(jù)庫(kù)中，設(shè)計(jì)和創(chuàng)建實(shí)驗(yàn)所用到的數(shù)據(jù)庫(kù)結(jié)構(gòu)（三級(jí)模式結(jié)構(gòu)）；將該表導(dǎo)出為SQL語(yǔ)句后： if exists (select * from dbo.sysobjects where id = object_id(N'dbo.flight') and OBJECTPROPERTY(id, N'IsUserTable') = 1)實(shí) 驗(yàn) 報(bào) 告drop table dbo.flightGOCREATE TABLE dbo.flight (航班號(hào) char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,起點(diǎn)

4、 varchar (15) COLLATE Chinese_PRC_CI_AS NULL ,終點(diǎn) varchar (15) COLLATE Chinese_PRC_CI_AS NULL ,日期 datetime NOT NULL ,起飛時(shí)刻 char (6) COLLATE Chinese_PRC_CI_AS NULL ,到達(dá)時(shí)刻 char (6) COLLATE Chinese_PRC_CI_AS NULL ,剩余座位數(shù) int NULL ,票價(jià) float NULL ,折扣票數(shù) float NULL ,折扣率 float NULL ,航班所屬航空公司 varchar (20) COLLAT

5、E Chinese_PRC_CI_AS NULL ) ON PRIMARYGO3啟動(dòng)Delphi，創(chuàng)建一個(gè)自己的Project，進(jìn)行界面設(shè)計(jì)（1）Form1系統(tǒng)界面：系統(tǒng)啟動(dòng)時(shí)的界面，給不同的用戶提供不同的選擇，可以以此進(jìn)入票務(wù)管理和票務(wù)查詢子功能。具體操作為：建新表單 Form1 拖放Button控件設(shè)置控件屬性編寫事件代碼。（2）Form2登錄界面：用戶登錄界面，輸入用戶名和密碼，確認(rèn)身份后，跳出操作界面，在此界面中，用戶（管理員）可以進(jìn)行航班數(shù)據(jù)維護(hù)和查詢操作。具體操作為：建新表單 Form2 拖放控件Label設(shè)置控件屬性編寫事件代碼。實(shí) 驗(yàn) 報(bào) 告（3）Form3查詢界面：按訪問(wèn)系統(tǒng)

6、的用戶的不同，對(duì)功能進(jìn)行設(shè)置進(jìn)行航班數(shù)據(jù)查詢操作，但不能維護(hù)數(shù)據(jù)。具體操作為：建新表單 Form 拖放控件：ADOConnection 控件 ADOQuery 控件和DataSource控件設(shè)置控件屬性（連接數(shù)據(jù)庫(kù)）編寫事件代碼。4通過(guò)ADO訪問(wèn)在MS SQL Server或ORACLE 10G中創(chuàng)建的航班信息數(shù)據(jù)庫(kù)本次報(bào)告對(duì)實(shí)驗(yàn)中所使用的控件名稱、作用及屬性和空間屬性取值進(jìn)行了詳細(xì)的表格說(shuō)明，表格按照控件執(zhí)行的先后順序依次列出：控件名稱控件作用控件屬性控件取值A(chǔ)DOConnection 可對(duì)數(shù)據(jù)庫(kù)下命令（設(shè)置 SQL 屬性值）、存取同一數(shù)據(jù)庫(kù)內(nèi)不同表的內(nèi)容。Connection String

7、點(diǎn)擊該屬性后的“”，在彈出的對(duì)話框中點(diǎn)擊“Build”，選擇希望連接的數(shù)據(jù)“Microsoft OLE DB Provider for SQL Server”，點(diǎn)擊“下一步”后，其中服務(wù)器名稱可以選為“l(fā)ocal”(復(fù)制本機(jī)的 SQL SERVER 服務(wù)器名)，數(shù)據(jù)庫(kù)選為事先在 SQL SERVER 中設(shè)計(jì)好的數(shù)據(jù)庫(kù)B15041103。點(diǎn)擊“測(cè)試連接”，如果“測(cè)試連接成功”則點(diǎn)擊“確定”后完成對(duì) ADOConnection控件的配置，否則就要返回檢查。ADOQuery數(shù)據(jù)庫(kù)程序操作的對(duì)象是數(shù)據(jù)庫(kù)內(nèi)單一的表。ConnectionADOConnection1SQLselect * from fli

8、ght;DataSource用于指明與數(shù)據(jù)控制組件鏈接的數(shù)據(jù)訪問(wèn)Data Access組件。DataSetADOQuery1DBNavigator主要用于在數(shù)據(jù)集中進(jìn)行記錄導(dǎo)航和為用戶操縱數(shù)據(jù)集中的記錄提供一組簡(jiǎn)明的控制按鈕。DataSourceDataSource1DBGrid以網(wǎng)格的形式顯示指定數(shù)據(jù)庫(kù)表中的全部記錄的所有字段信息。DataSourceDataSource1ADOQuery數(shù)據(jù)庫(kù)程序操作的對(duì)象是數(shù)據(jù)庫(kù)內(nèi)單一的表。ActiveTRUE以下是文字說(shuō)明：本次實(shí)驗(yàn)需要連接數(shù)據(jù)庫(kù)：利用MS SQL Server2000 做后臺(tái)數(shù)據(jù)庫(kù)，通過(guò) ADO 訪問(wèn)數(shù)據(jù)庫(kù)，則方法與步驟如下： a)打

9、開 Delphi 后，將一些控件拖到 FORM 中。其中 ADOConnection 控件和 ADOQuery 控件在 ADO 數(shù)據(jù)集組件中，DataSource 在 Data Access 數(shù)據(jù)訪問(wèn)組件中，DBNavigator 和 DBGrid 在 Data Control 數(shù)據(jù)控制組件中；b)修改 ADOConnection 控件的 Connection String 屬性，具體說(shuō)明見(jiàn)表格；c)修改 ADOQuery 控件屬性。將 Connection 屬性值改為 ADOConnection1；將 SQL 屬性值改為“select * from flight;”；d)修改DataSour

10、ce控件的DataSet屬性。將該屬性值改為：ADOQuery1；e)修改DBNavigator控件屬性。將DataSource屬性值設(shè)置為DataSource1；f)修改DBGrid控件屬性。將DataSource屬性值設(shè)置為DataSource1；g)最后將ADOQuery控件的Active屬性值改為TRUE；最終顯示成果如下圖所示：要求登錄數(shù)據(jù)庫(kù)后輸入密碼如下圖，只有在數(shù)據(jù)庫(kù)成功連接時(shí)才能把Active屬性值改為TRUE。在數(shù)據(jù)庫(kù)中插入數(shù)據(jù)：5寫出實(shí)現(xiàn)各功能的響應(yīng)事件、事件的核心代碼，如插入、更新或刪除事件等Form1：Procedure TForm1.Button2Click(Send

11、er: TObject);begin Unit3.Form3.DBNavigator1.VisibleButtons:=; Unit3.Form3.FormCreate(Sender); Unit3.Form3.Show;end;uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls;procedure TForm1.Button1Click(Sender: TObject);Begin Unit3.Form3.DBNavigator1.

12、VisibleButtons:=nbFirst,nbPrior,nbNext, nbLast,nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh; Unit2.Form2.Show;end; Form2：【確定】按鈕代碼如下： procedure TForm2.Button1Click(Sender: TObject); begin if (Edit1.Text='sxn')and (Edit2.Text='sxn') then begin Unit3.Form3.FormCreate(Sender); Unit

13、3.Form3.Show; end else showmessage(請(qǐng)輸入正確的用戶名或密碼！); Edit1.Text:='' Edit2.Text:='' end;【取消】按鈕代碼如下：procedure TForm2.Button2Click(Sender: TObject); begin close; end; Form3：【查詢】按鈕代碼如下： procedure TForm3.Button1Click(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQ

14、L.Add('select *'); ADOQuery1.SQL.Add('from flight'); ADOQuery1.SQL.Add('where 航班號(hào)='''+Edit1.Text+ '''and 日期='''+ComboBox1.Text+'-'+ ComboBox2.Text+'-'+ComboBox3.Text+''''); ADOQuery1.Prepared; ADOQuery1.Open; ADO

15、Query1.Active:=true; end;【退出】按鈕代碼如下： procedure TForm3.Button2Click(Sender: TObject); begin close; end;實(shí) 驗(yàn) 報(bào) 告四、實(shí)驗(yàn)小結(jié)（包括問(wèn)題和解決方法、心得體會(huì)、意見(jiàn)與建議等）(一)實(shí)驗(yàn)中遇到的主要問(wèn)題及解決方法創(chuàng)建主系統(tǒng)編寫界面時(shí)完成雙擊按鈕的執(zhí)行時(shí)，由于實(shí)踐指導(dǎo)書不夠清晰的原因，代碼中的,總是誤寫為.，導(dǎo)致程序無(wú)法正常運(yùn)行，后來(lái)仔細(xì)觀察后才知道錯(cuò)誤所在。在創(chuàng)建本地?cái)?shù)據(jù)庫(kù)時(shí)，并沒(méi)有在本地創(chuàng)建數(shù)據(jù)庫(kù)，而是在別的項(xiàng)目下創(chuàng)建了數(shù)據(jù)庫(kù)，所以導(dǎo)致了后來(lái)數(shù)據(jù)無(wú)法連接，經(jīng)過(guò)一系列排查問(wèn)題，最終解決了這個(gè)問(wèn)題

16、。（二）實(shí)驗(yàn)心得這個(gè)實(shí)驗(yàn)的過(guò)程不是很難，因?yàn)橛袑?shí)驗(yàn)指導(dǎo)書作為參考，但是實(shí)際上做實(shí)驗(yàn)的時(shí)候還是有很多自己沒(méi)注意到的小毛病，比如說(shuō)關(guān)鍵代碼的,與.寫錯(cuò)了，或者是單詞拼寫錯(cuò)誤導(dǎo)致了程序無(wú)法正常運(yùn)行。如果認(rèn)真做四個(gè)課時(shí)的實(shí)驗(yàn)肯定是足夠的。此外這個(gè)實(shí)驗(yàn)還拓寬了我的眼界。之前我一直以為很多軟件包括APP在內(nèi)是用C#或者JAVA實(shí)現(xiàn)的，數(shù)據(jù)庫(kù)只是很簡(jiǎn)單的起到了一個(gè)后臺(tái)的作用，現(xiàn)在發(fā)現(xiàn)基本上很多重要的大型的系統(tǒng)離開數(shù)據(jù)庫(kù)就如同雞肋一般。這個(gè)課程還是讓我認(rèn)識(shí)到了數(shù)據(jù)庫(kù)在我們很多軟件設(shè)計(jì)中的重要地位，學(xué)好數(shù)據(jù)庫(kù)也是很重要的一項(xiàng)內(nèi)容。五、支撐畢業(yè)要求指標(biāo)點(diǎn) 1.4-M掌握計(jì)算機(jī)科學(xué)與技術(shù)的專業(yè)知識(shí)，能將專業(yè)知識(shí)用于分析和解決計(jì)算機(jī)及應(yīng)用領(lǐng)域的復(fù)雜工程問(wèn)題。 3.2-M能夠根據(jù)用戶需求，選取適當(dāng)?shù)难芯糠椒?/p>