數(shù)據(jù)庫試驗(yàn)3剖析

1、實(shí)驗(yàn)報(bào)告（2015/ 2016 學(xué)年第二學(xué)期）課程名稱數(shù)據(jù)庫系統(tǒng)實(shí)驗(yàn)名稱小型MIS的開發(fā)實(shí)驗(yàn)時(shí)間2016年5 月19 日指導(dǎo)單位計(jì)算機(jī)學(xué)院軟件工程系指導(dǎo)教師張少嫻學(xué)生姓名侯利萍班級(jí)學(xué)號(hào)B13040905學(xué)院（系）計(jì)軟院專業(yè)軟件工程實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)名稱小型MIS的開發(fā)指導(dǎo)教師張少嫻實(shí)驗(yàn)類型驗(yàn)證實(shí)驗(yàn)學(xué)時(shí)3實(shí)驗(yàn)時(shí)間2016-5-19實(shí)驗(yàn)?zāi)康暮鸵罅私釩/S結(jié)構(gòu)的DBS的開發(fā)思路和過程理解ODBC的作用學(xué)習(xí)Delphi的數(shù)據(jù)庫訪問方法和表單Form的制作方法、實(shí)驗(yàn)環(huán)境（實(shí)驗(yàn)設(shè)備）硬件：微機(jī)軟件：Delphi 7 （或更高版本），SQL Server 2000（或更高版本）三、實(shí)驗(yàn)原理及內(nèi)容實(shí)驗(yàn)原理基于第八

2、章的相關(guān)內(nèi)容。實(shí)驗(yàn)內(nèi)容如下：1 .在SQL Server200（中創(chuàng)建數(shù)據(jù)庫2在所創(chuàng)建的數(shù)據(jù)庫中，創(chuàng)建自己在實(shí)驗(yàn)中用到的表Microsoft SQL SERVERSQL Serve 組（local）（Wi ndows NT）個(gè)數(shù)據(jù)庫sxnsxn中右擊“表”flight1數(shù)據(jù)類型1檢度1允許空航班號(hào)char8Fruhar15A絳點(diǎn)var char50A日期glime3起飛時(shí)刻chtr&V*到達(dá)時(shí)間th ST6刺余，睡應(yīng)墩irnt47£loat3列13啟動(dòng)Delphi，創(chuàng)建一個(gè)自己的Project,進(jìn)行表單設(shè)計(jì)系統(tǒng)主界面登錄界面：管理員用操作界面：按訪問系統(tǒng)的用戶的不同，對(duì)功能進(jìn)

3、行設(shè)置歡迎使用票務(wù)管理系統(tǒng)票務(wù)菅理票務(wù)杳詢請(qǐng)輸入用戶信息用戶名 : :密碼二"匸-j _lL _ -'*'- _« _.i. _«亍 L - IlL _ -甲 匚4.通過ADO訪問后臺(tái)SQL Server2OO0勺數(shù)據(jù)庫 is=nsKft, |«q|ET1|3>tlSEW f,J'M | 日.PM il 平 is 3 H |53 H用MS SQL Server2000做后臺(tái)數(shù)據(jù)庫，通過 ADO訪問數(shù)據(jù)庫（1）用到的控件及作用其中用到的控件有的 ADOConnection、ADOQuery、DataSource、DBNavig

4、ator、DBGrid。AdoC onn ecti on用來連接數(shù)據(jù)庫的。AdoQuery用來執(zhí)行SQL語句的。DataSource是數(shù)據(jù)源控件用于數(shù)據(jù)集控件和數(shù)據(jù)顯示控件的鏈接作用。BNavigator組件用于在數(shù)據(jù)集進(jìn)仃記錄導(dǎo)航，當(dāng)用戶單擊DBNaVigator組件的現(xiàn)記錄 指針的前移、后移，插入刪除、修改當(dāng)前記錄等操作，而無須編寫任何程序代碼。DBGrid是用來顯示數(shù)據(jù)的主要手段。（2）各個(gè)控件的設(shè)置順序在a） 打開Delphi后，將一些控件拖到 FORM中（如下圖所示）。其中ADOConnection控件和ADOQ 在ADO數(shù)據(jù)集組件中， DataSource在Data Access數(shù)

