浙大遠(yuǎn)程16年秋數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)離線作業(yè)(兼容)

1、浙江大學(xué)遠(yuǎn)程教育學(xué)院數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)課程作業(yè)姓名：學(xué) 號(hào)：年級(jí)：15年春學(xué)習(xí)中心：作業(yè)第一章1.5 如何保存Delphi的項(xiàng)目？嘗試自己動(dòng)手創(chuàng)建一個(gè)項(xiàng)目，并保存。答：練習(xí)課本例1.1，創(chuàng)建“我的第一個(gè)Delphi小程序”運(yùn)行程序：保存項(xiàng)目，選擇全部保存，保存為dpr格式：1.7 嘗試設(shè)計(jì)如圖110所示的窗體。（圖見教材P15頁(yè)圖110）圖110答：向窗體中添加一個(gè)標(biāo)簽組件label，三個(gè)radionbutton按鈕和兩個(gè)按鈕組件button，并根據(jù)原圖設(shè)置對(duì)應(yīng)的的Caption值，并使得radionbutton1的checked屬性變?yōu)門rue，如圖所示：運(yùn)行后：第二章2.8設(shè)計(jì)如圖25所示

2、的界面。單擊“按鈕1”或“按鈕2”時(shí)在標(biāo)簽上顯示用戶所執(zhí)行的操作。單擊“開啟/停用按鈕”可控制“按鈕1”和“按鈕2”是否可用，單擊“退出系統(tǒng)”按鈕時(shí)，結(jié)束程序的運(yùn)行。答：程序主要代碼清單如下：procedure TForm1.Button1Click(Sender: TObject);beginlabel1.Caption:='您點(diǎn)擊了按鈕1！'end;procedure TForm1.Button2Click(Sender: TObject);beginlabel1.Caption:='您點(diǎn)擊了按鈕2！'end;procedure TForm1.Button3

3、Click(Sender: TObject);beginlabel1.Caption:=' 'end;procedure TForm1.Button4Click(Sender: TObject);beginForm1.Close;end;2.9 設(shè)計(jì)如圖26所示的界面。當(dāng)單擊按鈕時(shí)，可控制文本框中字體的顏色。圖25圖26答：程序主要代碼清單如下：procedure TForm1.Button1Click(Sender: TObject);beginEdit1.Font.Color:= clred;end;procedure TForm1.Button2Click(Sender:

4、 TObject);beginEdit1.Font.Color:= clgreen;end;procedure TForm1.Button3Click(Sender: TObject);beginEdit1.Font.Color:= clblue;end;第三章3.8 下列實(shí)數(shù)中哪些是合法的，哪些是不合法的？不合法的請(qǐng)說(shuō)明理由。（A）0.25E+02（B）.25+2 （C）25E+2（D）34.5（E）.123（F）-3E-4答：（A）0.25E+02 合法（B）.25+2 不合法，指數(shù)記數(shù)法不能省略E，小數(shù)點(diǎn)前后一定要有數(shù)字。（C）25E+2 合法（D）34.5合法（E）.123 不合法，因

5、為小數(shù)點(diǎn)前后一定要有數(shù)字（F）-3E-4 合法3.12 數(shù)學(xué)式子sin30。寫成Delphi表達(dá)式是下列哪個(gè)？（A）Sin30（B）Sin(30)（C）SIN（30。）（D）Sin(30*Pi/180)答：要把角度30度轉(zhuǎn)化為弧度表示，所以應(yīng)該是（D）Sin(30*Pi/180)第四章4.7 利用3個(gè)數(shù)字編輯框分別輸入小時(shí)、分、秒，換算共有多少秒，然后使用標(biāo)簽輸出。答：程序主要代碼清單如下：procedure TForm1.Button1Click(Sender: TObject);beginlabel5.Caption:=inttostr(spinedit1.value*3600+spine

6、dit2.value*60+spinedit3.value)+'秒'end;4.8 在編輯框中輸入一個(gè)實(shí)數(shù)，利用備注框輸出該實(shí)數(shù)及其平方和平方根。答：程序主要代碼清單如下：procedure TForm1.Button1Click(Sender: TObject);beginmemo1.Lines.Clear; memo1.Lines.Strings0:=edit1.Text+'的平方是'+floattostr(sqr(strtofloat(edit1.Text) ) )+chr(13) +chr(10); memo1.Lines.Strings1:=edit1

