台州电大陈元的数据库应用程序设计离线作业Word格式文档下载.docx

1、1.7 尝试设计如图110所示的窗体。（图见教材P15页图110）图110设计界面： 运行界面： 第二章2.8设计如图25所示的界面。单击“按钮1”或“按钮2”时在标签上显示用户所执行的操作。单击“开启/停用按钮”可控制“按钮1”和“按钮2”是否可用，单击“退出系统”按钮时，结束程序的运行。 代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Butto

2、n1: TButton; Button2: ctlButton: exitButton: showLabel: TLabel; procedure Button1Click（Sender: TObject）; /按钮1 procedure Button2Click（Sender: /按钮2 procedure ctlButtonClick（Sender: /开启停用按钮 procedure exitButtonClick（Sender: /退出按钮 private Private declarations public Public declarations end;var Form1: TF

3、orm1; ctlStatus:integer = 0; /控制按钮1和2的开启和关闭，0表示当前为开启，1表示关闭implementation$R *.dfmprocedure TForm1.Button1Click（Sender:begin form1.showLabel.Caption := 您点击了按钮1;end;procedure TForm1.Button2Click（Sender:您点击了按钮2procedure TForm1.exitButtonClick（Sender: form1.Close;procedure TForm1.ctlButtonClick（Sender: i

4、f ctlStatus = 0 then begin form1.Button1.Enabled := false; form1.Button2.Enabled : ctlStatus := 1; end else= true;= 0; end;end.2.9 设计如图26所示的界面。当单击按钮时，可控制文本框中字体的颜色。图25图26设计界面（按钮快捷键的设置方法为在字母前加&，如&R，&G，&B）unit test; Label1: Edit1: TEdit; btnRed: btnGreen: btnBlue: procedure btnRedClick（Sender: procedur

5、e btnGreenClick（Sender: procedure btnBlueClick（Sender:procedure TForm1.btnRedClick（Sender: form1.Edit1.Font.Color := clred;procedure TForm1.btnGreenClick（Sender:= clgreen;procedure TForm1.btnBlueClick（Sender: form1.Edit1.Font.Color := clblue;End.第三章3.8 下列实数中哪些是合法的，哪些是不合法的？不合法的请说明理由。（A）0.25E+02（B）.25

6、+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.00033.12 数学式子sin30。写成Delphi表达式是下列哪个？（A） Sin30（B）Sin（30）（C）SIN（30。）（D）Sin（30*Pi/180）D，使用正切函数时需要把角度转化为弧度表示。第四章4.7 利用3个数字编辑框分别输入小时、分、秒，换算共有多少秒，然后使用标签输出。 Dialogs, StdCtrls, Spin; Label

7、2: Label3: SpinEdit1: TSpinEdit; SpinEdit2: SpinEdit3: Label4: procedure SpinEdit1Change（Sender: procedure SpinEdit2Change（Sender: procedure SpinEdit3Change（Sender: procedure CalculateTimeToSencond（timeKind:String; time:integer）; hour: integer = 0; minute: second: tot:procedure TForm1.CalculateTimeT

8、oSencond（timeKind: if timeKind = hh then hour := time else if timeKind = mi minute :ss second := time; tot := hour * 60 * 60 + minute * 60 + second; form1.Label4.Caption :总共为 + IntToStr（tot） + 秒procedure TForm1.SpinEdit1Change（Sender: Form1.CalculateTimeToSencond（, StrToInt（Form1.SpinEdit1.Text）;procedure TForm1.SpinEdit2Change（Sender:, StrToInt（Form1.SpinEdit2.Text）;procedure TForm1.SpinEdit3Change（Sender:, StrToInt（Form1.SpinEdit3.Text）;4.8 在编辑框中输入一个实数，利用备注框输出该实数及其平方和平方根。 Windows, Messa