台州电大陈元的数据库应用程序设计离线作业Word格式文档下载.docx
- 文档编号:13165683
- 上传时间:2022-10-07
- 格式:DOCX
- 页数:69
- 大小:2.15MB
台州电大陈元的数据库应用程序设计离线作业Word格式文档下载.docx
《台州电大陈元的数据库应用程序设计离线作业Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《台州电大陈元的数据库应用程序设计离线作业Word格式文档下载.docx(69页珍藏版)》请在冰豆网上搜索。
1.7尝试设计如图1-10所示的窗体。
(图见教材P15页图1-10)
图1-10
设计界面:
运行界面:
第二章
2.8设计如图2-5所示的界面。
单击“按钮1”或“按钮2”时在标签上显示用户所执行的操作。
单击“开启/停用按钮”可控制“按钮1”和“按钮2”是否可用,单击“退出系统”按钮时,结束程序的运行。
代码:
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;
type
TForm1=class(TForm)
Button1:
TButton;
Button2:
ctlButton:
exitButton:
showLabel:
TLabel;
procedureButton1Click(Sender:
TObject);
//按钮1
procedureButton2Click(Sender:
//按钮2
procedurectlButtonClick(Sender:
//开启停用按钮
procedureexitButtonClick(Sender:
//退出按钮
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
ctlStatus:
integer=0;
//控制按钮1和2的开启和关闭,0表示当前为开启,1表示关闭
implementation
{$R*.dfm}
procedureTForm1.Button1Click(Sender:
begin
form1.showLabel.Caption:
='
您点击了按钮1'
;
end;
procedureTForm1.Button2Click(Sender:
您点击了按钮2'
procedureTForm1.exitButtonClick(Sender:
form1.Close;
procedureTForm1.ctlButtonClick(Sender:
ifctlStatus=0then
begin
form1.Button1.Enabled:
=false;
form1.Button2.Enabled:
ctlStatus:
=1;
end
else
=true;
=0;
end;
end.
2.9设计如图2-6所示的界面。
当单击按钮时,可控制文本框中字体的颜色。
图2-5 图2-6
设计界面
(按钮快捷键的设置方法为在字母前加&
,如&
R,&
G,&
B)
unittest;
Label1:
Edit1:
TEdit;
btnRed:
btnGreen:
btnBlue:
procedurebtnRedClick(Sender:
procedurebtnGreenClick(Sender:
procedurebtnBlueClick(Sender:
procedureTForm1.btnRedClick(Sender:
form1.Edit1.Font.Color:
=clred;
procedureTForm1.btnGreenClick(Sender:
=clgreen;
procedureTForm1.btnBlueClick(Sender:
form1.Edit1.Font.Color:
=clblue;
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个数字编辑框分别输入小时、分、秒,换算共有多少秒,然后使用标签输出。
Dialogs,StdCtrls,Spin;
Label2:
Label3:
SpinEdit1:
TSpinEdit;
SpinEdit2:
SpinEdit3:
Label4:
procedureSpinEdit1Change(Sender:
procedureSpinEdit2Change(Sender:
procedureSpinEdit3Change(Sender:
procedureCalculateTimeToSencond(timeKind:
String;
time:
integer);
hour:
integer=0;
minute:
second:
tot:
procedureTForm1.CalculateTimeToSencond(timeKind:
iftimeKind='
hh'
then
hour:
=time
elseiftimeKind='
mi'
minute:
ss'
second:
=time;
tot:
=hour*60*60+minute*60+second;
form1.Label4.Caption:
总共为'
+IntToStr(tot)+'
秒'
procedureTForm1.SpinEdit1Change(Sender:
Form1.CalculateTimeToSencond('
StrToInt(Form1.SpinEdit1.Text));
procedureTForm1.SpinEdit2Change(Sender:
StrToInt(Form1.SpinEdit2.Text));
procedureTForm1.SpinEdit3Change(Sender:
StrToInt(Form1.SpinEdit3.Text));
4.8在编辑框中输入一个实数,利用备注框输出该实数及其平方和平方根。
Windows,Messa
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 台州 电大 数据库 应用 程序设计 离线 作业