2022年浙大遠程數(shù)據(jù)庫應(yīng)用程序設(shè)計離線作業(yè)必做

1、第一章1、Delphi2007 for win32集成開發(fā)環(huán)境由哪幾部件組成？簡述各部分的功能。主窗口：提供系統(tǒng)菜單欄、系統(tǒng)工具條和組件面板設(shè)計視圖：提供項目程序設(shè)計工作區(qū)域代碼編輯器：提供程序代碼編寫、快捷的代碼編寫功能、對象觀察器結(jié)構(gòu)視圖：窗體設(shè)計器工作狀態(tài)，用于顯示窗體中可視化控件的繼承結(jié)構(gòu)；窗體設(shè)計器代碼編輯狀態(tài)，用于顯示源代碼對象的繼承結(jié)構(gòu)，同時提供代碼編寫錯誤提示信息；項目管理器、模型視圖和數(shù)據(jù)管理器項目管理器：顯示工程結(jié)構(gòu)和工程文件管理；模型視圖：提供項目邏輯表示數(shù)據(jù)管理器：用于瀏覽數(shù)據(jù)庫中的對象，也可以用于創(chuàng)建和管理數(shù)據(jù)鏈接；歡迎界面：引導(dǎo)進入delphi開發(fā)，同時顯示最近打開

2、過的項目，還是顯示網(wǎng)絡(luò)和RSS的最新新聞、資源；歷史代碼頁面：記錄項目文件歷史編輯過程日志，當(dāng)前單元文件的編輯日期及作者；幫助系統(tǒng)：Borland delphi 2007快速啟動指南；Delphi 2007在線幫助；Mircrosoft .NET Framework在線幫助；Borland軟件開發(fā)技術(shù)支持和相關(guān)網(wǎng)站；2、Delphi單元文件主要由哪幾個部分組成？簡述各部分的功能。庫單元文件頭:其中聲明了庫單元的名字.Interface部分: 由保留字interface開始,結(jié)束于保留字implementation,它用來聲明引用的單元,常量,數(shù)據(jù)類型,變量,過程和函數(shù).在 Interface部

3、分聲明的變量,常量,數(shù)據(jù)類型,過程,函數(shù)都可以供外部引用,對整個程序而言是共有的.也就是說,對于所有引用該單元的單元來說,這 些聲明都是可見和可訪問的. 在Interface部分,只需寫出過程和函數(shù)的首部,具體的定義是在下面的implementation部分給出的.Interface部分又可分為多個可選部分,分別為單元引入部分(uses),常量說明部分,類型說明部分,變量說明部分,過程和函數(shù)聲明部分.Implementation部分: Implementation部分分為兩部分.一部分是聲明部分,包括單元引用,常量,類型,變量,過程和函數(shù)的聲明,這一點和Interface部分相似. 區(qū)別有兩點

4、: (1):在Implementation部分聲明的只對本單元是公共的,可見的,其他單元即使引用了該單元,也不能訪問它們. (2):在Implementation部分聲明的過程和函數(shù),不需要遵循先聲明后定義的規(guī)則,而可以直接寫出過程和函數(shù)的定義.另一部分是在Interface部分聲明的過程和函數(shù)的定義. 4.Initialization部分: 用于初始化該庫單元,此處的代碼最先執(zhí)行.如果多個庫單元中包含Initialization部分那么它們的執(zhí)行順序就和Program的uses部分引用單元的出現(xiàn)順序是一致的. Finalization部分: 通常用于釋放Initialization部分分配的

5、資源.如果多個庫單元中包含F(xiàn)inalization部分,其執(zhí)行順序和Initialization部分正好相反.3、模仿例1.1，編寫一個簡單的窗體程序，顯示如下內(nèi)容：*歡迎學(xué)習(xí)Delphi語言！*提示：使用三個TLabel直接設(shè)置其Caption屬性值。第二章1、Delphi語言中有哪些常用的數(shù)據(jù)類型？變量在使用前必須先定義，如何定義各種數(shù)據(jù)類型的變量？1.有序類型：整型、字符型、布爾型（Boolean） 、枚舉類型 、子界類型 2. 實數(shù)類型：實型、日期時間類型、字符串類型、可變類型Var 變量名：數(shù)據(jù)類型 /適用于整型、字符型、布爾型變量定義TYPEtypeName = (val1,.,v

6、aln) /枚舉類型變量定義TYPE類型標(biāo)示符 = 上界值下界值 /子界類型定義type TDateTime = type Double;2、注釋語句有哪幾種形式？1.花括號注釋#2. 圓括號/型號注釋(*#*)3.雙斜杠注釋/#3、編寫程序，輸入兩個浮點數(shù)，輸出其和、差、積各為多少。program Project2;$APPTYPE CONSOLEuses SysUtils; var x,y:real; sum,n,m:real;begin try TODO -oUser -cConsole Main : Insert code here writeln(請輸入2位浮點數(shù):); readln