7、.Text+'的平方根是'+floattostr(sqrt(strtofloat(edit1.Text) ) );end;procedure TForm1.FormCreate(Sender: TObject);beginmemo1.Lines.Clear;edit1.Clearend;第五章5.11 任意給定3個(gè)實(shí)數(shù)，按照從大到小的順序依次輸出這3個(gè)數(shù)。答：程序主要代碼清單如下：uses Math ;procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d,e,f:real;begin a:=strtofloat(

8、edit1.Text); b:=strtofloat(edit2.Text); c:=strtofloat(edit3.Text); d:=max(max(a,b),c); f:=min(min(a,b),c); if (a<d) and (a>f) then e:=a else if (b<d) and (b>f) then e:=b else if (c<d) and (c>f) then e:=c; label3.Caption:=floattostr(d)+' '+ floattostr(e)+' '+floattos

9、tr(f);end;procedure TForm1.FormCreate(Sender: TObject);beginedit1.clear;edit2.clear;edit3.clear;label3.Caption:=' ' ;end;5.13 假設(shè)工資的增幅標(biāo)準(zhǔn)為：若基本工資大于等于1000元，增加工資20%；若小于1000元大于等于800元，則增加工資15%；若小于800元，則增加工資10%。請(qǐng)根據(jù)用戶在文本框中輸入的基本工資，計(jì)算出增加后的工資。答：程序主要代碼清單如下：procedure TForm1.Button1Click(Sender: TObject);v

10、ara,b:real;begina:=strtofloat(edit1.Text) ;if (a >= 1000) then b := a*1.2 else if (a >= 800) then b := 1.15*a else b := 1.1*a ;edit2.Text:=floattostr(b) ;end;procedure TForm1.FormCreate(Sender: TObject);beginedit1.clear;edit2.clear;end;第六章6.5 設(shè)s=1X2X3XXn，求s不大于20000時(shí)最大的n。答：程序主要代碼清單如下：procedure

11、TForm1.Button1Click(Sender: TObject);varx,s:integer;beginx:=1;s:=1;while s <= 20000 do begin x:=x+1; s:=x*s; end; label2.Caption :='n='+inttostr(x-1)end;procedure TForm1.FormCreate(Sender: TObject);beginlabel2.caption:=' 'end;6.10 在標(biāo)簽上輸出100200之間的所有的奇數(shù)，其中3的倍數(shù)除外。答：程序主要代碼清單如下：procedu

12、re TForm1.Button1Click(Sender: TObject); var a,i:integer ; ar : array1.50 of integer;begin i:=1; For a := 100 To 200 Do begin if (a mod 2 = 1) and (a mod 3) <> 0 ) ) then begin ari := a; label2.Caption := label2.Caption + inttostr(ari)+' ' if (i mod 10 =0 ) then label2.Caption := label

13、2.Caption + chr(13)+chr(10); i:= i+1; end; end;end;procedure TForm1.FormCreate(Sender: TObject);begin label2.Caption:=' ' ;end;第七章7.4 求1200這200個(gè)數(shù)的和，當(dāng)和大于10000時(shí)結(jié)束計(jì)算。（要求使用轉(zhuǎn)向語(yǔ)句）答：程序主要代碼清單如下：procedure TForm1.Button1Click(Sender: TObject);vari,sum,x:integer;beginsum:=0;i:=0;repeat i:=i+1;sum:=sum+

14、i; if (sum >10000) then begin x:=i-1;break; end;until i>=200;label3.Caption:='相加的數(shù)字是從1到'+inttostr(x)+'，和為'+ inttostr(sum-x-1) ;end;procedure TForm1.FormCreate(Sender: TObject);beginlabel3.Caption:=' 'end;第八章8.8 編寫函數(shù)，輸出100500之間所有能同時(shí)被3和13整除的數(shù)。答：建立工程，設(shè)計(jì)界面如圖：在代碼編輯窗口的private

