Delphi程序設(shè)計(jì)復(fù)習(xí)資料

1、Delphi 程序設(shè)計(jì)復(fù)習(xí)題一、填空題1、結(jié)構(gòu)化程序設(shè)計(jì)的基本原則是取消 goto 語(yǔ)句，程序中僅采用順序、和循環(huán)三種控制結(jié)構(gòu)。2、一個(gè)對(duì)象是由屬性、方法和事件所組成。屬性表示對(duì)象中的數(shù)據(jù)， 是對(duì)象 能夠執(zhí)行的動(dòng)作， 是能夠引起對(duì)象反應(yīng)的條件。3、與數(shù)學(xué)表達(dá)式sin (2x y2) 對(duì)應(yīng)的 Object Pascal 表達(dá)式是sin(x2 y2 )4、ListBox 對(duì)象列表框中的內(nèi)容是通過(guò)屬性來(lái)進(jìn)行設(shè)置的。5、結(jié)構(gòu)化程序設(shè)計(jì)要求程序中僅采用順序、分支和循環(huán)三種控制結(jié)構(gòu)，其中每種結(jié)構(gòu) 只能有 個(gè)入口和一個(gè)出口。6、對(duì)象的三個(gè)要素是屬性、方法和。7、Delphi 應(yīng)用程序中項(xiàng)目文件的擴(kuò)展名是。8

2、、在設(shè)計(jì)階段，利用 Image 對(duì)象的屬性，可以加載一幅圖片。9、Delphi 中與 窗 體文件 對(duì)應(yīng)的文 件是單 元文 件， 其 最常 用 的文件 擴(kuò)展名是10、與數(shù)學(xué)表達(dá)式 sin(a 2b) ab對(duì)應(yīng)的 Object Pascal 表達(dá)式是3 y211、調(diào)用主窗體的方法，可以結(jié)束程序關(guān)閉窗體。12、如果讓界面上的一個(gè)按鈕變?yōu)椴豢捎茫枰獙⑺膶傩栽O(shè)為 False。13、如果要在窗體上設(shè)計(jì)一個(gè)主菜單，首先要建立對(duì)象。14、與數(shù)學(xué)表達(dá)式2cos2 ( a b) a對(duì)應(yīng)的 Object Pascal表達(dá)式是 a2 xy15、利用對(duì)象的 LineTo 等繪圖方法，可以繪制基本圖形。16、Radi

3、oGroup 對(duì)象中的單選按鈕個(gè)數(shù)及名稱(chēng)是通過(guò) 屬性來(lái)進(jìn)行設(shè)置的。17、時(shí)鐘組件 (Timer) 能有規(guī)律的以一定時(shí)間間隔觸發(fā)事件，并執(zhí)行該事件過(guò)程中的程序代碼。為了使計(jì)時(shí)器控件 Timer1 每隔 0.5 秒就觸發(fā)一次并執(zhí)行事件代碼，應(yīng)將 Timer1 控件的 Interval 屬性設(shè)置為 。18、Delphi 程序與數(shù)據(jù)庫(kù)之間進(jìn)行數(shù)據(jù)交換一般要由多個(gè)數(shù)據(jù)庫(kù)組件協(xié)作完成。如果 用戶(hù)要查詢(xún)數(shù)據(jù)庫(kù)中的一條信息， 該指令通過(guò)用戶(hù)界面組件發(fā)出， 經(jīng)數(shù)據(jù)源組件到達(dá)數(shù)據(jù)集 組件。數(shù)據(jù)集組件利用 組件與數(shù)據(jù)庫(kù)建立連接，并讀取數(shù)據(jù)庫(kù)中的數(shù)據(jù)，而 后又經(jīng)過(guò) 組件將數(shù)據(jù)送到用戶(hù)界面組件中顯示。19、與數(shù)學(xué)表達(dá)式

4、2sin2 (a by)2axa 對(duì)應(yīng)的 Object Pascal 表達(dá)式是20 、能夠?qū)崿F(xiàn)格式化輸入的編輯框組件是 。21 、調(diào)用主窗體的 方法，可以結(jié)束程序關(guān)閉窗體。22 、如果讓界面上的一個(gè)按鈕在運(yùn)行的時(shí)候變?yōu)椴豢梢?jiàn)， 需要將它的 屬性設(shè)為 False。23 、利用 DBGrid 的 屬性，可以設(shè)置 DBGrid 每一列的標(biāo)題和對(duì)齊方式等。24 、通過(guò) Animate 對(duì)象的 屬性設(shè)置，可以指定系統(tǒng)標(biāo)準(zhǔn)的 AVI 動(dòng)畫(huà)演示。25 、在 Delphi 集成開(kāi)發(fā)環(huán)境中，如果想要直接設(shè)置或者修改對(duì)象的屬性，可以通過(guò)對(duì)象 查看器( Object Inspector )中的窗口直接進(jìn)行設(shè)置。單項(xiàng)

