數(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的開啟和關(guān)閉，0表示當前為開啟，1表示關(guān)

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 TF

5、orm1.ctlBtnClick(Sender: 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:

7、 TObject); procedure btnGreenClick(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.b

8、tnGreenClick(Sender: TObject);begin 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）合法

9、，即為2500 （D）合法，即為34.5 （E）不合法，同（2） （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, Di

10、alogs, StdCtrls, Spin;type TForm1 = 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:

11、 TObject); private Private declarations 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(timeKi

12、nd:String; time:integer);begin if 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;pr

13、ocedure TForm1.SpinEdit1Change(Sender: TObject);begin Form1.CalculateTimeToSencond('hh', StrToInt(Form1.SpinEdit1.Text);end;procedure TForm1.SpinEdit2Change(Sender: TObject);begin Form1.CalculateTimeToSencond('mi', StrToInt(Form1.SpinEdit2.Text);end;procedure TForm1.SpinEdit3Change(S

14、ender: TObject);begin Form1.CalculateTimeToSencond('ss', StrToInt(Form1.SpinEdit3.Text);end;end.4.8 在編輯框中輸入一個實數(shù)，利用備注框輸出該實數(shù)及其平方和平方根。答：設計界面：運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) E

15、dit1: TEdit; Label1: TLabel; Memo1: TMemo; Label2: TLabel; procedure Edit1Change(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1; num1 : Real; /原實數(shù) num2 : Real; /實數(shù)平方 num3 : Real; /實數(shù)平方根implementation$R *.dfmprocedure TForm1.Edit1Change(Sender: TObject

16、);begin if form1.Edit1.Text <> '' then begin num1 := StrToFloat(form1.Edit1.Text); num2 := Sqr(num1); num3 := Sqrt(num1); form1.Memo1.Lines.Clear; form1.Memo1.Lines.Add('實數(shù)為 : ' + FloatToStr(num1); form1.Memo1.Lines.Add('平方為 : ' + FloatToStr(num2); form1.Memo1.Lines.Add

17、('平方根為 : ' + FloatToStr(num3); end;end;end.第五章5.11 任意給定3個實數(shù)，按照從大到小的順序依次輸出這3個數(shù)。答：設計界面：運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) num1Edit: TEdit; Label1: TLabel; Label2: TLabel; resul

18、tLabel: TLabel; num2Edit: TEdit; num3Edit: TEdit; procedure num1EditChange(Sender: TObject); procedure num2EditChange(Sender: TObject); procedure num3EditChange(Sender: TObject); private Private declarations procedure CompareNumber(); public Public declarations end;var Form1: TForm1; num1 : Real; /數(shù)

19、字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.num1Edit.Text) <> '') And (trim(form1.num2Edit.Text) <> '') And (trim(form1.num3Edit.Text) <> ''

20、;) 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 > num1 then begin compnum := num1; num1 := num3; num3 := compnum; end;

21、 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(Sender: TObject);begin form1.CompareNumber;end

22、;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ù)用戶在文本框中輸入的基本工資，計算出增加后的工資。答：設計界面：=運行界面：代碼：unit Unit1;

23、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 declarations public Public declarations end

24、;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 < 1000) And (salary >= 800) then outSalary := salary *

25、 (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, StdCtr

26、ls;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(Sender: TOb

27、ject);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, Cl

28、asses, 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.FormCrea

29、te(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, Me

30、ssages, SysUtils, Variants, 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.F

31、ormCreate(Sender: TObject);begin 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, SysUt

32、ils, Variants, Classes, Graphics, Controls, Forms, 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

33、TForm1.checkNum(num:integer):boolean; var n :boolean;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 + '

34、 ' + IntToStr(i); end; form1.Label1.Caption := out;end;end.第九章9.2 打開對話框組件和打開圖片對話框組件有什么異同點？答：兩者都會打開一個對話框用于選擇電腦本地上的文件 不同的是前者可以選擇全部類型的文件，而后者只可以選擇圖片類型的文件，并且可以預覽圖片第十章10.7 菜單命令項與工具欄按鈕的單擊事件中的代碼是否可以關(guān)聯(lián)？如何關(guān)聯(lián)？答：將工具欄按鈕ToolButton的Style屬性設置為tbsDropDown,然后在MenuItem屬性中選擇對應的菜單項即可第十一章11.4 調(diào)用子窗體的close方法時是否可關(guān)閉該子窗體？

35、若不能，需要怎么做？答：調(diào)用close方法只能最小化窗口，如果要真正關(guān)閉，需要調(diào)用free方法第十二章12.3 使用紅色的畫筆在窗體中繪制一個半徑為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 decla

36、rations public Public declarations end;var Form1: TForm1;implementation$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）

37、 Reset過程以只讀方式打開一個文件。（2） Rewrite過程創(chuàng)建并打開文件，對于一個已經(jīng)存在的文件，此操作將使文件被覆蓋。（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所

38、示的數(shù)據(jù)表，并開發(fā)一個學生檔案管理系統(tǒng)，完成學生基本信息的添加、刪除、修改等。同時，可以按照學生的學號、姓名等進行數(shù)據(jù)的查詢。最后，將學生的基本信息以報表的方式輸出。表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)幫助界面

39、,FormAbout系統(tǒng)關(guān)于界面（3）各Form詳細內(nèi)容：A：FormMain設計界面：運行界面：代碼：unit Unit2;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

40、; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; 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 N4Clic

41、k(Sender: TObject); procedure N7Click(Sender: TObject); private 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;proce

42、dure TMainForm.N2Click(Sender: TObject);var child:TFormTable;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(Sen

43、der: TObject; var CanClose: Boolean);begin if messagedlg('您確定要退出本系統(tǒng)了嗎?',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;proc

44、edure TMainForm.N7Click(Sender: TObject);begin formHelp.Show;end;end.B：FormTable設計界面：運行界面：代碼：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, ComCtrls, StdCtrls, ToolWin, ImgList;type TFormTable = class(TForm) ADO

45、Connection1: TADOConnection; DataSource1: TDataSource; DBGrid1: TDBGrid; ToolBar1: TToolBar; TBAdd: TToolButton; Editname: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Editaddress: TEdit; Label4: TLabel; Editid: TEdit; Label5: TLabel; Label6: TLabel; ComboBoxsex: TComboBox; DateBirthday: T

46、DateTimePicker; TBUpdate: TToolButton; TBDelete: TToolButton; TBSelect: TToolButton; TBCommit: TToolButton; LabelMode: TLabel; ToolButton6: TToolButton; Label8: TLabel; ADOQuery1: TADOQuery; DataSource2: TDataSource; ADOTable1: TADOTable; ImageList1: TImageList; procedure TBAddClick(Sender: TObject)

47、; procedure TBUpdateClick(Sender: TObject); procedure TBDeleteClick(Sender: TObject); procedure TBSelectClick(Sender: TObject); procedure FormPaint(Sender: TObject); procedure TBCommitClick(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject); private public Public declarations end;var FormT

48、able: TFormTable; TBStatus : integer; /模式類型,0-查詢，1-新增，2-修改，3-刪除 SelMode : integer; /第一次按查詢按鈕進入查詢模式-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;

49、 Comboboxsex.Enabled := true; DateBirthday.Enabled := true; Editaddress.Enabled := true; Editid.Text := '' Editname.Text := '' SelMode := 0; LabelMode.Caption := '新增模式' DBGrid1.DataSource := DataSource1; date := FormatDateTime('yymm', now); With FormTable.ADOQuery1 do

50、 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' + date + '001' else begin if (ADOQuery1.FieldByName('maxid').Text = '') or (ADOQuery1.FieldByName('maxid').Text = 'NULL') then Editid.Text := 'S' + date + '001' else begin maxid := StrToInt(ADOQuery1.FieldByName('maxid')