5、據(jù)訪問組件中。DBNavigator和DBGriControl數(shù)據(jù)控制組件中。b）修改ADOConnection控件的Connection String屬性，點(diǎn)擊該屬性后的"，”在彈出的對(duì)話框中點(diǎn)I 52ERn控“ Build,選擇希望連接的數(shù)據(jù) “ Microsoft OLE DB Provider for SQL Serve,點(diǎn)擊 下一步”后，如圖 其中服務(wù)器名稱可以選為 “l(fā)ocal（復(fù)制本機(jī)的SQL SERVER務(wù)器名），數(shù)據(jù)庫選為事先在 SQL SEF 計(jì)好的數(shù)據(jù)庫sxn。點(diǎn)擊測(cè)試連接”，如果測(cè)試連接成功"則點(diǎn)擊確定"后完成對(duì)ADOConnectio 配

6、置，否則就要返回檢查?？蓪?ADOConnection的login prompt屬性值設(shè)置為FLASE這樣就不會(huì) 據(jù)庫登錄的窗口。c）修改ADOQuery控件屬性。將 Connection屬性值改為 ADOConnection1 ;將SQL屬性值改為 “select * from flight; ”d）修改DataSource控件的DataSet屬性。將該屬性值改為：ADOQueryl即可。e）修改 DBNavigator控件屬性。將 DataSource屬性值設(shè)置為 DataSourcel。f）修改DBGrid控件屬性。將 DataSource屬性值設(shè)置為DataSourcel。b） g）最

7、后將 ADOQuery控件的Active屬性值改為 TRUE至此，DBGrid控件中應(yīng)有數(shù)據(jù)顯示;DBNavigator控件中也應(yīng)部分按鈕被激活。3)涉及到的各個(gè)控件的屬性及取值Microsoft OLE DB Provider fAdoCo nn ectionConn ection Stri ng 屬性，“ Build,'選擇希望連接的數(shù)據(jù)Server ” login prompt 屬性值設(shè)置為 FLASEAdoQueryActive 屬性值改為 TRUEDataSourceDataSet 屬性值改為 ADOQuery1DBNavigatorDataSource 屬性值設(shè)置為 Dat

8、aSource1DBGridDataSource 屬性值設(shè)置為 DataSource15.主要事件的核心代碼Forml票務(wù)查詢：Procedure TForm1.Butt on 2Click(Se nder: TObject);beginUn it3.Form3.DBNavigator1.VisibleButto ns:=;Uni t3.Form3.FormCreate(Se nder);Un it3.Form3.Show;en d;票務(wù)管理：usesWin dows, Messages, SysUtils, Varia nts. Classes, Graphics, Con trols, F

9、orms,Dialogs, StdCtrls, DBCtrls;procedure TForm1.Butt on 1Click(Se nder: TObject);BeginUni t3.Form3.DBNavigator1.VisibleButto ns:= nbFirst, nbPrior, nbNext,n bLast ,nblnsert,n bDelete ,n bEdit ,n bPost, nbCa ncel, nbRefresh;Un it2.Form2.Show;en d;Form2：確定：procedure TForm2.Butt on 1Click(Se nder: TOb

10、ject);beginif (Edit1.Text='sxn')and (Edit2.Text='sxn') thenbeginUni t3.Form3.FormCreate(Se nder);Un it3.Form3.Show;endelseshowmessage('請(qǐng)輸入正確的用戶名或密碼！');Edit1.Text:=”;Edit2.Text:=”；en d;取消：procedure TForm2.Butt on 2Click(Se nder: TObject);beginclose;en d;From3:退出：procedure TFor

11、m3.Butt on 2Click(Se nder: TObject);beginclose;en d;查詢：procedure TForm3.Butto n1Click(Se nder: TObject);beginADOQuery1.Close;AD0Query1.SQL.CIear;ADOQuery1.SQL.Add('select *');ADOQuery1.SQL.Add('from flight');ADOQuery1.SQL.Add('where 航班號(hào)=”'+Edit1.Text+'''and 日期=”'+ComboBox1.Text+'-'+ComboBox2.Text+'-'+ComboBox3.Text+"");ADOQuery1 .P repared;ADOQuery1.Ope n;ADOQuery1.Active:=true;En d;實(shí)驗(yàn)報(bào)告 四、實(shí)驗(yàn)小結(jié)本次實(shí)驗(yàn)為后臺(tái)數(shù)據(jù)庫，以 _ _ Delphi _ _為前端開為前端開發(fā)工具,_ _ 設(shè)計(jì)并實(shí)現(xiàn)一個(gè)民航票務(wù)管理系統(tǒng)。要求該系統(tǒng)具有票務(wù)管理（錄入、修改、刪除各航班機(jī)票信息）的功能和查詢各航班信息的功能，其中票 務(wù)管理功