5、選擇題1、下面哪句話(huà)對(duì) Delphi 的描述是正確的 A只能用于數(shù)據(jù)庫(kù)客戶(hù)端開(kāi)發(fā)的工具 C Delphi 的編程語(yǔ)言是 Java)。B Delphi 的編程語(yǔ)言全部是面向過(guò)程的 D面向?qū)ο蟮目梢暬拈_(kāi)發(fā)環(huán)境A、命令按鈕B、文本標(biāo)簽控件C、 Edit 控件3、表達(dá)式 60 19 div 2 的值是()A 67B79C 69D802、在 Delphi 中，建立一個(gè)文本編輯區(qū)域，可采用下列()。D、 Timer 控件4、一個(gè) Delphi 應(yīng)用程序必有一個(gè)()文件和至少一個(gè)單元文件。A) 執(zhí)行程序 B) 項(xiàng)目 C) 數(shù)據(jù)D)圖形5、最適合于在工具欄上放置的工具按鈕是()A ButtonB Radio

6、ButtonCSpeedButtonD BitBtm6、Delphi 應(yīng)用程序設(shè)計(jì)基于()語(yǔ)言。A) Basic B) C+ C) Pascal D) Object Pascal7、下列表達(dá)式中()不是布爾表達(dá)式。A) A=3B) A div BC) A and BD) AB8、“ x 是小于 100 的非負(fù)數(shù)”的 Object Pascal 表達(dá)式是()。A0 x = 0, x=0) AND (x = 0 ) OR (x=5) OR (x”、“ ; eq := = ; lt := y) thenedit3.Text:= edit1.Text + gt + edit2.Textelse if

7、(x=y) then edit3.Text:= edit1.Text + eq + edit2.Textelse edit3.Text:= edit1.Text + + edit2.Text;end;4、 本程序根據(jù)用戶(hù)選擇的運(yùn)算符對(duì)輸入的二個(gè)操作數(shù)進(jìn)行運(yùn)算， 并顯示運(yùn)算結(jié)果。 設(shè)計(jì)界 面和運(yùn)行界面如圖所示。其中，運(yùn)算符是一個(gè)含有 4 個(gè)單選按紐的 RadioGroup1 對(duì)象。面是單擊“運(yùn)算”按鈕的事件處理程序，請(qǐng)根據(jù)功能要求完成程序填空。procedure TForm1.Button1Click(Sender: TObject);/ 運(yùn)算 varx1,x2,y :Integer;begin

8、x1 := StrToInt( Edit1.);x2 := StrToInt( Edit2.);Case .ItemIndex of0:y := x1+ x2 ;1:y := x1- x2;2:y := x1* x2;3:y := x1Div x2;End;Edit3. := IntToStr( ); end;5、本程序?qū)崿F(xiàn)一個(gè)簡(jiǎn)單的借書(shū)界面。程序的設(shè)計(jì)界面和運(yùn)行界面如下圖所示：該程序涉及到數(shù)據(jù)庫(kù)中的兩張表：books（圖書(shū)信息）和 borrow（借書(shū)記錄） 。表的結(jié)構(gòu)為：books（ bno ，書(shū)號(hào)， bname 書(shū)名， num 現(xiàn)有冊(cè)數(shù)）borrow （ rno 讀者號(hào)， bno 書(shū)號(hào)，

9、rdate 還書(shū)日期） 其中， rno 和 bno 都是字符型（ 3 位）。在用戶(hù)界面，操作員選中一本書(shū)、輸入借書(shū)證號(hào)后，按“借書(shū)”鍵完成借書(shū)功能，即在 borrow 表中插入一條借書(shū)記錄，并將 books 表中該書(shū)現(xiàn)有冊(cè)數(shù)減 1。該界面要實(shí)現(xiàn)以下合法性檢查：當(dāng)該讀者已經(jīng)借了此書(shū)，不能再借。當(dāng)所借的書(shū)現(xiàn)有冊(cè)數(shù)為 0，不能再借。在 Form1 上建立的數(shù)據(jù)庫(kù)組件對(duì)象及連接關(guān)系如下：Database1Table1（與 books 表相連） DataSource1 DBGrid1 （顯示圖書(shū)信息）Database1Table2 （與 borrow 表相連，用于插入借書(shū)記錄）Database1Quer