7、(x,y); sum:=x+y; n:=x-y; m:=x*y; writeln(和為：,sum); writeln(差為：,n); writeln(積為：,m); readln; except on E:Exception do Writeln(E.Classname, : , E.Message); end;end.4、編寫程序，輸入5個整數(shù)，輸出這5個數(shù)的平均值。program Project2;$APPTYPE CONSOLEuses SysUtils; var a,b,c,d,e:integer; sum:integer; avg:integer;begin try TODO -oU

8、ser -cConsole Main : Insert code here writeln(請輸入5個整數(shù):); read(a,b,c,d,e); sum:=a+b+c+d+e; avg:=sum div 5; writeln(5個整數(shù)的平均數(shù)為:,avg); readln; except on E:Exception do Writeln(E.Classname, : , E.Message); end;end.第三章1、循環(huán)語句有哪幾種形式？break語句與continue語句有何異同？While語句直到循環(huán)For語句輔助控制語句循環(huán)嵌套break語句與continue語句有何異同？Con

9、tinue語句只結(jié)束本次循環(huán)，而不是終止整個循環(huán)的執(zhí)行，而break語句則是結(jié)束整個循環(huán)過程，不再判斷循環(huán)條件是否成立；2、某市出租車3公里的起租價為6元，3公里以外按1.5元每公里計費。現(xiàn)編寫程序，要求：輸入行車?yán)锍虜?shù)，輸出應(yīng)付車費。program Project2;$APPTYPE CONSOLEuses SysUtils; var km:integer; paykm:integer; pay:real=0;begin try TODO -oUser -cConsole Main : Insert code here writeln(請輸入行車?yán)锍虜?shù):); readln(km); if (

10、km0)and(km3) then begin paykm:=km-3; pay:=6+paykm*1.5; writeln(輸出應(yīng)付車費為:,pay,元整); end else writeln(輸出應(yīng)付車費為:0元整); readln; except on E:Exception do Writeln(E.Classname, : , E.Message); end;end.3、編寫計算階乘的函數(shù)，在主程序中調(diào)用函數(shù)求4！+6！+9！。program Project1;$APPTYPE CONSOLEuses SysUtils; function ff(n:integer):integer;

11、 var f:integer; begin if (n=0)or(n=1)then f:=1 else f:=ff(n-1)*n; ff:=f; end; var x,y,z,fact:integer;begin x:=4; y:=6; z:=9; fact:=ff(x)+ff(y)+ff(z); writeln(4！+6！+9！=,fact); readln; try TODO -oUser -cConsole Main : Insert code here except on E:Exception do Writeln(E.Classname, : , E.Message); end;e

12、nd.4、有兩個紅球、三個黃球、四個白球、任意取四個球，其中必須有一個紅球，編程輸出所有可能的方案。program Project1;$APPTYPE CONSOLEuses SysUtils; var red,yellow,white:integer;begin red:=1; for red := 1 to 2 do begin yellow:=0; while yellow4-red do begin white:=4-red-yellow; yellow:=yellow+1; writeln(紅球個數(shù)：,red,黃球個數(shù)：,yellow, 白球個數(shù)：,white) ; end; end

13、; readln; try TODO -oUser -cConsole Main : Insert code here except on E:Exception do Writeln(E.Classname, : , E.Message); end;end.第四章1、什么是類？什么是對象？什么是方法？三者有何關(guān)系？類就是對一類事物的總稱例如：吉普車、跑車、垃圾車等等他們都是屬于汽車這個類的汽車就是一個類，這個類代表了所有的車，雖然有各種各樣的車但是它們都有一些共同的特性：比如它們都有車門、發(fā)動機、變速箱等對象就是類的實例比如上面的汽車類有很多種分類，有跑車、轎車、越野車等它們的基本構(gòu)造都是類

14、似的這時候我們就稱跑車、轎車、越野車等屬于汽車類的對象或?qū)嵗椒ㄍㄋ讈碇v就是實例或?qū)ο髶碛械囊恍┕δ芾纾浩嚨膶ο蠡驅(qū)嵗伎梢詥?、停車、打轉(zhuǎn)向燈等2、構(gòu)造函數(shù)和析構(gòu)函數(shù)的功能分別是什么？構(gòu)造函數(shù)：創(chuàng)建類的實例（對象），并對對象的數(shù)據(jù)成員進行初始化析構(gòu)函數(shù)：銷毀調(diào)用的對象并且釋放對象的內(nèi)存3、Delphi提供了幾種異常類？運行期間庫異常類：I/O異常；堆異常；整數(shù)異常；浮點異常；類型匹配異常；類型轉(zhuǎn)換異常；硬件異常；組件異常類：預(yù)定義異常；通用異常；其他異常：流異常；圖形異常；打印異常；4、Delphi提供了哪兩種常用的異常處理結(jié)構(gòu)？使用tryexcept.end處理異常使用tryfinal