15、 中定義函數(shù)ch的原型部分：private Private declarations function ch(a,b:integer): string; 將光標(biāo)放在該函數(shù)原型的代碼定義行，按下ctrl+shift+C組合鍵，在函數(shù)體定義中加入代碼。程序主要代碼清單如下：function TForm1.ch(a, b: integer): string; var s:string; i:integer;begin for i:=a to b do if (i mod 3 = 0) and (i mod 13 =0) then s := s+inttostr(i)+' ' resu

16、lt:=s;end;procedure TForm1.FormCreate(Sender: TObject);beginedit1.Clear;edit2.Clear;label4.Caption:=' 'end;procedure TForm1.Button1Click(Sender: TObject);begin label4.Caption:=ch(strtoint(edit2.Text) ,strtoint(edit1.Text) ;end;第九章9.2 打開對(duì)話框組件和打開圖片對(duì)話框組件有什么異同點(diǎn)？答：打開對(duì)話框組件和打開圖片對(duì)話框組外觀相似，只是打開圖片對(duì)話框組件

17、增加了一個(gè)預(yù)覽區(qū)域，可以用來(lái)顯示用戶所選擇的圖象。打開圖片對(duì)話框組件的直接上級(jí)是打開對(duì)話框組件，打開圖片對(duì)話框組件所擁有的屬性、方法和時(shí)間與打開對(duì)話框組件完全相同，只是它主要是用來(lái)打開圖片的。第十章10.7 菜單命令項(xiàng)與工具欄按鈕的單擊事件中的代碼是否可以關(guān)聯(lián)？如何關(guān)聯(lián)？答：可以關(guān)聯(lián)，利用位于Standard選項(xiàng)卡中的ActionList組件。例如用ActionList組件建立一個(gè)動(dòng)作Action1，雙擊編輯好代碼，再將菜單命令項(xiàng)和工具欄按鈕的事件中的“Action”都選擇設(shè)置為Action1，這樣兩個(gè)就關(guān)聯(lián)起來(lái)了。第十一章11.4 調(diào)用子窗體的close方法時(shí)是否可關(guān)閉該子窗體？若不能，需要

18、怎么做？答：調(diào)用子窗體的close方法時(shí)不能關(guān)閉該子窗體。關(guān)閉子窗體方法：先把窗體的fsFormstlyle改成fsMDIChild，再在事件中選擇Onclose屬性，寫入Action := CaFree 第十二章12.3 使用紅色的畫筆在窗體中繪制一個(gè)半徑為5的圓，并且用黃色來(lái)填充圓的內(nèi)部。答：半徑為5的圓太小了，切圖后只有一點(diǎn)點(diǎn)大，看不清楚我將尺寸放大為半徑50畫圖。具體步驟如下：畫一個(gè)圖形：修改相關(guān)參數(shù)設(shè)置，填充顏色改成黃色，畫筆顏色改成紅色，形狀style改成圓形，width改成100：第十三章13.3 打開一個(gè)文本文件有幾種方法？區(qū)別是什么？答：打開文本文件有三種方法：（1）Rese

19、t過(guò)程以只讀方式打開一個(gè)文件；（2）Rewrite過(guò)程創(chuàng)建并打開文件，對(duì)于一個(gè)已經(jīng)存在的文件，此操作將使文件被覆蓋；（3）Append過(guò)程以追加方式打開文件，并向已經(jīng)存在的文本文件中追加文本。第十四章14.4 使用Database DeskTop設(shè)計(jì)如表145所示的數(shù)據(jù)表，并創(chuàng)建簡(jiǎn)單的應(yīng)用程序完成數(shù)據(jù)的瀏覽和編輯功能。表145 數(shù)據(jù)表字段設(shè)置說(shuō)明字段名類型長(zhǎng)度說(shuō)明Id字符型4產(chǎn)品編號(hào)Name字符型20產(chǎn)品名稱Price數(shù)值型產(chǎn)品單價(jià)Count短整型產(chǎn)品庫(kù)存量答：打開Database DeskTop新建數(shù)據(jù)表選擇OK，出現(xiàn)下表；在Field Name列輸入Id,Name,Price和Count這

20、些字段名，在type輸入類型，在size輸入長(zhǎng)度，并選擇Id為Key；用Save as保存為production.db打開剛才創(chuàng)建的表，用Edit Date編輯數(shù)據(jù)表：設(shè)定數(shù)據(jù)庫(kù)別名：輸入自定義別名：用Browse保存后，按OK新建窗體，添一個(gè)Table組件、一個(gè)datasource組件和一個(gè)dbgrid：設(shè)置table1的屬性：設(shè)置tablename為production.dbActive變成true：設(shè)置datasouce1和dbgrid1組件的屬性：設(shè)置好后：運(yùn)行程序：14.6 使用數(shù)據(jù)庫(kù)軟件（如Sql Server2000）創(chuàng)建如表146所示的數(shù)據(jù)表，并開發(fā)一個(gè)學(xué)生檔案管理系統(tǒng)，完成學(xué)

21、生基本信息的添加、刪除、修改等。同時(shí)，可以按照學(xué)生的學(xué)號(hào)、姓名等進(jìn)行數(shù)據(jù)的查詢。最后，將學(xué)生的基本信息以報(bào)表的方式輸出。表146 數(shù)據(jù)表字段設(shè)置說(shuō)明字段名類型長(zhǎng)度說(shuō)明Id字符型8學(xué)號(hào)Name字符型8姓名Sex字符型2性別Birthday日期型4出生日期Address字符型50家庭住址答：用Office Access 2 007制作了數(shù)據(jù)表。添加數(shù)據(jù)，保存表名為xsxx 另存為xueshengxinxi.mdb:新建一個(gè)工程；添加TADOConnection組件，作如下操作：打開確定確定：添1個(gè)GroupBox，向GroupBox中添加2個(gè)CheckBox、2個(gè)edit，再向窗體中添加一個(gè)Lab

22、el，5個(gè)DBtext、1個(gè)TADOQuery組件、1個(gè)Tdatasource組件、1個(gè)DbNavigator、1個(gè)Dbgrid組件和2個(gè)button：設(shè)置屬性如下：對(duì)象名屬性名屬性值說(shuō)明ADOQuery1ConnectionADOconnection1連接數(shù)據(jù)庫(kù)SQL Select * from xsxx設(shè)置查詢條件ActiveTrue打開數(shù)據(jù)庫(kù)連接DataSource1DatasetQuery1設(shè)置數(shù)據(jù)集名字Button1Caption查詢?cè)O(shè)置按鈕上的文本Button2Caption退出設(shè)置按鈕上的文本GroupBox1Caption請(qǐng)選擇查詢條件設(shè)置成組框的標(biāo)題CheckBox1Capt

