浙江大學(xué)遠(yuǎn)程教育數(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í)：學(xué)習(xí)中心：作業(yè)第一章1.5 如何保存Delphi的項(xiàng)目？嘗試自己動(dòng)手創(chuàng)建一個(gè)項(xiàng)目，并保存。答：執(zhí)行 File|Save All 菜單命令或單擊工具欄中的 Save All 按鈕便可保存，在保存時(shí)可以對(duì)工程文件和單元文件進(jìn)行改名，但后綴名不能改。保存文件之后，單擊工具中的 Run 按鈕或按 F9 鍵，系統(tǒng)將開(kāi)始編譯、連接、運(yùn)行該工程。1.7 嘗試設(shè)計(jì)如圖110所示的窗體。（圖見(jiàn)教材P15頁(yè)圖110）圖110第二章2.8設(shè)計(jì)如圖25所示的界面。單擊“按鈕1”或“按鈕2”時(shí)在標(biāo)簽上顯示用戶所執(zhí)行的操作。單擊“開(kāi)啟/停用按鈕”可控制“按鈕

2、1”和“按鈕2”是否可用，單擊“退出系統(tǒng)”按鈕時(shí)，結(jié)束程序的運(yùn)行。2.9 設(shè)計(jì)如圖26所示的界面。當(dāng)單擊按鈕時(shí)，可控制文本框中字體的顏色。圖25圖26unittest;interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls;type TForm1=class(TForm) showLabel:TLabel; btn1:TButton; /按鈕 1 btn2:TButton; /按鈕 2 ctlBtn:TButton; /開(kāi)啟停用按鈕exitBtn:TB

3、utton; /退出按鈕 procedurebtn1Click(Sender:TObject); procedurebtn2Click(Sender:TObject); procedureexitBtnClick(Sender:TObject); procedurectlBtnClick(Sender:TObject); private Privatedeclarations public Publicdeclarations end;var Form1:TForm1; ctlStatus:integer=0; /控制按鈕 1 和 2 的開(kāi)啟和關(guān)閉，0 表示當(dāng)前為開(kāi)啟，1 表示關(guān)閉implem

4、entation$R*.dfmprocedureTForm1.btn1Click(Sender:TObject);begin form1.showLabel.Caption:=您點(diǎn)擊了按鈕 1;end;procedureTForm1.btn2Click(Sender:TObject);begin form1.showLabel.Caption:=您點(diǎn)擊了按鈕 2;end;procedureTForm1.exitBtnClick(Sender:TObject);begin form1.Close;end; procedureTForm1.ctlBtnClick(Sender:TObject);b

5、egin ifctlStatus=0then begin form1.btn1.Enabled:=false; form1.btn2.Enabled:=false; ctlStatus:=1; end else begin form1.btn1.Enabled:=true; form1.btn2.Enabled:=true; ctlStatus:=0; end;end;end.2.9:unittest;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrl

6、s;type TForm1=class(TForm) Label1:TLabel; Edit1:TEdit; btnRed:TButton; btnGreen:TButton; btnBlue:TButton; procedurebtnRedClick(Sender:TObject); procedurebtnGreenClick(Sender:TObject); procedurebtnBlueClick(Sender:TObject); private Privatedeclarations public Publicdeclarations end;var Form1:TForm1;im

7、plementation$R*.dfmprocedureTForm1.btnRedClick(Sender:TObject);begin form1.Edit1.Font.Color:=clred;end;procedureTForm1.btnGreenClick(Sender:TObject);begin form1.Edit1.Font.Color:=clgreen;end; procedureTForm1.btnBlueClick(Sender:TObject);begin form1.Edit1.Font.Color:=clblue;end;end.第三章3.8 下列實(shí)數(shù)中哪些是合法的

8、，哪些是不合法的？不合法的請(qǐng)說(shuō)明理由。（A）0.25E+02（B）.25+2（C）25E+2（D）34.5（E）.123（F）-3E-4（A）合法，即為 25（B）不合法，小數(shù)點(diǎn)前必須有數(shù)字，如表示為 0.25+2（C）合法，即為 2500（D）合法，即為 34.5（E）不合法，同（2）（F）合法，即為0.00033.12 數(shù)學(xué)式子sin30。寫(xiě)成Delphi表達(dá)式是下列哪個(gè)？（A）Sin30（B）Sin(30)（C）SIN（30。）（D）Sin(30*Pi/180)D，需要把角度轉(zhuǎn)化為弧度第四章4.7 利用3個(gè)數(shù)字編輯框分別輸入小時(shí)、分、秒，換算共有多少秒，然后使用標(biāo)簽輸出。 unittes

9、t;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,Spin;type TForm1=class(TForm) SpinEdit1:TSpinEdit; Label1:TLabel; Label2:TLabel; SpinEdit2:TSpinEdit; Label3:TLabel; SpinEdit3:TSpinEdit; Label4:TLabel; procedureSpinEdit1Change(Sender:TObject); proc

10、edureSpinEdit2Change(Sender:TObject); procedureSpinEdit3Change(Sender:TObject); private Privatedeclarations procedureCalculateTimeToSencond(timeKind:String;time:integer); public Publicdeclarations end;var Form1:TForm1; hour:integer=0; minute:integer=0; second:integer=0; tot:integer=0;implementation$

11、R*.dfmprocedureTForm1.CalculateTimeToSencond(timeKind:String;time:integer);begin iftimeKind=hhthen hour:=time elseiftimeKind=mithen minute:=time elseiftimeKind=ssthen second:=time; tot:=hour*60*60+minute*60+second; form1.Label4.Caption:=總共為+IntToStr(tot)+秒;end;procedureTForm1.SpinEdit1Change(Sender:

12、TObject);begin Form1.CalculateTimeToSencond(hh,StrToInt(Form1.SpinEdit1.Text);end;procedureTForm1.SpinEdit2Change(Sender:TObject);begin Form1.CalculateTimeToSencond(mi,StrToInt(Form1.SpinEdit2.Text);end; procedureTForm1.SpinEdit3Change(Sender:TObject);begin Form1.CalculateTimeToSencond(ss,StrToInt(F

13、orm1.SpinEdit3.Text);end;end.4.8 在編輯框中輸入一個(gè)實(shí)數(shù)，利用備注框輸出該實(shí)數(shù)及其平方和平方根。unitUnit1;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls;type TForm1=class(TForm) Edit1:TEdit; Label1:TLabel; Memo1:TMemo; Label2:TLabel; procedureEdit1Change(Sender:TObject); private

14、Privatedeclarations public Publicdeclarations end;var Form1:TForm1; num1:Real; /原實(shí)數(shù) num2:Real; /實(shí)數(shù)平方 num3:Real; /實(shí)數(shù)平方根implementation$R*.dfmprocedureTForm1.Edit1Change(Sender:TObject);begin ifform1.Edit1.Textthen begin num1:=StrToFloat(form1.Edit1.Text); num2:=Sqr(num1); num3:=Sqrt(num1); form1.Memo1

15、.Lines.Clear; form1.Memo1.Lines.Add(實(shí)數(shù)為 :+FloatToStr(num1); form1.Memo1.Lines.Add(平方為 :+FloatToStr(num2); form1.Memo1.Lines.Add(平方根為 :+FloatToStr(num3); end;end;end.第五章5.11 任意給定3個(gè)實(shí)數(shù)，按照從大到小的順序依次輸出這3個(gè)數(shù)。unitUnit1;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,

16、StdCtrls;type TForm1=class(TForm) num1Edit:TEdit; Label1:TLabel; Label2:TLabel; resultLabel:TLabel; num2Edit:TEdit; num3Edit:TEdit; procedurenum1EditChange(Sender:TObject); procedurenum2EditChange(Sender:TObject); procedurenum3EditChange(Sender:TObject); private Privatedeclarations procedureCompareN

17、umber(); public Publicdeclarations end;var Form1:TForm1; num1:Real; /數(shù)字 1 num2:Real; /數(shù)字 2 num3:Real; /數(shù)字 3 compnum:Real;/比較時(shí)轉(zhuǎn)換 2 數(shù) outStr:String;/輸出結(jié)果;implementation$R*.dfmprocedureTForm1.CompareNumber();begin if (trim(form1.num1Edit.Text) ) And (trim(form1.num2Edit.Text) ) And(trim(form1.num3Edit.

18、Text)then begin num1:=StrToFloat(form1.num1Edit.Text); num2:=StrToFloat(form1.num2Edit.Text); num3:=StrToFloat(form1.num3Edit.Text); ifnum2num1then begin compnum:=num1; num1:=num2; num2:=compnum; end; ifnum3num1then begin compnum:=num1; num1:=num3; num3:=compnum; end; ifnum3num2then begin compnum:=n

19、um2; num2:=num3; num3:=compnum; end; outStr:=FloatToStr(num1)+,+FloatToStr(num2)+,+FloatToStr(num3); form1.resultLabel.Caption:=outStr; end;end;procedureTForm1.num1EditChange(Sender:TObject);begin form1.CompareNumber;end;procedureTForm1.num2EditChange(Sender:TObject);begin form1.CompareNumber;end;pr

20、ocedureTForm1.num3EditChange(Sender:TObject);begin form1.CompareNumber;end;end.5.13 假設(shè)工資的增幅標(biāo)準(zhǔn)為：若基本工資大于等于1000元，增加工資20%；若小于1000元大于等于800元，則增加工資15%；若小于800元，則增加工資10%。請(qǐng)根據(jù)用戶在文本框中輸入的基本工資，計(jì)算出增加后的工資。 unitUnit1;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls;t

21、ype TForm1=class(TForm) Label1:TLabel; Edit1:TEdit; Label2:TLabel; resultLabel:TLabel; procedureEdit1Change(Sender:TObject); private Privatedeclarations public Publicdeclarations end;var Form1:TForm1; salary:Real; outSalary:Real;implementation$R*.dfmprocedureTForm1.Edit1Change(Sender:TObject);begin

22、salary:=StrToFloat(form1.Edit1.Text); if(salary=1000)then outSalary:=salary*(1+0.2) elseif(salary=800)then outSalary:=salary*(1+0.15) elseif(salary800)then outSalary:=salary*(1+0.1); form1.resultLabel.Caption:=FloatToStr(outSalary);end;end.第六章6.5 設(shè)s=1X2X3XXn，求s不大于20000時(shí)最大的n。unitUnit1;interfaceuses W

23、indows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls;type TForm1=class(TForm) Label1:TLabel; Edit1:TEdit; Label2:TLabel; resultLabel:TLabel; procedureFormCreate(Sender:TObject); private Privatedeclarations public Publicdeclarations end;var Form1:TForm1; number,n,tot:In

24、teger;implementation$R*.dfmprocedureTForm1.FormCreate(Sender:TObject);begin tot:=1;n:=0; number:=StrToInt(form1.Edit1.Text); Whiletot=numberdo begin n:=n+1; tot:=tot*n; end; form1.resultLabel.Caption:=IntToStr(n1);end;end.6.10 在標(biāo)簽上輸出100200之間的所有的奇數(shù)，其中3的倍數(shù)除外。unitUnit1;interfaceuses Windows,Messages,Sy

25、sUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls;type TForm1=class(TForm) resultLabel:TLabel; procedureFormCreate(Sender:TObject); private Privatedeclarations public Publicdeclarations end;var Form1:TForm1; number,i:Integer; outStr:String;implementation$R*.dfmprocedureTForm1.FormCre

26、ate(Sender:TObject);begin fori:=100to200do begin ifimod20then ifimod30then outStr:=outStr+IntToStr(i); form1.resultLabel.Caption:=outStr; end;end;end.第七章7.4 求1200這200個(gè)數(shù)的和，當(dāng)和大于10000時(shí)結(jié)束計(jì)算。（要求使用轉(zhuǎn)向語(yǔ)句）unitUnit1;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdC

27、trls;type TForm1=class(TForm) Label1:TLabel; procedureFormCreate(Sender:TObject); private Privatedeclarations public Publicdeclarations end;var Form1:TForm1; sum,n:integer;implementation$R*.dfmprocedureTForm1.FormCreate(Sender:TObject);begin sum:=0; n:=0; repeat n:=n+1; sum:=sum+n; if(sum10000)thenb

28、reak; untiln=200; form1.Label1.Caption:=總和為+IntToStr(sum);end;end.第八章8.8 編寫(xiě)函數(shù)，輸出100500之間所有能同時(shí)被3和13整除的數(shù)。unitUnit1;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls;type TForm1=class(TForm) Label1:TLabel; procedureFormCreate(Sender:TObject); private Pri

29、vatedeclarations FunctioncheckNum(num:integer):boolean; public Publicdeclarations end;var Form1:TForm1;implementation$R*.dfmFunctionTForm1.checkNum(num:integer):boolean; varn:boolean;begin if(nummod3=0)And(nummod13=0)then n:=true else n:=false; result:=n;end;procedureTForm1.FormCreate(Sender:TObject

30、); vari:integer; varout:string;begin fori:=100to500do begin ifcheckNum(i)then out:=out+IntToStr(i); end; form1.Label1.Caption:=out;end;end.第九章9.2 打開(kāi)對(duì)話框組件和打開(kāi)圖片對(duì)話框組件有什么異同點(diǎn)？答：兩者都會(huì)打開(kāi)一個(gè)對(duì)話框用于選擇電腦本地上的文件不同的是前者可以選擇全部類(lèi)型的文件，而后者只可以選擇圖片類(lèi)型的文件，并且可以預(yù)覽圖片第十章10.7 菜單命令項(xiàng)與工具欄按鈕的單擊事件中的代碼是否可以關(guān)聯(lián)？如何關(guān)聯(lián)？答：將工具欄按鈕 ToolButton 的 Style 屬性設(shè)置為 tbsDropDown,然后在 MenuItem 屬性中選擇對(duì)應(yīng)的菜單項(xiàng)即可第十一章11.4 調(diào)用子窗體的c