15、ly.end處理異常第五章1、按照組件在運行期間是否可見，Delphi中的組件可以分為哪兩大類型？各有何特點？可視化組件和非可視化組件可視化組件特點：基于窗口的可視化組件具有窗口句柄，可以作為輸入焦點，并可以含有控件；基于圖形控件沒有窗口句柄，不可以作為輸入焦點；非可視化組件特點：可以為程序增加功能，如TTimer2、TEdit組件和TMemo組件在使用上有何不同？TEdit只處理單行信息；TMemo可處理多行信息；3、TListBox組件和TComboBox組件的用途有何不同？ TListBox顯示一系列條文列表，用戶可以選中一個或多個項，但不能直接對條文進行編輯，但TComboBox可以直

16、接輸入數(shù)據(jù)4、利用常用組件設(shè)計一個具有加、減、乘、除功能的簡易計算器，如下圖所示。interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Scr: TLabel;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;Button5: TButton;Button6: TButton;Button7: TButto

17、n;Button8: TButton;Button9: TButton;Button10: TButton;Button11: TButton;Button12: TButton;Button13: TButton;Button14: TButton;Button15: TButton;Button16: TButton;Button17: TButton;Button18: TButton;Button19: TButton;Button20: TButton;procedure Button1Click(Sender: TObject);procedure Button12Click(Se

18、nder: TObject);procedure FormCreate(Sender: TObject);procedure Button11Click(Sender: TObject);procedure Button13Click(Sender: TObject);procedure Button20Click(Sender: TObject);procedure Button19Click(Sender: TObject);procedure Button18Click(Sender: TObject);private Private declarations pnt,er,fb:boo

19、lean;fstnm:Extended;fbcaption:string;public Public declarations end;varForm1: TForm1;implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject);vartemp:string;beginif er then exit;if pnt thenscr.Caption:=scr.Caption+(sender as Tbutton).Captionelse if (scr.Caption=0.) or fb thenbeginscr.Cap

20、tion:=(sender as Tbutton).caption+.;fb:=false;endelsebegintemp:=scr.Caption;insert(sender as Tbutton).Caption,temp,length(temp);scr.Caption:=temp;end;end;procedure TForm1.Button12Click(Sender: TObject);vartemp:string;beginif er then exit;if scr.Caption0. thenif pos(-,scr.Caption)0 thenbegintemp:=scr

21、.Caption;delete(temp,1,1);scr.Caption:=temp;endelsescr.Caption:=-+scr.Caption;end;procedure TForm1.FormCreate(Sender: TObject);beginpnt:=false;fstnm:=0;fb:=false;fbcaption:=;er:=false;end;procedure TForm1.Button11Click(Sender: TObject);beginif er then exit;pnt:=true;end;procedure TForm1.Button13Clic

