台州电大陈元的数据库应用程序设计离线作业Word格式.docx
- 文档编号:8309926
- 上传时间:2023-05-11
- 格式:DOCX
- 页数:58
- 大小:2.07MB
台州电大陈元的数据库应用程序设计离线作业Word格式.docx
《台州电大陈元的数据库应用程序设计离线作业Word格式.docx》由会员分享,可在线阅读,更多相关《台州电大陈元的数据库应用程序设计离线作业Word格式.docx(58页珍藏版)》请在冰点文库上搜索。
单击“开启/停用按钮”可控制“按钮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.
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:
=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在编辑框中输入一个实数,利用备注框输出该实数及其平方和平方根。
Memo1:
TMemo;
procedureEdit1Change(Sender:
procedureFormCreate(Sender:
num1:
Real;
//原实数
num2:
//实数平方
num3:
//实数平方根
procedureTForm1.Edit1Change(Sender:
ifform1.Edit1.Text<
>
'
'
=StrToFloat(form1.Edit1.Text);
=Sqr(num1);
=Sqrt(num1);
form1.Memo1.Lines.Clear;
form1.Memo1.Lines.Add('
实数为:
+FloatToStr(num1));
平方为:
+FloatToStr(num2));
平方根为:
+FloatToStr(num3));
第五章
5.11任意给定3个实数,按照从大到小的顺序依次输出这3个数。
num1Edit:
resultLabel:
num2Edit:
num3Edit:
procedurenum1EditChange(Sender:
procedurenum2EditChange(Sender:
procedurenum3EditChange(Sender:
procedureCompareNumber();
//数字1
//数字2
//数字3
compnum:
//比较时转换2数
outStr:
String;
//输出结果;
procedureTForm1.CompareNumber();
if(trim(form1.num1Edit.Text)<
)And(trim(form1.num2Edit.Text)<
)And(trim(form1.num3Edit.Text)<
)then
=StrToFloat(form1.num1Edit.Text);
=StrToFloat(form1.num2Edit.Text);
=StrToFloat(form1.num3Edit.Text);
ifnum2>
num1then
=num1;
=num2;
=compnum;
ifnum3>
=num3;
num2then
=FloatToStr(num1)+'
'
+FloatToStr(num2)+'
+FloatToStr(num3);
form1.resultLabel.Caption:
=outStr;
procedureTForm1.num1EditChange(Sender:
form1.CompareNumber;
procedureTForm1.num2EditChange(Sender:
procedureTForm1.num3EditChange(Sender:
5.13假设工资的增幅标准为:
若基本工资大于等于1000元,增加工资20%;
若小于1000元大于等于800元,则增加工资15%;
若小于800元,则增加工资10%。
请根据用户在文本框中输入的基本工资,计算出增加后的工资。
salary:
outSalary:
salary:
if(salary>
=1000)then
outSalary:
=salary*(1+0.2)
elseif(salary<
1000)And(salary>
=800)then
=salary*(1+0.15)
800)then
=salary*(1+0.1);
=FloatToStr(outSalary);
第六章
6.5设s=1X2X3X…Xn,求s不大于20000时最大的n。
number,n,tot:
Integer;
procedureTForm1.FormCreate(Sender:
n:
number:
=StrToInt(form1.Edit1.Text);
Whiletot<
=numberdo
=n+1;
=tot*n;
=IntToStr(n-1);
6.10在标签上输出100~200之间的所有的奇数,其中3的倍数除外。
number,i:
outStr:
fori:
=100to200do
ifimod2<
0then
ifimod3<
=outStr+'
+IntToStr(i);
第七章
7.4求1~200这200个数的和,当和大于10000时结束计算。
(要求使用转向语句)
T
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 台州 电大 数据库 应用 程序设计 离线 作业