10、y1其中為 Table1 建立了 3 個(gè)永久字段： Table1bno（書(shū)號(hào)）、Table1bname（書(shū)名）、Table1num 現(xiàn)有冊(cè)數(shù)） 。Query1 的 SQL 語(yǔ)句如下：select bnofrom borrowwhere rno = :rno and bno = :bno面是 Unit1 的代碼實(shí)現(xiàn)部分，請(qǐng)完成程序填空：implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject); /“借書(shū)”鍵beginquery1.Close ; query1.ParamByName(rno).Value := ; q

11、uery1.ParamByName(bno).Value := ;query1.Open ;if query1bno null thenbegin showmessage(該讀者正在借閱此書(shū) ); exit ;end ;if thenbegin showmessage(該書(shū)已全部借出 ); exit ;end;table2. ( edit1.Text , table1bno.Value , date+15 ); / 插入借書(shū)記錄table1. ;table1num.Value := table1num.Value - 1 ; / 現(xiàn)有冊(cè)數(shù)減 1 table1.Post ;end;end.6、本

12、程序的功能是實(shí)現(xiàn)對(duì) dep 表（系） student 表（學(xué)生）的主從查詢(xún)。用戶(hù)可以依次查詢(xún)系的記錄， 也可以通過(guò)指定系號(hào)， 查找并定位到指定的記錄。 每當(dāng)顯示一個(gè)系的記錄后，系統(tǒng)自動(dòng)顯示該系的學(xué)生記錄。設(shè)計(jì)界面和運(yùn)行界面如下：在 Form1 上建立的主要對(duì)象及連接如下：Database1Table1（與 dep表相連） DataSource1DBEdit1 DBEdit3 Database1Query1 DataSource2 DBGrid1 （顯示學(xué)生信息）Edit1 、 Button1 （查找）、 Button2 （下一記錄） 、 Button3 （上一記錄）等。 Query1 的 SQ

13、L 語(yǔ)句是：select *from studentwhere dno = :dno面是 Unit1 單元的代碼實(shí)現(xiàn)部分，請(qǐng)完成程序填空。implementation$R *.dfmprocedure TForm1.Button2Click(Sender: TObject); / 下一記錄 begintable1. ;end;procedure TForm1.Button3Click(Sender: TObject); / 上一記錄 begintable1. ;end;procedure TForm1.Button1Click(Sender: TObject); / 查找 begintable

14、1. (dno,edit1.Text,) ;end;procedure TForm1.Table1AfterScroll(DataSet: TDataSet); beginquery1.Close ; query1.ParamByName(dno).Value := query1. ;end;end.7、本程序由主窗體 form1 和子窗體 form2 組成，設(shè)計(jì)界面如下圖所示：主窗體 Form1 上建立的對(duì)象有 Panel1、 MediaPlayer1 、OpenDialog1 、 Button1 （打開(kāi)文 件）、 Button2 （播放）、 Button3 （暫停）、Button4 （退出

15、）。子窗體 Form2 上建立的對(duì)象有 Label1、 BitBtm1 （ Yes）、 BitBtm2 （ No）。 單擊“打開(kāi)文件”按鈕，會(huì)彈出打開(kāi)文件對(duì)話(huà)框。用戶(hù)指定一個(gè)要播放的文件后，單擊 “播放”按鈕可播放多媒體文件，單擊“暫?！卑粹o可暫停播放。單擊“退出”按鈕，會(huì)彈出確認(rèn)對(duì)話(huà)框（Form2 ）。如果用戶(hù)按“ Yes”鍵，程序結(jié)束；如果按“ No”鍵，返回主窗體。下面是 Unit1 的代碼部分，請(qǐng)?jiān)谙聞澗€(xiàn)處完成程序填空。implementation$R *.dfmuses;procedure TForm1.Button1Click(Sender: TObject); /打開(kāi)文件 beg