23、ionId設(shè)置復(fù)選框的標(biāo)題CheckBox2CaptionName設(shè)置復(fù)選框的標(biāo)題Edit1Text空用于輸入要查詢的IdEdit1Text空用于輸入要查詢的NameLabel1Caption基本信息設(shè)置標(biāo)簽標(biāo)題DBText1DataSourceDataSource1設(shè)置數(shù)據(jù)源DataFieldId顯示字段IdDBText2DataSourceDataSource1設(shè)置數(shù)據(jù)源DataFieldName顯示字段NameDBText3DataSourceDataSource1設(shè)置數(shù)據(jù)源DataFieldSex顯示字段SexDBText4DataSourceDataSource1設(shè)置數(shù)據(jù)源DataF

24、ieldBirthday顯示字段BirthdayDBText5DataSourceDataSource1設(shè)置數(shù)據(jù)源DataFieldAddress顯示字段AddressDbgrid1DataSourceDataSource1設(shè)置數(shù)據(jù)源DbNavigator1DataSourceDataSource1設(shè)置數(shù)據(jù)源Visiblebuttons全部選True設(shè)置顯示的瀏覽按鈕界面如下：程序主要代碼清單如下：procedure TForm1.Button1Click(Sender: TObject); var s,s1,s2:string;begin s1:='1=1' if check

25、Box1.Checked then s1:=' Id like ''' + '%' + edit1.Text+'%'+'''' if checkBox2.Checked then s2:=' Name like ''' + '%'+ edit2.Text+'%'+'''' s:='select * from xsxx where '+s1+' and '+ s2; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuer