數(shù)據(jù)庫應用程序設計離線作業(yè)答案

1、浙江大學遠程教育學院數(shù)據(jù)庫應用程序設計課程作業(yè)姓名： 學 號：年級：2016年春學習中心：作業(yè)第一章1.5 如何保存Delphi的項目？嘗試自己動手創(chuàng)建一個項目，并保存。答：執(zhí)行File|Save All菜單命令或單擊工具欄中的Save All按鈕便可保存，在保存時可以對工程文件和單元文件進行改名，但后綴名不能改。保存文件之后，單擊工具中的Run按鈕或按F9鍵，系統(tǒng)將開始編譯、連接、運行該工程。1.7 嘗試設計如圖110所示的窗體。（圖見教材P15頁圖110）圖110答：設計界面：運行界面：第二章2.8設計如圖25所示的界面。單擊“按鈕1”或“按鈕2”時在標簽上顯示用戶所執(zhí)行的操作。單擊“開啟

2、/停用按鈕”可控制“按鈕1”和“按鈕2”是否可用，單擊“退出系統(tǒng)”按鈕時，結(jié)束程序的運行。答：設計界面：運行界面： 代碼：unit test;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) showLabel: TLabel; btn1: TButton; /按鈕1 btn2: TButton; /按鈕2 ctlBtn: TButton; /開啟停用按鈕 exitBtn: TB