16、inif thenbeginMediaPlayer1.FileName := ; MediaPlayer1.Open ;MediaPlayer1.Display := Panel1; / 將 Panel1 做為播放屏幕 MediaPlayer1.DisplayRect :=Rect(0,0,Panel1.Width,Panel1.Height); end ;end;procedure TForm1.Button2Click(Sender: TObject); / 播放 beginMediaPlayer1. ;end;procedure TForm1.Button3Click(Sender: T

17、Object); / 暫停 beginMediaPlayer1.Pause ;end;procedure TForm1.Button4Click(Sender: TObject); /退出 beginif = mrYes thenclose ;end;end.本程序?qū)崿F(xiàn)一個(gè)簡(jiǎn)單的選課界面。設(shè)計(jì)界面和運(yùn)行界面如下圖所示：該程序涉及到數(shù)據(jù)庫(kù)中的兩張表：course（課程表）和 sc（選課表），表結(jié)構(gòu)如下：sc（ sno 學(xué)號(hào)， cno 課程號(hào)， grade 成績(jī)） course（ cno 課號(hào)， cname課名， quota 名額） 其中： sno 和 cno 都是字符型。在用戶(hù)界面，操作員選中一

18、門(mén)書(shū)、輸入學(xué)號(hào)后，按“選課”鍵，完成選課功能，即在 sc 表中插入一條選課記錄，并將 course 表中該課程的名額減 1。該界面要實(shí)現(xiàn)以下合法性檢查：當(dāng)該學(xué)生已經(jīng)選過(guò)此課，不能再選。當(dāng)所選課程名額已為 0，不能再選。在 Form1 上建立的數(shù)據(jù)庫(kù)組件對(duì)象及連接關(guān)系如下：Database1Table1 （與 course 表相連） DataSource1 DBGrid1 （顯示課程信息）Database1Table2（與 sc 表相連，用于插入選課記錄） Database1Query1 其中為 Table1 建立了 3 個(gè)永久字段： Table1cno（課程號(hào)）、Table1cname（課程名

19、） 、Table1quota(名額)。Query1 的 SQL 語(yǔ)句如下： select cnofrom scwhere sno = :sno and cno = :cno面是 Unit1 的代碼實(shí)現(xiàn)部分，請(qǐng)完成程序填空：implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject); /“選課”鍵 beginquery1.Close ; query1.ParamByName(sno).Value := query1.ParamByName(cno).Value := query1.Open ;if query1cno

20、null then beginshowmessage(已選過(guò)此課 );exit ;end ;if then beginshowmessage(沒(méi)有名額 );exit ;end;table2. ( edit1.Text , table1cno.Value , null ); table1.Edit ;table1quota.Value := table1quota.Value - 1 ; / 名額減 1table1. ;end;end.9、本程序由主窗體 form1 和子窗體 form2 組成，設(shè)計(jì)界面如下圖所示：主窗體上建立的對(duì)象有 Panel1、 Animate1 、Button1（加載 A

21、VI 文件）、Button2 （退出）、 Button3 （播放）、Button4 （停止）和 OpenDialog1 。子窗體上建立的對(duì)象有 Label1 、 BitBtm1 （ Yes）、 BitBtm2 （ No）。單擊“加載 AVI 文件”按鈕，會(huì)彈出打開(kāi)文件對(duì)話(huà)框。用戶(hù)指定一個(gè) .avi 的文件后，動(dòng) 畫(huà)文件加載到 Animate1 顯示區(qū)中。單擊“播放”按鈕可播放動(dòng)畫(huà)，單擊“停止”按鈕可停 止播放。單擊“退出”按鈕，會(huì)彈出確認(rèn)對(duì)話(huà)框（Form2 ）。如果用戶(hù)按“ Yes”鍵，程序結(jié)束；如果按“ No”鍵，返回主窗體。下面是 Unit1 的代碼部分，請(qǐng)?jiān)谙聞澗€(xiàn)處完成程序填空。impl

22、ementation$R *.dfmuses;procedure TForm1.Button1Click(Sender: TObject); / 加載 AVI 文件 beginif thenanimate1.FileName := ; end;procedure TForm1.Button2Click(Sender: TObject); / 退出 beginif = mrYes thenclose ;end;procedure TForm1.Button3Click(Sender: TObject); / 播放 beginanimate1.Play(1,animate1.FrameCount,

23、0) ;end;procedure TForm1.Button4Click(Sender: TObject);/停止beginanimate1. ;end;end.五、編程題1某俱樂(lè)部實(shí)行會(huì)員注冊(cè)收費(fèi)， 每位會(huì)員按整月每月收費(fèi) 500 元整。但是對(duì)注冊(cè)時(shí)期較長(zhǎng) 的會(huì)員有價(jià)格優(yōu)惠。規(guī)則如下：注冊(cè) 6 個(gè)月以下（含 6 個(gè)月）每月收費(fèi)金額不變， 6 至 12 個(gè)月實(shí)行 9折收費(fèi)， 12個(gè)月以上（不含 12 個(gè)月） 8折收費(fèi)。編程在“注冊(cè)月數(shù)”框中輸入 會(huì)員欲注冊(cè)的月數(shù)， 單擊“計(jì)算” 按鈕后在 “應(yīng)收金額” 框中顯示應(yīng)收會(huì)費(fèi)總錢(qián)數(shù)。 單擊“結(jié) 束”按鈕結(jié)束程序。本程序設(shè)計(jì)界面及運(yùn)行界面如下：請(qǐng)編寫(xiě)

