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

1、浙江大學(xué)遠(yuǎn)程教育學(xué)院《數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)》課程作業(yè) 《數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)》課程作業(yè)姓名： 姓名： 學(xué)號(hào)： 學(xué)號(hào)：年級(jí)： 年級(jí)： 學(xué)習(xí)中心： 學(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)行改名，但后綴

2、名不能改。保存文件之后，單擊工具中的 Run 按鈕或按 F9 鍵，系統(tǒng)將開始編譯、連接、運(yùn)行該工程。1.7 嘗試設(shè)計(jì)如圖 1－10 所示的窗體。 （圖見教材 P15 頁(yè)圖 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 的開啟和關(guān)閉，0 表示當(dāng)前為開啟，1 表示關(guān)閉 implementation {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject);begin form1.showLabel.Caption

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