你可能喜欢
问答题
本程序设计界面及运行界面如下:
程序功能是:用户输入一个3位正整数后,按“确定”键,该数字的个位、十位、百位数字分别显示在输出框中。如果输入的数据不在规定范围之内,程序要给出错误提示。
请编写单击“确定”按钮的事件处理程序。
填空题
数据库mydb中有关系表student,其结构如下:
student(sno学号,sname姓名,sex性别,birthday生日)
现编写一个学生信息浏览程序,设计界面和运行界面如下图所示:
在下划线处填写相应数据库组件的属性值:
Database1. DatabaseName : mydb
Table1. DatabaseName : mydb T
able1. TableName : student
Table1. Active :(①)
Datasource1.DataSet :(②)
DBNavigator1. DataSource : (③)
DBEdit2. DataSource :(④)
DBEdit2. DataField :(⑤)
填空题
本程序根据用户选择的运算符对输入的二个操作数进行运算,并显示运算结果。设计界面和运行界面如图所示。其中,运算符是一个含有4个单选按纽的RadioGroup1对象。
下面是单击“运算”按钮的事件处理程序,请根据功能要求完成程序填空。
procedure TForm1.Button1Click(Sender: TObject);//运算
var
x1,x2,y :Integer;
begin
x1 := StrToInt( Edit1. ①);
x2 : = StrToInt( Edit2. ②);
Case ③.ItemIndex of
0: y := x1 + x2 ;
1: y := x1 - x2;
2: y := x1 * x2;
3: y := x1 Div x2;
End;
Edit3. ④:= IntToStr( ⑤);
end;