22、k(Sender: TObject);beginif er then exit;if not fb thenbutton20click(nil);if er then exit;fstnm:=strtofloat(scr.Caption);fbcaption:=(sender as Tbutton).Caption;fb:=true;pnt:=false;end;procedure TForm1.Button20Click(Sender: TObject);beginif er then exit;if fbcaption=+ thenbeginscr.Caption:=floattostr(

23、strtofloat(scr.Caption)+fstnm);end;if fbcaption=- thenbeginscr.Caption:=floattostr(fstnm-strtofloat(scr.Caption);end;if fbcaption=* thenbeginscr.Caption:=floattostr(strtofloat(scr.Caption)*fstnm);end;if fbcaption=/ thenbeginif scr.Caption0. thenscr.Caption:=floattostr(fstnm/strtofloat(scr.Caption)el

24、sebeginscr.Caption:=zero divid error!;er:=true;end;end;if pos(.,scr.caption)=0 thenscr.Caption:=scr.Caption+.;fb:=true;pnt:=false;fbcaption:=;end;procedure TForm1.Button19Click(Sender: TObject);beginpnt:=false;fstnm:=0;fb:=false;fbcaption:=;er:=false;scr.Caption:=0.;end;procedure TForm1.Button18Clic

25、k(Sender: TObject);beginif er then exit;scr.Caption:=0.;end;end.第六章1、利用TMainMenu組件創(chuàng)建一個主菜單“數(shù)據(jù)查詢”，包括的菜單項有“查詢基本情況”、“查詢工作情況”和“查詢工資情況”。2、利用TPopupMenu組件建立快捷菜單（包括的菜單項有“還原”、“最小化”、“移動”和“關(guān)閉”）。設(shè)計好后，如何使其在程序執(zhí)行時右擊窗體會彈出相應(yīng)的菜單？設(shè)置Form窗體的PopupMenu屬性為：TPopupMenu13、模仿Windows記事本的菜單界面編寫一個程序。4、根據(jù)教材6.8.2節(jié)中的示例，設(shè)計一個具有2個垂直分割條窗

26、體程序，并運行測試它。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; Splitter1: TSplitter; Panel2: TPanel; Splitter2: TSplitter; Panel3: TPanel; private Private declarations public Public declarati

27、ons end;var Form1: TForm1;implementation$R *.dfmend.第七章1、簡述TCanvas(畫布)組件的主要屬性和方法。TColor：RGB顏色定義Pen：指定畫線和畫圖形輪廓MoveTo 方法：將筆的當(dāng)前文職設(shè)置到點(x,y)處；LineTo方法：配合MoveTo方法畫出從(x1,y1)到(x2,y2)的線段；Brush屬性：決定畫布填充圖形的背景顏色和填充圖案模式；Rectangle方法：在畫布上用當(dāng)前畫刷繪制矩形；RoundRect方法：畫帶圓角的矩形；Ellipse方法：畫橢圓Font屬性：設(shè)置字體的名稱、顏色、尺寸、風(fēng)格；TextOut方法：

28、在畫布指定位置處繪制文本字符串Pixels屬性：是一個二維數(shù)組，它的每個元素代表窗體表面或客戶區(qū)的一個像素的Color值；Draw方法：在畫布指定的位置處復(fù)制一個圖像StretchDraw方法：在畫布指定的矩形區(qū)域里繪制一個圖像；第八章1、Delphi2007的TMediaPlayer組件主要有哪些功能？播放AVI影片、Fic和Fli動畫文件，還可以通過MCI播放很多媒體文件，如WAV、MIDI、MP3、CD音樂文件和WMV視頻文件第九章1、簡述在Delphi中創(chuàng)建數(shù)據(jù)庫應(yīng)用程序的過程。通過TADOConnection組件建立數(shù)據(jù)庫的連接，然后使用一個ADOConnection組件或者ADOQ

29、uery組件向數(shù)據(jù)庫發(fā)送SQL命令，最后通過數(shù)據(jù)集獲得數(shù)據(jù)，這時，數(shù)據(jù)集組件必須將Connection屬性指向所使用的ADOConnection組件；2、什么是數(shù)據(jù)集組件？數(shù)據(jù)集組件在數(shù)據(jù)庫應(yīng)用程序中起什么作用？ 數(shù)據(jù)集組件包含一個數(shù)據(jù)緩沖區(qū)，通常說的數(shù)據(jù)集就是這個緩沖區(qū)；作用：數(shù)據(jù)集組件連接數(shù)據(jù)庫，將數(shù)據(jù)集讀入緩沖區(qū)，供數(shù)據(jù)控制組件修改或新增數(shù)據(jù)，然后數(shù)據(jù)集組件將緩沖區(qū)數(shù)據(jù)集提交到數(shù)據(jù)庫；3、ADO數(shù)據(jù)集組件有哪些？為什么說它們有許多共同的屬性、方法和事件？TADODataSet/TADOTable/TADOQuery/TADOStoredProc都是直接獲取整個數(shù)據(jù)表的數(shù)據(jù)，還可以執(zhí)行存儲

30、過程，從磁盤文件獲取數(shù)據(jù)4、TADOTable組件提供了哪些數(shù)據(jù)查詢方法？如何使用？Locate方法：Function Locate(constKeyFields:String;const KeyValues:Variant;Options:TLocateOptions):Boolean;override;Lookup方法Function Lookup(constKeyFields:String;const KeyValues:Variant; const ResultFields:String):Boolean;override;Seek方法Function Seek(const KeyVa

31、lues:Variant;SeekOption:TSeekOption=soFirstEQ):Boolean;5、什么是記錄指針？記錄指針有哪些特殊位置？在程序中如何判斷？記錄指針：指向數(shù)據(jù)集中的當(dāng)前記錄特殊位置：Bof & Eof判斷方法：If ADOTable1.Bof and ADOTable1.Eof thenShowMessage(該數(shù)據(jù)表為空表)；6、TADOTable組件連接數(shù)據(jù)庫有兩種方式，請分別描述這兩種方法的連接過程。直接訪問數(shù)據(jù)表中的每條記錄或用Filter屬性根據(jù)限定范圍或條件對數(shù)據(jù)表中的信息進行過濾TADOTable組件也可以通過TableName屬性對數(shù)據(jù)庫中的數(shù)據(jù)表進行可視化選擇。連接過程：使用ADOConnection1組件建立數(shù)據(jù)連接，并將其LoginPrompt屬性設(shè)置為False，Connected屬性設(shè)置成True；然后添加ADOTable1組件，設(shè)置器Connection屬性為ADOConnection1，選擇TableName屬性為表名，將Ac