2017浙大遠程數(shù)據(jù)庫應用程序設計離線作業(yè)

1、浙江大學遠程教育學院《數(shù)據(jù)庫應用程序設計》課程作業(yè) 《數(shù)據(jù)庫應用程序設計》課程作業(yè)姓名： 姓名： 學號： 學號：年級： 年級： 學習中心： 學習中心：—————————————————————————————作業(yè)第一章1.5 如何保存 Delphi 的項目？嘗試自己動手創(chuàng)建一個項目，并保存。答：執(zhí)行 File|Save All 菜單命令或單擊工具欄中的 Save All 按鈕便可保存，在保存時可以對工程文件和單元文件進行改名，但后綴

2、名不能改。保存文件之后，單擊工具中的 Run 按鈕或按 F9 鍵，系統(tǒng)將開始編譯、連接、運行該工程。1.7 嘗試設計如圖 1－10 所示的窗體。 （圖見教材 P15 頁圖 1－10）圖 1－10uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1

3、= class(TForm) showLabel: TLabel; btn1: TButton; //按鈕 1 btn2: TButton; //按鈕 2 ctlBtn: TButton; //開啟停用按鈕exitBtn: TButton; //退出按鈕 procedure btn1Click(Sender: TObject);

4、 procedure btn2Click(Sender: TObject); procedure exitBtnClick(Sender: TObject); procedure ctlBtnClick(Sender: TObject); private { Private declarations } public { Public declar

5、ations } end; var Form1: TForm1; ctlStatus:integer = 0; //控制按鈕 1 和 2 的開啟和關閉，0 表示當前為開啟，1 表示關閉 implementation {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject);begin form1.showLabel.Caption

6、 := '您點擊了按鈕 1'; end; procedure TForm1.btn2Click(Sender: TObject);begin form1.showLabel.Caption := '您點擊了按鈕 2';end; procedure TForm1.exitBtnClick(Sender: TObject);begin form1.Close; end; proced