2017浙大远程《数据库应用程序设计》离线作业

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

浙江大学远程教育学院

《数据库应用程序设计》课程作业

姓名:学号:

年级:学习中心:

—————————————————————————————

作业

第一章

1.5 如何保存Delphi的项目?尝试自己动手创建一个项目,并保存。

答:执行All 菜单命令或单击工具栏中的Save All 按钮便可保存,在保存时可以对工程文件和单元文件进行改名,但后缀名不能改。保存文件之后,单击工具中的Run 按钮或按F9 键,系统将开始编译、连接、运行该工程。

1.7 尝试设计如图1-10所示的窗体。(图见教材P15页图1-10)

图1-10

第二章

2.8设计如图2-5所示的界面。单击“按钮1”或“按钮2”时在标签上显示用户所执行的操作。单击“开启/停用按钮”可控制“按钮1”和“按钮2”是否可用,单击“退出系统”按钮时,结束程序的运行。

2.9 设计如图2-6所示的界面。当单击按钮时,可控制文本框中字体的颜色。

图2-5 图2-6

unit test;

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; //开启停用按钮

exitBtn: TButton; //退出按钮

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 表示关闭

implementation

{$R *.dfm}

procedure 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(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:

unit test;

interface

uses

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(Sender: TObject);

procedure btnBlueClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnRedClick(Sender: TObject);

begin

form1.Edit1.Font.Color := clred;

end;

procedure TForm1.btnGreenClick(Sender: TObject);

begin

form1.Edit1.Font.Color := clgreen;

end;

procedure TForm1.btnBlueClick(Sender: TObject);

begin

form1.Edit1.Font.Color := clblue;

end;

end.

第三章

3.8 下列实数中哪些是合法的,哪些是不合法的?不合法的请说明理由。

(A)0.25E+02 (B).25+2 (C)25E+2

(D)34.5 (E).123 (F)-3E-4

(A)合法,即为25

(B)不合法,小数点前必须有数字,如表示为0.25+2

(C)合法,即为2500

(D)合法,即为34.5

(E)不合法,同(2)

(F)合法,即为‐0.0003

3.12 数学式子sin30。写成Delphi表达式是下列哪个?

(A)Sin30 (B)Sin(30) (C)SIN(30。)(D)Sin(30*Pi/180)

D,需要把角度转化为弧度

第四章

4.7 利用3个数字编辑框分别输入小时、分、秒,换算共有多少秒,然后使用标签输出。

相关文档
最新文档