3、utton; /退出按鈕 procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure exitBtnClick(Sender: TObject); procedure ctlBtnClick(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1; ctlStatus:integer = 0; /控制按鈕1和2的開啟和關閉，0表示當前為開啟，1表示關

4、閉implementation$R *.dfmprocedure TForm1.btn1Click(Sender: TObject);begin form1.showLabel.Caption := 您點擊了按鈕1;end;procedure TForm1.btn2Click(Sender: TObject);begin form1.showLabel.Caption := 您點擊了按鈕2;end;procedure TForm1.exitBtnClick(Sender: TObject);begin form1.Close;end;procedure TForm1.ctlBtnClick(S

5、ender: TObject);begin if ctlStatus = 0 then 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 設計如圖26所示的界面。當單擊按鈕時，可控制文本框中字體的顏色。圖25圖26答：設計界面：運行界面：代碼：(按鈕快捷鍵的設置方法為在字母前加&，如

6、&R，&G，&B)unit test;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; btnRed: TButton; btnGreen: TButton; btnBlue: TButton; procedure btnRedClick(Sender: TObject); procedure btnGreenClick

7、(Sender: TObject); procedure btnBlueClick(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementation$R *.dfmprocedure TForm1.btnRedClick(Sender: TObject);begin form1.Edit1.Font.Color := clred;end;procedure TForm1.btnGreenClick(Sender: TObject);begi

8、n form1.Edit1.Font.Color := clgreen;end;procedure TForm1.btnBlueClick(Sender: TObject);begin form1.Edit1.Font.Color := clblue;end;end.第三章3.8 下列實數(shù)中哪些是合法的，哪些是不合法的？不合法的請說明理由。（A）0.25E+02（B）.25+2（C）25E+2（D）34.5（E）.123（F）-3E-4答：（A）合法，即為25 （B）不合法，小數(shù)點前必須有數(shù)字，如表示為0.25+2 （C）合法，即為2500 （D）合法，即為34.5 （E）不合法，同（2） （

9、F）合法，即為-0.00033.12 數(shù)學式子sin30。寫成Delphi表達式是下列哪個？（A）Sin30（B）Sin(30)（C）SIN（30。）（D）Sin(30*Pi/180)答：D，需要把角度轉(zhuǎn)化為弧度第四章4.7 利用3個數(shù)字編輯框分別輸入小時、分、秒，換算共有多少秒，然后使用標簽輸出。答：設計界面：運行界面：代碼：unit test;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin;type TForm1

10、= class(TForm) SpinEdit1: TSpinEdit; Label1: TLabel; Label2: TLabel; SpinEdit2: TSpinEdit; Label3: TLabel; SpinEdit3: TSpinEdit; Label4: TLabel; procedure SpinEdit1Change(Sender: TObject); procedure SpinEdit2Change(Sender: TObject); procedure SpinEdit3Change(Sender: TObject); private Private declara

11、tions procedure CalculateTimeToSencond(timeKind:String; time:integer); public Public declarations end;var Form1: TForm1; hour: integer = 0; minute: integer = 0; second: integer = 0; tot:integer = 0;implementation$R *.dfmprocedure TForm1.CalculateTimeToSencond(timeKind:String; time:integer);begin if

12、timeKind = hh then hour := time else if timeKind = mi then minute := time else if timeKind = ss then second := time; tot := hour * 60 * 60 + minute * 60 + second; form1.Label4.Caption := 總共為 + IntToStr(tot) + 秒;end;procedure TForm1.SpinEdit1Change(Sender: TObject);begin Form1.CalculateTimeToSencond(

13、hh, StrToInt(Form1.SpinEdit1.Text);end;procedure TForm1.SpinEdit2Change(Sender: TObject);begin Form1.CalculateTimeToSencond(mi, StrToInt(Form1.SpinEdit2.Text);end;procedure TForm1.SpinEdit3Change(Sender: TObject);begin Form1.CalculateTimeToSencond(ss, StrToInt(Form1.SpinEdit3.Text);end;end.4.8 在編輯框中

14、輸入一個實數(shù)，利用備注框輸出該實數(shù)及其平方和平方根。答：設計界面：運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Memo1: TMemo; Label2: TLabel; procedure Edit1Change(Sender: TObject); private Privat

15、e declarations public Public declarations end;var Form1: TForm1; num1 : Real; /原實數(shù) num2 : Real; /實數(shù)平方 num3 : Real; /實數(shù)平方根implementation$R *.dfmprocedure TForm1.Edit1Change(Sender: TObject);begin if form1.Edit1.Text then begin num1 := StrToFloat(form1.Edit1.Text); num2 := Sqr(num1); num3 := Sqrt(num1

16、); form1.Memo1.Lines.Clear; form1.Memo1.Lines.Add(實數(shù)為 : + FloatToStr(num1); form1.Memo1.Lines.Add(平方為 : + FloatToStr(num2); form1.Memo1.Lines.Add(平方根為 : + FloatToStr(num3); end;end;end.第五章5.11 任意給定3個實數(shù)，按照從大到小的順序依次輸出這3個數(shù)。答：設計界面：運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, C

17、lasses, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) num1Edit: TEdit; Label1: TLabel; Label2: TLabel; resultLabel: TLabel; num2Edit: TEdit; num3Edit: TEdit; procedure num1EditChange(Sender: TObject); procedure num2EditChange(Sender: TObject); procedure num3EditChange(Sende

18、r: TObject); private Private declarations procedure CompareNumber(); public Public declarations end;var Form1: TForm1; num1 : Real; /數(shù)字1 num2 : Real; /數(shù)字2 num3 : Real; /數(shù)字3 compnum : Real; /比較時轉(zhuǎn)換2數(shù) outStr : String; /輸出結(jié)果;implementation$R *.dfmprocedure TForm1.CompareNumber();begin if (trim(form1.num

19、1Edit.Text) ) And (trim(form1.num2Edit.Text) ) And (trim(form1.num3Edit.Text) ) then begin num1 := StrToFloat(form1.num1Edit.Text); num2 := StrToFloat(form1.num2Edit.Text); num3 := StrToFloat(form1.num3Edit.Text); if num2 num1 then begin compnum := num1; num1 := num2; num2 := compnum; end; if num3 n

20、um1 then begin compnum := num1; num1 := num3; num3 := compnum; end; if num3 num2 then begin compnum := num2; num2 := num3; num3 := compnum; end; outStr := FloatToStr(num1) + , + FloatToStr(num2) + , + FloatToStr(num3); form1.resultLabel.Caption := outStr; end;end;procedure TForm1.num1EditChange(Send

21、er: TObject);begin form1.CompareNumber;end;procedure TForm1.num2EditChange(Sender: TObject);begin form1.CompareNumber;end;procedure TForm1.num3EditChange(Sender: TObject);begin form1.CompareNumber;end;end.5.13 假設工資的增幅標準為：若基本工資大于等于1000元，增加工資20%；若小于1000元大于等于800元，則增加工資15%；若小于800元，則增加工資10%。請根據(jù)用戶在文本框中輸入的

22、基本工資，計算出增加后的工資。答：設計界面：=運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; resultLabel: TLabel; procedure Edit1Change(Sender: TObject); private Private d

23、eclarations public Public declarations end;var Form1: TForm1; salary: Real; outSalary: Real;implementation$R *.dfmprocedure TForm1.Edit1Change(Sender: TObject);begin salary := StrToFloat(form1.Edit1.Text); if (salary = 1000) then outSalary := salary * (1 + 0.2) else if (salary = 800) then outSalary

24、:= salary * (1 + 0.15) else if (salary 800) then outSalary := salary * (1 + 0.1); form1.resultLabel.Caption := FloatToStr(outSalary);end;end.第六章6.5 設s=1X2X3XXn，求s不大于20000時最大的n。答：設計界面：運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,

25、StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; resultLabel: TLabel; procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1; number, n, tot: Integer;implementation$R *.dfmprocedure TForm1.FormCreate(Sende

26、r: TObject);begin tot := 1; n := 0; number := StrToInt(form1.Edit1.Text); While tot = number do begin n := n + 1; tot := tot * n; end; form1.resultLabel.Caption := IntToStr(n-1);end;end.6.10 在標簽上輸出100200之間的所有的奇數(shù)，其中3的倍數(shù)除外。答：設計界面：運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants,

27、Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) resultLabel: TLabel; procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1; number, i: Integer; outStr: String;implementation$R *.dfmprocedure TForm1.FormCr

28、eate(Sender: TObject);begin for i:= 100 to 200 do begin if i mod 2 0 then if i mod 3 0 then outStr := outStr + + IntToStr(i); form1.resultLabel.Caption := outStr; end;end;end.第七章7.4 求1200這200個數(shù)的和，當和大于10000時結(jié)束計算。（要求使用轉(zhuǎn)向語句）答：設計界面：運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants,

29、Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1; sum, n : integer;implementation$R *.dfmprocedure TForm1.FormCreate(Sender: TObject);b

30、egin sum := 0; n := 0; repeat n := n + 1; sum := sum + n; if (sum 10000) then break; until n = 200; form1.Label1.Caption := 總和為 + IntToStr(sum);end;end.第八章8.8 編寫函數(shù)，輸出100500之間所有能同時被3和13整除的數(shù)。答：設計界面：運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, For

31、ms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; procedure FormCreate(Sender: TObject); private Private declarations Function checkNum(num:integer):boolean; public Public declarations end;var Form1: TForm1;implementation$R *.dfmFunction TForm1.checkNum(num:integer):boolean; var n :bo

32、olean;begin if (num mod 3 = 0) And (num mod 13 = 0) then n := true else n := false; result := n;end;procedure TForm1.FormCreate(Sender: TObject); var i : integer; var out : string;begin for i := 100 to 500 do begin if checkNum(i) then out := out + + IntToStr(i); end; form1.Label1.Caption := out;end;

33、end.第九章9.2 打開對話框組件和打開圖片對話框組件有什么異同點？答：兩者都會打開一個對話框用于選擇電腦本地上的文件 不同的是前者可以選擇全部類型的文件，而后者只可以選擇圖片類型的文件，并且可以預覽圖片第十章10.7 菜單命令項與工具欄按鈕的單擊事件中的代碼是否可以關聯(lián)？如何關聯(lián)？答：將工具欄按鈕ToolButton的Style屬性設置為tbsDropDown,然后在MenuItem屬性中選擇對應的菜單項即可第十一章11.4 調(diào)用子窗體的close方法時是否可關閉該子窗體？若不能，需要怎么做？答：調(diào)用close方法只能最小化窗口，如果要真正關閉，需要調(diào)用free方法第十二章12.3 使用紅

34、色的畫筆在窗體中繪制一個半徑為5的圓，并且用黃色來填充圓的內(nèi)部。答：設計界面：運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;im

35、plementation$R *.dfmprocedure TForm1.FormPaint(Sender: TObject);var r, x, y:integer;begin r := 5; Canvas.Pen.Color := clred; Canvas.Brush.Color := clyellow; Canvas.Ellipse(0, 0, r*2, r*2);end;end.第十三章13.3 打開一個文本文件有幾種方法？區(qū)別是什么？答：有3種打開文件的方法：（1） Reset過程以只讀方式打開一個文件。（2） Rewrite過程創(chuàng)建并打開文件，對于一個已經(jīng)存在的文件，此操作將使文

36、件被覆蓋。（3） Append過程以追加方式打開文件，并向已經(jīng)存在的文本文件中追加文本。第十四章14.4 使用Database DeskTop設計如表145所示的數(shù)據(jù)表，并創(chuàng)建簡單的應用程序完成數(shù)據(jù)的瀏覽和編輯功能。表145 數(shù)據(jù)表字段設置說明字段名類型長度說明Id字符型4產(chǎn)品編號Name字符型20產(chǎn)品名稱Price數(shù)值型產(chǎn)品單價Count短整型產(chǎn)品庫存量答：設計界面：(數(shù)據(jù)庫設計)(界面設計)運行界面：14.6 使用數(shù)據(jù)庫軟件（如Sql Server2000）創(chuàng)建如表146所示的數(shù)據(jù)表，并開發(fā)一個學生檔案管理系統(tǒng)，完成學生基本信息的添加、刪除、修改等。同時，可以按照學生的學號、姓名等進行數(shù)據(jù)

37、的查詢。最后，將學生的基本信息以報表的方式輸出。表146 數(shù)據(jù)表字段設置說明字段名類型長度說明Id字符型8學號Name字符型8姓名Sex字符型2性別Birthday日期型4出生日期Address字符型50家庭住址答：(1)使用的數(shù)據(jù)庫軟件為Sql Server 2008,依據(jù)題目設計的數(shù)據(jù)表結(jié)構(gòu)為表名為Students（2）本系統(tǒng)包含5個Form,分別為FormMain主界面,FormTable信息錄入查詢界面,FormReport學生信息報表界面,FormHelp系統(tǒng)幫助界面,FormAbout系統(tǒng)關于界面（3）各Form詳細內(nèi)容：A：FormMain設計界面：運行界面：代碼：unit Un

38、it2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Unit3, Unit1, Unit4, Unit5;type TMainForm = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuIte

39、m; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure N8Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure N4Click(Sender: TObject); procedure N7Click(Sender: TObject); pri

40、vate procedure closeApp; public Public declarations end;var MainForm: TMainForm;implementation$R *.dfmprocedure TMainForm.N8Click(Sender: TObject);begin formAbout.Show;end;procedure TMainForm.N5Click(Sender: TObject);begin closeApp;end;procedure TMainForm.N2Click(Sender: TObject);var child:TFormTabl

41、e;begin child := TFormTable.Create(Application); child.Show;end;procedure TMainForm.closeApp;begin if messagedlg(您確定要退出本系統(tǒng)了嗎?,mtconfirmation,mbyes,mbno,0) = mryes then Application.Terminateend;procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if messagedlg(您確定要退出本系統(tǒng)了嗎?

42、,mtconfirmation,mbyes,mbno,0) = mryes then CanClose := true else CanClose := false;end;procedure TMainForm.N4Click(Sender: TObject);var child:TFormReport;begin child := TFormReport.Create(Application); child.Show;end;procedure TMainForm.N7Click(Sender: TObject);begin formHelp.Show;end;end.B：FormTabl

43、e設計界面：運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, ComCtrls, StdCtrls, ToolWin, ImgList;type TFormTable = class(TForm) ADOConnection1: TADOConnection; DataSource1: TDataSource; DBGrid1: TDBGrid; ToolBa

44、r1: TToolBar; TBAdd: TToolButton; Editname: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Editaddress: TEdit; Label4: TLabel; Editid: TEdit; Label5: TLabel; Label6: TLabel; ComboBoxsex: TComboBox; DateBirthday: TDateTimePicker; TBUpdate: TToolButton; TBDelete: TToolButton; TBSelect: TToolBu

45、tton; TBCommit: TToolButton; LabelMode: TLabel; ToolButton6: TToolButton; Label8: TLabel; ADOQuery1: TADOQuery; DataSource2: TDataSource; ADOTable1: TADOTable; ImageList1: TImageList; procedure TBAddClick(Sender: TObject); procedure TBUpdateClick(Sender: TObject); procedure TBDeleteClick(Sender: TOb

46、ject); procedure TBSelectClick(Sender: TObject); procedure FormPaint(Sender: TObject); procedure TBCommitClick(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject); private public Public declarations end;var FormTable: TFormTable; TBStatus : integer; /模式類型,0-查詢，1-新增，2-修改，3-刪除 SelMode : integ

47、er; /第一次按查詢按鈕進入查詢模式-1，再按一次執(zhí)行查詢-2，其他情況下為-0implementation$R *.dfmprocedure TFormTable.TBAddClick(Sender: TObject);var maxid : integer;var date : string;begin TBStatus := 1; Editid.Enabled := false; Editname.Enabled := true; Comboboxsex.Enabled := true; DateBirthday.Enabled := true; Editaddress.Enabled

48、 := true; Editid.Text := ; Editname.Text := ; SelMode := 0; LabelMode.Caption := 新增模式; DBGrid1.DataSource := DataSource1; date := FormatDateTime(yymm, now); With FormTable.ADOQuery1 do begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select max(substring(Id,6,3) maxid from Students where substring(Id,2,4)= + date); ADOQuery1.Open; if (ADOQuery1.RecordCount = 0) then Editid.Text := S +