24、單擊“計(jì)算” (Button1 )按鈕的事件處理程序。 procedure TForm1.Button1Click(Sender: TObject);begin end;procedure TForm1.Button2Click(Sender: TObject); beginClose;end;2某廠(chǎng)對(duì)使用的原材料鋼筋進(jìn)行用前檢測(cè)。要求輸入鋼筋的直徑進(jìn)行檢查。標(biāo)準(zhǔn)品為 10.0 毫米直徑。實(shí)際產(chǎn)品的直徑與標(biāo)準(zhǔn)品之間的誤差為 0.5 毫米以下（含 0.5 毫米）的都認(rèn)為 是合格的，提示“檢測(cè)為合格品” 。否則提示“檢測(cè)為廢品” 。本程序設(shè)計(jì)界面及運(yùn)行界面如下：請(qǐng)編寫(xiě)單擊“檢測(cè)” （Button1

25、 ）按鈕的事件處理程序。procedure TForm1.Button1Click(Sender: TObject);end;procedure TForm1.Button2Click(Sender: TObject); beginClose;end;輸入一個(gè)數(shù)字，程序判斷如下情況：如果能被 3 整除但同時(shí)不能被 5 整除，顯示“該數(shù) 只能被 3整除”；如果只能被 5整除但是不能被 3整除，顯示“該數(shù)只能被 5整除”, 若被 3 整除同時(shí)被 5 整除，顯示“該數(shù)可以同時(shí)被 3、5 整除”。 本程序設(shè)計(jì)界面及運(yùn)行界面如下：請(qǐng)編寫(xiě)單擊“判斷” (Button1 )按鈕的事件處理程序。 proced

26、ure TForm1.Button1Click(Sender: TObject);end;4本程序設(shè)計(jì)界面及運(yùn)行界面如下圖所示。該程序的功能是：用戶(hù)在界面上的兩個(gè)編輯框（Edit1、Edit2 ）內(nèi)分別輸入兩個(gè)正整數(shù)M 和N （ M N ），單擊“計(jì)算”按鈕（ Button1 ），程序求出 M N 之間所有能被 3整除 的數(shù)，并在 Memo 1 對(duì)象中依次顯示。請(qǐng)編寫(xiě)單擊“計(jì)算”按鈕的事件處理程序。procedure TForm1.Button1Click(Sender: TObject);begin試題參考答案一、填空題1、分支2、方法 事件3、 sqr(sin(x+y) / sin(sqr

27、(x) + sqr(y)5、 一6、事件7、.dpr ( 或 dpr)8、 Picture9、PAS10、 sin(a+b) /(3+ sqr(y)-a*b或 sin(a+b)/(3+y*y)-a*b11、Close 12、Enabled13、 MainMenu 14、sqr(cos(a+b) /(sqr(a)+x*y)+a或cos(a+b) * cos(a+b) /(a*a+x*y)+a15、Canvas 16、Items 17 、 OnTimer ，500 18、數(shù)據(jù)庫(kù) 連 接組 件 數(shù)據(jù)源 組 件 19、 sqr(sin(a+b*y) /(sqr(a)*x)+a 或 sin(a+b*y)

28、 *sin(a+b*y) /(a*a*x)+a21、 Close22、Visible23、 Columns24、CommonA VI25、屬性 或 Properties、單項(xiàng)選擇題1、D2、C3、C4、B5、C6、D7、B8、C9、A10、C11、D12、C13、C14、 B15、D16、A17、C18、D19、A20、C21、B22、 D23、D24、C25、C26、D27、C28、D29、A30、B31、C三、判斷題1、 6、11、2、3、4、5、7、8、9、10、12、13、14、15、四、程序填空題1、) Column Items Text ItemIndex Items2、 True

29、 DataSource1 Table1 DataSource1 sname3、 strtoint Checked lt Text else RadioGroup1y text5、 edit1.Text table1bno.Value table1num.Value = 0 InsertRecord Edit6、 Next Prior Locate table1dno Open7、 unit2 opendialog1.Execute opendialog1.FileName Play form2.ShowModal8、 True True Table1 DataSource1 DataSource19、